rc/bin/ape/ar89

   1 #!/bin/rc
   2
   3 flagfmt='c,d,p,r,t,u,v,x'
   4 args='archive [files ...]'
   5
   6 if(! ifs=() eval `{aux/getflags $*} || ~ $#* 0) {
   7         aux/usage
   8         exit usage
   9 }
  10
  11 key=''
  12 for(i in c d p r t x u v)
  13         if(f=flag$i ~ $#$f 1)
  14                 key=$key$i
  15 exec /$cputype/bin/ar $key $*