patch(1): remove bell labs patch scripts

bell labs is dead, and nobody is listening; 9front
has our own patch submission proces.

1 files changed, 0 insertions, 54 deletions

diff --git a/rc/bin/patch/list b/rc/bin/patch/list
deleted file mode 100755
index 2e7328fd6..000000000
--- a/rc/bin/patch/list
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/bin/rc
-
-rfork e
-if(! test -d /n/sources/patch){
-	rfork n
-	9fs sources
-}
-
-pref=''
-builtin cd /n/sources/patch || {
-	echo 'can''t cd /n/sources/patch' >[1=2]
-	exit no-sources
-}
-
-if(~ $1 applied saved sorry maybe){
-	pref=$1^'/'
-	shift
-}
-if(~ $#* 0)
-	*=(`{
-		if(~ $pref *?*)
-			builtin cd $pref
-		ls -t | grep -v '^(applied|saved|sorry|maybe)$'
-	})
-
-trunc=(sed 5q)
-if(~ $#* 1)
-	trunc=cat
-
-{
-for(i in $*){
-	i=$pref^$i
-	if(test -f $i/origls)
-		cat $i/origls | awk '{$NF="'$i'"; print}'
-	if not
-		ls -ld $i
-	if(patch/okay $i){
-		if(test -r $i/email)
-			echo from `{cat $i/email}
-		cat $i/files | awk '{print "	" $1}'
-		cat $i/readme | sed 's/^/	/' | $trunc
-		if(test -f $i/notes){
-			echo
-			cat $i/notes
-		}
-	}
-	if not
-		echo '	'bad patch: $status >[1=2]
-	echo
-}
-} >/tmp/patchtmp.$pid
-
-cat /tmp/patchtmp.$pid
-rm -f /tmp/patchtmp.$pid