<> <> <> <<>> <<>> <> <<>> <<>> DIRECTORY Core, Ports, Rosemary; Dyn: CEDAR DEFINITIONS ~ BEGIN Data: TYPE ~ ARRAY [0..3) OF LONG CARDINAL; -- type for parametrisation on icon Parameter : TYPE ~ RECORD [ins: NAT, rqlar: CARD, alpha,beta,gama,delta,epsilon: Data]; CellType : TYPE = Core.CellType; Wire: TYPE = Core.Wire; DynaPortState: TYPE = REF DynaPortRec; DynaPortRec: TYPE = RECORD[ rqlar: Ports.LevelSequence, send: Ports.Level, sendpar : Ports.LevelSequence, alpha: Ports.LevelSequence, beta: Ports.LevelSequence, gama: Ports.LevelSequence, delta: Ports.LevelSequence, epsilon: Ports.LevelSequence, load: Ports.Level, ckin: Ports.Level, status: Ports.LevelSequence, ialpha: Ports.LevelSequence, ibeta: Ports.LevelSequence, igama: Ports.LevelSequence, idelta: Ports.LevelSequence, iepsilon: Ports.LevelSequence, RQLAR: NAT, SEND: NAT, SENDPAR: NAT, ALPHA: NAT, BETA: NAT, GAMA: NAT, DELTA: NAT, EPSILON: NAT, LOAD: NAT, CKIN: NAT, STATUS: NAT, IALPHA: NAT, IBETA: NAT, IGAMA: NAT, IDELTA: NAT, IEPSILON: NAT, param: Parameter, countcycle: NAT, labelcycle: NAT, testProcList: LIST OF REF ANY _ NIL ]; DynaPortDef: PROC [param: Parameter] RETURNS [ct: CellType]; DynaPortInit: Rosemary.InitProc; DynaPortEval: Rosemary.EvalProc; END.