From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 20:52:35 +0000 Subject: 20060303-partial --- module/alphabet/extvalues.m | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 module/alphabet/extvalues.m (limited to 'module/alphabet/extvalues.m') diff --git a/module/alphabet/extvalues.m b/module/alphabet/extvalues.m new file mode 100644 index 00000000..ffc867ce --- /dev/null +++ b/module/alphabet/extvalues.m @@ -0,0 +1,12 @@ +Extvalues: module { + PATH: con "/dis/alphabet/extvalues.dis"; + Values: adt[V] { + lock: chan of int; + v: array of (int, V); + freeids: list of int; + new: fn(): ref Values[V]; + add: fn(vals: self ref Values, v: V): int; + inc: fn(vals: self ref Values, id: int); + del: fn(vals: self ref Values, id: int); + }; +}; -- cgit v1.2.3