DIRECTORY Atom, CD, CDApplications, CDCallSpecific, CDCommandOps, CDOps, CDProperties, CDSequencer, CDValue, Rope, SymTab, TerminalIO; CDCommandOpsImpl: CEDAR PROGRAM IMPORTS Atom, CDApplications, CDCallSpecific, CDOps, CDProperties, CDSequencer, CDValue, Rope, SymTab, TerminalIO EXPORTS CDCommandOps = BEGIN -- -- -- -- -- -- ProbablyLastChar: PROC [r: Rope.ROPE] RETURNS [CHAR] = BEGIN l: INT = r.Length[]; IF l<=0 THEN RETURN ['@]; RETURN [r.Fetch[l-1]] END; -- -- -- -- -- -- --ImplementSpecificCommand Entry: TYPE = RECORD [key: ATOM, text: Rope.ROPE_NIL, x: REF]; tableKey: REF = NEW[ATOM_$tableKey]; -- indirect to make inaccessible gTable: SymTab.Ref = SymTab.Create[]; GetTTable: PROC [t: CD.Technology] RETURNS [table: SymTab.Ref] = BEGIN IF t=NIL THEN table_gTable ELSE { x: REF _ CDValue.Fetch[boundTo: t, key: tableKey, propagation: technology]; IF x=NIL THEN { x _ SymTab.Create[7]; CDValue.Store[boundTo: t, key: tableKey, value: x] }; TRUSTED {table _ LOOPHOLE[x]} } END; GetEntry: PROC [tipKey: Rope.ROPE, tech: CD.Technology] RETURNS [entry: REF Entry_NIL] = BEGIN IF tipKey.Length[]>=2 THEN { x: REF; found: BOOL _ FALSE; tipKey _ tipKey.Substr[len: tipKey.Length[]]; IF tech#NIL THEN [found, x] _ SymTab.Fetch[GetTTable[tech], tipKey]; IF NOT found THEN [found, x] _ SymTab.Fetch[gTable, tipKey]; IF found THEN WITH x SELECT FROM e: REF Entry => entry_e ENDCASE => NULL } END; GeneralCommand: PROC [comm: CDSequencer.Command] = BEGIN n: NAT_0; t: Rope.ROPE = Atom.GetPName[comm.a]; entry: REF Entry = GetEntry[t, comm.design.technology]; IF entry=NIL THEN { TerminalIO.WriteRope["unknown command: "]; TerminalIO.WriteRope[t]; } ELSE { TerminalIO.WriteRope[entry.text]; TerminalIO.WriteRope[" "]; SELECT ProbablyLastChar[t] FROM 'S => { TerminalIO.WriteRope["selected "]; n _ CDCallSpecific.CallForSelected[design: comm.design, objectSpecific: entry.key, x: entry.x]; }; 'P => { TerminalIO.WriteRope["pointed "]; n _ CDCallSpecific.CallForPointed[design: comm.design, point: comm.pos, objectSpecific: entry.key, x: entry.x]; }; 'A => { TerminalIO.WriteRope["all "]; n _ CDCallSpecific.CallForAll[design: comm.design, objectSpecific: entry.key, x: entry.x]; }; 'X => { TerminalIO.WriteRope["(if 1 selected) "]; n _ CDCallSpecific.CallIfOneSelected[design: comm.design, objectSpecific: entry.key, x: entry.x]; }; 'F => { TerminalIO.WriteRope["(first selected) "]; n _ CDCallSpecific.CallForOneSelected[design: comm.design, objectSpecific: entry.key, x: entry.x]; }; ENDCASE => TerminalIO.WriteRope["bad modifier"]; }; TerminalIO.WriteRope["\n "]; TerminalIO.WriteInt[n]; TerminalIO.WriteRope[" objects handled\n"]; END; ImplementSpecificCommand: PUBLIC PROC [specificAtom: ATOM, text: Rope.ROPE_NIL, tipBase: Rope.ROPE_NIL, useFor: Rope.ROPE_NIL, x: REF_NIL, technology: CD.Technology_NIL] = BEGIN t: SymTab.Ref = GetTTable[technology]; entry: REF Entry; EachKey: Rope.ActionType -- PROC [c: CHAR] RETURNS [quit: BOOL _ FALSE] -- = BEGIN SELECT c FROM 'P, 'S, 'A, 'F, 'X => { fiddledTip: Rope.ROPE _ Rope.Concat[tipBase, Rope.FromChar[c]]; [] _ SymTab.Store[t, fiddledTip, entry]; CDSequencer.ImplementCommand[Atom.MakeAtom[fiddledTip], GeneralCommand, technology]; } ENDCASE => NULL END; IF useFor=NIL THEN useFor _ "PS"; IF tipBase=NIL THEN tipBase _ Atom.GetPName[specificAtom]; IF text=NIL THEN text _ tipBase; SELECT ProbablyLastChar[text] FROM '\n, ' => text _ text.Substr[len: text.Length[]-1]; ENDCASE => NULL; entry _ NEW[Entry _ [key: specificAtom, text: text, x: x]]; [] _ Rope.Map[base: useFor, action: EachKey]; END; -- -- -- -- -- -- TheApplication: PUBLIC PROC[comm: CDSequencer.Command, text: Rope.ROPE_NIL] RETURNS [aptr: CD.ApplicationPtr_NIL] = BEGIN multiple: BOOL; key: Rope.ROPE _ Atom.GetPName[comm.a]; IF text=NIL THEN text _ key; SELECT ProbablyLastChar[text] FROM '\n, ' => text _ text.Substr[len: text.Length[]-1]; ENDCASE => NULL; TerminalIO.WriteRope[text]; TerminalIO.WriteRope[" "]; SELECT ProbablyLastChar[key] FROM 'S => { TerminalIO.WriteRope["selected\n"]; [aptr, multiple] _ CDOps.SelectedApplication[comm.design]; IF multiple THEN {TerminalIO.WriteRope[" multiple selection\n"]; RETURN [NIL]}; IF aptr=NIL THEN TerminalIO.WriteRope[" no selection\n"]; }; 'P => { TerminalIO.WriteRope["pointed\n"]; aptr _ CDApplications.AplicationAt[CDOps.AppList[comm.design], comm.pos]; IF aptr=NIL THEN TerminalIO.WriteRope[" no pointed application\n"]; }; 'X => { TerminalIO.WriteRope["(if 1 selected)\n"]; [aptr, multiple] _ CDOps.SelectedApplication[comm.design]; IF multiple THEN {TerminalIO.WriteRope[" multiple selection\n"]; RETURN [NIL]}; IF aptr=NIL THEN TerminalIO.WriteRope[" no selection\n"]; }; ENDCASE => { -- and specially 'F TerminalIO.WriteRope["(first selected)\n"]; [aptr, multiple] _ CDOps.SelectedApplication[comm.design]; IF aptr=NIL THEN TerminalIO.WriteRope[" no selection\n"]; }; IF aptr#NIL THEN { IF aptr.ob=NIL THEN {aptr_NIL; TerminalIO.WriteRope[" bad object\n"]}; }; END; -- -- -- -- -- -- WriteInfo: PUBLIC PROC[aptr: CD.ApplicationPtr, verbosity: INT_0] = BEGIN TerminalIO.WriteRope[" ("]; IF aptr=NIL THEN TerminalIO.WriteRope["no object"] ELSE { TerminalIO.WriteRope[CDOps.Info[aptr.ob]]; IF verbosity>0 THEN { x: REF ~ CDProperties.GetPropFromApplication[aptr, $SignalName]; IF x#NIL THEN WITH x SELECT FROM r: Rope.ROPE => TerminalIO.WriteRope[Rope.Concat[" ", r]]; a: ATOM => TerminalIO.WriteRope[Rope.Concat[" ", Atom.GetPName[a]]]; ENDCASE => NULL; }; }; TerminalIO.WriteRope[")"]; END; END. *CDCommandOpsImpl.mesa by Christian Jacobi July 12, 1984 3:49:16 pm PDT last edited Christian Jacobi July 12, 1984 3:49:19 pm PDT --generic --Implements a command which is executed by using CDCallSpecific --specificAtom: handled through to select CDCallSpecific command --text: logged; defaults to tipBase --tipBase: How command is called in tiptable; defaults to specificAtom --useFor: Suffix letters appended to tipBase getting the tip table entry --x: handled through to CDCallSpecific --technology: NIL => all technologies --set up defaults --do it --TheApplication --extracts the application given a command --if returned application is nil, all the messages are made and caller should return quiet; --if returned application is not nil; text line is written and object is there --WriteInfo Êœ˜J˜Jšœ™Jšœ3™3Jšœ;™;J˜šÏk ˜ Jšœ˜Jšœ˜J˜J˜Jšœ ˜ Jšœ˜J˜ J˜J˜J˜J˜J˜J˜—šÏbœœ˜Jšœj˜qJšœ˜—Jš˜J˜J˜Jšœ ™ J˜š Ïnœœ œœœ˜6Jš˜Jšœœ˜Jšœœœ˜Jšœ˜Jšœ˜—J˜J˜J˜JšÏc˜J˜Jšœœœœ œœ˜>J˜Jšœ œœœ ˜EJšœ%˜%J˜šŸ œœœ œ˜@Jš˜Jšœœœ ˜šœ˜JšœœE˜Kšœœœ˜Jšœ˜Jšœ2˜2J˜—Jšœ œ˜J˜—Jšœ˜—J˜šŸœœœœ œ œœ˜XJš˜šœœ˜Jšœœ˜Jšœœ˜Jšœ-˜-Jšœœœ4˜DJšœœœ+˜<šœ˜ Jšœœœœœœ˜;—J˜—Jšœ˜—J˜J˜šŸœœ˜2Jš˜Jšœœ˜ Jšœœ˜%Jšœœ-˜7šœœœ˜Jšœ*˜*Jšœ˜Jšœ˜—šœ˜Jšœ!˜!Jšœ˜šœ˜šœ˜Jšœ"˜"Jšœ_˜_J˜—šœ˜Jšœ!˜!Jšœo˜oJ˜—šœ˜Jšœ˜JšœZ˜ZJ˜—šœ˜Jšœ)˜)Jšœa˜aJ˜—šœ˜Jšœ*˜*Jšœb˜bJ˜—Jšœ)˜0—J˜—Jšœ˜J˜CJšœ˜J˜—šŸœœœ œœœœœœœœœœ˜«Jšœ@™@Jšœ@™@Jšœ#™#JšœF™FJšœH™HJšœ&™&Jšœ'™'Jš˜Jšœ&˜&Jšœœ˜J˜šžœ 1œ˜LJš˜šœ˜ ˜Jšœœ*˜?Jšœ(˜(JšœT˜TJ˜—Jšœ˜—Jšœ˜—J˜Jšœ™Jšœœœ˜!Jšœ œœ'˜:Jšœœœ˜ šœ˜"Jšœ4˜4Jšœœ˜—Jšœ™Jšœœ0˜;Jšœ-˜-Jšœ˜—J˜J˜J˜Jšœ™J˜šŸœœ'œœœœœ˜sJ™*Jšœ[™[JšœN™NJš˜Jšœ œ˜Jšœ œ˜'Jšœœœ˜šœ˜"Jšœ4˜4Jšœœ˜—Jšœ˜Jšœ˜šœ˜!šœ˜Jšœ#˜#Jšœ:˜:Jšœ œ3œœ˜QJšœœœ*˜:J˜—šœ˜Jšœ"˜"JšœI˜IJšœœœ4˜DJ˜—šœ˜Jšœ*˜*Jšœ:˜:Jšœ œ3œœ˜QJšœœœ*˜:J˜—šœ ˜!Jšœ+˜+Jšœ:˜:Jšœœœ*˜:Jšœ˜——šœœœ˜Jšœ œœœ*˜GJ˜—Jšœ˜J˜—J˜Jšœ™J˜š Ÿ œœœœœ˜CJš˜Jšœ˜Jšœœœ"˜2šœ˜Jšœ*˜*šœ œ˜Jšœœ:˜@šœœ˜ šœœ˜Jšœœ/˜;Jšœœ>˜EJšœœ˜——J˜—J˜—Jšœ˜Jšœ˜—J˜J˜Jšœ˜J˜J˜—…—š `