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]};Home: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={dc.cd.class.CursorMove[dc.cd, 0, 0, FALSE]};ScrollBack: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {oldLine: INT _ dc.cd.line;oldCol: INT _ dc.cd.col;dc.cd.class.CursorMove[cd: dc.cd, line: dc.cd.det.lines-1, col: 0];dc.cd.class.Line[dc.cd, FALSE];dc.cd.class.CursorMove[cd: dc.cd, line: 0, col: 0];dc.cd.class.Line[dc.cd, TRUE];dc.cd.class.CursorMove[cd: dc.cd, line: oldLine, col: oldCol];};ClearScreen: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {dc.cd.class.ClearAll[dc.cd];dc.cd.class.CursorMove[dc.cd, 0, 0];};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];};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]};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};$standout1On => {emph _ standout1; on _ TRUE};$standout1Off => {emph _ standout1; on _ FALSE};$standout2On => {emph _ standout2; on _ TRUE};$standout2Off => {emph _ standout2; 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];};Flash: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] ={dc.cd.class.Flash[dc.cd]};Tab: PUBLIC PROC [dc: DisplayController, clientData: REF ANY] = {delta: INT _ (8 - (dc.cd.col MOD 8)) MOD 8;SELECT clientData FROM$blanken => {FOR i: INT IN [0 .. delta) DOdc.cd.class.TakeChar[dc.cd, Ascii.SP];ENDLOOP;};$dontTouch => dc.cd.class.CursorMove[dc.cd, 0, delta, TRUE];ENDCASE => ERROR;};}.   `  DisplayControllerStepsImpl.MesaLast Edited by: Spreitzer, March 17, 1985 1:10:05 pm PST Э╩┼  Ц"cedar" styleШ IcodeЩJЩ8KШ KЪ╧k	ЬAШJKШ Ъ╨bxЬЭЬЭШ)KЪЭЬШKШ KЪЬЭЬ,Ш4KШ KЪЬЭЬШ!KЪЬЭЬШKШ Ъ
╧nЬЭЬЭЬ%ЭЬЭЬШJKЪЬ%ЭЬЭЬШ4ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШ@KЪЬ%ЭЬШ-ЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШHKЪЬ	ЭЬШKЪЬЭЬШKШCKЪЬЭЬШKШ3KЪЬЭЬШKШ>KШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШIKЪЬШKШ$KЪЬШЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШFKЪЬ Ш ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШKKЪЬ(ЭЬШ.KЪЬ$ЭЬШ*KЪЬШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШAKЪЬШЪЭЬЭШKШKШKЪЭЬЭЬШЧKЪЬ#Ш#ЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШFKЪЬЭЬШЪЭЬЭШKЪЬШKЪЬШKЪЬШKЪЬШKЪЭЬЭЬШЧKЪЬ+ЭЬШ2ЧKШ Ъ
Я
ЬЭЬЭЬ%ЭЬЭЬШFKЪЬЭЬЭЬШЪЭЬЭШKЪЬЭЬШKЪЬЭЬШKЪЬЭЬШKЪЭЬЭЬШЧKЪЬCЭЬШZЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШBЪЬЭЬЭЬЭШ%KЪЬЭЬШKЪЬЭЬШKЪЭЬЭЬШЧKШ!ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШEKЪЬШKЪЬЭЬШ	ЪЭЬЭШKЪЬ(ЭЬШ.KЪЬ)ЭЬШ0KЪЬ(ЭЬШ.KЪЬ)ЭЬШ0KЪЬ(ЭЬШ.KЪЬ)ЭЬШ0KЪЭЬЭЬШЧKЪЬ&Ш&ЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШIKЪЬЭЬШKЪЬЭЬШKЪЬ"ЭЬЭЬШ,KЪЬ%ЭЬШ+KШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШAKШЧKШ Ъ
ЯЬЭЬЭЬ%ЭЬЭЬШAKЪЬЭЬЭЬЭЬШ+ЪЭЬЭШШЪЭЬЭЬЭЬЭШKЪЬ"ЭЬШ&KЪЭЬШЧKШЧKЪЬ6ЭЬШ<KЪЭЬЭЬШЧKЪЬШЧKШ KШЧЧ ЕЧ      9  