From 2959e1ede0ebc6fdffd7b8660f43c2ce14c9696f Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 17:14:36 +0300
Subject: Import sources from 2011-03-30 iso image - rc

---
 rc/bin/B | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 rc/bin/B

(limited to 'rc/bin/B')

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
+}
-- 
cgit v1.2.3