16 lines
240 B
Text
16 lines
240 B
Text
|
#!/bin/rc
|
||
|
|
|
||
|
|
flagfmt='c,d,p,r,t,u,v,x'
|
||
|
|
args='archive [files ...]'
|
||
|
|
|
||
|
|
if(! ifs=() eval `{aux/getflags $*} || ~ $#* 0) {
|
||
|
|
aux/usage
|
||
|
|
exit usage
|
||
|
|
}
|
||
|
|
|
||
|
|
key=''
|
||
|
|
for(i in c d p r t x u v)
|
||
|
|
if(f=flag$i ~ $#$f 1)
|
||
|
|
key=$key$i
|
||
|
|
exec /$cputype/bin/ar $key $*
|