Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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 $*