mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-14 13:03:56 +03:00
11 lines
360 B
Plaintext
11 lines
360 B
Plaintext
|
include(`quote.m4')dnl
|
||
|
|
divert(`-1')
|
||
|
|
# foreach(x, (item_1, item_2, ..., item_n), stmt)
|
||
|
|
# parenthesized list, improved version
|
||
|
|
define(`foreach', `pushdef(`$1')_$0(`$1',
|
||
|
|
(dquote(dquote_elt$2)), `$3')popdef(`$1')')
|
||
|
|
define(`_arg1', `$1')
|
||
|
|
define(`_foreach', `ifelse(`$2', `(`')', `',
|
||
|
|
`define(`$1', _arg1$2)$3`'$0(`$1', (dquote(shift$2)), `$3')')')
|
||
|
|
divert`'dnl
|