20060303a

1 files changed, 12 insertions, 0 deletions

diff --git a/appl/ebook/strmap.m b/appl/ebook/strmap.m
new file mode 100644
index 00000000..36475f51
--- /dev/null
+++ b/appl/ebook/strmap.m
@@ -0,0 +1,12 @@
+
+Strmap: module {
+	PATH: con "/dis/ebook/strmap.dis";
+	Map: adt {
+		i2s:	array of string;
+		s2i:	array of list of (string, int);
+	
+		new:	fn(a: array of string): ref Map;
+		s:	fn(map: self ref Map, i: int): string;
+		i:	fn(map: self ref Map, s: string): int;
+	};
+};