shithub: riscv

ref: 4e665c8662d6baa40b41afa6e0ffd2fa4781b0a0
dir: /rc/bin/ape/ar89/

View raw version 
#!/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 $*