#!/bin/rc files=() dest=() line='' if(~ $#* 0){ echo usage: B file ... >[1=2] exit usage } 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 } for(i) switch($i){ case /* files = ( $files $i ) case -* line = `{echo $i | sed 's/.//' } case * files = ( $files `{pwd}^/$i ) } echo B $files >> $dest if(! ~ $line '') echo $line >> $dest