examples/foreachq3.m4

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