CVSROOT: /sources/m4 Module name: m4 Changes by: Eric Blake <ericb> 06/10/21 15:23:57
Index: examples/foreachq.m4 =================================================================== RCS file: examples/foreachq.m4 diff -N examples/foreachq.m4 --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ examples/foreachq.m4 21 Oct 2006 15:23:56 -0000 1.2 @@ -0,0 +1,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
