TestSCUtils.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Written by: Pradeep Sindhu, October 2, 1986 10:52:55 pm PDT
Pradeep Sindhu, May 22, 1987 1:13:14 pm PDT
DIRECTORY
CD, CDDirectory, Core, CoreClasses, CoreOps, PW, Sisyph, Sinix, TerminalIO;
TestSCUtils: CEDAR PROGRAM
IMPORTS CDDirectory, CoreOps, CoreClasses, PW, Sisyph, Sinix, TerminalIO
~ BEGIN
Test:
PROC [] = {
design: CD.Design ← PW.OpenDesign["///Users/sindhu.pa/smallcache/TestSCUtils"];
targetObj: CD.Object ← CDDirectory.Fetch[design, "TestComLine"].object;
cx: Sisyph.Context ← Sisyph.Create[design];
result: REF ← Sinix.Extract[obj: targetObj, mode: Sisyph.mode, userData: cx].result;
recordCT: Core.CellType ← NARROW[result];
WHILE recordCT.class#CoreClasses.recordCellClass
DO
recordCT ← recordCT.class.recast[recordCT];
ENDLOOP;
CoreOps.Print[result, TerminalIO.TOS[]];
CoreOps.Print[recordCT, TerminalIO.TOS[]];
};
END.