#!/bin/rcfiles=()dest=()if(~ $#* 0){ echo usage: B file ... >[1=2] exit usage}for(i) switch($i){ case /* files = ( $files $i ) case * files = ( $files `{cleanname `{pwd}^/$i} ) }if(test -f /mnt/plumb/edit || test -f /mnt/term/mnt/plumb/edit){ plumb -s B -d edit $files exit}# using sam srv fileif(test -f /mnt/term/srv/sam.$user) dest = /mnt/term/srv/sam.$userif not if(test -f /srv/sam.$user) dest = /srv/sam.$userif not { echo B: can''''t find sam server file >[1=2] exit open}switch($files){case *:* for(i in $files) echo $i | sed 's/^/B /;s/:([0-9]+)$/\n\1/g' >> $destcase * echo B $files >> $dest}
#!/bin/rc
files=()
dest=()
if(~ $#* 0){
echo usage: B file ... >[1=2]
exit usage
}
for(i)
switch($i){
case /*
files = ( $files $i )
case *
files = ( $files `{cleanname `{pwd}^/$i} )
}
if(test -f /mnt/plumb/edit || test -f /mnt/term/mnt/plumb/edit){
plumb -s B -d edit $files
exit
}
# using sam srv file
if(test -f /mnt/term/srv/sam.$user) dest = /mnt/term/srv/sam.$user
if not if(test -f /srv/sam.$user) dest = /srv/sam.$user
if not {
echo B: can''''t find sam server file >[1=2]
exit open
}
switch($files){
case *:*
for(i in $files)
echo $i | sed 's/^/B /;s/:([0-9]+)$/\n\1/g' >> $dest
case *
echo B $files >> $dest
}