1bd389b36SDavid du Colombier#!/bin/rc 2bd389b36SDavid du Colombier 3bd389b36SDavid du Colombierfiles=() 4bd389b36SDavid du Colombierdest=() 5bd389b36SDavid du Colombier 6bd389b36SDavid du Colombierif(~ $#* 0){ 7bd389b36SDavid du Colombier echo usage: B file ... >[1=2] 8bd389b36SDavid du Colombier exit usage 9bd389b36SDavid du Colombier} 10bd389b36SDavid du Colombier 11*7dd7cddfSDavid du Colombierfor(i) 12*7dd7cddfSDavid du Colombier switch($i){ 13*7dd7cddfSDavid du Colombier case /* 14*7dd7cddfSDavid du Colombier files = ( $files $i ) 15*7dd7cddfSDavid du Colombier case * 16*7dd7cddfSDavid du Colombier files = ( $files `{cleanname `{pwd}^/$i} ) 17*7dd7cddfSDavid du Colombier } 18*7dd7cddfSDavid du Colombier 19*7dd7cddfSDavid du Colombier 20*7dd7cddfSDavid du Colombierif(test -f /mnt/plumb/edit || test -f /mnt/term/mnt/plumb/edit){ 21*7dd7cddfSDavid du Colombier plumb -s B -d edit $files 22*7dd7cddfSDavid du Colombier exit 23*7dd7cddfSDavid du Colombier} 24*7dd7cddfSDavid du Colombier 25*7dd7cddfSDavid du Colombier# using sam srv file 26*7dd7cddfSDavid du Colombier 27bd389b36SDavid du Colombierif(test -f /mnt/term/srv/sam.$user) dest = /mnt/term/srv/sam.$user 28bd389b36SDavid du Colombierif not if(test -f /srv/sam.$user) dest = /srv/sam.$user 29bd389b36SDavid du Colombierif not { 30bd389b36SDavid du Colombier echo B: can''''t find sam server file >[1=2] 31bd389b36SDavid du Colombier exit open 32bd389b36SDavid du Colombier} 33bd389b36SDavid du Colombier 34*7dd7cddfSDavid du Colombierswitch($files){ 35*7dd7cddfSDavid du Colombiercase *:* 36*7dd7cddfSDavid du Colombier for(i in $files) 37*7dd7cddfSDavid du Colombier echo $i | sed 's/^/B /;s/:([0-9]+)$/\n\1/g' >> $dest 38bd389b36SDavid du Colombiercase * 39bd389b36SDavid du Colombier echo B $files >> $dest 40*7dd7cddfSDavid du Colombier} 41