DIRECTORYCommander USING [CommandProc, Register],EditedStream,Icons USING [IconFlavor, NewIconFromFile],   InputFocus USING [PopInputFocus, PushInputFocus],IO,PopUpMenu,Process,Rope,   RuntimeError USING [UNCAUGHT],TerminalIO,ViewerClasses USING [Viewer],ViewerIO USING [CreateViewerStreams, GetViewerFromStream],ViewerOps USING [PaintViewer],   ViewerTools USING [SetSelection];TerminalIOImpl: CEDAR MONITORIMPORTS Commander, EditedStream, Icons, InputFocus, IO, PopUpMenu, Process, Rope, RuntimeError, ViewerIO, ViewerOps, ViewerToolsEXPORTS TerminalIO =BEGINUserAbort: PUBLIC SIGNAL = CODE; -- Signalyzed allways outside of monitor-lockterminalParent: ViewerClasses.Viewer_NIL;messageUsed: BOOLEAN _ FALSE;in, out, editedIn: IO.STREAM _ NIL;terminalIcon: Icons.IconFlavor;inputIcon: Icons.IconFlavor;del: CHAR = LOOPHOLE[127, CHAR];delRope: Rope.ROPE = Rope.FromChar[del];moduleEntered: BOOLEAN _ FALSE; next: CONDITION;  -- the next module might enter the "moduleEntered" regionMyLock: INTERNAL PROC [] =BEGIN ENABLE UNWIND => NULL;WHILE moduleEntered DOWAIT next;ENDLOOP;moduleEntered _ TRUE;terminalParent.icon _ inputIcon;terminalParent.name _ "Terminal    [Input Expected]";ViewerOps.PaintViewer[terminalParent, caption];END;MyUnLock: INTERNAL PROC [] =BEGIN ENABLE UNWIND => NULL;moduleEntered _ FALSE;NOTIFY next;terminalParent.icon _ terminalIcon;terminalParent.name _ "Terminal";ViewerOps.PaintViewer[terminalParent, caption];terminalParent.inhibitDestroy _ FALSE;END;LockList: TYPE = LIST OF PROC;lockList: LockList_NIL;unLockList: LockList_NIL;AddLock: PUBLIC ENTRY PROC [lock, unLock: PROC] =BEGIN ENABLE UNWIND => NULL;lockList _ CONS[lock, lockList];IF unLockList=NIL THEN unLockList _ LIST[unLock]ELSEFOR l: LockList _ unLockList, l.rest DOIF l.rest=NIL THEN {l.rest_LIST[unLock]; EXIT}ENDLOOP;END;Lock: INTERNAL PROC =BEGINFOR l: LockList _ lockList, l.rest WHILE l#NIL DOl.first[! RuntimeError.UNCAUGHT => CONTINUE]ENDLOOPEND;UnLock: INTERNAL PROC =BEGINFOR l: LockList _ unLockList, l.rest WHILE l#NIL DOl.first[! RuntimeError.UNCAUGHT => CONTINUE]ENDLOOPEND;InternalCreateTerminal: INTERNAL PROC [] = BEGIN[in: in, out: out] _ ViewerIO.CreateViewerStreams[name: "Terminal", viewer: NIL, editedStream: FALSE];[editedIn] _ EditedStream.Create[in: in, echoTo: out];terminalParent _ ViewerIO.GetViewerFromStream[out];IF terminalParent=NIL THEN ERROR;terminalParent.icon _ terminalIcon;END;Done: TYPE = {ok, repeat, intError, abort};RequestRope: PUBLIC ENTRY PROC [text, text2: Rope.ROPE _ NIL] RETURNS [Rope.ROPE] =BEGIN ENABLE UNWIND => UnLock[];done: Done; r: Rope.ROPE;DoIt: INTERNAL PROC [] =BEGIN ENABLE BEGINIO.Error => IF ec=StreamClosed THEN {done_repeat; IO.Reset[editedIn]; CONTINUE}ELSE REJECT;EditedStream.Rubout => {done_abort; IO.Reset[editedIn]; CONTINUE};END;InternalWriteRope[text];InternalWriteRope[text2];InputFocus.PushInputFocus[terminalParent];ViewerTools.SetSelection[terminalParent];r _ IO.GetLineRope[editedIn];InputFocus.PopInputFocus[];IF Rope.Find[r, delRope]>=0 THEN done_abort;END;Lock[];DOdone _ ok;DoIt[];IF done=ok THEN {UnLock[]; RETURN [r]}ELSE IF done=repeat THEN {InternalWriteRope["XXX\n"]}ELSE {InternalWriteRope[" ..user abort\n"]; SIGNAL UserAbort} ENDLOOP;END;RequestChar: PUBLIC ENTRY PROC [text, text2: Rope.ROPE _ NIL] RETURNS [CHAR] =BEGIN ENABLE UNWIND => UnLock[];done: Done;ch: CHAR;DoIt: INTERNAL PROC [] =BEGIN ENABLE BEGINIO.Error => IF ec=StreamClosed THEN {done_repeat; CONTINUE}ELSE REJECT;EditedStream.Rubout => {done_abort; IO.Reset[in]; CONTINUE};END;InternalWriteRope[text];InternalWriteRope[text2];InputFocus.PushInputFocus[terminalParent];ViewerTools.SetSelection[terminalParent];ch _ IO.GetChar[in];  -- returns immediately, no CR to eatInputFocus.PopInputFocus[];IF ch=del THEN done_abort;END;Lock[];DOdone _ ok;DoIt[];IF done=ok THEN {UnLock[]; RETURN[ch]}ELSE IF done=repeat THEN {InternalWriteRope["XXX\n"]}ELSE {InternalWriteRope[" ..user abortion\n"]; SIGNAL UserAbort };ENDLOOP;END;RequestInt: PUBLIC ENTRY PROC [text, text2: Rope.ROPE _ NIL] RETURNS [INT] =BEGIN ENABLE UNWIND => UnLock[];done: Done; i: INT;DoIt: INTERNAL PROC [] =BEGIN ENABLE BEGINIO.Error => IF ec=StreamClosed THEN {done_repeat; CONTINUE}ELSE IF ec=Overflow THEN {done_intError; CONTINUE}ELSE IF ec=SyntaxError THEN {done_intError; CONTINUE}ELSE REJECT;EditedStream.Rubout => {done_abort; IO.Reset[editedIn]; CONTINUE};END;ch: CHAR;InternalWriteRope[text];InternalWriteRope[text2];InputFocus.PushInputFocus[terminalParent];ViewerTools.SetSelection[terminalParent];i _ IO.GetInt[editedIn];WHILE IO.CharsAvail[editedIn]>0 DO[ch] _ IO.GetChar[editedIn];IF ch=del THEN done_abort;IF ch#15C AND done#abort THEN done_intErrorENDLOOP;InputFocus.PopInputFocus[];END;Lock[];DO done _ ok;DoIt[];IF done=ok THEN {UnLock[]; RETURN[i]}ELSE IF done=repeat THEN {InternalWriteRope["XXX\n"]}ELSE IF done=intError THEN {InternalWriteRope["  ?? (integer), please repeat: \n"]}ELSE {InternalWriteRope[" ..user abortion\n"]; SIGNAL UserAbort} ENDLOOP;END;ChoiceError: ERROR = CODE;RequestSelection: PUBLIC ENTRY PROC [label: Rope.ROPE _ NIL,choice: LIST OF Rope.ROPE, text: Rope.ROPE _ NIL, default: CARDINAL_0] RETURNS [CARDINAL] =BEGIN ENABLE UNWIND => UnLock[];c: CARDINAL _ 0; IF (choice=NIL) OR (choice.first=NIL) THEN RETURN WITH ERROR ChoiceError;Lock[];IF text#NIL THEN InternalWriteRope[text];IO.Flush[out ! RuntimeError.UNCAUGHT => CONTINUE];Process.Pause[Process.MsecToTicks[5]];c _ PopUpMenu.RequestSelection[label, choice, default];UnLock[];RETURN [c];END;UserSaysYes: PUBLIC PROC [label, text: Rope.ROPE _ NIL, default: BOOLEAN_FALSE] RETURNS [BOOLEAN] =BEGIN RETURN [SELECT RequestSelection[label, LIST["yes", "no"], text, (IF default THEN 1 ELSE 2)] FROM1 => TRUE,2 => FALSEENDCASE => default];END;InternalWriteRope: INTERNAL PROC [text: Rope.ROPE] = BEGIN IF out=NIL THEN InternalCreateTerminal[];IO.PutRope[out, text ! IO.Error => {IF ec=StreamClosed THEN {InternalCreateTerminal[];IO.PutRope[out, text];CONTINUE}ELSE REJECT}];END; WriteRope: PUBLIC ENTRY PROC [text: Rope.ROPE] = BEGIN ENABLE UNWIND => NULL;InternalWriteRope[text];END; WriteLn: PUBLIC PROC [] = BEGIN WriteRope["\n"];END; WriteChar: PUBLIC PROC [ch: CHAR] = BEGIN WriteRope[Rope.FromChar[ch]];END; WriteInt: PUBLIC PROC [i: INT] = BEGIN WriteRope[IO.PutFR[format: " %g", v1: IO.int[i]]];END; CreateTerminal: ENTRY Commander.CommandProc =BEGIN ENABLE UNWIND => NULL;InternalCreateTerminal[];END;Init: PROC [] =BEGINterminalIcon _ Icons.NewIconFromFile["TerminalIO.icons", 0 ! RuntimeError.UNCAUGHT => {terminalIcon_Icons.NewIconFromFile["/indigo/chipndale/TerminalIO5.1/TerminalIO.icons", 0! RuntimeError.UNCAUGHT => {terminalIcon_Icons.IconFlavor[unInit]; CONTINUE}];CONTINUE}];inputIcon _ Icons.NewIconFromFile["TerminalIO.icons", 1 ! RuntimeError.UNCAUGHT => {inputIcon_Icons.NewIconFromFile["/indigo/chipndale/TerminalIO5.1/TerminalIO.icons", 1! RuntimeError.UNCAUGHT => {inputIcon_terminalIcon; CONTINUE}];CONTINUE}];AddLock[MyLock, MyUnLock];Commander.Register[  key: "Terminal", proc: CreateTerminal,doc: "Create terminal viewer if it does not yet exist"];END;Init[];END.     D  TerminalIOImpl.mesaBy Ch. Jacobi August 3, 1983 9:54 amLast edited by Ch. Jacobi November 9, 1983 12:06 pm-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ----Terminals own locking procedures--is set if process releases the monitorlock but waits still for input--conveniant to be here since in all places where UnLock is called -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ----Lock, UnLock mechanism-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ----creation of viewer-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ----input procedures--RequestRope--RequestChar--RequestInt--SILLY FLUSH DOESN'T WORK-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ----output procedures --terminalParent.inhibitDestroy _ FALSE;-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --Э╩,  Ш JЪЬЩJЪЬ$Щ$JЪЬ3Щ3JШ Ъ╧k	Ш	JЪЬ
ЭЬШ(JЪЬШJЪЬЭЬ"Ш-JЪЬЭЬ!Ш1JЪЭЬШJШ
JЪЬШJЪЬШJЪЬЭЬЭЬШJШJЪЬЭЬ
ШJЪЬ	ЭЬ,Ш:JЪЬ
ЭЬШ!JЪЬЭЬШ!ЧJШ JЪ╧bЬЭЬЭШJШ ЪЭЬШJЪЬ,ЭЬJШxЧЪЭЬШJШЧJЪЭШJШ JЪЬЭЬЭЬЭЬ╧c-ШNJЪЬ%ЭЬШ)JЪЬЭЬЭЬШJЪЬЭЬЭЬЭЬШ#JШ JШJШJЪЬЭЬЭЬЭЬШ JЪЬЭЬШ(JЩ JЪЬ;Щ;JЪЬ"Щ"JШ ЪЬЭЬЭЬШ JЪЬFЩFЧJЪЬЭ	ЬЯ9ШKJШ Ъ╧nЬЭЬЭЬШЪЭЬШJЪЭЬЭЬЭЬШЧЪЭЬЭШJЪЭЬШ
JЪЭЬШЧJЪЬЭЬШJШ JШ5JШ/JЪЭЬШЧJШ ЪаЬЭЬЭЬШЪЭЬШJЪЭЬЭЬЭЬШЧJЪЬЭЬШJЪЭЬШJШ#JШ!JШ/JЪЬCЩCJЪЬ ЭЬШ&JЪЭЬШЧJШ JЪЬ8Щ8JЪЬЩJШ JЪ	Ь
ЭЬЭЬЭЬЭЬШJЪЬЭЬШJЪЬЭЬШJШ Ъ
аЬЭЬЭЬЭЬЭЬШ1ЪЭЬШJЪЭЬЭЬЭЬШЧJЪЬЭЬШ JЪЭЬЭЬЭЬЭЬШ0ЪЭШЪЭЬ"ЭШ'JЪ
ЭЬЭЬЭЬ	ЭЬ
ЭЬШ.JЪЭЬШЧЧJЪЭЬШЧJШ ЪаЬЭЬЭЬШJЪЭШЪЭЬ ЭЬЭЬЭШ1JЪЬЭЬЭЬШ,JЪЭШЧJЪЭЬШЧJШ ЪаЬЭЬЭЬШJЪЭШЪЭЬ"ЭЬЭЬЭШ3JЪЬЭЬЭЬШ,JЪЭШЧJЪЭЬШЧJШ JЪЬ;Щ;JЪЬЩJШ ЪаЬЭЬЭЬШ+JЪЭШШ2JШJЪЬЭЬШJЪЬЭЬШЧJЪЬ6Ш6JЪЬ3Ш3JЪЭЬЭЬЭЬЭЬШ!JШ#JЪЭЬШЧJШ JЪЬ8Щ8JЪЬЩJШ JЪЬЭЬ!Ш+JШ ЪаЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШSЪЭЬШJЪЭЬЭЬШЧJЪЬШJЪЬЭЬШJШ ЪаЬЭЬЭЬШЪЭЬШЪЭЬЭШЪЭЬ
ШЪЭЬЭЬШJЪЬЭЬЭШ)JЪЬШЧJЪЭЬЭЬШЧЪЬШJЪЬЭЬЭШ(JШЧJЪЭЬШЧЧJШJШJЪЬ*Ш*JЪЬ)Ш)JЪЬЭЬШJШJЪЭЬЭЬШ,JЪЭЬШJШ ЧJЪЬЩJЪЬШЪЭШJШ
JШJЪЭЬ	ЭЬЭЬШ&JЪЭЬЭЬЭЬШ5JЪЭЬ(ЭЬШ>JЪЭЬШЧJЪЭЬШЧJШ ЪаЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШNЪЭЬШJЪЭЬЭЬШЧJЪЬШJЪЬЭЬШ	JШ ЪаЬЭЬЭЬШЪЭЬШЪЭЬЭШЪЭЬ
ШJЪЭЬЭЬЭЬШ/JЪЭЬЭЬШЧЪЬШJЪЬЭЬЭШ"JШЧJЪЭЬШЧЧJШJШJЪЬ*Ш*JЪЬ)Ш)JЪЬЭЬЯ$Ш:JШJЪЭЬЭЬШJЪЭЬШJШ ЧJЪЬЩJШЪЭШJЪЬ
Ш
JШJЪЭЬ	ЭЬЭЬШ&JЪЭЬЭЬЭЬШ5ЪЭЬШJЪЬ)Ш)JЪЭЬШJШЧJЪЭЬШЧJЪЭЬШЧJШ Ъа
ЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШLЪЭЬШJЪЭЬЭЬШЧJЪЬШJЪЬЭЬШJШ ЪаЬЭЬЭЬШЪЭЬШЪЭЬЭШЪЭЬ
ШJЪЭЬЭЬЭЬШ/JЪЭЬЭЬЭЬЭЬШ2JЪЭЬЭЬЭЬЭЬШ5JЪЭЬЭЬШЧЪЬШJЪЬЭЬЭШ(JШЧJЪЭЬШЧЧJЪЬЭЬШ	JШJШJЪЬ*Ш*JЪЬ)Ш)JЪЬЭЬШЪЭЬЭЬЭШ"JЪЬЭЬШJЪЭЬЭЬШJЪЭЬЭЬЭЬШ+JЪЭЬШЧJШJЪЭЬШJШ ЧJЪЬЩJШЪЭЬШJШ
JШJЪЭЬ	ЭЬЭЬШ%JЪЭЬЭЬЭЬШ5JЪЭЬЭЬЭЬ9ШSJЪЭЬ+ЭЬШAJЪЭЬШЧJЪЭЬШЧJШ JЪЬЭЬЭЬШJШ ЪаЬЭЬЭЬЭЬШ%JЪЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬШЪЬ	ЭЬШJЪЭЬЭЬШЧЪЭЬШJЪЭЬЭЬШЧJЪЬЭЬШJЪЭЬ	ЭЬЭЬЭЬЭЬЭЬЭЬЭЬШIJШJЪЭЬЭЬЭЬШ)JЪЭЬЭЬЭЬШ2JШ JЪЬЩJЪЬ&Ш&JШ JШ7JШ	JЪЭЬШJЪЭЬШЧJШ ЪаЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШcJЪЭЬШЪЭЬЭЬШЪ
ЬЭЬЭЬ	ЭЬЭЬЭШQJЪЬЭЬШ
JЪЬЭШ
JЪЭЬШЧЧJЪЭЬШЧJШ JЪЬ8Щ8JЪЬЩJШ ЪаЬЭЬЭЬЭЬШ5JЪЭЬШJЪЭЬЭЬЭЬШ)ЪЭЬЭЬШ$ЪЭЬЭЬШJШJЪЭЬШJЪЭШJШЧJЪЭЬЭШJЪЬШЧJЪЭЬШЧJШ Ъ
а	ЬЭЬЭЬЭЬЭЬШ1ЪЭЬШJЪЭЬЭЬЭЬШЧJШJЪЬ"ЭЬЩ(JЪЭЬШЧJШ ЪаЬЭЬЭЬШJЪЭЬШJШJЪЭЬШЧJШ Ъа	ЬЭЬЭЬЭЬШ$JЪЭЬШJШJЪЭЬШЧJШ ЪаЬЭЬЭЬЭЬШ!JЪЭЬШJЪЬ
ЭЬЭЬ
Ш2JЪЭЬШJШ ЧJЪЬ;Щ;JШ ЪаЬЭЬШ-ЪЭЬШJЪЭЬЭЬЭЬШЧJШJЪЭЬШЧJШ ЪаЬЭЬШJЪЭШШ;ЪЬЭЬШЪЬXШXJЪЬЭЬ,ЭЬШNЧJЪЭШJЪЬШЧЧШ8ЪЬЭЬШЪЬUШUJЪЬЭЬЭЬШ?ЧЧJЪЭШJЪЬШЧJШШJШJШJШ8ЧJЪЭЬШЧJШ JЪЬШJЪЭЬШJШ Ч ЕЧ      -v  