Diff of /branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_Payload_1/FB_Payload/Pool/ClaimNextFreeKey/svnobj [r919] .. [r920]  Maximize  Restore

Switch to side-by-side view

--- a/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_Payload_1/FB_Payload/Pool/ClaimNextFreeKey/svnobj
+++ b/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_Payload_1/FB_Payload/Pool/ClaimNextFreeKey/svnobj
@@ -1,20 +1,34 @@
-Gx_lã!0…jüoêrÕ„ÑâÿSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
-longTagText
2IF _COL_Element <> 0 THENH    IF __QUERYPOINTER( _COL_Element,N                         pObject ) THENN        ClaimNextFreeKey REF= pObject^;d        // ClaimNextFreeKey.InitializeStructure();    ELSEn        eError := ERROR.PayloadNotACollectionOfStorage;    END_IFELSEZ    eError := ERROR.PayloadNotEnoughKeysPool;END_IFInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}~METHOD ClaimNextFreeKey : REFERENCE TO LinkedListWStringElementVAR_OUTPUT&    eError : ERROR;END_VARVAR^	pObject : POINTER TO LinkedListWStringElement;ÐÐÐEÐÐ	
-­wÚÐ-
ÐÐ	
-­xÚÐ-ÐÐ	
-­yÚÐ-ÐÐ	
-­zÚÐ-ÐÐ	
-­{ÚÐ-ÐÐ	
-­|ÚÐ-ÐÐ	
-­}ÚÐ-ÐÐ	
-­~ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­€ÚÐ-ÐÐ	
-­ÚÐ-ÐÐEÐÐ	
-­jÚÐ-ÐÐ	
-­nÚÐ-ÐÐ	
-­oÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­‚ÚÐ-ÐÐ	
-­ƒÚÐ-ÐÐ	
-­ÚÐ-
\ No newline at end of file
+Gx_l½!0…jüot	Ät!î0À•System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
+longTagText
\//Try and get an Object from the existing pooldKeysPool.ItterateNext( itfElement => _COL_Element,N                          HasNext => );2IF _COL_Element <> 0 THENH    IF __QUERYPOINTER( _COL_Element,N                         pObject ) THENN        ClaimNextFreeKey REF= pObject^;X        ClaimNextFreeKey.WStringValue := "";    ELSEn        eError := ERROR.PayloadNotACollectionOfStorage;    END_IFELSEl	//No free object? No worries, we will just create one–	pObject := WStringFactory.Create(itfData := initData, eError => FBFError);*	IF pObject <> 0 THENH	    ClaimNextFreeKey REF= pObject^;¸		//Better add it to the Pool and "itterate" it, so future generations of payload can use itl		KeysPool.AppendElem(itfElement := ClaimNextFreeKey); 4		KeysPool.ItterateNext();!END_IF"Interface#L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}$~METHOD ClaimNextFreeKey : REFERENCE TO LinkedListWStringElement%VAR_OUTPUT&&    eError : ERROR;'END_VAR(VAR)^	pObject : POINTER TO LinkedListWStringElement;ÐÐÐEÐÐ	
+­„ÚÐ-
ÐÐ	
+­…ÚÐ-ÐÐ	
+­†ÚÐ-ÐÐ	
+­‡ÚÐ-ÐÐ	
+­ˆÚÐ-ÐÐ	
+­‰ÚÐ-ÐÐ	
+­ŠÚÐ-ÐÐ	
+­‹ÚÐ-ÐÐ	
+­ŒÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­ŽÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­‘ÚÐ-ÐÐ	
+­’ÚÐ-ÐÐ	
+­“ÚÐ-ÐÐ	
+­”ÚÐ-ÐÐ	
+­•ÚÐ-ÐÐ	
+­–ÚÐ-ÐÐ	
+­—ÚÐ-ÐÐ	
+­˜ÚÐ- ÐÐ	
+­™ÚÐ-ÐÐ	
+­šÚÐ-ÐÐ	
+­›ÚÐ-ÐÐ	
+­ÚÐ-!Ð"#ÐEÐÐ	
+­jÚÐ-$ÐÐ	
+­nÚÐ-%ÐÐ	
+­oÚÐ-&ÐÐ	
+­ÚÐ-'ÐÐ	
+­‚ÚÐ-(ÐÐ	
+­ƒÚÐ-)ÐÐ	
+­ÚÐ-'
\ No newline at end of file