-- LaurelTTYDefs.mesa
-- Edited by Brotz, June 23, 1982 2:58 PM
-- Edited by Andrew Birrell 24-Dec-80 16:08:47
-- Derived from [Juniper]<DMS>MS>GlassDefs.mesa

DIRECTORY
vmD: FROM "VirtualMgrDefs";

LaurelTTYDefs: DEFINITIONS =

BEGIN

buffer: vmD.ComposedMessagePtr;

HandleObject: TYPE = RECORD
[ReadChar:PROC RETURNS [CHARACTER],
ReadString: PROC [STRING] RETURNS [CHARACTER],
ReadDecimal: PROC RETURNS [CARDINAL],
WriteChar:PROC [CHARACTER],
WriteString: PROC [STRING],
WriteLine: PROC [STRING],
WriteDecimal: PROC [CARDINAL],
WriteLongDecimal: PROC [LONG INTEGER],
SendNow: PROC,
CharsLeft: PROC RETURNS [CARDINAL],
LinesLeft: PROC RETURNS [CARDINAL],
SetWidth: PROC [CARDINAL] --0 means infinite--,
SetHeight: PROC [CARDINAL] --0 means infinite--,
DelTyped: PROC RETURNS [BOOLEAN],
Synch: PROC,
Flush: PROC];

Handle: TYPE = POINTER TO HandleObject;

Listen: PROCEDURE [work: PROC [Handle]];

TTYInterface: PROCEDURE [h: Handle];

TTYEditor: PROCEDURE [h: Handle];

ZeroBuffer: PROCEDURE [cm: POINTER TO vmD.ComposedMessagePtr];

CleanupTTYEditor: PROCEDURE;

END. -- of LaurelTTYDefs --