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

Switch to side-by-side 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,6 +1,5 @@
-Gx_lí
-!0…jüoìÉèˆ1Ùï`k{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_IFInterface L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}!6FUNCTION_BLOCK MessageQueue"VAR_IN_OUT#*	Client 				: Client;$END_VAR%VAR&$	InQueue				: INT;'$	OutIndex			: INT;($	InIndex				: INT;)V	Commands 			: ARRAY[0..15] OF CommandType;*J	Values 				: ARRAY[0..15] OF STRING;+"UniqueIdGenerator,53-POULevel.L{8e575c5b-1d37-49c6-941b-5c0ec7874787}/Standard0 ChildObjectGuids18System.Collections.ArrayList2,AddAttributeSubsequent3boolÐÐ-ÐÐ	E
-ÐÐ
­	ÚÐ-ÐÐ
­"ÚÐ-ÐÐ
­#ÚÐ-ÐÐ
­$ÚÐ-ÐÐ
­5ÚÐ-ÐÐ
­%ÚÐ-ÐÐ
­1ÚÐ-ÐÐ
­2ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­4ÚÐ-ÐÐ
­0ÚÐ-ÐÐ
­,ÚÐ-ÐÐ
­+ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-Ð Ð	E
-ÐÐ
­
-ÚÐ-!ÐÐ
­ÚÐ-"ÐÐ
­ÚÐ-#ÐÐ
­ÚÐ-$ÐÐ
­ÚÐ-%ÐÐ
­ÚÐ-&ÐÐ
­ ÚÐ-'ÐÐ
­!ÚÐ-(ÐÐ
­ÚÐ-)ÐÐ
­ÚÐ-*ÐÐ
­ÚÐ-$ÐÐ
­ÚÐ-Ð+-,Ð-.-/01Ð23­
\ No newline at end of file
+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}
+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
+ÐÐ
­	ÚÐ-ÐÐ
­"ÚÐ-ÐÐ
­#ÚÐ-ÐÐ
­$ÚÐ-ÐÐ
­5ÚÐ-ÐÐ
­%ÚÐ-ÐÐ
­1ÚÐ-ÐÐ
­2ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­4ÚÐ-ÐÐ
­0ÚÐ-ÐÐ
­,ÚÐ-ÐÐ
­+ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­8ÚÐ-ÐÐ
­CÚÐ-ÐÐ
­BÚÐ-ÐÐ
­9ÚÐ-ÐÐ
­7ÚÐ- ÐÐ
­:ÚÐ-!ÐÐ
­<ÚÐ-"ÐÐ
­;ÚÐ-ÐÐ
­@ÚÐ-ÐÐ
­?ÚÐ-Ð#$Ð	E
+ÐÐ
­
+ÚÐ-%ÐÐ
­ÚÐ-&ÐÐ
­ÚÐ-'ÐÐ
­ÚÐ-(ÐÐ
­ÚÐ-)ÐÐ
­6ÚÐ-*ÐÐ
­=ÚÐ-+ÐÐ
­>ÚÐ-"ÐÐ
­ÚÐ-,ÐÐ
­ ÚÐ--ÐÐ
­!ÚÐ-.ÐÐ
­ÚÐ-/ÐÐ
­ÚÐ-0ÐÐ
­ÚÐ-(ÐÐ
­ÚÐ-Ð1-2Ð34-567Ð89­
\ No newline at end of file