Diff of /branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_Payload_1/FB_Payload/Pool/ClaimNextFreeKey/svnobj [r922] .. [r923]  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,5 +1,5 @@
-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ÐÐ	
+Gx_le
!0…jüoì	Ë?uQAòÖ\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;*:	initData        : DummyData;+:	FBFError        : FBF.ERROR;ÐÐÐEÐÐ	
 ­„ÚÐ-
ÐÐ	
 ­…ÚÐ-ÐÐ	
 ­†ÚÐ-ÐÐ	
@@ -24,11 +24,13 @@
 ­™ÚÐ-ÐÐ	
 ­šÚÐ-ÐÐ	
 ­›ÚÐ-ÐÐ	
-­ÚÐ-!Ð"#ÐEÐÐ	
+­ÚÐ-!Ð"#ÐE	ÐÐ	
 ­jÚÐ-$ÐÐ	
 ­nÚÐ-%ÐÐ	
 ­oÚÐ-&ÐÐ	
 ­ÚÐ-'ÐÐ	
 ­‚ÚÐ-(ÐÐ	
 ­ƒÚÐ-)ÐÐ	
+­ÚÐ-*ÐÐ	
+­œÚÐ-+ÐÐ	
 ­ÚÐ-'
\ No newline at end of file