mirror of
https://https.git.savannah.gnu.org/git/m4.git
synced 2026-01-27 01:44:29 +00:00
0dd37af355
spaces in tests. * doc/m4.texinfo: Minor formatting fixes from branch. (Foreach, Improved foreach): Merge from branch. * examples/foreach.m4: Merge from branch. * examples/foreachq.m4: New file from branch. * examples/foreach2.m4: Likewise. * examples/foreachq2.m4: Likewise.
9 lines
296 B
Plaintext
9 lines
296 B
Plaintext
divert(`-1')
|
|
# foreach(x, (item_1, item_2, ..., item_n), stmt)
|
|
# parenthesized list, simple version
|
|
define(`foreach', `pushdef(`$1')_foreach($@)popdef(`$1')')
|
|
define(`_arg1', `$1')
|
|
define(`_foreach', `ifelse(`$2', `()', `',
|
|
`define(`$1', _arg1$2)$3`'$0(`$1', (shift$2), `$3')')')
|
|
divert`'dnl
|