Diff of /branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_Payload_1/FB_Payload/Pool/ClaimNextFreeColumn/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/ClaimNextFreeColumn/svnobj
+++ b/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_Payload_1/FB_Payload/Pool/ClaimNextFreeColumn/svnobj
@@ -1,20 +1,37 @@
-Gx_l!0…jüovÊ3ÑåpÔ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 ) THENT        ClaimNextFreeColumn REF= pObject^;d        // ClaimNextFreeKey.InitializeStructure();    ELSEn        eError := ERROR.PayloadNotACollectionOfStorage;    END_IFELSEn    eError := ERROR.PayloadNotEnoughDataSetColumnsPool;END_IFInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}†METHOD ClaimNextFreeColumn : REFERENCE TO LinkedListWStringElement;VAR_OUTPUT 	eError : ERROR;END_VARVAR^	pObject : POINTER TO LinkedListWStringElement;ÐÐÐEÐÐ	
-­YÚÐ-
ÐÐ	
-­ZÚÐ-ÐÐ	
-­[ÚÐ-ÐÐ	
-­\ÚÐ-ÐÐ	
-­]ÚÐ-ÐÐ	
-­^ÚÐ-ÐÐ	
-­_ÚÐ-ÐÐ	
-­`ÚÐ-ÐÐ	
-­aÚÐ-ÐÐ	
-­bÚÐ-ÐÐ	
-­ÚÐ-ÐÐEÐÐ	
-­ÚÐ-ÐÐ	
-­+ÚÐ-ÐÐ	
-­,ÚÐ-ÐÐ	
-­cÚÐ-ÐÐ	
-­dÚÐ-ÐÐ	
-­eÚÐ-ÐÐ	
-­ÚÐ-
\ No newline at end of file
+Gx_l’
!0…jüo
+ƒ|-—QäøTž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 pooljColumnsPool.ItterateNext( itfElement => _COL_Element,N                          HasNext => );2IF _COL_Element <> 0 THENH    IF __QUERYPOINTER( _COL_Element,N                         pObject ) THENT        ClaimNextFreeColumn REF= pObject^;^        ClaimNextFreeColumn.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 THENN	    ClaimNextFreeColumn REF= pObject^;¸		//Better add it to the Pool and "itterate" it, so future generations of payload can use itx		ColumnsPool.AppendElem(itfElement := ClaimNextFreeColumn); :		ColumnsPool.ItterateNext();!END_IF"Interface#L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}$†METHOD ClaimNextFreeColumn : REFERENCE TO LinkedListWStringElement;%VAR_OUTPUT& 	eError : ERROR;'END_VAR(VAR)^	pObject : POINTER TO LinkedListWStringElement;*:	initData        : DummyData;+:	FBFError        : FBF.ERROR;ÐÐÐEÐÐ	
+­iÚÐ-
ÐÐ	
+­jÚÐ-ÐÐ	
+­kÚÐ-ÐÐ	
+­lÚÐ-ÐÐ	
+­mÚÐ-ÐÐ	
+­nÚÐ-ÐÐ	
+­oÚÐ-ÐÐ	
+­pÚÐ-ÐÐ	
+­qÚÐ-ÐÐ	
+­rÚÐ-ÐÐ	
+­sÚÐ-ÐÐ	
+­tÚÐ-ÐÐ	
+­uÚÐ-ÐÐ	
+­vÚÐ-ÐÐ	
+­wÚÐ-ÐÐ	
+­xÚÐ-ÐÐ	
+­yÚÐ-ÐÐ	
+­zÚÐ-ÐÐ	
+­{ÚÐ-ÐÐ	
+­|ÚÐ-ÐÐ	
+­}ÚÐ- ÐÐ	
+­~ÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­€ÚÐ-ÐÐ	
+­fÚÐ-!Ð"#ÐE	ÐÐ	
+­ÚÐ-$ÐÐ	
+­+ÚÐ-%ÐÐ	
+­,ÚÐ-&ÐÐ	
+­cÚÐ-'ÐÐ	
+­dÚÐ-(ÐÐ	
+­eÚÐ-)ÐÐ	
+­‚ÚÐ-*ÐÐ	
+­ÚÐ-+ÐÐ	
+­ÚÐ-'
\ No newline at end of file