examples/foreachq.m4

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