DIRECTORY BasicTime, BitTwiddling, Core, CoreClasses, CoreOps, CoreProperties, GetMe, IO, Rope, RoseBehavior, RoseBind; SimpleInv: CEDAR PROGRAM IMPORTS CoreClasses, CoreOps, CoreProperties = BEGIN OPEN Core, CoreClasses, CoreOps, CoreProperties, RoseBind; DefineInverter: PROC RETURNS [ct: CellType] = { in: Wire _ CreateAtomWire["in"]; out: Wire _ CreateAtomWire["out"]; pw: Wire _ CreateRecordWire[LIST[in, out]]; ct _ NEW [CellTypeRec _ [ public: pw, class: unspecifiedCellClass, properties: Props[[nameProp, "SimpleInv"]] ]]; }; END. ¤SimpleInv.mesa Copyright c 1985 by Xerox Corporation. All rights reversed. Barth, August 1, 1985 2:31:39 pm PDT Spreitzer, November 18, 1985 10:17:25 pm PST Ê÷– "cedar" style˜– "Cedar" stylešœ™Jšœ Ïmœ1™