shithub: riscv

ref: 013b2cad191eef50fd4e69c38f1544c5083b640d
dir: /rc/bin/B/

#!/bin/rc

rfork e

files=()
dest=()

if(~ $#* 0){
	echo usage: B file ... >[1=2]
	exit usage
}

if(test -f /mnt/plumb/edit || test -f /mnt/term/mnt/plumb/edit){
	for(i)
		plumb -s B -d edit $i
	exit
}

# using sam srv file

for(i)
	switch($i){
	case /*
		files = ( $files $i )
	case *
		files = ( $files `{cleanname `{pwd}^/$i} )
	}

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
}