EUtils:
CEDAR
DEFINITIONS
IMPORTS PW =
BEGIN
ROPE: TYPE = Rope.ROPE;
Position: TYPE = {Top, Center, Bottom};
RegDescr: TYPE = REF RegDescrRec;
RegDescrRec:
TYPE =
RECORD [
inListOb: LIST OF ROPE ← NIL, -- "r", "c", "k", "ap", "bs", "opL", "opR", or "top"
out: ROPE ← NIL, -- "r", "c", "k", "ap", "bs", "opL", "opR", or "down"
interruptBuses: LIST OF ROPE ← NIL, -- "rBus", "cBus", "kBus", "apBus", "bsBus", "opLBus", "opRBus", "downBus", "topBus"
ctrlListOb: PW.ListOb ← NIL,
cutTopBot: BOOL ← FALSE,
fillerPos: Position ← Center];
QadCR, QuickandDirtyChannelRouter: PUBLIC PROC [design: CD.Design, left, right: PW.ObPtr, width: INT, useGnd: BOOL ← TRUE] RETURNS [channel: PW.ObPtr];
TreeRouter: PUBLIC PROC [design: CD.Design, template: PW.ObPtr, height: INT] RETURNS [channel: PW.ObPtr];
ContactFiller: PUBLIC PROC [design: CD.Design, ctrl, data: PW.ObPtr, selectNameProc: PW.SelectNamesProc ← PW.KeepAll] RETURNS [filler: PW.ObPtr];
CtrlFiller: PUBLIC PROC [design: CD.Design, ctrl, data: PW.ObPtr, selectNameProc: PW.SelectNamesProc ← PW.KeepAll] RETURNS [filler: PW.ObPtr];
Assemble: PUBLIC PROC [design: CD.Design, ctrl, data: PW.ObPtr, selectNameProc: PW.SelectNamesProc ← PW.KeepAll, fillerPos: Position ← Center] RETURNS [hSlice: PW.ObPtr];
MakeRegDP: PUBLIC PROC [design: CD.Design, regD: RegDescr] RETURNS [reg: PW.ObPtr];
MakeReg: PUBLIC PROC [design: CD.Design, regD: RegDescr] RETURNS [reg: PW.ObPtr];
MakeTstDriver: PUBLIC PROC [design: CD.Design, in: ROPE, out: ROPE, ctrlListOb: PW.ListOb ← NIL] RETURNS [tstDriver: PW.ObPtr];
MakeDBus: PUBLIC PROC [design: CD.Design, in: ROPE, dStAd: INT] RETURNS [dBus: PW.ObPtr];
MakeRegWithDBus: PUBLIC PROC [design: CD.Design, regD: RegDescr, dStAd: INT] RETURNS [both: PW.ObPtr];
InitMakeReg: PUBLIC PROC [design: CD.Design];
END.