BooleCore.mesa 
Copyright Ó 1985, 1986, 1987 by Xerox Corporation. All rights reversed.
Created by Bertrand Serlet August 13, 1985 5:38:56 pm PDT
Bertrand Serlet April 2, 1987 9:34:48 pm PST
Louis Monier April 8, 1986 11:54:49 am PST
DIRECTORY
CD USING [Design], Core, Boole, CoreCreate USING [PA, WR], Rope USING [ROPE];
BooleCore: CEDAR DEFINITIONS = BEGIN
Common Types
Expression: TYPE = Boole.Expression;
Variable: TYPE = Boole.Variable;
ROPE: TYPE = Rope.ROPE;
CellType: TYPE = Core.CellType;
Properties: TYPE = Core.Properties;
Wire: TYPE = Core.Wire;
Wires: TYPE = Core.Wires;
WR: TYPE = CoreCreate.WR;
PA: TYPE = CoreCreate.PA;
Connection with Core
EqualInt: PROC [wire: Wire, int: INT] RETURNS [expr: Expression];
Returns the expression so that the atomic wires of wire express in binary the quantity int.
Generation of Cascode Layout (Alps style)
InputRec: TYPE = RECORD [
input: WR, driver: CellType, pas: LIST OF PANIL
];
The public of driver must contain an atomic wire named "Input", and a structured wire named "Output", with 2 components named "Plus" and "Minus". The layout of the driver must be a cell of BooleLibrary. Inter driver communication (such as "Gnd" or "Vdd") should not appear in pas. In effect, pas should only contain the input-dependent bindings (such as "Clock", "PhiA").
OutputRec: TYPE = RECORD [
output: WR, expr: Expression, driver: CellType, pas: LIST OF PANIL
];
The public of driver must contain a structured wire named "Input", with 2 components named "Plus" and "Minus", and an atomic wire named "Output". The layout of the driver must be a cell of BooleLibrary. Inter driver communication (such as "Gnd" or "Vdd") should not appear in pas. In effect, pas should only contain the output-dependent bindings (such as "Clock", "PhiA").
expr variables should be wires (of type Core.Wire) found in inputs.
Inputs: TYPE = LIST OF InputRec;
Outputs: TYPE = LIST OF OutputRec;
AlpsCell: PROC [public: Wire, inputs: Inputs, outputs: Outputs, name: ROPENIL, props: Properties ← NIL] RETURNS [recordCell: CellType];
The returned recordCell contains all the given drivers as instances, plus a bunch of instances of class alpsClass, that are simulable with Rosemary.
Public should contain two wires called "Gnd" and "Vdd" that are the power supply.
Order of inputs gives the order of the input variables (left to right).
Order of outputs gives the order of the outputs (bottom to top).
The property $ContactPolyMetal2 (if present in props) is a REF INT specifying how often the layout has poly-metal2 contacts (in line units).
GetCellLibrary: PROC RETURNS [cellLibrary: CD.Design];
Read from BooleLibrary.dale
GetCellLibraryCell: PROC [name: ROPE] RETURNS [CellType ← NIL];
Read a schematics from BooleLibrary.dale
Suffix ".sch" is added by GetCellLibraryCell.
END.