|
|
e15773 |
dnl modern.m4: a modern and simple framework for using the m4 macro language
|
|
|
e15773 |
dnl
|
|
|
e15773 |
dnl This file is covered by COPYING.SOFORT.
|
|
|
e15773 |
dnl
|
|
|
e15773 |
dnl 1) make all standard m4 builtins m4_ prefixed.
|
|
|
e15773 |
dnl 2) set the left-bracket and right-bracket symbols the begin-quote and end-quote strings.
|
|
|
e15773 |
dnl 3) make a single underscore symbol the equivalent of the standard dnl builtin.
|
|
|
f03322 |
dnl 4) provide the m4_toupper(), m4_tolower(), and m4_pathvar() macros.
|
|
|
f03322 |
dnl 5) provide the m4_srclist() and m4_srcitem() macros.
|
|
|
f03322 |
dnl 6) provide the m4_fillerdots(), m4_fillerdash(), and m4_fillerline() macros.
|
|
|
f03322 |
dnl 7) provide the m4_whitespace() and m4_spacealign() macros.
|
|
|
f03322 |
dnl 8) provide the m4_alignlen(), m4_leftalign(), and m4_rightalign() macros.
|
|
|
f03322 |
dnl 9) provide the m4_tab(), m4_tabtab(), and m4_tabtabtab() macros.
|
|
|
e15773 |
dnl
|
|
|
e15773 |
divert(-1)
|
|
|
e15773 |
|
|
|
e15773 |
define(m4_changecom,defn(`changecom'))
|
|
|
e15773 |
define(m4_changequote,defn(`changequote'))
|
|
|
e15773 |
define(m4_decr,defn(`decr'))
|
|
|
e15773 |
define(m4_define,defn(`define'))
|
|
|
e15773 |
define(m4_defn,defn(`defn'))
|
|
|
e15773 |
define(m4_divert,defn(`divert'))
|
|
|
e15773 |
define(m4_divnum,defn(`divnum'))
|
|
|
e15773 |
define(m4_dnl,defn(`dnl'))
|
|
|
e15773 |
define(m4_dumpdef,defn(`dumpdef'))
|
|
|
e15773 |
define(m4_errprint,defn(`errprint'))
|
|
|
e15773 |
define(m4_eval,defn(`eval'))
|
|
|
e15773 |
define(m4_ifdef,defn(`ifdef'))
|
|
|
e15773 |
define(m4_ifelse,defn(`ifelse'))
|
|
|
e15773 |
define(m4_include,defn(`include'))
|
|
|
e15773 |
define(m4_incr,defn(`incr'))
|
|
|
e15773 |
define(m4_index,defn(`index'))
|
|
|
e15773 |
define(m4_len,defn(`len'))
|
|
|
e15773 |
define(m4_m4exit,defn(`m4exit'))
|
|
|
e15773 |
define(m4_m4wrap,defn(`m4wrap'))
|
|
|
e15773 |
define(m4_maketemp,defn(`maketemp'))
|
|
|
e15773 |
define(m4_mkstemp,defn(`mkstemp'))
|
|
|
e15773 |
define(m4_popdef,defn(`popdef'))
|
|
|
e15773 |
define(m4_pushdef,defn(`pushdef'))
|
|
|
e15773 |
define(m4_shift,defn(`shift'))
|
|
|
e15773 |
define(m4_sinclude,defn(`sinclude'))
|
|
|
e15773 |
define(m4_substr,defn(`substr'))
|
|
|
e15773 |
define(m4_syscmd,defn(`syscmd'))
|
|
|
e15773 |
define(m4_sysval,defn(`sysval'))
|
|
|
e15773 |
define(m4_traceoff,defn(`traceoff'))
|
|
|
e15773 |
define(m4_traceon,defn(`traceon'))
|
|
|
e15773 |
define(m4_translit,defn(`translit'))
|
|
|
e15773 |
define(m4_undefine,defn(`undefine'))
|
|
|
e15773 |
define(m4_undivert,defn(`undivert'))
|
|
|
e15773 |
|
|
|
e15773 |
m4_changequote([,])
|
|
|
e15773 |
|
|
|
e15773 |
m4_undefine([changecom])
|
|
|
e15773 |
m4_undefine([changequote])
|
|
|
e15773 |
m4_undefine([decr])
|
|
|
e15773 |
m4_undefine([define])
|
|
|
e15773 |
m4_undefine([defn])
|
|
|
e15773 |
m4_undefine([divert])
|
|
|
e15773 |
m4_undefine([divnum])
|
|
|
e15773 |
m4_undefine([dnl])
|
|
|
e15773 |
m4_undefine([dumpdef])
|
|
|
e15773 |
m4_undefine([errprint])
|
|
|
e15773 |
m4_undefine([eval])
|
|
|
e15773 |
m4_undefine([ifdef])
|
|
|
e15773 |
m4_undefine([ifelse])
|
|
|
e15773 |
m4_undefine([include])
|
|
|
e15773 |
m4_undefine([incr])
|
|
|
e15773 |
m4_undefine([index])
|
|
|
e15773 |
m4_undefine([len])
|
|
|
e15773 |
m4_undefine([m4exit])
|
|
|
e15773 |
m4_undefine([m4wrap])
|
|
|
e15773 |
m4_undefine([maketemp])
|
|
|
e15773 |
m4_undefine([mkstemp])
|
|
|
e15773 |
m4_undefine([popdef])
|
|
|
e15773 |
m4_undefine([pushdef])
|
|
|
e15773 |
m4_undefine([shift])
|
|
|
e15773 |
m4_undefine([sinclude])
|
|
|
e15773 |
m4_undefine([substr])
|
|
|
e15773 |
m4_undefine([syscmd])
|
|
|
e15773 |
m4_undefine([sysval])
|
|
|
e15773 |
m4_undefine([traceoff])
|
|
|
e15773 |
m4_undefine([traceon])
|
|
|
e15773 |
m4_undefine([translit])
|
|
|
e15773 |
m4_undefine([undefine])
|
|
|
e15773 |
m4_undefine([undivert])
|
|
|
e15773 |
|
|
|
494c6a |
m4_define([_],m4_defn([m4_dnl]))
|
|
|
494c6a |
|
|
|
f03322 |
m4_define([m4_toupper],[m4_translit([[$1]],[[abcdefghijklmnopqrstuvwxyz]],[[ABCDEFGHIJKLMNOPQRSTUVWXYZ]])])
|
|
|
f03322 |
m4_define([m4_tolower],[m4_translit([[$1]],[[ABCDEFGHIJKLMNOPQRSTUVWXYZ]],[[abcdefghijklmnopqrstuvwxyz]])])
|
|
|
3c6658 |
m4_define([m4_pathvar],[m4_translit(m4_toupper([[$1]]),[/-],[__])])
|
|
|
f03322 |
|
|
|
f03322 |
m4_define([m4_srclist],[[$1] = \])
|
|
|
f03322 |
m4_define([m4_srcitem],[m4_tab[$1] \])
|
|
|
f03322 |
|
|
|
f03322 |
m4_define([m4_fillerdots],[................................])
|
|
|
f03322 |
m4_define([m4_fillerdash],[--------------------------------])
|
|
|
f03322 |
m4_define([m4_fillerline],[m4_fillerdots[]m4_fillerdots[]m4_fillerdots[]])
|
|
|
f03322 |
|
|
|
f03322 |
m4_define([m4_whitespace],[m4_translit(m4_fillerdots,[[.]],[[ ]])])
|
|
|
f03322 |
m4_define([m4_spacealign],[m4_translit(m4_fillerline,[[.]],[[ ]])])
|
|
|
f03322 |
|
|
|
f03322 |
m4_define([m4_alignlen],[m4_eval([$1]-m4_len([$2]))])
|
|
|
f03322 |
m4_define([m4_leftalign],[m4_substr(m4_spacealign,0,m4_alignlen([$1],[$2]))[$2]])
|
|
|
f03322 |
m4_define([m4_rightalign],[[$2]m4_substr(m4_spacealign,0,m4_alignlen([$1],[$2]))])
|
|
|
f03322 |
|
|
|
f03322 |
|
|
|
f03322 |
m4_define([m4_tab],_
|
|
|
f03322 |
[$1]))
|
|
|
f03322 |
|
|
|
f03322 |
m4_define([m4_tabtab],_
|
|
|
f03322 |
[$1])
|
|
|
f03322 |
|
|
|
f03322 |
m4_define([m4_tabtabtab],_
|
|
|
f03322 |
[$1])
|
|
|
494c6a |
|
|
|
e15773 |
m4_divert(0)_
|