DIRECTORYCD, CDDirectory, CDRects, CDSatellites, CDCells, Core, CoreClasses, CoreOps,IO,PW, Rope, Sinix,Sisyph, TerminalIO;TestSisyph: CEDAR PROGRAMIMPORTS CDDirectory, CoreClasses, CoreOps, PW, Sinix, Sisyph, TerminalIO = BEGINCellType: TYPE = Core.CellType;Wire: TYPE = Core.Wire;Object: TYPE = CD.Object;ROPE: TYPE = Core.ROPE;Context: TYPE = Sisyph.Context;StructWire: PROC [name: ROPE, n: INT] RETURNS [Wire] = {subWires: LIST OF Wire _ NIL;WHILE n > 0 DO subWires _ CONS[CoreOps.CreateWire[], subWires]; n _ n-1; ENDLOOP;RETURN [CoreOps.CreateWire[elements: subWires, name: name]]};TreeCellCode: PROC [] RETURNS [CellType] = {wire: Wire _ StructWire["father", 3];RETURN [CoreClasses.CreateRecordCell[CoreOps.CreateWire[elements: LIST[wire]], CoreOps.CreateWire[elements: LIST[wire]], NIL]];};TestWireIcon: PROC [] RETURNS [wire: Wire] = {wire _ CoreOps.CreateWires[size: 3, name: "BigStruct"];wire[0] _ CoreOps.CreateWire[name: "Zero"];wire[1] _ CoreOps.CreateWire[name: "One"];wire[2] _ CoreOps.CreateWires[size: 2, name: "SmallStruct"];wire[2][0] _ CoreOps.CreateWire[name: "Zero"];wire[2][1] _ CoreOps.CreateWire[name: "TwoOne"];};FooBarWireIcon: PROC [] RETURNS [wires: Core.Wires] = {wires _ LIST [CoreOps.CreateWire[name: "foo"], CoreOps.CreateWire[name: "bar"]];};TestCx: PROC [] = BEGINdesign: CD.Design _ PW.OpenDesign["ExtractExample"];targetObj: CD.Object _ CDDirectory.Fetch[design, "nD"].object;cx: Context _ Sisyph.Create[design];result: REF _ Sinix.Extract[obj: targetObj, mode: Sisyph.mode, userData: cx].result;CoreOps.Print[result, TerminalIO.TOS[]];ERROR;END;Test: PROC [] = BEGINdesign: CD.Design _ PW.OpenDesign["TestSisyph"];targetObj: CD.Object _ CDDirectory.Fetch[design, "TestCell"].object;cx: Context _ Sisyph.Create[design];result: REF _ Sinix.Extract[obj: targetObj, mode: Sisyph.mode, userData: cx].result;CoreOps.Print[result, TerminalIO.TOS[]];END;END.  "  TestSisyph.mesaCopyright Ó 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.Created by Pradeep Sindhu, November 26, 1985 3:06:31 pm PSTPradeep Sindhu February 19, 1986 1:11:20 am PSTBertrand Serlet April 14, 1987 2:32:33 am PDTBarth, January 13, 1986 3:30:54 pm PSTÊ™  ˜ ™JšœH™HIcodešœ8Ïk™;Kšœ,™/Kšœ-™-Kšœ#™&J™ —š	˜	Kšœ/˜1Kšœ˜Kšœ˜Kšœ˜K˜K˜K˜K˜—J™ šÏn
œœ˜Kšœ$œ˜PK˜ Jšœ
œ˜Jšœœ˜Jšœœœ˜Jšœœœ˜Jšœ	œ˜K˜ š
ž
œœœœœ˜8Jšœ
œœœ˜Jšœœœ+œ˜QJšœ5˜;Jšœ˜J˜ —šžœœœ˜,J˜%Jšœ<œ&œ	œ˜Jšœ˜K˜ —šžœœœ˜.J˜7Jšœ+˜+Jšœ*˜*Jšœ<˜<Jšœ.˜.Jšœ0˜0Jšœ˜J˜ —šžœœœ˜7JšœœD˜PJšœ˜J˜ —šžœœ˜Kšœœ
œ˜4Kšœœ1˜>Kšœ$˜$KšœœI˜TKšœ!œ˜(Kšœ˜Kšœ˜K˜ —šžœœ˜Kšœœ
œ˜0Kšœœ7˜DKšœ$˜$KšœœI˜TKšœ!œ˜(Kšœ˜K˜ —Kšœ˜—— …—    ž  Y  