TestSmallCacheUtils.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Written by: Pradeep Sindhu, October 2, 1986 10:52:55 pm PDT
Pradeep Sindhu, January 25, 1988 2:58:40 pm PST
DIRECTORY
CD, CDDirectory, Core, CoreClasses, CoreOps, PW, Sisyph, Sinix, TerminalIO;
TestSmallCacheUtils: CEDAR PROGRAM
IMPORTS CDDirectory, CoreOps, CoreClasses, PW, Sisyph, Sinix, TerminalIO
~ BEGIN
Test:
PROC [] = {
design: CD.Design ← PW.OpenDesign["///Users/sindhu.pa/smallcache/TestSmallCacheUtils"];
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.