ReadConnection:
CEDAR
DEFINITIONS =
BEGIN
LORA: TYPE = LIST OF REF ANY;
ReadConct:
PROCEDURE [file: Rope.
ROPE,
EnumHeader: EnumHeaderProc,
EnumPorts: EnumPortsProc,
EnumNets: EnumNetsProc,
EnumPortNets: EnumPortNetsProc,
EnumComps: EnumCompsProc];
Generation: TYPE = {Unknown, Designer, Program};
EnumNetsProc: TYPE = PROCEDURE [netName: Rope.ROPE, generation: Generation];
pinNet:
TYPE = RECORD [
pinIndex: CARDINAL,
pinName, netName: Rope.ROPE];
EnumCompsProc: TYPE = PROCEDURE [instName, typeName: Rope.ROPE, pinNetList: LIST OF pinNet];
Direction: TYPE = {Unknown, Input, Output, InputOutput};
portEc:
TYPE =
RECORD [
portIndex: CARDINAL,
portName, ecName: Rope.ROPE,
portDir: Direction];
EnumPortsProc: TYPE = PROCEDURE [portList: LIST OF portEc];
EnumHeaderProc: TYPE = PROCEDURE [key: Rope.ROPE, val1, val2: Rope.ROPE ← NIL];
EnumPortNetsProc: TYPE = PROCEDURE [portName, netName: Rope.ROPE];
EchoHeader: EnumHeaderProc;
EchoPorts: EnumPortsProc;
EchoComps: EnumCompsProc;
EchoNets: EnumNetsProc;
EchoPortNets: EnumPortNetsProc;