<> <> <> <> DIRECTORY BasicTime, BitTwiddling, Core, CoreOps, CoreProperties, CoreUnspecified, GetMe, IO, Rope, RoseBehavior, RoseBind; SimpleInv: CEDAR PROGRAM IMPORTS CoreOps, CoreUnspecified = BEGIN OPEN Core, CoreOps, CoreProperties, CoreUnspecified, RoseBind; DefineInverter: PROC [design: Design] RETURNS [ct: CellType] = { in: Wire _ CreateAtomWire["in"]; out: Wire _ CreateAtomWire["out"]; pw: Wire _ CreateRecordWire[NIL, LIST[in, out]]; ct _ NEW [CellTypeRec _ [ name: "SimpleInv", publicWire: pw, class: unspecifiedCellClass ]]; InsertCellType[design, ct]; }; END.