#!/bin/rc# bug: should be set up by init obj=( 68000 2 arm 5 amd64 6 alpha 7 386 8 ppc64 9 sparc k mips v)while(! ~ $objtype $obj(1)){ if(~ $#obj 0){ echo unknown objtype: $objtype >[1=2] exit objtype } obj = $obj(2-)}O=$obj(2)obj=()echo $O
#!/bin/rc
# bug: should be set up by init
obj=(
68000 2
arm 5
amd64 6
alpha 7
386 8
ppc64 9
sparc k
mips v
)
while(! ~ $objtype $obj(1)){
if(~ $#obj 0){
echo unknown objtype: $objtype >[1=2]
exit objtype
}
obj = $obj(2-)
}
O=$obj(2)
obj=()
echo $O