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