home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / m4-1.0.3 / examples / sysv-args.m4 < prev    next >
Encoding:
sendmail m4  |  1989-12-04  |  332 b   |  15 lines
  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)
  15.