From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 20:52:35 +0000
Subject: 20060303-partial

---
 module/plumbmsg.m | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 module/plumbmsg.m

(limited to 'module/plumbmsg.m')

diff --git a/module/plumbmsg.m b/module/plumbmsg.m
new file mode 100644
index 00000000..cec82b51
--- /dev/null
+++ b/module/plumbmsg.m
@@ -0,0 +1,44 @@
+Plumbmsg: module
+{
+	PATH:	con "/dis/lib/plumbmsg.dis";
+
+	# Message format:
+	#	source application\n
+	#	destination application\n
+	#	working directory\n
+	#	type\n
+	#	properties\n
+	#	nbytes\n
+	#	n bytes
+
+	Msg: adt
+	{
+		src:		string;
+		dst:		string;
+		dir:		string;
+		kind:		string;
+		attr:		string;
+		data:		array of byte;
+
+		# used by applications
+		send: 	fn(msg: self ref Msg): int;
+		recv: 	fn(): ref Msg;
+
+		# used by plumb and send, recv
+		pack: 	fn(msg: self ref Msg): array of byte;
+		unpack: 	fn(b: array of byte): ref Msg;
+	};
+
+	Attr: adt
+	{
+		name:	string;
+		val:		string;
+	};
+
+	init:	fn(doinput: int, rcvport: string, maxdata: int): int;
+	shutdown:	fn();
+
+	string2attrs:	fn(s: string): list of ref Attr;
+	attrs2string:	fn(l: list of ref Attr): string;
+	lookup:	fn(attrs: list of ref Attr, name: string): (int, string);
+};
-- 
cgit v1.2.3