DIRECTORY Ascii, CharDisplays, DisplayControllers, DisplayControllerSteps;DisplayControllerStepsImpl: CEDAR PROGRAMEXPORTS DisplayControllerSteps = {OPEN DisplayControllers, DisplayControllerSteps;Where: TYPE = CharDisplays.Where;Emph: TYPE = CharDisplays.Emph;CarriageReturn: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={dc.cd.class.CursorMove[dc.cd, 0, 0, FALSE, FALSE, TRUE]};Home: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={dc.cd.class.CursorMove[dc.cd, 0, 0, FALSE, TRUE, TRUE]};ScrollBack: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {oldLine: INT _ dc.cd.line;oldCol: INT _ dc.cd.col;dc.cd.class.CursorMove[dc.cd, dc.cd.det.lines-1, 0, FALSE, TRUE, TRUE];dc.cd.class.Line[dc.cd, FALSE];dc.cd.class.CursorMove[dc.cd, 0, 0, FALSE, TRUE, TRUE];dc.cd.class.Line[dc.cd, TRUE];dc.cd.class.CursorMove[dc.cd, oldLine, oldCol, FALSE, TRUE, TRUE];};ClearScreen: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {dc.cd.class.ClearAll[dc.cd];dc.cd.class.CursorMove[dc.cd, 0, 0, FALSE, TRUE, TRUE];};DeleteChar: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={dc.cd.class.DeleteChar[dc.cd]};UnderlineChar: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {dc.cd.class.Emphasize[dc.cd, underline, TRUE];dc.cd.class.CursorMove[dc.cd, 0, 1, TRUE, TRUE, TRUE];};ClrTo: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={where: Where;SELECT clientData FROM$eos => where _ EndOfScreen;$eol => where _ EndOfLine;ENDCASE => ERROR;dc.cd.class.ClearTo[dc.cd, where]};SkipCursor: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={dLine, dCol: INT _ 0;SELECT clientData FROM$down => dLine _ 1;$up => dLine _ -1;$right => dCol _ 1;$left => dCol _ -1;ENDCASE => ERROR;dc.cd.class.CursorMove[dc.cd, dLine, dCol, TRUE, TRUE, TRUE]};JumpCursor: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={doLine, doCol: BOOL _ TRUE;SELECT clientData FROM$h => doLine _ FALSE;$v => doCol _ FALSE;$hv => NULL;ENDCASE => ERROR;dc.cd.class.CursorMove[dc.cd, dc.cps.regs[line], dc.cps.regs[col], FALSE, doLine, doCol]};Line: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {insert: BOOL _ SELECT clientData FROM$ins => TRUE,$del => FALSE,ENDCASE => ERROR;dc.cd.class.Line[dc.cd, insert]};SetEmph: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {emph: Emph;on: BOOL;SELECT clientData FROM$underlineOn => {emph _ underline; on _ TRUE};$underlineOff => {emph _ underline; on _ FALSE};$boldOn => {emph _ bold; on _ TRUE};$boldOff => {emph _ bold; on _ FALSE};$italicOn => {emph _ italic; on _ TRUE};$italicOff => {emph _ italic; on _ FALSE};$inverseOn => {emph _ inverse; on _ TRUE};$inverseOff => {emph _ inverse; on _ FALSE};ENDCASE => ERROR;dc.cd.class.SetEmph[dc.cd, emph, on]};InsertSpace: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {line: INT _ dc.cd.line;col: INT _ dc.cd.col;dc.cd.class.TakeChar[dc.cd, Ascii.SP, TRUE];dc.cd.class.CursorMove[dc.cd, 0, -1, TRUE, TRUE, TRUE];};Beep: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={dc.cd.class.Beep[dc.cd]};Tab: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {delta: INT _ 8 - (((dc.cd.col MOD 8) + 8) MOD 8);SELECT clientData FROM$blanken => {FOR i: INT IN [0 .. delta) DOdc.cd.class.TakeChar[dc.cd, Ascii.SP, FALSE];ENDLOOP;};$dontTouch => dc.cd.class.CursorMove[dc.cd, 0, delta, TRUE, TRUE, TRUE];ENDCASE => ERROR;};}.   b  DisplayControllerStepsImpl.MesaLast Edited by: Spreitzer, February 19, 1986 8:51:18 pm PSTЭ╩K  Ц"cedar" styleШ IcodeЩJЩ;KШ KЪ╧k	ЬAШJKШ Ъ╨bxЬЭЬЭШ)KЪЭЬШKШ KЪЬЭЬ,Ш4KШ KЪЬЭЬШ!KЪЬЭЬШKШ Ъ
╧nЬЭЬЭЬ%ЭЬЭЬШJKЪЬ%ЭЬЭЬЭЬШ:ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШ@KЪЬ%ЭЬЭЬЭЬШ9ЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШHKЪЬ	ЭЬШKЪЬЭЬШKЪЬ4ЭЬЭЬЭЬШGKЪЬЭЬШKЪЬ$ЭЬЭЬЭЬШ7KЪЬЭЬШKЪЬ/ЭЬЭЬЭЬШBKШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШIKЪЬШKЪЬ$ЭЬЭЬЭЬШ7KЪЬШЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШFKЪЬ Ш ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШKKЪЬ(ЭЬШ.KЪЬ$ЭЬЭЬЭЬШ6KЪЬШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШAKЪЬШЪЭЬЭШKШKШKЪЭЬЭЬШЧKЪЬ#Ш#ЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШFKЪЬЭЬШЪЭЬЭШKЪЬШKЪЬШKЪЬШKЪЬШKЪЭЬЭЬШЧKЪЬ+ЭЬЭЬЭЬШ>ЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШFKЪЬЭЬЭЬШЪЭЬЭШKЪЬЭЬШKЪЬЭЬШKЪЬЭЬШKЪЭЬЭЬШЧKЪЬCЭЬШZЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШBЪЬЭЬЭЬЭШ%KЪЬЭЬШKЪЬЭЬШKЪЭЬЭЬШЧKШ!ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШEKЪЬШKЪЬЭЬШ	ЪЭЬЭШKЪЬ(ЭЬШ.KЪЬ)ЭЬШ0KЪЬЭЬШ$KЪЬЭЬШ&KЪЬ"ЭЬШ(KЪЬ#ЭЬШ*KЪЬ$ЭЬШ*KЪЬ%ЭЬШ,KЪЭЬЭЬШЧKЪЬ&Ш&ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШIKЪЬЭЬШKЪЬЭЬШKЪЬ"ЭЬЭЬШ,KЪЬ%ЭЬЭЬЭЬШ7KШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШ@KШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШAKЪЬЭЬЭЬ	ЭЬШ1ЪЭЬЭШШЪЭЬЭЬЭЬЭШKЪЬ"ЭЬЭЬШ-KЪЭЬШЧKШЧKЪЬ6ЭЬЭЬЭЬШHKЪЭЬЭЬШЧKЪЬШЧKШ KШЧЧ ЕЧ    ╕  e  