Blame data/c-like.m4

Packit d6cc65
                                                            -*- Autoconf -*-
Packit d6cc65
Packit d6cc65
# Common code for C-like languages (C, C++, Java, etc.)
Packit d6cc65
Packit d6cc65
# Copyright (C) 2012-2015 Free Software Foundation, Inc.
Packit d6cc65
Packit d6cc65
# This program is free software: you can redistribute it and/or modify
Packit d6cc65
# it under the terms of the GNU General Public License as published by
Packit d6cc65
# the Free Software Foundation, either version 3 of the License, or
Packit d6cc65
# (at your option) any later version.
Packit d6cc65
#
Packit d6cc65
# This program is distributed in the hope that it will be useful,
Packit d6cc65
# but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit d6cc65
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit d6cc65
# GNU General Public License for more details.
Packit d6cc65
#
Packit d6cc65
# You should have received a copy of the GNU General Public License
Packit d6cc65
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
Packit d6cc65
Packit d6cc65
# b4_comment_(TEXT, OPEN, CONTINUE, END)
Packit d6cc65
# --------------------------------------
Packit d6cc65
# Put TEXT in comment.  Avoid trailing spaces: don't indent empty lines.
Packit d6cc65
# Avoid adding indentation to the first line, as the indentation comes
Packit d6cc65
# from OPEN.  That's why we don't patsubst([$1], [^\(.\)], [   \1]).
Packit d6cc65
#
Packit d6cc65
# Prefix all the output lines with PREFIX.
Packit d6cc65
m4_define([b4_comment_],
Packit d6cc65
[$2[]m4_bpatsubst(m4_expand([[$1]]), [
Packit d6cc65
\(.\)], [
Packit d6cc65
$3\1])$4])
Packit d6cc65
Packit d6cc65
Packit d6cc65
# b4_comment(TEXT, [PREFIX])
Packit d6cc65
# --------------------------
Packit d6cc65
# Put TEXT in comment.  Prefix all the output lines with PREFIX.
Packit d6cc65
m4_define([b4_comment],
Packit d6cc65
[b4_comment_([$1], [$2/* ], [$2   ], [  */])])
Packit d6cc65
Packit d6cc65
Packit d6cc65
Packit d6cc65
Packit d6cc65
# b4_dollar_dollar_(VALUE, FIELD, DEFAULT-FIELD)
Packit d6cc65
# ----------------------------------------------
Packit d6cc65
# If FIELD (or DEFAULT-FIELD) is non-null, return "VALUE.FIELD",
Packit d6cc65
# otherwise just VALUE.  Be sure to pass "(VALUE)" is VALUE is a
Packit d6cc65
# pointer.
Packit d6cc65
m4_define([b4_dollar_dollar_],
Packit d6cc65
[b4_symbol_value([$1],
Packit d6cc65
                 m4_if([$2], [[]],
Packit d6cc65
                       [[$3]], [[$2]]))])
Packit d6cc65
Packit d6cc65
# b4_dollar_pushdef(VALUE-POINTER, DEFAULT-FIELD, LOCATION)
Packit d6cc65
# b4_dollar_popdef
Packit d6cc65
# ---------------------------------------------------------
Packit d6cc65
# Define b4_dollar_dollar for VALUE and DEFAULT-FIELD,
Packit d6cc65
# and b4_at_dollar for LOCATION.
Packit d6cc65
m4_define([b4_dollar_pushdef],
Packit d6cc65
[m4_pushdef([b4_dollar_dollar],
Packit d6cc65
            [b4_dollar_dollar_([$1], m4_dquote($][1), [$2])])dnl
Packit d6cc65
m4_pushdef([b4_at_dollar], [$3])dnl
Packit d6cc65
])
Packit d6cc65
m4_define([b4_dollar_popdef],
Packit d6cc65
[m4_popdef([b4_at_dollar])dnl
Packit d6cc65
m4_popdef([b4_dollar_dollar])dnl
Packit d6cc65
])