TTYPortFace.mesa
Copyright (C) 1980, 1981 by Xerox Corporation. All rights reserved.
Last edited: 26-Sep-84 2:57:45 By: Grundler
Tim Diebert: November 16, 1985 6:29:30 pm PST
DIRECTORY
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];
SendBreak: PROCEDURE [lineNumber: CARDINAL];
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 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.