Приложение 1

Описание классов

unit shlusobj;

interface

const cNE = 1;

cCPack = 2;

cAG = 3;

cTTPBid = 4;

cTTPSource = 5;

cTTPSink = 6;

cLinkEndSource = 7;

cLinkEndSink = 8;

cCTPSource = 9;

cCTPSink = 10;

type

EQUIP_TYPE = String[63];

EQUIP_NAME = ShortString;

TTP_NAME = String[15];

OID = int64;

Signal_ID = (e0CI,e1CI);

OperationalStateType = (disabled,enabled);

UsageStateType = (idle,busy);

DirType = (sink, source);

TTop = class

public

ID : OID;

TypeObj : Word;

end;

TNE = class (TTop)

public

TypeNE : EQUIP_Type;

Name : EQUIP_Name;

numCPacks : Word;

numAGs : Word;

numLinkEnds : Word;

operationalState : operationalStateType;

end;

TCPack = class (TTop)

public

TypecPack : EQUIP_TYPE;

operationalState :operationalStateType;

end;

TAG = class (TTop)

public

numTTPs : Word;

end;

TTTP = class (TTop)

public

Name : TTP_Name;

linkend_id : OID;

tp_id : OID;

cPack_id : OID;

SignalID : Signal_ID;

operationalState :operationalStateType;

end;

TTTPSink = class (TTTP)

end;

TTTPSource = class (TTTP)

end;

TTTPBid = class (TTop)

public

Name : TTP_Name;

TTPSink_ID : OID;

TTPSource_ID: OID;

end;

TLinkEnd = class (TTop)

public

TTP_ID : OID;

numCTPs : Word;

end;

TLinkEndSink = class (TLinkEnd)

end;

TLinkEndSource = class (TLinkEnd)

end;

TCTP = class (TTop)

public

cPack_ID : OID;

tp_ID : OID;

SignalID : Signal_ID;

operationalState :operationalStateType;

usageState : UsageStateType;

end;

TCTPSink = class (TCTP)

end;

TCTPSource = class (TCTP)

end;

TTrail = class (TTop)

public

aEnd : OID;

zEnd : OID;

SignalID : Signal_ID;

end;

implementation

end.