From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 17:07:39 +0000
Subject: 20060303a

---
 appl/ebook/strmap.m | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 appl/ebook/strmap.m

(limited to 'appl/ebook/strmap.m')

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;
+	};
+};
-- 
cgit v1.2.3