DIRECTORY TTYPortEnvironment USING [CharacterLength, LineSpeed, Parity, StopBits]; TTYPortFace: CEDAR DEFINITIONS ~ { 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 ]; 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 ]; TransferStatus: TYPE ~ { success, parityError, asynchFramingError, dataLost, breakDetected, notReady }; GetCommand: PROC [lineNumber: CARDINAL] RETURNS [data: CHAR, stat: TransferStatus]; GetLineCount: PROC RETURNS [lineCount: CARDINAL]; GetStatus: PROC [lineNumber: CARDINAL] RETURNS [stat: DeviceStatus]; Off: PROC [lineNumber: CARDINAL]; On: PROC [lineNumber: CARDINAL, mask: UNSPECIFIED]; PutCommand: PROC [lineNumber: CARDINAL, data: CHARACTER] RETURNS [stat: TransferStatus]; SendBreak: PROC [lineNumber: CARDINAL]; SetParameter: PROC [lineNumber: CARDINAL, parameter: Parameter]; }... ΪTTYPortFace.mesa Copyright (C) 1980, 1981, 1986 by Xerox Corporation. All rights reserved. Tim Diebert: November 16, 1985 6:29:30 pm PST Bill Jackson (bj) July 31, 1986 0:23:01 am PDT Copied Types Types Procs Κ2˜codešœ™KšœK™KK™-K™.—K˜šΟk ˜ Kšœœ0˜H—K˜KšΟn œœ œ˜"K˜šœ ™ K˜Kšœœ&˜;Kšœ œ ˜/Kšœœ˜)Kšœ œ˜-K™—šœ™K˜šœœœ˜Kšœœ˜Kšœ œ˜Kšœ œ˜Kšœ˜Kšœ˜K˜—šœ œœ˜šœ˜K˜6Kšœœ˜&Kšœœ˜(K˜$K˜K˜!Kš˜—Kšœ˜—K˜šœœ˜K˜K˜ K˜K˜ K˜K˜K˜K˜——™K˜š ž œœœœœ˜SK˜—šž œœœ œ˜1K˜—šž œœœœ˜DK˜—šžœœœ˜!K˜—šžœœœ œ˜3K˜—š ž œœœ œœ˜XK˜—šž œœœ˜'K˜—Kšž œœœ˜@—K˜Kšœ˜K˜—…—DP