<> <> <> <> DIRECTORY TTYPortEnvironment USING [CharacterLength, LineSpeed, Parity, StopBits]; TTYPortFace: DEFINITIONS = BEGIN <> 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]; SendBreak: PROCEDURE [lineNumber: CARDINAL]; SetParameter: PROCEDURE [lineNumber: CARDINAL, parameter: Parameter]; <> 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 PM By: Mary Artibee Action: Created file from FrontFace. Time: July 21, 1980 3:28 PM By: Mary Artibee Many changes. Time: August 28, 1980 10:21 AM By: Mary Artibee Use TTYPortEnvironment. Time: 11-Aug-81 11:48:14 By: Luniewski Added SendBreak. Time: 26-Sep-84 2:57:40 By: Grundler Action: Added copyright notice and rebuild for 11.1 release.