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

(limited to 'module/cfg.m')

diff --git a/module/cfg.m b/module/cfg.m
new file mode 100644
index 00000000..ddc490b8
--- /dev/null
+++ b/module/cfg.m
@@ -0,0 +1,25 @@
+Cfg : module {
+	PATH : con "/dis/lib/cfg.dis";
+
+	Attr : adt {
+		name : string;
+		value : string;
+	};
+
+	Tuple : adt {
+		lnum : int;
+		attrs : list of Attr;
+		lookup: fn (t : self ref Tuple, name : string) : string;
+	};
+
+	Record : adt {
+		tuples : list of ref Tuple;
+		lookup : fn (r : self ref Record, name : string) : (string, ref Tuple);
+	};
+
+	init : fn (path : string) : string;
+	reset:	fn();
+	lookup : fn (name : string) : list of (string, ref Record);
+	getkeys : fn () : list of string;
+	parseline:	fn(s: string, lno: int): (ref Tuple, string);
+};
-- 
cgit v1.2.3