examples/sysv-args.m4

   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)