
DIRECTORY
Ascii USING [ DEL ],
Commander USING [CommandProc, Handle, Register],
CommanderBackdoor USING [AdamOrEve],
CommanderOps USING [ NextArgument ],
Convert USING [ IntFromRope ],
EditedStream USING [GetEcho, SetEcho ],
IO,
Rope USING [ROPE]
;


MoreImpl: CEDAR PROGRAM
IMPORTS Commander, CommanderBackdoor, CommanderOps, Convert, EditedStream, IO ~ {
OPEN IO;


MoreCmd: Commander.CommandProc = {
controlStream: IO.STREAMмNIL;
echoStream: IO.STREAMмNIL;
RestoreEchoStream: PROC = {
IF echoStream#NIL THEN EditedStream.SetEcho[controlStream, echoStream];
echoStream м NIL;
};
numLinesR: Rope.ROPE м CommanderOps.NextArgument[cmd];
numLines: INT м 0;
lineCount: INT м 0;
IF numLinesR#NIL THEN numLines м Convert.IntFromRope[numLinesR];
{
ENABLE {
IO.EndOfStream => { RestoreEchoStream[]; CONTINUE; };
IO.Error => GOTO Failed;
UNWIND => RestoreEchoStream[];
};
controlChar: CHAR;
waiting: BOOL м FALSE;
pleaseWait: BOOL м FALSE;
parentCmd: Commander.Handle м CommanderBackdoor.AdamOrEve[cmd];
controlStream м parentCmd.in;
IF controlStream = NIL THEN RETURN[$Failed, "*** No error stream ***"];
echoStream м EditedStream.GetEcho[controlStream];
IF echoStream#NIL THEN EditedStream.SetEcho[controlStream, NIL];
WHILE TRUE DO
controlChar м Ascii.DEL;
IF controlStream.CharsAvail[]=0 AND ~waiting THEN {
c: CHAR м cmd.in.GetChar[];
IF c = '\015 THEN c м '\n;
cmd.out.PutChar[c];
IF c = '\n THEN {
lineCount м lineCount+1;
IF pleaseWait THEN waiting м TRUE
ELSE IF numLines#0 AND lineCount MOD numLines = 0 THEN {
cmd.err.PutRope["***More?"]; waiting м TRUE;
};
};
}
ELSE {
controlChar м Ascii.DEL;
controlCharм controlStream.GetChar[! IO.Rubout => CONTINUE];
SELECT controlChar FROM
Ascii.DEL, '. => { RestoreEchoStream[]; RETURN[$ManualTermination, "-- <del>"]; };
ENDCASE => IF waiting THEN { waiting м pleaseWait м FALSE; lineCount м 0; }
ELSE pleaseWait м ~pleaseWait;
};
ENDLOOP;
RestoreEchoStream[];
EXITS
Failed => { RestoreEchoStream[]; RETURN[$Failed, "*** Uncaught IO Error ***"]};
};
};

Commander.Register["More", MoreCmd, "Repeats its input"];

}.

   N  
MoreImpl.mesa
Copyright ╙ 1988, 1992 by Xerox Corporation.  All rights reserved.
Swinehart, December 2, 1991 11:45 am PST
Willie-s, May 11, 1992 9:23 pm PDT
[cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]
controlStream _ NARROW[
Commander.GetProperty[key: $ErrorInputStream, aList: cmd.propertyList]];
Э╩;  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ
╧eЬ7ЩBKЩ(KЩ"KШ ЧЪ╧k	Ш	KЪЬЮЬЮЬШKЪЬ
ЮЬ!Ш0KЪЬЮЬШ$KЪЬЮЬШ$KЪЬЮЬШKЪЬЮЬШ'KЪЮЬШKЪЬЮЬЮЬШKШKШ ЧKШ Ъ╨lnЬЮЬЮШKЪЮЬ+╧tЬа╨ktЬШQKЪЮЬЮЬШKШ KШ ХStartOfExpansionL -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]Ъ╧nЬШ"KЪЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩHKЪЬЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬШЪвЬЮЬШKЪЮЬЮЬЮЬ1ШGKЪЬЮЬШKШЧKЪЬЮЬ"Ш6KЪЬ
ЮЬШKЪЬЮЬШKЪЮЬЮЬЮЬ+Ш@KШЪЮЬШKЪЮЬ'ЮЬШ5KЪЮЬ
ЮЬШKЪЮЬШKШЧKЪЬЮЬШKЦ%[key: REF ANY, aList: List.AList]ЪЬ	ЮЬЮЬШKЦ%[key: REF ANY, aList: List.AList]ЪЬЮЬЮЬШKШ?ЪЬЮЬЩKЪЬHЩHЧKШKЪЮЬЮЬЮЬЮЬ%ШGKШ1KЪЮЬЮЬЮЬ%ЮЬШ@ЪЮЬЮЬЮШKЪЬЮЬШЪЮЬЮЬ
ЮЬШ3KЪЬЮЬШKЪЮЬЮЬ	ШKЪЬШЪЮЬ	ЮЬШKШKЪЮЬЮЬЮШ!ЪЮЬЮЬЮЬЮЬШ8KЪЬ'ЮЬШ,KШЧKШЧKШЧЪЮЬЮШKЪЬЮЬШKЪЬ%ЮЬЮЬШ<ЪЮЬЮШKЪЬЮЬЮЬ$ШRЪЮЬЮЬ	ЮЬЮЬШKKЪЮЬШЧЧKШЧKЪЮЬШЧKШЪЮШKЪЬ!ЮЬ(ШOЧKШKШKШ ЧKШ9ЧKШ KЪЬШKШ Ч ЕЧ      Щ  