LookerDefs.mesa: interfaces for Pupwatch
Copyright © 1985 by Xerox Corporation. All rights reserved.
Andrew Birrell May 18, 1982 2:07 pm
Russ Atkinson (RRA) March 13, 1985 1:05:46 pm PST
DIRECTORY
Process USING [Priority],
Rope USING [ROPE];
LookerDefs: DEFINITIONS = BEGIN OPEN Process, Rope;
Display module
DisplayChar: PROC [c: CHAR];
DisplayMultiple: PROC [desc: LONG DESCRIPTOR FOR PACKED ARRAY OF CHAR];
GetLength: PROC [r: ROPE] RETURNS [length: REAL];
SetPos: PROC [pos: REAL]; -- implicit SendNow --
SendNow: PROC;
Clear: PROC;
WriteTitle: PROC [r: ROPE];
NoteSlow: PROC [BOOL];
NotePausing: PROC [BOOL];
ScreenLines: PROC RETURNS [CARDINAL];
Disk log
DiskChar: PROC [c: CHAR];
DiskMultiple: PROC [desc: LONG DESCRIPTOR FOR PACKED ARRAY OF CHAR];
DiskPos: PROC [pos: CARDINAL];
DiskCommit: PROC;
User input
InputAction:
TYPE =
RECORD [
SELECT act: *
FROM
fast => NULL,
newHost => [name: ROPE],
pauseContinue => NULL,
replay => NULL,
slow => NULL,
start => NULL,
stop => NULL,
writeLog => NULL,
pktSize => [big: BOOL],
ENDCASE];
DoAction: PROC [InputAction];
NewPriority: PROC [Priority];
ShowBroadcast: PROC [BOOL];
END.