Diff of /branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/MessageQueue/svnobj [r30] .. [r31]  Maximize  Restore

Switch to unified view

a/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/MessageQueue/svnobj b/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/MessageQueue/svnobj
1
Gx_l'
!0…jüoîõÁÐSOSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument  L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
1
Gx_l9!0…jüoˆ
2
ÑwUÌåSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument  L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
2
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagText&IF InQueue > 0 THENB   IF NOT Client.bReadyFromPLC THENX    Client.sCommandFromPLC:= Values[OutIndex];\    Client.iCommandFromPLC:= Commands[OutIndex];<    Client.bReadyFromPLC:= TRUE;    0    IF OutIndex >= 15 THEN&       OutIndex := 0;          ELSE      <       OutIndex := OutIndex + 1;        END_IF         2    InQueue := InQueue - 1;   END_IF   END_IFRTimeoutTimer(IN := NewMessage,PT:=T#30S); $IF NewMessage THEN!*   NewMessage := FALSE;" #Interface$L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}%6FUNCTION_BLOCK MessageQueue&VAR_IN_OUT'* Client           : Client;(END_VAR)VAR**   NewMessage         : BOOL;+*   TimeoutTimer      : TOF;,$ InQueue          : INT;-$ OutIndex         : INT;.$ InIndex          : INT;/V Commands        : ARRAY[0..15] OF CommandType;0J Values           : ARRAY[0..15] OF STRING;1"UniqueIdGenerator2673POULevel4L{8e575c5b-1d37-49c6-941b-5c0ec7874787}5Standard6 ChildObjectGuids78System.Collections.ArrayList8,AddAttributeSubsequent9boolÐÐ-ÐÐ    E
3
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagText&IF InQueue > 0 THEN   . IF TimeoutTimer.Q THEND    IF NOT Client.bReadyFromPLC THENZ       Client.sCommandFromPLC:= Values[OutIndex];^       Client.iCommandFromPLC:= Commands[OutIndex];>       Client.bReadyFromPLC:= TRUE;       2       IF OutIndex >= 15 THEN(          OutIndex := 0;             ELSE      >          OutIndex := OutIndex + 1;           END_IF         4       InQueue := InQueue - 1;(         Timeout := FALSE;      END_IF 
4
    ELSE!&       Timeout := TRUE;" END_IF#ELSE$&      Timeout := TRUE;   %END_IF&'NTimeoutTimer(IN := Timeout,PT := T#5S);(bDuplicationTimeoutTimer(IN := Timeout,PT:=T#30S);)Interface*L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}+6FUNCTION_BLOCK MessageQueue,VAR_IN_OUT-* Client           : Client;.END_VAR/VAR0*   NewMessage         : BOOL;1@   DuplicationTimeoutTimer    : TON;2: DuplicationTimeout         : BOOL;3*   TimeoutTimer      : TON;4& Timeout          : BOOL;5$   InQueue          : INT;6$ OutIndex         : INT;7$ InIndex          : INT;8V Commands        : ARRAY[0..15] OF CommandType;9J Values           : ARRAY[0..15] OF STRING;:"UniqueIdGenerator;99<POULevel=L{8e575c5b-1d37-49c6-941b-5c0ec7874787}>Standard? ChildObjectGuids@8System.Collections.ArrayListA,AddAttributeSubsequentBboolÐÐ-ÐÐ    E
3
ÐÐ
­   ÚÐ-ÐÐ
­"ÚÐ-ÐÐ
­#ÚÐ-ÐÐ
­$ÚÐ-ÐÐ
­5ÚÐ-ÐÐ
­%ÚÐ-ÐÐ
­1ÚÐ-ÐÐ
­2ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­4ÚÐ-ÐÐ
­0ÚÐ-ÐÐ
­,ÚÐ-ÐÐ
­+ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­8ÚÐ-ÐÐ
­CÚÐ-ÐÐ
­BÚÐ-ÐÐ
­9ÚÐ-ÐÐ
­7ÚÐ- ÐÐ
­:ÚÐ-!ÐÐ
­<ÚÐ-"ÐÐ
­;ÚÐ-ÐÐ
­@ÚÐ-ÐÐ
­?ÚÐ-Ð#$Ð E
5
ÐÐ
­   ÚÐ-ÐÐ
­DÚÐ-ÐÐ
­GÚÐ-ÐÐ
­JÚÐ-ÐÐ
­KÚÐ-ÐÐ
­LÚÐ-ÐÐ
­MÚÐ-ÐÐ
­NÚÐ-ÐÐ
­OÚÐ-ÐÐ
­PÚÐ-ÐÐ
­QÚÐ-ÐÐ
­RÚÐ-ÐÐ
­SÚÐ-ÐÐ
­TÚÐ-ÐÐ
­YÚÐ-ÐÐ
­HÚÐ-ÐÐ
­WÚÐ- ÐÐ
­ZÚÐ-!ÐÐ
­IÚÐ-"ÐÐ
­`ÚÐ-#ÐÐ
­cÚÐ-$ÐÐ
­ÚÐ-%ÐÐ
­8ÚÐ-&ÐÐ
­CÚÐ-'ÐÐ
­EÚÐ-(ÐÐ
­?ÚÐ-&Ð)*Ð E
4
ÐÐ
­
6
ÐÐ
­
5
ÚÐ-%ÐÐ
­ÚÐ-&ÐÐ
­ÚÐ-'ÐÐ
­ÚÐ-(ÐÐ
­ÚÐ-)ÐÐ
­6ÚÐ-*ÐÐ
­=ÚÐ-+ÐÐ
­>ÚÐ-"ÐÐ
­ÚÐ-,ÐÐ
­ ÚÐ--ÐÐ
­!ÚÐ-.ÐÐ
­ÚÐ-/ÐÐ
­ÚÐ-0ÐÐ
­ÚÐ-(ÐÐ
­ÚÐ-Ð1-2Ð34-567Ð89­
7
ÚÐ-+ÐÐ
­ÚÐ-,ÐÐ
­ÚÐ--ÐÐ
­ÚÐ-.ÐÐ
­ÚÐ-/ÐÐ
­6ÚÐ-0ÐÐ
­]ÚÐ-ÐÐ
­^ÚÐ-1ÐÐ
­[ÚÐ-2ÐÐ
­\ÚÐ-ÐÐ
­=ÚÐ-3ÐÐ
­UÚÐ-4ÐÐ
­>ÚÐ-ÐÐ
­ÚÐ-5ÐÐ
­ ÚÐ-6ÐÐ
­!ÚÐ-7ÐÐ
­ÚÐ-8ÐÐ
­ÚÐ-9ÐÐ
­ÚÐ-.ÐÐ
­ÚÐ-&Ð:-;Ð<=->?@ÐAB­