<> <> <> <> 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]]; }; <<>> <> <> <> <> <<};>> <<>> <> <> <> <> <<};>> Register[ExpandProc, "Expand"]; Register[CompactXProc, "CompactX"]; <> <> END. <<>>