DIRECTORY Core,CoreClasses,CoreCompose,IO,SCTestUtil,ViewerIO;SCTest: CEDAR PROGRAMIMPORTS CoreClasses, CoreCompose, SCTestUtil, ViewerIOEXPORTS SCTestUtil =BEGINdebug: BOOLEAN _ FALSE;CreateCore: PUBLIC PROC [] RETURNS [CoreCompose.Context, Core.CellType] =BEGINcontext: CoreCompose.Context _ CoreCompose.CreateContext[];nandWires: CoreCompose.WireSequence _ CoreCompose.CreateWires[context, "InA, InB, Out, Vdd, Gnd"];nand: Core.CellType _ SCTestUtil.CreateRecordCell[context, "NAND", nandWires, NIL, NIL];invWires: CoreCompose.WireSequence _ CoreCompose.CreateWires[context, "In, Out, Vdd, Gnd"];inverter: Core.CellType _ SCTestUtil.CreateRecordCell[context, "Inverter", invWires, NIL, NIL];nandInst: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[context, "InA, InB, NOut, Vdd, Gnd", nand, "nandInst"];invInst: CoreClasses.CellInstance _ SCTestUtil.CreateInstance[context, "NOut, Out, Vdd, Gnd", inverter, "invInst"];pubWires: CoreCompose.WireSequence _ CoreCompose.CreateWires[context, "InA, InB, Out, Vdd, Gnd"];privWires: CoreCompose.WireSequence _ CoreCompose.CreateWires[context, "NOut"];SCTest: Core.CellType _ SCTestUtil.CreateRecordCell[context, "SCTest", pubWires, privWires, LIST[nandInst, invInst]];IF debug THEN {out: IO.STREAM _ ViewerIO.CreateViewerStreams[name: "Core: SCTest", viewer: NIL, editedStream: FALSE].out;CoreClasses.RecordPrint[NARROW[SCTest.data], out]};RETURN [context, SCTest];END;END.   È  SCTestUtilTiny.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Frank Bowers December 19, 1985 10:36:54 am PSTBryan Preas March 24, 1986 5:11:33 pm PSTCreate a Core design Ê  ˜ Jšœ™šœ
Ïmœ1™<Icode™.K™)—J™ šÏk	œ˜
J˜J˜J˜J˜J˜J˜	—J˜ šœžœž˜J˜ Jšžœ/˜6Jšžœ˜—˜ Jšž˜J˜ Jšœžœžœ˜J˜ šÏn
œžœžœ'˜IJšœ™J™ Jšž˜Jšœ;˜;Jšœb˜bJšœNžœžœ˜XJšœ[˜[JšœUžœžœ˜_Jšœv˜vJšœs˜sJšœa˜aJšœO˜OJšœ\žœ˜ušžœžœ˜šœžœžœ ˜.J˜Jšœžœ˜Jšœžœ˜—Jšœžœ˜3—Jšžœ˜Jšžœ˜J˜ —Jšžœ˜J˜ —— …—    º    