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

Switch to side-by-side view

--- a/branches/PackMLState/Display_Escape_PLC/Plc Logic/Application/Function Blocks/MessageQueue/svnobj
+++ b/branches/PackMLState/Display_Escape_PLC/Plc Logic/Application/Function Blocks/MessageQueue/svnobj
@@ -1,4 +1,6 @@
-Gx_l'
!0…jüoõµŽx"÷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}
-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"UniqueIdGenerator2923POULevel4L{8e575c5b-1d37-49c6-941b-5c0ec7874787}5Standard6 ChildObjectGuids78System.Collections.ArrayList8,AddAttributeSubsequent9boolÐÐ-ÐÐ	E
-ÐÐ
­6ÚÐ-ÐÐ
­7ÚÐ-ÐÐ
­8ÚÐ-ÐÐ
­9ÚÐ-ÐÐ
­:ÚÐ-ÐÐ
­;ÚÐ-ÐÐ
­<ÚÐ-ÐÐ
­=ÚÐ-ÐÐ
­>ÚÐ-ÐÐ
­?ÚÐ-ÐÐ
­@ÚÐ-ÐÐ
­AÚÐ-ÐÐ
­BÚÐ-ÐÐ
­CÚÐ-ÐÐ
­DÚÐ-ÐÐ
­EÚÐ-ÐÐ
­FÚÐ-ÐÐ
­GÚÐ-ÐÐ
­HÚÐ-ÐÐ
­IÚÐ-ÐÐ
­JÚÐ- ÐÐ
­KÚÐ-!ÐÐ
­LÚÐ-"ÐÐ
­MÚÐ-ÐÐ
­NÚÐ-ÐÐ
­ÚÐ-Ð#$Ð	E
-ÐÐ
­OÚÐ-%ÐÐ
­PÚÐ-&ÐÐ
­QÚÐ-'ÐÐ
­RÚÐ-(ÐÐ
­SÚÐ-)ÐÐ
­TÚÐ-*ÐÐ
­UÚÐ-+ÐÐ
­VÚÐ-"ÐÐ
­WÚÐ-,ÐÐ
­XÚÐ--ÐÐ
­YÚÐ-.ÐÐ
­ZÚÐ-/ÐÐ
­[ÚÐ-0ÐÐ
­\ÚÐ-(ÐÐ
­ÚÐ-Ð1-2Ð34-567Ð89­+Gx_l!0…jüoŠ
+h,yYԜ0)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}
+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 
+	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;191<POULevel=L{8e575c5b-1d37-49c6-941b-5c0ec7874787}>Standard? ChildObjectGuids@8System.Collections.ArrayListA,AddAttributeSubsequentBboolÐÐ-ÐÐ	E
+ÐÐ
­–ÚÐ-ÐÐ
­—ÚÐ-ÐÐ
­˜ÚÐ-ÐÐ
­™ÚÐ-ÐÐ
­šÚÐ-ÐÐ
­›ÚÐ-ÐÐ
­œÚÐ-ÐÐ
­ÚÐ-ÐÐ
­žÚÐ-ÐÐ
­ŸÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­¡ÚÐ-ÐÐ
­¢ÚÐ-ÐÐ
­£ÚÐ-ÐÐ
­¤ÚÐ-ÐÐ
­¥ÚÐ-ÐÐ
­¦ÚÐ- ÐÐ
­§ÚÐ-!ÐÐ
­¨ÚÐ-"ÐÐ
­©ÚÐ-#ÐÐ
­ªÚÐ-$ÐÐ
­«ÚÐ-%ÐÐ
­¬ÚÐ-&ÐÐ
­­ÚÐ-'ÐÐ
­ÚÐ-(Ð)*Ð	E
+ÐÐ
­®ÚÐ-+ÐÐ
­¯ÚÐ-,ÐÐ
­°ÚÐ--ÐÐ
­±ÚÐ-.ÐÐ
­²ÚÐ-/ÐÐ
­³ÚÐ-0ÐÐ
­´ÚÐ-ÐÐ
­µÚÐ-1ÐÐ
­¶ÚÐ-2ÐÐ
­·ÚÐ-ÐÐ
­¸ÚÐ-3ÐÐ
­¹ÚÐ-4ÐÐ
­ºÚÐ-ÐÐ
­»ÚÐ-5ÐÐ
­¼ÚÐ-6ÐÐ
­½ÚÐ-7ÐÐ
­¾ÚÐ-8ÐÐ
­¿ÚÐ-9ÐÐ
­ÚÐ-.Ð:-;Ð<=->?@ÐAB­