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

(limited to 'module/lock.m')

diff --git a/module/lock.m b/module/lock.m
new file mode 100644
index 00000000..ffd818c5
--- /dev/null
+++ b/module/lock.m
@@ -0,0 +1,13 @@
+Lock: module
+{
+	PATH:	con "/dis/lib/lock.dis";
+
+	Semaphore: adt {
+		c: chan of int;
+		obtain:	fn(nil: self ref Semaphore);
+		release: fn(nil: self ref Semaphore);
+		new: fn(): ref Semaphore;
+	};
+	
+	init: fn();
+};
-- 
cgit v1.2.3