Showing the changes to module/devpointer.m (1 of 9462 files). Show all
Unified · Split
| @@ -0,0 +1,21 @@ | |||
| 1 | Devpointer: module | ||
| 2 | { | ||
| 3 | PATH: con "/dis/lib/devpointer.dis"; | ||
| 4 | |||
| 5 | Size: con 1+4*12; # 'm' plus 4 12-byte decimal integers | ||
| 6 | # merge events that have the same button state. | ||
| 7 | Ptrqueue: adt { | ||
| 8 | last: ref Draw->Pointer; | ||
| 9 | h, t: list of ref Draw->Pointer; | ||
| 10 | put: fn(q: self ref Ptrqueue, s: ref Draw->Pointer); | ||
| 11 | get: fn(q: self ref Ptrqueue): ref Draw->Pointer; | ||
| 12 | peek: fn(q: self ref Ptrqueue): ref Draw->Pointer; | ||
| 13 | nonempty: fn(q: self ref Ptrqueue): int; | ||
| 14 | }; | ||
| 15 | |||
| 16 | init: fn(); | ||
| 17 | reader: fn(file: string, posn: chan of ref Draw->Pointer, pid: chan of (int, string)); | ||
| 18 | bytes2ptr: fn(b: array of byte): ref Draw->Pointer; | ||
| 19 | ptr2bytes: fn(p: ref Draw->Pointer): array of byte; | ||
| 20 | srv: fn(c: chan of ref Draw->Pointer, f: ref Sys->FileIO); | ||
| 21 | }; | ||