source:
trunk/essentials/sys-devel/m4/examples/foreachq2.m4@
3094
| Last change on this file since 3094 was 3090, checked in by , 19 years ago | |
|---|---|
| File size: 384 bytes | |
| Line | |
|---|---|
| 1 | include(`quote.m4')dnl |
| 2 | divert(`-1') |
| 3 | # foreachq(x, `item_1, item_2, ..., item_n', stmt) |
| 4 | # quoted list, improved version |
| 5 | define(`foreachq', `pushdef(`$1')_foreachq($@)popdef(`$1')') |
| 6 | define(`_arg1q', ``$1'') |
| 7 | define(`_rest', `ifelse(`$#', `1', `', `dquote(shift($@))')') |
| 8 | define(`_foreachq', `ifelse(`$2', `', `', |
| 9 | `define(`$1', _arg1q($2))$3`'$0(`$1', _rest($2), `$3')')') |
| 10 | divert`'dnl |
Note:
See TracBrowser
for help on using the repository browser.
