examples/foreach2.m4

   1 include(`quote.m4')dnl
   2 divert(`-1')
   3 # foreach(x, (item_1, item_2, ..., item_n), stmt)
   4 #   parenthesized list, improved version
   5 define(`foreach', `pushdef(`$1')_$0(`$1',
   6   (dquote(dquote_elt$2)), `$3')popdef(`$1')')
   7 define(`_arg1', `$1')
   8 define(`_foreach', `ifelse(`$2', `(`')', `',
   9   `define(`$1', _arg1$2)$3`'$0(`$1', (dquote(shift$2)), `$3')')')
  10 divert`'dnl