DIRECTORY Convert USING [CardFromRope], Process USING [Detach], RavenCodes USING [PrinterCommand], RavenConsole USING [Character, DisplayCode, KeyPadCode], RavenControl USING [ConsoleKey, SendEngineCommand, WaitConsoleKey, WaitEngineStatus], RefText USING [AppendChar, TrustTextAsRope]; RavenConsoleImpl: CEDAR PROGRAM IMPORTS Convert, Process, RavenControl, RefText EXPORTS RavenConsole = BEGIN DisplayCommand: TYPE = RavenCodes.PrinterCommand[displayF..displayBlank]; displayBuffer: ARRAY BOOLEAN OF DisplayCommand _ [displayBlank, displayBlank]; displayIndex: BOOLEAN _ FIRST[BOOLEAN]; -- corresponds to left and right display character positions echoingKeyPad: BOOLEAN _ FALSE; BlankDisplay: PUBLIC PROCEDURE = BEGIN IF NOT echoingKeyPad THEN BEGIN RavenControl.SendEngineCommand[displayBuffer[displayIndex] _ displayBlank]; displayIndex _ NOT displayIndex; END; END; UpdateDisplay: PUBLIC PROCEDURE [code: RavenConsole.DisplayCode] = BEGIN IF NOT echoingKeyPad THEN BEGIN RavenControl.SendEngineCommand[ displayBuffer[displayIndex] _ IF code.left = letterF THEN displayF ELSE LOOPHOLE[ORD[code.left] + ORD[RavenCodes.PrinterCommand[display0]]]]; displayIndex _ NOT displayIndex; RavenControl.SendEngineCommand[ displayBuffer[displayIndex] _ IF code.right = letterF THEN displayF ELSE LOOPHOLE[ORD[code.right] + ORD[RavenCodes.PrinterCommand[display0]]]]; displayIndex _ NOT displayIndex; END; END; WaitKeyPadCode: PUBLIC PROCEDURE RETURNS [code: RavenConsole.KeyPadCode] = BEGIN key: RavenControl.ConsoleKey; string: REF TEXT _ NEW[TEXT[5]]; char: CHAR; DO key _ RavenControl.WaitConsoleKey[]; -- pops console queue, waiting till non-empty SELECT key FROM IN [key0..key9] => BEGIN IF NOT echoingKeyPad THEN BEGIN -- display blank RavenControl.SendEngineCommand[displayBuffer[displayIndex] _ displayBlank]; displayIndex _ NOT displayIndex; echoingKeyPad _ TRUE; END; RavenControl.SendEngineCommand[displayBuffer[displayIndex] _ LOOPHOLE[key]]; displayIndex _ NOT displayIndex; IF string.length # string.maxLength THEN -- append numeral to string char _ '0 + ORD[key] - ORD[RavenControl.ConsoleKey[key0]]; string _ RefText.AppendChar[string, char]; END; keyClear => BEGIN -- blank display and return echoingKeyPad _ FALSE; RavenControl.SendEngineCommand[displayBuffer[displayIndex] _ displayBlank]; displayIndex _ NOT displayIndex; RETURN[code: [clear]]; END; keyTest => BEGIN -- convert numerals entered to number and return echoingKeyPad _ FALSE; IF string.length # FIRST[CARDINAL] THEN RETURN[code: [test, Convert.CardFromRope[RefText.TrustTextAsRope[string]]]] ELSE RETURN[code: [test]]; END; ENDCASE; ENDLOOP; END; RestoreDisplay: PUBLIC PROCEDURE = BEGIN RavenControl.SendEngineCommand[displayBuffer[displayIndex]]; displayIndex _ NOT displayIndex; RavenControl.SendEngineCommand[displayBuffer[displayIndex]]; displayIndex _ NOT displayIndex; END; Initialize: PROCEDURE = TRUSTED {Process.Detach[FORK WatchEngineStatus]}; WatchEngineStatus: PROCEDURE = BEGIN DO IF RavenControl.WaitEngineStatus[] IN [tonerLow..doorOpen] THEN DO -- loop until status is okay IF RavenControl.WaitEngineStatus[] = okay THEN {RestoreDisplay[]; EXIT}; ENDLOOP; ENDLOOP; END; Initialize[]; END. LOG When / Who / What 1981/Claude Pany/Created. 1-Oct-82 17:55:11 - Trowell - added documentation 9-Apr-85 23:20:37 - Strickberger - Update for Raven engine driver redesign. Add copyright. 19-Jul-85 0:09:18 - Strickberger - Update for Euclid. RavenConsoleImpl.mesa Copyright (C) Xerox Corporation 1981, 1982, 1983, 1984, 1985, 1986. All rights reserved. Last edited by Strickberger 19-Jul-85 0:09:18 Tim Diebert: October 1, 1986 12:22:22 pm PDT TYPEs: Variables: commands used to display the character in each position RavenConsole PUBLIC PROCEDUREs: blank one of the positions and set displayIndex to the other position called in MarkerControlImpl by Start and Queue display code.left in position for displayIndex, and code.right in ~displayIndex called in MarkerControl by RavenStatusChangeWatcher done separately because F in ConsoleCharacter # zero + 15 (zero = 30H, F = 2FH) display numeral redisplay console characters which were up before error PRIVATE PROCEDUREs: wait for a new status and if status indicates intervention is needed, waits till another status indicates things are ok something needs to be done externally MAINLINE CODE: Ê×˜codešœ™KšœY™YKšœ.™.K™,—K˜šÏk ˜ Kšœœ˜Kšœœ ˜Kšœœ˜"Kšœ œ&˜8Kšœ œC˜UKšœœ˜,—K˜šÏnœœ˜Kšœ)œ˜L—˜Kšœ™—˜Kšœœ5˜I—˜Kšœ ™ —˜Kšœœœœ/˜NKšœ7™7KšœœœœÏc<˜eKšœœœ˜—˜Kšœ™—˜šžœœ œ˜&KšœE™EKšœ.™.šœœ˜Kš˜K˜KKšœœ˜ Kšœ˜—Kšœ˜——˜šž œœ œ#˜HKšœO™OKšœ3™3šœœ ˜˜K˜šœ˜Kšœ ˜ KšœO™OKšœœœœ(˜J——Kšœœ˜ ˜K˜šœ˜Kšœ ˜ Kšœœœœ(˜K——Kšœœ˜ Kšœ˜—Kšœ˜——˜š žœœ œœ"˜PK˜Kšœœœœœœ˜,K˜š˜Kšœ&Ÿ-˜Sšœ˜šœ˜šœœ œŸ˜1K˜KKšœœ˜ Kšœœ˜Kšœ˜—Kšœ™Kšœ=œ˜LKšœœ˜ šœ"œŸ˜EKšœœœ ˜:Kšœ*˜*—Kšœ˜—šœœŸ˜.Kšœœ˜K˜KKšœœ˜ Kšœ˜Kšœ˜—šœ œŸ0˜BKšœœ˜šœœœ˜"KšœœE˜PKšœœ˜—Kšœ˜—Kšœ˜—Kšœ˜—Kšœ˜——K˜˜šžœœ œ˜(Kšœ7™7K˜