source:
trunk/essentials/sys-devel/m4/examples/sysv-args.m4
| Last change on this file was 3090, checked in by , 18 years ago | |
|---|---|
| File size: 332 bytes | |
| Line | |
|---|---|
| 1 | divert(-1) |
| 2 | define(`nargs', `$#') |
| 3 | define(`concat', `ifelse(1, $#, `$1', `$1` 'concat(shift($@))')') |
| 4 | traceon(`concat', `nargs') |
| 5 | divert |
| 6 | |
| 7 | nargs |
| 8 | nargs() |
| 9 | nargs(1,2,3,4,5,6) |
| 10 | |
| 11 | concat() |
| 12 | concat(`hej', `med', `dig') |
| 13 | concat(`hej', `med', `dig', `en gang igen') |
| 14 | concat(an, awful, lot, of, argument, at, least, more, that, ten, silly, arguments) |
Note:
See TracBrowser
for help on using the repository browser.
