-- 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.