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

(limited to 'module/devpointer.m')

diff --git a/module/devpointer.m b/module/devpointer.m
new file mode 100644
index 00000000..ea7bb7a6
--- /dev/null
+++ b/module/devpointer.m
@@ -0,0 +1,21 @@
+Devpointer: module
+{
+	PATH:	con	"/dis/lib/devpointer.dis";
+
+	Size:		con 1+4*12;	# 'm' plus 4 12-byte decimal integers
+	# merge events that have the same button state.
+	Ptrqueue: adt {
+		last: ref Draw->Pointer;
+		h, t: list of ref Draw->Pointer;
+		put:			fn(q: self ref Ptrqueue, s: ref Draw->Pointer);
+		get:			fn(q: self ref Ptrqueue): ref Draw->Pointer;
+		peek:		fn(q: self ref Ptrqueue): ref Draw->Pointer;
+		nonempty:	fn(q: self ref Ptrqueue): int;
+	};
+
+	init:		fn();
+	reader:	fn(file: string, posn: chan of ref Draw->Pointer, pid: chan of (int, string));
+	bytes2ptr:	fn(b: array of byte): ref Draw->Pointer;
+	ptr2bytes:	fn(p: ref Draw->Pointer): array of byte;
+	srv:	fn(c: chan of ref Draw->Pointer, f: ref Sys->FileIO);
+};
-- 
cgit v1.2.3