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