-- Pupwatch: interfaces

-- [Indigo]<Grapevine>PupWatch>LookerDefs.mesa

-- Andrew Birrell May 18, 1982 2:07 pm

DIRECTORY
Process  USING[ Priority ],
Rope  USING[ ROPE ];

LookerDefs: DEFINITIONS =

BEGIN

-- Display module --

DisplayChar: PROC[c: CHARACTER];

DisplayMultiple: PROC[desc: LONG DESCRIPTOR FOR PACKED ARRAY OF CHARACTER];

GetLength: PROC[r: Rope.ROPE] RETURNS[ length: REAL];

SetPos:  PROC[pos: REAL]; -- implicit SendNow --

SendNow: PROC;

Clear:  PROC;

WriteTitle: PROC[r: Rope.ROPE];

NoteSlow: PROC[BOOLEAN];

NotePausing: PROC[BOOLEAN];

ScreenLines: PROC RETURNS[CARDINAL];


-- Disk log --

DiskChar: PROC[c: CHARACTER];

DiskMultiple: PROC[desc: LONG DESCRIPTOR FOR PACKED ARRAY OF CHARACTER];

DiskPos: PROC[pos: CARDINAL];

DiskCommit: PROC;


-- User input --

InputAction: TYPE = RECORD[SELECT act: * FROM
fast => NULL,
newHost => [name: Rope.ROPE],
pauseContinue => NULL,
replay => NULL,
slow => NULL,
start => NULL,
stop => NULL,
writeLog => NULL,
pktSize => [big: BOOL],
ENDCASE];

DoAction: PROC[InputAction];

NewPriority: PROC[Process.Priority];

ShowBroadcast: PROC[BOOLEAN];

END.