42 lines
654 B
Bash
Executable file
42 lines
654 B
Bash
Executable file
#!/bin/rc
|
|
|
|
rfork e
|
|
|
|
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
|
|
}
|