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/format.m | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 module/format.m

(limited to 'module/format.m')

diff --git a/module/format.m b/module/format.m
new file mode 100644
index 00000000..1f3bfab6
--- /dev/null
+++ b/module/format.m
@@ -0,0 +1,30 @@
+Format: module {
+	PATH: con "/dis/lib/format.dis";
+	Fmtspec: adt {
+		name: string;
+		fields: cyclic array of Fmtspec;
+	};
+	Fmt: adt {
+		kind: int;
+		fields: cyclic array of Fmt;
+	};
+	Fmtval: adt {
+		val: ref Sexprs->Sexp;
+		recs: cyclic array of array of Fmtval;
+
+		text: fn(v: self Fmtval): string;
+	};
+	Fmtfile: adt {
+		spec: array of Fmtspec;
+		descr: array of byte;
+	
+		new: fn(spec: array of Fmtspec): Fmtfile;
+		open: fn(f: self Fmtfile, name: string): ref Bufio->Iobuf;
+		read: fn(f: self Fmtfile, iob: ref Bufio->Iobuf): (array of Fmtval, string);
+	};
+	init: fn();
+	spec2se: fn(spec: array of Fmtspec): list of ref Sexprs->Sexp;
+	spec2fmt: fn(spec: array of Fmtspec): array of Fmt;
+	se2fmt: fn(spec: array of Fmtspec, se: ref Sexprs->Sexp): (array of Fmt, string);
+	rec2val: fn(spec: array of Fmtspec, rec: ref Sexprs->Sexp): (array of Fmtval, string);
+};
-- 
cgit v1.2.3