SXAtomsImpl.mesa
Copyright © 1984, 1985 by Xerox Corporation. All rights reserved.
Written by: Shand, June 7, 1984 1:39:57 am PDT
Last Edited by: Shand, March 11, 1985 0:06:12 am PST
Last Edited by: Spreitzer, January 14, 1985 7:43:17 pm PST
Last Edited by: Jacobi, April 5, 1985 11:22:41 am PST
Last edited by: Christian Jacobi, November 7, 1986 1:16:02 pm PST
Last edited by: gbb March 21, 1986 4:38:15 pm PST
DIRECTORY
CDProperties USING [CopyVal, InstallProcs, InternalPWriteProc, RegisterProperty],
PropertyLists USING [PutProp],
TokenIO USING [WriteAtom],
SXAtoms;
SXAtomsImpl:
CEDAR
PROGRAM
IMPORTS CDProperties, PropertyLists, TokenIO
EXPORTS SXAtoms =
BEGIN
spinifex: PUBLIC ATOM ← $Spinifex;
spinifexErrorRect: PUBLIC ATOM ← $SXErrorMessage;
spinifexPropagationChanged: PUBLIC ATOM ← $SXPropagationChanged;
spinifexCircuitDescription: PUBLIC ATOM ← $SpinifexCircuitDescription; -- may not be changed, as its value is used by CDPropTool
errorClient: PUBLIC ATOM ← $SpinifexErrorClient;
thymePrint: PUBLIC ATOM ← $SXThymeProc;
rosePrint: PUBLIC ATOM ← $SXRoseProc;
crystalAttr: PUBLIC ATOM ← $SXCrystal;
init: PUBLIC ATOM ← $SXInit;
fini: PUBLIC ATOM ← $SXFini;
export: PUBLIC ATOM ← $Export;
analyzeSelected: PUBLIC ATOM ← $SXSel;
analyzeAndThymeSelected: PUBLIC ATOM ← $SXThymeS;
analyzeAndRoseSelected: PUBLIC ATOM ← $SXRoseS;
highlightPointedNode: PUBLIC ATOM ← $SpinifexHighlightNodeP;
highlightKeyboardCoordsNode: PUBLIC ATOM ← $SXHighlightNodeK;
SignalName: PUBLIC ATOM ← $SignalName;
InstanceName: PUBLIC ATOM ← $InstanceName;
Rect: PUBLIC ATOM ← $Rect;
Cell: PUBLIC ATOM ← $Cell;
WriteERect: CDProperties.InternalPWriteProc =
BEGIN
TokenIO.WriteAtom [h, spinifexErrorRect]
END;
Module Initialization
[] ← CDProperties.RegisterProperty [spinifex, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [spinifexCircuitDescription, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [analyzeAndThymeSelected, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [analyzeAndRoseSelected, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [spinifexErrorRect, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [thymePrint, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [rosePrint, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [init, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [fini, $LetMeDoIt];
[] ← CDProperties.RegisterProperty [errorClient, $LetMeDoIt];
CDProperties.InstallProcs [prop: spinifexErrorRect, procs: [makeCopy: CDProperties.CopyVal, internalWrite: WriteERect]];
CDProperties.InstallProcs [prop: spinifex, procs: [makeCopy: CDProperties.CopyVal]];
CDProperties.InstallProcs [prop~ errorClient, procs: [makeCopy: CDProperties.CopyVal]];
CDProperties.InstallProcs [spinifexCircuitDescription, [makeCopy: CDProperties.CopyVal, properties: PropertyLists.PutProp[NIL, $ObjectsOnly, "TRUE"]]]
END.
Edited on March 7, 1985 7:33:00 pm PST, by Shand
New ATOM
changes to: spinifexPropagationChanged used to attach a Rope.ROPE to a ChipNDale cell which contains the rosemary structural description of a cell
Edited on March 11, 1985 0:03:58 am PST, by Shand
New ATOM
changes to: highlightKeyboardCoordsNode used invoke HighLightNode command at Coords specified from keyboard rather than pointing, to be used in conjunction with Spinifex output files (which now contain represenative node coords).
Edited on June 28, 1985 5:21:28 pm PDT, by Beretta
Registers spinifexCircuitDescription for CDPropTool.
Edited on July 8, 1985 4:22:32 pm PDT, by Beretta
Aded new atom export. If an object has a property with this key and if the value is $TRUE and the cell is at the root of analysis, then the signal name of the node with this property is used as a parameter (port).
changes to: export.
Last edited by: gbb July 20, 1985 3:49:04 pm PDT
ChipNDale atom SaveRect does no longer exist, DIRECTORY
gbb July 31, 1985 6:34:59 pm PDT
Added atoms for Core output.
changes to: coreOut: new, analyzeAndCoreSelected: new.
gbb November 24, 1985 4:06:19 pm PST
Removed atoms for Core output.
gbb March 15, 1986 3:48:56 pm PST
Fixed atoms for node highlightening (incompatibility with ChipNDale)