523 |
|
|
524 |
# m4_quote(ARGS) |
# m4_quote(ARGS) |
525 |
# -------------- |
# -------------- |
526 |
# Return ARGS quoted. Note that a list of quoted arguments is returned, |
# Return ARGS as a single arguments. |
|
# not a quoted list. |
|
527 |
# |
# |
528 |
# It is important to realize the difference between `m4_quote(exp)' and |
# It is important to realize the difference between `m4_quote(exp)' and |
529 |
# `[exp]': in the first case you obtain the quoted *result* of the |
# `[exp]': in the first case you obtain the quoted *result* of the |
530 |
# expansion of EXP, while in the latter you just obtain the string |
# expansion of EXP, while in the latter you just obtain the string |
531 |
# `exp'. |
# `exp'. |
532 |
m4_define([m4_quote], [[$*]]) |
m4_define([m4_quote], [[$*]]) |
533 |
m4_define([m4_lquote], [$@]) |
m4_define([m4_dquote], [[$@]]) |
|
m4_define([m4_dquote], [[$@]]) |
|
|
|
|
534 |
|
|
535 |
# m4_noquote(STRING) |
# m4_noquote(STRING) |
536 |
# ------------------ |
# ------------------ |
698 |
m4_define([m4_cdr], [m4_dquote(m4_shift($@))]) |
m4_define([m4_cdr], [m4_dquote(m4_shift($@))]) |
699 |
m4_define([_m4_foreach], |
m4_define([_m4_foreach], |
700 |
[m4_if([$2], [[]], [], |
[m4_if([$2], [[]], [], |
701 |
[m4_define([$1], [m4_car($2)])$3[]_m4_foreach([$1], |
[m4_define([$1], m4_car($2))$3[]_m4_foreach([$1], |
702 |
m4_cdr($2), |
m4_cdr($2), |
703 |
[$3])])]) |
[$3])])]) |
704 |
|
|
705 |
|
|
706 |
|
|
1374 |
# ------------ |
# ------------ |
1375 |
# Regexp for `[a-zA-Z_0-9]*' |
# Regexp for `[a-zA-Z_0-9]*' |
1376 |
m4_define([m4_re_string], |
m4_define([m4_re_string], |
1377 |
m4_quote(m4_defn([m4_cr_symbols2]))dnl |
m4_defn([m4_cr_symbols2])dnl |
1378 |
[*]dnl |
[*]dnl |
1379 |
) |
) |
1380 |
|
|
1383 |
# ---------- |
# ---------- |
1384 |
# Regexp for `[a-zA-Z_][a-zA-Z_0-9]*' |
# Regexp for `[a-zA-Z_][a-zA-Z_0-9]*' |
1385 |
m4_define([m4_re_word], |
m4_define([m4_re_word], |
1386 |
m4_quote(m4_defn([m4_cr_symbols1]))dnl |
m4_defn([m4_cr_symbols1])dnl |
1387 |
m4_defn([m4_re_string])dnl |
m4_defn([m4_re_string])dnl |
1388 |
) |
) |
1389 |
|
|