DIRECTORY BasicTime, BitTwiddling, Core, CoreOps, CoreProperties, CoreRecord, GetMe, IO, Rope, RoseBehavior, RoseBind; SimpleTest: CEDAR PROGRAM IMPORTS CoreOps, CoreRecord = BEGIN OPEN Core, CoreOps, CoreProperties, CoreRecord, RoseBind; DefineInverter: PROC [design: Design] RETURNS [ct: CellType] = { in: Wire _ CreateAtomWire["in"]; out: Wire _ CreateAtomWire["out"]; pw: Wire _ CreateRecordWire["inverterPublic", LIST[in, out]]; rct: RecordCellType _ NEW [RecordCellTypeRec _ [ internalWire: NIL, instances: NIL]]; ct _ NEW [CellTypeRec _ [ name: "Inverter", class: recordCellClass, publicWire: pw ]]; InsertCellType[design, ct]; }; END. ¦SimpleTest.mesa Copyright c 1985 by Xerox Corporation. All rights reversed. Barth, August 1, 1985 2:31:39 pm PDT Spreitzer, September 21, 1985 9:02:04 pm PDT Ê– "cedar" style˜– "Cedar" stylešœ™Jšœ Ïmœ1™