home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / m4-1.4-src.tgz / tar.out / fsf / m4 / examples / sysv-args.m4 < prev    next >
Text File  |  1996-09-28  |  332b  |  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.