code: purgatorio

Info  •  Files  •  Log

revert acme/plumbing changes as they break plumbing under nt

--- a/appl/acme/look.b

+++ b/appl/acme/look.b

@@ -114,7 +114,7 @@

 		r = nil;

 		return;

 	}

-	if(1 && dat->plumbed){	# don't do yet : 2 acmes running => only 1 receives msg

+	if(0 && dat->plumbed){	# don't do yet : 2 acmes running => only 1 receives msg

 		m := ref Msg;

 		m.src = "acme";

 		m.dst = nil;

--- a/appl/cmd/plumber.b

+++ b/appl/cmd/plumber.b

@@ -521,14 +521,7 @@

 	"dst" =>	text = msg.dst;

 	"dir" =>	text = msg.dir;

 	"kind" =>	text = msg.kind;

-	"attr" =>	

-		# this is a hack, 9front provides an add verb

-		# better yet, replace the plumbing rules with a sh script

-		al := plumbmsg->string2attrs(text);

-		for(l := al; l!= nil; l = tl l){

-			in.attrs = hd l :: in.attrs;

-		}

-		msg.attr = plumbmsg->attrs2string(in.attrs);

+	"attr" =>	text = msg.attr;

 	"data" =>	text = in.text;

 	* =>

 		sys->fprint(stderr, "plumb: don't recognize pattern field %s\n", p.field);

--- a/usr/inferno/lib/plumbing

+++ b/usr/inferno/lib/plumbing

@@ -41,10 +41,8 @@

 # existing files, possibly tagged by line number, go to wm/brutus

 kind is text

-data matches '([.a-zA-Z0-9_/\-]+[a-zA-Z0-9_/\-])(:([0-9]+))?'

+data matches '([.a-zA-Z0-9_/\-]+[a-zA-Z0-9_/\-])(:[0-9]+)?'

 data isfile     $1

-data set $1

-attr set addr=$3

 plumb to edit

 plumb start /dis/wm/brutus.dis $file$2