DIRECTORY Commander USING [Register, CommandProc], Rope USING [ROPE, Cat, FromChar, Length, Fetch], ViewExpr; MakeCaminoViewer: CEDAR PROGRAM IMPORTS ViewExpr, Commander, Rope ~ BEGIN DoIt: Commander.CommandProc ~ { name: Rope.ROPE _ ""; -- label for viewer FOR i:INT IN [0..cmd.commandLine.Length[] - 1] DO c: CHAR _ cmd.commandLine.Fetch[i]; IF c IN ['\040..'\176] THEN name _ Rope.Cat[name, Rope.FromChar[c]]; ENDLOOP; IF name.Length[] = 0 THEN name _ "CaminoReal Expr"; [] _ ViewExpr.CreateCaminoItem[name, NIL]; }; Commander.Register[key: "Camino", proc: DoIt, doc: "Opens a new CaminoReal math expression editor viewer."]; END. φMakeCaminoViewer.mesa Carl Waldspurger, August 29, 1986 4:43:55 pm PDT effects: Creates a new CaminoReal expression viewer with label from command line. local declarations filter all garbage characters out of command line for viewer name ΚE˜Jšœ™Jšœ0™0J˜šΟk ˜ Jšœ œ˜(Jšœœœ ˜0Icodešœ ˜ K˜K˜—šΟnœœ˜Kšœ˜#K˜š˜K˜šžœ˜KšœR™RK˜Kšœ™Kšœ œΟc˜*K˜KšœA™Ašœœœ#˜1Kšœœ˜#Kšœœœ)˜DKšœ˜—K˜Kšœœ˜3K˜Kšœ%œ˜*K˜—K˜K˜l—K˜šœ˜K˜K˜K˜K˜K˜K˜K˜—J˜—J˜J˜—…—’Ν