DIRECTORYCommander,EditedStream,IO,List,Menus,Misp,Process,ProcessProps,Rope,ViewerClasses,ViewerIO;MispAlone: CEDAR PROGRAMIMPORTS Commander, EditedStream, IO, List, Menus, Misp, Process, ProcessProps, --ReadEvalPrint,-- Rope, ViewerIO =BEGINInterpreterData: TYPE = REF InterpreterDataRep;InterpreterDataRep: TYPE = RECORD [process: UNSAFE PROCESS,stop: REF BOOL];ReadEvalPrint: PROC [from, to: IO.STREAM, env: Misp.Environment, cwd: Rope.ROPE, stopRef: REF BOOL] =BEGINInnerReadEvalPrint: PROC = {raw, cooked: REF ANY _ NIL;Flush: PROC = {to.PutRope[" ... flushing input ... "];WHILE from.CharsAvail[] > 0 DO [] _ from.GetChar[] ENDLOOP;to.PutRope[" ... done flushing\n"];};DO {ENABLE ABORTED => GOTO Abort;to.PutF["%lMisp>%l ", IO.rope["b"], IO.rope["B"]];raw _ from.GetRefAny[ !IO.EndOfStream => EXIT;IO.Error => {IF ec = $StreamClosed THEN EXIT;to.PutRope["IO Error on input"];Flush[];LOOP;};EditedStream.Rubout => {to.PutRope[" -- <Del>\n"];LOOP;};];cooked _ Misp.Eval[raw, env, NIL !Misp.Stop => {to.PutF["Stopped, at stack = %g", IO.rope[Misp.PrintValRope[stack]]];stopRef^ _ FALSE;Flush[];LOOP;};Misp.Error => {to.PutF["%g\n  Stack: %g\n", IO.rope[msg], IO.rope[Misp.PrintValRope[stack]]];LOOP;};Misp.Throw => {to.PutF["Uncaught Throw -- signal: %g, value: %g\n  Stack: %g\n", IO.atom[atom], IO.rope[Misp.PrintValRope[value]], IO.rope[Misp.PrintValRope[stack]]];LOOP;};];to.PutF["%g\n", IO.rope[Misp.PrintValRope[cooked]]];EXITSAbort => {to.PutRope[" ... aborted"];Flush[];};} ENDLOOP;cwd _ cwd;};ProcessProps.AddPropList[List.PutAssoc[$WorkingDirectory, cwd, NIL], InnerReadEvalPrint];cwd _ cwd;END;MispCommand: Commander.CommandProc =BEGINin, out: IO.STREAM;v: ViewerClasses.Viewer;env: Misp.Environment;cwd: Rope.ROPE _ NARROW[ProcessProps.GetProp[$WorkingDirectory]];id: InterpreterData _ NEW [InterpreterDataRep _ [process: NIL,stop: NEW [BOOL _ FALSE]]];[in, out] _ ViewerIO.CreateViewerStreams[Rope.Cat["Misp Interpreter: WD = ", cwd]];v _ ViewerIO.GetViewerFromStream[out];Menus.AppendMenuEntry[v.menu, Menus.CreateEntry[name: "Stop", proc: Stop, clientData: id]];Menus.AppendMenuEntry[v.menu, Menus.CreateEntry[name: "STOP!", proc: StopHard, clientData: id]];env _ Misp.NewEnvironment[name: "Root", in: in, out: out, sizeGuess: 200, stop: [ShouldStop, id.stop]];Misp.DefinePrimitives[env];TRUSTED {Process.Detach[id.process _ FORK ReadEvalPrint[in, out, env, cwd, id.stop]]};END;ShouldStop: PROC [data: REF] RETURNS [abort: BOOL _ FALSE] --Interpreter.AbortProc-- = {stop: REF BOOL _ NARROW[data];abort _ stop # NIL AND stop^;};Stop: PROC [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift, control: BOOL _ FALSE] --Menus.ClickProc-- = {id: InterpreterData _ NARROW[clientData];id.stop^ _ TRUE;};StopHard: PROC [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift, control: BOOL _ FALSE] --Menus.ClickProc-- = {id: InterpreterData _ NARROW[clientData];TRUSTED {Process.Abort[id.process]};};Commander.Register[key: "Misp",proc: MispCommand,doc: "Opens a new viewer for interacting with the Misp interpreter"]END.  R  MispAlone.MesaLast Edited by: Spreitzer, July 30, 1985 3:26:30 pm PDTPavel, June 20, 1985 1:27:30 pm PDTReadEvalPrint,MispCommand: Commander.CommandProc =BEGINh: ReadEvalPrint.Handle;env: Misp.Environment;h _ ReadEvalPrint.CreateViewerEvaluator[clientProc: EachLine,prompt: "%lMisp>%l ",info: [name: "Misp Interpreter", iconic: FALSE]];env _ Misp.NewEnvironment[name: "Root (with IO)", in: h.in, out: h.out];Misp.DefinePrimitives[env];h.clientData _ env;h.readABORTEDRope _ " -- <Read aborted>\n";h.readIOSignalRope _ " -- <Del>\n";h.evalABORTEDRope _ " ... Aborted\n";h.evalUNWINDRope _ " ... Unwound\n";TRUSTED {Process.Detach[FORK MispBase[h]]};END;MispBase: PROC [h: ReadEvalPrint.Handle] = {DOReadEvalPrint.MainLoop[h: h, forkAndDetach: FALSE, properties: NIL !Misp.Error => {h.out.PutF["%g\nStack: ", IO.rope[msg]];Misp.PrintVal[h.out, stack];h.out.PutChar['\n];ReadEvalPrint.Stop[h];LOOP;}];EXIT;	-- Normal exit from the Main LoopENDLOOP;};EachLine: ReadEvalPrint.ClientProc = {[h: ReadEvalPrint.Handle, command: ROPE] RETURNS [result: ROPE _ NIL]env: Misp.Environment _ NARROW[h.clientData];input: IO.STREAM _ IO.RIS[command];raw, cooked: REF ANY;DOraw _ input.GetRefAny[ !IO.EndOfStream => EXIT;];cooked _ Misp.Eval[raw, env, NIL];Misp.PrintVal[h.out, cooked];h.out.PutChar['\n];ENDLOOP;};‌تئ  –"cedar" styleک ™J™7Icode™#—Jک ڑدk	ک	Kڑœ
ک
KکKڑ‌œکKکKڑœکKڑœکKڑœکKکK™KکKڑœکKڑœ	ک	—Kک ڑذbx	œ‌œ‌کKڑ‌œ‌œ,دcœکr—Kک Kڑ‌کKک Kڑœ‌œ‌œک/ڑœ‌œ‌œک#Kڑœ	‌œ‌œکKڑœ‌œ‌œک—Kک ڑدnœ‌œ‌œ‌œ#‌œ‌œ‌œکeڑ‌کڑ œ‌œکKڑœ‌œ‌œ‌œکڑ œ‌œکKک'Kڑ‌œ‌œ‌œک;Kک#Kک—Kک ڑ‌œکKڑ‌œ‌œ‌œکKڑœ‌œ‌œک2ڑœکKڑ‌œ‌œکڑ‌œکKڑ‌œ‌œ‌œک Kک KڑœکKڑ‌œکKڑœک—کKکKڑ‌œکKک—Kڑœک—Kک ڑœ‌œک"کKڑœ"‌œ!کEKڑœ‌œکKکKڑ‌œکKک—ڑœکKڑœ‌œ‌œ!کNKڑ‌œکKڑœک—کKڑœB‌œ‌œ!‌œ!ک—Kڑ‌œکKک—Kڑœک—Kک Kڑœ‌œ"ک4ڑ‌کڑœ
ک
KکKکKڑœک——Kڑœ‌œک
—Kک
Kک—Kک Kڑœ?‌œکYKک
—Kڑ‌œک—Kک ڑœ$ک$Kڑ‌کKڑœ	‌œ‌œکKکKڑœکKڑœ
‌œ‌œ*کAڑœ‌œک1Kڑœ	‌œکKڑœ‌œ‌œ‌œکKڑœک—KڑœSکSKڑœ&ک&Kڑœ[ک[Kڑœ`ک`KڑœgکgKکKک Kڑ‌œ‌œ-کVKڑ‌œک—Kک ڑ 
œ‌œ‌œ‌œ	‌œ‌œںœکXKڑœ‌œ‌œ‌œکKڑœ‌œ‌œکKک—Kک ڑ œ‌œ
‌œ‌œ‌œ‌œ‌œ9‌œ‌œںœک”Kڑœ‌œک)Kڑœ‌œکKک—Kک ڑ œ‌œ
‌œ‌œ‌œ‌œ‌œ9‌œ‌œںœککKڑœ‌œک)Kڑ‌œک$Kک—Kک ڑ œ™$ڑ‌™Kڑœ™Kڑœ™K™ Kڑœ~‌œ™†K™ KڑœH™HK™K™K™ Kڑœ+™+Kڑœ#™#Kڑœ%™%Kڑœ$™$K™ Kڑ‌œ‌œ™+—Kڑ‌œ™—K™ ڑ œ‌œ™,ڑ‌™ڑœ,‌œ‌œ™D™Kڑœ‌œ™(K™K™Kڑœ™Kڑ‌œ™K™—K™—Kڑ‌œں!™'Kڑ‌œ™—K™—K™ •StartOfExpansionI -- [h: ReadEvalPrint.Handle, command: ROPE] RETURNS [result: ROPE _ NIL]ڑ œ™&KڑذckE™EK™ Kڑœ‌œ™-Kڑ	œ‌œ‌œ‌œ‌œ
™#Kڑœ‌œ‌œ™K™ ڑ‌™™Kڑ‌œ‌œ™K™—K™ Kڑœ‌œ™"K™K™Kڑ‌œ™—Kڑœ™—K–x[key: ROPE, proc: Commander.CommandProc, doc: ROPE _ NIL, clientData: REF ANY _ NIL, interpreted: BOOL _ TRUE]ک KڑœxکxKک Kڑ‌œک— …—    ‍  ¶  