CoreThymeCmdsImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Created by Pradeep Sindhu, March 31, 1986 6:25:43 pm PST
Pradeep Sindhu, April 29, 1986 0:19:46 am PDT
Bertrand Serlet October 17, 1986 10:46:42 pm PDT
Christian Jacobi, January 7, 1987 2:58:17 pm PST
DIRECTORY
CD, CDCells, CDCommandOps, CDIO, CDOps, CDSequencer, Core, CoreOps, CoreThyme, Rope, SinixOps, Sisyph, TerminalIO;
CoreThymeCmdsImpl: CEDAR PROGRAM
IMPORTS CDCells, CDCommandOps, CDIO, CDOps, CoreOps, CoreThyme, Rope, SinixOps, Sisyph, TerminalIO = BEGIN
ROPE: TYPE = Rope.ROPE;
ThymeHandle: TYPE = CoreThyme.ThymeHandle;
Command Procs
thymeHandles: LIST OF ThymeHandle ← NIL;
ExtractSelectedObjAndRunThyme: PROC [comm: CDSequencer.Command] = {
selected: CD.Instance;
multiple: BOOL;
cellType: Core.CellType;
wDir: ROPE ← CDIO.GetWorkingDirectory[comm.design];
thymeHandle: ThymeHandle ← GetThymeHandle[wDir];
thymeFileName: ROPE;
[selected, multiple] ← CDOps.SelectedInstance[comm.design];
IF ~IsSingleSelectedAndCell[selected, multiple] THEN RETURN;
cellType ← NARROW [SinixOps.ExtractCDInstance[selected, comm.design, Sisyph.mode].result];
WHILE SinixOps.IsIcon[Sisyph.mode.decoration, cellType] DO
cellType ← CoreOps.Recast[cellType];
ENDLOOP;
IF CoreOps.GetCellTypeName[cellType]=NIL
THEN thymeFileName ← Rope.Cat[wDir, "CoreThymeDefaultFile.thy"]
ELSE thymeFileName ← Rope.Cat[wDir, CoreOps.GetCellTypeName[cellType], ".thy"];
CoreThyme.Translate[cellType, thymeFileName];
CoreOps.PrintCellType[cellType, TerminalIO.TOS[]];
CoreThyme.Simulate[thymeFileName, thymeHandle];
};
Internal Utilities
IsSingleSelectedAndCell: PROC [selected: CD.Instance, multiple: BOOL] RETURNS [BOOL] = {
IF ~IsSingleSelected[selected, multiple] THEN RETURN [FALSE];
IF ~CDCells.IsCell[selected.ob] THEN {
TerminalIO.PutRope["\n** Selected instance is not a cell—can't do it.\n"];
RETURN[FALSE];
};
RETURN[TRUE];
};
IsSingleSelected: PROC [selected: CD.Instance, multiple: BOOL] RETURNS [BOOL] = {
IF selected=NIL THEN {
TerminalIO.PutRope["\n** No current selection--can't do it.\n"];
RETURN[FALSE];
};
IF multiple THEN {
TerminalIO.PutRope["\n** Multiple instances selected--can't do it.\n"];
RETURN[FALSE];
};
RETURN[TRUE];
};
GetThymeHandle: PROC [wDir: ROPE] RETURNS [thymeHandle: ThymeHandle] = {
FOR l: LIST OF ThymeHandle ← thymeHandles, l.rest WHILE l#NIL DO
IF l.first.outer#NIL AND l.first.stage=idle THEN {
CoreThyme.SetWorkingDirectory[wDir, l.first];
RETURN [l.first];
};
ENDLOOP;
thymeHandle ← CoreThyme.CreateThymeViewer[wDir];
thymeHandles ← CONS[thymeHandle, thymeHandles];
};
Initialization
CDCommandOps.RegisterWithMenu[menu: $OtherProgramMenu, entry: "Sisyph Extract and Thyme", proc: ExtractSelectedObjAndRunThyme, key: $CoreThymeExtractSelectedObjAndRunThyme]
END.