examples/foreachq4.m4

   1 include(`forloop2.m4')dnl
   2 divert(`-1')
   3 # foreachq(x, `item_1, item_2, ..., item_n', stmt)
   4 #   quoted list, version based on forloop
   5 define(`foreachq',
   6 `ifelse(`$2', `', `', `_$0(`$1', `$3', $2)')')
   7 define(`_foreachq',
   8 `pushdef(`$1', forloop(`$1', `3', `$#',
   9   `$0_(`1', `2', indir(`$1'))')`popdef(
  10     `$1')')indir(`$1', $@)')
  11 define(`_foreachq_',
  12 ``define(`$$1', `$$3')$$2`''')
  13 divert`'dnl