SimpleInv.mesa
Copyright © 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
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.