20060303-partial

1 files changed, 43 insertions, 0 deletions

diff --git a/module/alphabet/grid.m b/module/alphabet/grid.m
new file mode 100644
index 00000000..b9042ec0
--- /dev/null
+++ b/module/alphabet/grid.m
@@ -0,0 +1,43 @@
+# warning: autogenerated code; don't bother to change this, change mktypeset.b or grid.b instead
+Grid: module {
+	PATH: con "/dis/alphabet/grid.dis";
+	Value: adt {
+		b:	fn(v: self ref Value): ref Value.Vb;	# records
+		e:	fn(v: self ref Value): ref Value.Ve;	# endpoint
+		w:	fn(v: self ref Value): ref Value.Vw;	# wfd
+		c:	fn(v: self ref Value): ref Value.Vc;	# cmd
+		r:	fn(v: self ref Value): ref Value.Vr;	# status
+		f:	fn(v: self ref Value): ref Value.Vf;	# fd
+		s:	fn(v: self ref Value): ref Value.Vs;	# string
+		typec: fn(v: self ref Value): int;
+		type2s:	fn(t: int): string;
+		free: fn(v: self ref Value, used: int);
+		dup:	fn(v: self ref Value): ref Value;
+		pick {
+		Vb =>
+			i: chan of ref Sys->FD;
+		Ve =>
+			i: chan of Endpoints->Endpoint;
+		Vw =>
+			i: chan of ref Sys->FD;
+		Vc =>
+			i: ref Sh->Cmd;
+		Vr =>
+			i: chan of string;
+		Vf =>
+			i: chan of ref Sys->FD;
+		Vs =>
+			i: string;
+		}
+	};
+	init: fn();
+
+};
+
+Gridmodule: module {
+	types: fn(): string;
+	init: fn();
+	run: fn(errorc: chan of string, r: ref Reports->Report,
+		opts: list of (int, list of ref Grid->Value), args: list of ref Grid->Value): ref Grid->Value;
+};
+