Synopsis

include "draw.m";   #for Draw->Pointer
include "devpointer.m";
ptr:= load Devpointer Devpointer->PATH;
Devpointer: module
{
  PATH:      con "/dis/lib/devpointer.dis";
   Size:      con 1+3*12;	# 'm' plus 3 12-byte decimal integers
   init:        fn(file: string, posn: chan of ref Draw->Pointer): int;
  bytes2ptr: fn(buf: array of byte)    : ref Draw->Pointer;
  ptr2bytes: fn(ptr: ref Draw->Pointer): array of byte;
};

bytes2ptr (buf)

ptr2bytes (ptr)

Files

See Also