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. ΚTestSmallCacheUtils.mesa Copyright c 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 Κ˜codešœ™Kšœ Οmœ1™