File IntStorageDefs.mesa
July 24, 1980 9:48 PM by MN
Last Edited by: McCreight, February 8, 1985 10:55:16 am PST
DIRECTORY
ParserTypeDefs, IntTransDefs;
IntStorageDefs: CEDAR DEFINITIONS =
BEGIN
BBoxRecord: TYPE = RECORD [left,right,bottom,top: INT];
Object: TYPE = LIST OF ObjectRef ← NIL;
ObjectRef: TYPE = REF ANY -- {Call, Box, MBox, Flash, Polygon, Wire, UserOb, UserCmd} -- ← NIL;
Call: TYPE = REF CallRec ← NIL;
CallRec: TYPE = RECORD [
bb: BBoxRecord,
callee: STEntry,
t: IntTransDefs.TransformRecord];
Box: TYPE = REF BoxRec ← NIL;
BoxRec: TYPE = RECORD [
bb: BBoxRecord,
layer: CARDINAL,
length, width: LONG CARDINAL,
center: ParserTypeDefs.Point,
xRot, yRot: INT];
MBox: TYPE = REF MBoxRec ← NIL;
MBoxRec: TYPE = RECORD [ --Manhattan Box
bb: BBoxRecord,
layer: CARDINAL];
Flash: TYPE = REF FlashRec ← NIL;
FlashRec: TYPE = RECORD [
bb: BBoxRecord,
layer: CARDINAL,
diameter: LONG CARDINAL,
center: ParserTypeDefs.Point];
Polygon: TYPE = REF PolygonRec ← NIL;
PolygonRec: TYPE = RECORD [
bb: BBoxRecord,
layer: CARDINAL,
p: ParserTypeDefs.Path];
Wire: TYPE = REF WireRec ← NIL;
WireRec: TYPE = RECORD [
bb: BBoxRecord,
layer: CARDINAL,
width: LONG CARDINAL,
p: ParserTypeDefs.Path];
UserOb: TYPE = REF UserObRec ← NIL;
UserObRec: TYPE = RECORD [
bb: BBoxRecord,
layer: CARDINAL,
data: REF ANY];
UserCmd: TYPE = REF UserCmdRec ← NIL;
UserCmdRec: TYPE = RECORD [
command: [0..9],
data: REF ANY];
Symbol table entries
STEntryList: TYPE = LIST OF STEntry ← NIL;
STEntry: TYPE = REF STEntryRec ← NIL;
STEntryRec: TYPE = RECORD [
bb: BBoxRecord,
bbValid,deleted,expanded,bound,defined: BOOL,
guts: Object,
symNumber: LONG CARDINAL,
calledBy: STEntryList,
spare: REF ANY ← NIL
];
rootSymbol: STEntry;
END.