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. ζ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 Procedures, alphabetically Type Definitions ΚG˜codešœ™KšœE™EKšœ.™.K™-—K˜šΟk ˜ Kšœœ0˜H—K˜KšΠln œ œ˜ ˜Kšœ™—˜Kš Οn œ œœœ œ˜]KšŸ œ œœ œ˜6KšŸ œ œœœ˜IKšŸœ œœ˜&KšŸœ œœ œ˜8Kš Ÿ œ œœ œœ˜]KšŸ œ œœ˜,KšŸ œ œœ˜E—˜Kšœ™—˜šœ œœ˜Kšœ˜K˜6Kšœœ˜&Kšœœ˜(K˜$K˜K˜!Kšœ˜ ——˜Kšœœ&˜;Kšœ œ ˜/Kšœœ˜)Kšœ œ˜-—˜šœœœ˜Kšœœ˜Kšœ œ˜Kšœ œ˜Kšœœ˜——˜šœœ˜K˜M——K˜˜KšœΟc˜—K˜K˜Kš˜K˜Kšœœ6˜Ršœœ˜-K˜ —šœœ˜0K˜—˜&K˜—K˜K˜b—…—π