StixTest.mesa
Copyright © 1985 by Xerox Corporation. All rights reversed.
Created by: Monier, May 9, 1985 11:18:58 pm PDT
Louis Monier December 5, 1985 7:15:39 pm PST
DIRECTORY
CD, CDCells, CDDirectory, PW, StixCompact;
StixTest:
CEDAR
PROGRAM
IMPORTS CDCells, CDDirectory, PW, StixCompact =
BEGIN OPEN PW;
ExpandProc: UserProc = {
testCell: Object ← Get[design, RequestRope["cell: "]];
IF ~CDCells.IsCell[testCell] THEN testCell ← CDDirectory.Expand[testCell, design, design];
ob ← StixCompact.SimpleExpand[design, design, testCell];
};
CompactXProc: UserProc = {
testCell: Object ← Get[design, RequestRope["cell: "]];
IF ~CDCells.IsCell[testCell] THEN testCell ← CDDirectory.Expand[testCell, design, design];
RETURN[StixCompact.CompactXCmd[design, design, testCell]];
};
CompactXYProc: UserProc = {
testCell: Object ← Get[design, RequestRope["cell: "]];
IF ~CDCells.IsCell[testCell] THEN testCell ← CDDirectory.Expand[testCell, design, design];
RETURN[StixCompact.CompactXYCmd[design, design, testCell]];
};
CompactYXProc: UserProc = {
testCell: Object ← Get[design, RequestRope["cell: "]];
IF ~CDCells.IsCell[testCell] THEN testCell ← CDDirectory.Expand[testCell, design, design];
RETURN[Stix.CompactYX[design, testCell]];
};
Register[ExpandProc, "Expand"];
Register[CompactXProc, "CompactX"];
Register[CompactXYProc, "CompactXY"];
Register[CompactYXProc, "CompactYX"];
END.