
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;
};

}.
    а  
DisplayControllerStepsImpl.Mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Last Edited by: Spreitzer, February 19, 1986 8:51:18 pm PST
Э╩`  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЩKЪЬ
╧eЬ1Щ<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ШЧЧ ЕЧ    ╕  ╕  