CoreTransistor.mesa 
Copyright © 1985 by Xerox Corporation. All rights reserved.
Barth, October 2, 1985 9:35:04 am PDT
Serlet, July 11, 1985 3:49:37 pm PDT
DIRECTORY Core;
CoreTransistor: CEDAR DEFINITIONS = BEGIN OPEN Core;
Theory
This interface defines the basic component of the system.
Practice
transistorCellClass: CellClass;
Transistor: TYPE = REF TransistorRec;
TransistorRec: TYPE = RECORD [
type: TransistorType ← nE,
length: NAT ← 2,
width: NAT ← 4];
TransistorType: TYPE = {nE, pE, nD};
Public wires: gate, ch1, ch2, IF args.type=pE THEN Vdd ELSE Gnd
Create: PROC [args: TransistorRec] RETURNS [cellType: CellType];
END.