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