DIRECTORY CD, CDSequencer, TerminalIO; CDMenuCommands: CEDAR PROGRAM IMPORTS CDSequencer, TerminalIO = BEGIN ViewerMenu: PROC [comm: CDSequencer.Command] = BEGIN ENABLE TerminalIO.UserAbort => GOTO userAbort; Forward: PROC [a: ATOM] = { CDSequencer.ExecuteCommand[comm: comm, as: a]; }; n: INT; n _ TerminalIO.RequestSelection[ label: "Viewer options", choice: LIST["split", "grid", "ticks", "view all", "view selected", "view top lev", "drawmode", "simplification"] ]; SELECT n FROM 1 => Forward[$SplitViewer]; 2 => Forward[$GridInfo]; 3 => Forward[$TicksInfo]; 4 => Forward[$ResetScaleAll]; 5 => Forward[$ResetScaleSel]; 6 => Forward[$ResetScaleTop]; 7 => Forward[$DrawMode]; 8 => Forward[$SetSimplification]; ENDCASE => TerminalIO.WriteRope["skipped\n"]; EXITS userAbort => {TerminalIO.WriteRope["discarded\n"]} END; DesignMenu: PROC [comm: CDSequencer.Command] = BEGIN ENABLE TerminalIO.UserAbort => GOTO userAbort; Forward: PROC [a: ATOM] = { CDSequencer.ExecuteCommand[comm: comm, as: a]; }; SELECT TerminalIO.RequestSelection[ label: "Global menu", choice: LIST["IO", "viewer", "directory", "cell", "programs", " rename des", " un-delete", " select all", " statistic"] ] FROM 1 => Forward[$IOMenu]; 2 => Forward[$ViewerMenu]; 3 => Forward[$DirectoryMenu]; 4 => Forward[$CellMenu]; 5 => Forward[$ProgramMenu]; 6 => Forward[$RenameDesign]; 7 => Forward[$Undel]; 8 => Forward[$SelectAll]; 9 => Forward[$Statistic]; ENDCASE => TerminalIO.WriteRope["skipped\n"]; EXITS userAbort => {TerminalIO.WriteRope["discarded\n"]} END; CellMenu: PROC [comm: CDSequencer.Command] = BEGIN ENABLE TerminalIO.UserAbort => GOTO userAbort; Forward: PROC [a: ATOM] = { CDSequencer.ExecuteCommand[comm: comm, as: a]; }; SELECT TerminalIO.RequestSelection[ label: "Cell (s)", choice: LIST["create", "expand", "push in", "pop out", "put down", "put down imported", "simplification", "transform to", " DIRECTORY"] ] FROM 1 => Forward[$CreateCellSAndName]; 2 => Forward[$ExpandS]; 3 => Forward[$PushS]; 4 => Forward[$PopMenu]; 5 => Forward[$DrawCell]; 6 => Forward[$DrawImportedCell]; 7 => Forward[$CellSimplification]; 8 => Forward[$TransformToCellS]; 9 => Forward[$DirectoryMenu]; ENDCASE => TerminalIO.WriteRope["skipped\n"]; EXITS userAbort => {TerminalIO.WriteRope["discarded\n"]} END; DirectoryMenu: PROC [comm: CDSequencer.Command] = BEGIN ENABLE TerminalIO.UserAbort => GOTO userAbort; Forward: PROC [a: ATOM] = { CDSequencer.ExecuteCommand[comm: comm, as: a]; }; SELECT TerminalIO.RequestSelection[ label: "Directory options", choice: LIST["list direcory", "clean up directory", "remove ob", "rename selected ob", "list imports", "list importee's ob", " CELLS"] ] FROM 1 => Forward[$DisplayCellNames]; 2 => Forward[$DeleteUnUsedObjects]; 3 => Forward[$RemoveCell]; 4 => Forward[$RenameS]; 5 => Forward[$DisplayImports]; 6 => Forward[$DisplayImportedEntries]; 7 => Forward[$CellMenu] ENDCASE => TerminalIO.WriteRope["skipped\n"]; EXITS userAbort => {TerminalIO.WriteRope["discarded\n"]} END; IOMenu: PROC [comm: CDSequencer.Command] = BEGIN ENABLE TerminalIO.UserAbort => GOTO userAbort; Forward: PROC [a: ATOM] = { CDSequencer.ExecuteCommand[comm: comm, as: a]; }; SELECT TerminalIO.RequestSelection[ label: "Input / Output", choice: LIST["output", "import", "include", "reload conditions", "chipmonk-output", " list imports", " directory"] ] FROM 1 => Forward[$OutputDesign]; 2 => Forward[$ImportADesign]; 3 => Forward[$IncludeADesign]; 4 => Forward[$CheckConditions]; 5 => Forward[$ChipmonkOutput]; 6 => Forward[$DisplayImports]; 7 => Forward[$DirectoryMenu]; ENDCASE => TerminalIO.WriteRope["skipped\n"]; EXITS userAbort => {TerminalIO.WriteRope["discarded\n"]} END; ProgramMenu: PROC [comm: CDSequencer.Command] = BEGIN ENABLE TerminalIO.UserAbort => GOTO userAbort; Forward: PROC [a: ATOM] = { CDSequencer.ExecuteCommand[comm: comm, as: a]; }; SELECT TerminalIO.RequestSelection[ label: "Additional Programs", choice: LIST[ "CIF output", "Flat CIF output", "DRC", "DRC & Extract Thyme", "DRC & Extract Rose", "Route", "Place", "Cell route/place" ] ] FROM 1 => Forward[$WriteCif]; 2 => Forward[$FlatCif]; 3 => Forward[$SpinifexS]; 4 => Forward[$SpinifexThymeS]; 5 => Forward[$SpinifexRoseS]; 6 => Forward[$Route]; 7 => Forward[$Place]; 8 => Forward[$CellRoutePlace]; ENDCASE => TerminalIO.WriteRope["skipped\n"]; EXITS userAbort => {TerminalIO.WriteRope["discarded\n"]} END; RectProgramMenu: PROC [comm: CDSequencer.Command] = BEGIN ENABLE TerminalIO.UserAbort => GOTO userAbort; Forward: PROC [a: ATOM] = { CDSequencer.ExecuteCommand[comm: comm, as: a]; }; SELECT TerminalIO.RequestSelection[ label: "Programs on Rects", choice: LIST["Color Plot", "B&W Plot"] ] FROM 1 => Forward[$VersatecColorPlot]; 2 => Forward[$VersatecBWPlot]; ENDCASE => TerminalIO.WriteRope["skipped\n"]; EXITS userAbort => {TerminalIO.WriteRope["discarded\n"]} END; CDSequencer.ImplementCommand[$RectProgramMenu, RectProgramMenu,, doQueue]; CDSequencer.ImplementCommand[$ProgramMenu, ProgramMenu,, doQueue]; CDSequencer.ImplementCommand[$CellMenu, CellMenu,, doQueue]; --old--CDSequencer.ImplementCommand[$DesignMenu, DesignMenu,, doQueue]; CDSequencer.ImplementCommand[$GlobalMenu, DesignMenu,, doQueue]; CDSequencer.ImplementCommand[$IOMenu, IOMenu,, doQueue]; CDSequencer.ImplementCommand[$DirectoryMenu, DirectoryMenu,, doQueue]; CDSequencer.ImplementCommand[$ViewerMenu, ViewerMenu,, doQueue]; END. –CDMenuCommands.mesa (part of Chipndale) by Christian Jacobi July 11, 1983 3:42 pm last edited Christian Jacobi February 14, 1984 4:05 pm ÊÒ˜Jšœ)™)Jšœ,™,Jšœ8™8J˜šÏk ˜ Jšœ˜J˜Jšœ˜J˜—šÏbœœ˜Jšœ˜"—Jš˜J˜šÏn œœ˜.Jšœ˜Jšœœ˜.šŸœœœ˜Jšœ.˜.J˜—Jšœœ˜˜ J˜Jšœœe˜qJšœ˜—šœ˜ Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ!˜!Jšœ&˜-—š˜J˜2—Jšœ˜J˜—šŸ œœ˜.Jšœ˜Jšœœ˜.šŸœœœ˜Jšœ.˜.J˜—šœ˜#J˜Jšœœk˜wšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ&˜-——š˜J˜2—Jšœ˜—J˜šŸœœ˜,Jšœ˜Jšœœ˜.šŸœœœ˜Jšœ.˜.J˜—šœ˜#J˜Jšœœ|˜ˆšœ˜Jšœ"˜"Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ ˜ Jšœ"˜"Jšœ ˜ Jšœ˜Jšœ&˜-——š˜J˜2—Jšœ˜—J˜šŸ œœ˜1Jšœ˜Jšœœ˜.šŸœœœ˜Jšœ.˜.J˜—šœ˜#J˜Jšœœ{˜‡šœ˜Jšœ ˜ Jšœ#˜#Jšœ˜Jšœ˜Jšœ˜Jšœ&˜&Jšœ˜Jšœ&˜-——š˜J˜2—Jšœ˜—J˜šŸœœ˜*Jšœ˜Jšœœ˜.šŸœœœ˜Jšœ.˜.J˜—šœ˜#J˜Jšœœh˜tšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ&˜-——š˜J˜2—Jšœ˜—J˜šŸœœ˜/Jšœ˜Jšœœ˜.šŸœœœ˜Jšœ.˜.J˜—šœ˜#J˜šœœ˜ Jšœ!˜!Jšœ4˜4Jšœ$˜$Jšœ˜—šœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ&˜-——š˜J˜2—Jšœ˜—J˜šŸœœ˜3Jšœ˜Jšœœ˜.šŸœœœ˜Jšœ.˜.J˜—šœ˜#J˜Jšœœ˜&šœ˜Jšœ!˜!Jšœ˜Jšœ&˜-——š˜J˜2—Jšœ˜—J˜J˜JšœJ˜JJšœB˜BJšœ<˜