summaryrefslogtreecommitdiff
path: root/examples/foreachq.m4
blob: d34fb5b9941a727c52b937a24809dcd481091210 (plain)
1
2
3
4
5
6
7
8
9
include(`quote.m4')dnl
divert(`-1')
# foreachq(x, `item_1, item_2, ..., item_n', stmt)
#   quoted list, simple version
define(`foreachq', `pushdef(`$1')_foreachq($@)popdef(`$1')')
define(`_arg1', `$1')
define(`_foreachq', `ifelse(quote($2), `', `',
  `define(`$1', `_arg1($2)')$3`'$0(`$1', `shift($2)', `$3')')')
divert`'dnl