-- TTYPortFace.mesa

-- Last edited: August 28, 1980 10:22 AM By: Mary Artibee

DIRECTORY

TTYPortEnvironment: FROM "TTYPortEnvironment" USING [CharacterLength, LineSpeed, Parity, StopBits];

TTYPortFace: DEFINITIONS =

BEGIN

-- Procedures, alphabetically

GetCommand: PROCEDURE [lineNumber: CARDINAL] RETURNS [data: CHARACTER, stat: TransferStatus];

GetLineCount: PROCEDURE RETURNS [lineCount: CARDINAL];

GetStatus: PROCEDURE [lineNumber: CARDINAL] RETURNS [stat: DeviceStatus];

Off: PROCEDURE [lineNumber: CARDINAL];

On: PROCEDURE [lineNumber: CARDINAL, mask: UNSPECIFIED];

PutCommand: PROCEDURE [lineNumber: CARDINAL, data: CHARACTER] RETURNS [stat: TransferStatus];

SetParameter: PROCEDURE [lineNumber: CARDINAL, parameter: Parameter];

-- Type Definitions

Parameter: TYPE = RECORD [SELECT parameter: * FROM

characterLength => [characterLength: CharacterLength],

clearToSend => [clearToSend: BOOLEAN],

dataSetReady => [dataSetReady: BOOLEAN],

lineSpeed => [lineSpeed: LineSpeed],

parity => [parity: Parity],

stopBits => [stopBits: StopBits],

ENDCASE];

CharacterLength: TYPE = TTYPortEnvironment.CharacterLength;

LineSpeed: TYPE = TTYPortEnvironment.LineSpeed;

Parity: TYPE = TTYPortEnvironment.Parity;

StopBits: TYPE = TTYPortEnvironment.StopBits;

DeviceStatus: TYPE = RECORD [

dataTerminalReady: BOOLEAN,

readyToGet: BOOLEAN,

readyToPut: BOOLEAN,

requestToSend: BOOLEAN];

TransferStatus: TYPE = {success, parityError, asynchFramingError, dataLost, breakDetected, notReady};

END. -- TTYPortFace

LOG

Time: July 18, 1980 3:26 PMBy: Mary ArtibeeAction: Created file from FrontFace.

Time: July 21, 1980 3:28 PMBy: Mary ArtibeeAction: Many changes.

Time: August 28, 1980 10:21 AMBy: Mary ArtibeeAction: Use TTYPortEnvironment.