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

(limited to 'module/hash.m')

diff --git a/module/hash.m b/module/hash.m
new file mode 100644
index 00000000..270dd9cd
--- /dev/null
+++ b/module/hash.m
@@ -0,0 +1,23 @@
+Hash: module{
+	PATH: con "/dis/lib/hash.dis";
+	fun1, fun2: fn(s:string,n:int):int;
+
+	HashVal: adt{
+		i: int;
+		r: real;
+		s: string;
+	};
+	HashNode: adt{
+		key:string;
+		val:ref HashVal;  # insert() can update contents
+	};
+	HashTable: adt{
+		a:	array of list of HashNode;
+		find:	fn(h:self ref HashTable, key:string):ref HashVal;
+		insert:	fn(h:self ref HashTable, key:string, val:HashVal);
+		delete:	fn(h:self ref HashTable, key:string);
+		all:	fn(h:self ref HashTable): list of HashNode;
+	};
+	new: fn(size:int):ref HashTable;
+};
+
-- 
cgit v1.2.3