Copyright Ó 1985, 1987 by Xerox Corporation. All rights reserved.

Frank Bowers December 19, 1985 10:36:54 am PST

Bryan Preas December 15, 1986 7:46:56 pm PST

CD, CDIO, Core, CoreClasses, CoreDirectory, CoreProperties, IO, PWCore, Rope, RTTestUtil;

IMPORTS CDIO, CoreDirectory, CoreProperties, PWCore, RTTestUtil

EXPORTS RTTestUtil = BEGIN

Create a Core design

BEGIN

scCutSet: ATOM ← $SCPlacableElement;   -- leaf of the SC layout system

coreLibrary: CoreDirectory.Library ← CoreDirectory.CreateLibrary[];

libDesign: CD.Design ← CDIO.ReadDesign[libName, NIL, CDIO.GetWorkingDirectory[]];

feedthruWires: Core.Wire ← RTTestUtil.CreateWire[LIST["InOut", "Vdd", "Gnd"]];

feedthru: Core.CellType ← RTTestUtil.CreateRecordCell["feedthru", feedthruWires, feedthruWires, NIL];

vddWires: Core.Wire ← RTTestUtil.CreateWire[LIST["Vdd", "Gnd"]];

vdd: Core.CellType ← RTTestUtil.CreateRecordCell["vdd", vddWires, vddWires, NIL];

gndWires: Core.Wire ← RTTestUtil.CreateWire[LIST["Vdd", "Gnd"]];

gnd: Core.CellType ← RTTestUtil.CreateRecordCell["gnd", gndWires, gndWires, NIL];

nandWires: Core.Wire ← RTTestUtil.CreateWire[LIST["InA", "InB", "Out", "Vdd", "Gnd"]];

nand: Core.CellType ← RTTestUtil.CreateRecordCell["NAND", nandWires, nandWires, NIL];

pubWires: Core.Wire ← RTTestUtil.CreateWire[LIST["Row1", "Row2", "Row3", "Row4", "Row5", "Col1", "Col2", "Col3", "Col4", "Col5", "nandInst15W", "nandInst25W", "nandInst35W", "nandInst45W", "nandInst55W", "Vdd", "Gnd"]];

internWires: Core.Wire ← RTTestUtil.UnionWire[pubWires, RTTestUtil.CreateWire[LIST["nandInst11W", "nandInst12W", "nandInst13W", "nandInst14W", "nandInst21W", "nandInst22W", "nandInst23W", "nandInst24W", "nandInst31W", "nandInst32W", "nandInst33W", "nandInst34W", "nandInst41W", "nandInst42W", "nandInst43W", "nandInst44W", "nandInst51W", "nandInst52W", "nandInst53W", "nandInst54W"]]];

nandInst11: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col1", "Row1", "nandInst11W", "Vdd", "Gnd"], nand, "nandInst11", internWires];

nandInst12: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col2", "nandInst11W", "nandInst12W", "Vdd", "Gnd"], nand, "nandInst12", internWires];

nandInst13: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col3", "nandInst12W", "nandInst13W", "Vdd", "Gnd"], nand, "nandInst13", internWires];

nandInst14: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col4", "nandInst13W", "nandInst14W", "Vdd", "Gnd"], nand, "nandInst14", internWires];

nandInst15: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col5", "nandInst14W", "nandInst15W", "Vdd", "Gnd"], nand, "nandInst15", internWires];

nandInst21: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col1", "Row2", "nandInst21W", "Vdd", "Gnd"], nand, "nandInst21", internWires];

nandInst22: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col2", "nandInst21W", "nandInst22W", "Vdd", "Gnd"], nand, "nandInst22", internWires];

nandInst23: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col3", "nandInst22W", "nandInst23W", "Vdd", "Gnd"], nand, "nandInst23", internWires];

nandInst24: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col4", "nandInst23W", "nandInst24W", "Vdd", "Gnd"], nand, "nandInst24", internWires];

nandInst25: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col5", "nandInst24W", "nandInst25W", "Vdd", "Gnd"], nand, "nandInst25", internWires];

nandInst31: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col1", "Row3", "nandInst31W", "Vdd", "Gnd"], nand, "nandInst31", internWires];

nandInst32: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col2", "nandInst31W", "nandInst32W", "Vdd", "Gnd"], nand, "nandInst32", internWires];

nandInst33: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col3", "nandInst32W", "nandInst33W", "Vdd", "Gnd"], nand, "nandInst33", internWires];

nandInst34: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col4", "nandInst33W", "nandInst34W", "Vdd", "Gnd"], nand, "nandInst34", internWires];

nandInst35: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col5", "nandInst34W", "nandInst35W", "Vdd", "Gnd"], nand, "nandInst35", internWires];

nandInst41: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col1", "Row4", "nandInst41W", "Vdd", "Gnd"], nand, "nandInst41", internWires];

nandInst42: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col2", "nandInst41W", "nandInst42W", "Vdd", "Gnd"], nand, "nandInst42", internWires];

nandInst43: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col3", "nandInst42W", "nandInst43W", "Vdd", "Gnd"], nand, "nandInst43", internWires];

nandInst44: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col4", "nandInst43W", "nandInst44W", "Vdd", "Gnd"], nand, "nandInst44", internWires];

nandInst45: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col5", "nandInst44W", "nandInst45W", "Vdd", "Gnd"], nand, "nandInst45", internWires];

nandInst51: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col1", "Row5", "nandInst51W", "Vdd", "Gnd"], nand, "nandInst51", internWires];

nandInst52: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col2", "nandInst51W", "nandInst52W", "Vdd", "Gnd"], nand, "nandInst52", internWires];

nandInst53: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col3", "nandInst52W", "nandInst53W", "Vdd", "Gnd"], nand, "nandInst53", internWires];

nandInst54: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col4", "nandInst53W", "nandInst54W", "Vdd", "Gnd"], nand, "nandInst54", internWires];

nandInst55: CoreClasses.CellInstance ← RTTestUtil.CreateInstance[LIST["Col5", "nandInst54W", "nandInst55W", "Vdd", "Gnd"], nand, "nandInst55", internWires];

SCTest: Core.CellType ← RTTestUtil.CreateRecordCell["SCTest", pubWires, internWires, LIST[nandInst11, nandInst12, nandInst13, nandInst14, nandInst15, nandInst21, nandInst22, nandInst23, nandInst24, nandInst25, nandInst31, nandInst32, nandInst33, nandInst34, nandInst35, nandInst41, nandInst42, nandInst43, nandInst44, nandInst45, nandInst51, nandInst52, nandInst53, nandInst54, nandInst55]];

PWCore.SetGet[nand, libDesign];

PWCore.SetGet[feedthru, libDesign];

PWCore.SetGet[vdd, libDesign];

PWCore.SetGet[gnd, libDesign];

[] ← CoreDirectory.RegisterLibrary[coreLibrary, libName];

[] ← CoreDirectory.Insert[coreLibrary, "NAND", nand, TRUE];

[] ← CoreDirectory.Insert[coreLibrary, "feedthru", feedthru, TRUE];

[] ← CoreDirectory.Insert[coreLibrary, "vdd", vdd, TRUE];

[] ← CoreDirectory.Insert[coreLibrary, "gnd", gnd, TRUE];

CoreProperties.PutCellTypeProp[on: nand, prop: scCutSet, value: $T];

CoreProperties.PutCellTypeProp[on: nand, prop: scCutSet, value: $T];

RETURN [SCTest];

END;

END.