Subversion Repositories planix.SVN

#!/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
}