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