rc/bin/xargs

   1 #!/bin/rc
   2 fn usage {
   3         echo usage: $0 [-n num] program [arguments]
   4         exit usage
   5 }
   6 rfork e
   7 ifs='
   8 '
   9 nargs=1
  10 while(~ $1 -*) {
  11         switch($1) {
  12         case -n
  13                 nargs=$2
  14                 shift 2
  15         case *
  16                 echo bla
  17                 usage
  18         }
  19 }
  20 while(x = `{read -n $nargs})
  21         $* $x
  22 if(! ~ $#x 0)
  23         $* $x