Import sources from 2011-03-30 iso image - rc

1 files changed, 40 insertions, 0 deletions

diff --git a/rc/bin/B b/rc/bin/B
new file mode 100755
index 000000000..7c4267440
--- /dev/null
+++ b/rc/bin/B
@@ -0,0 +1,40 @@
+#!/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
+}