Diff of /branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_PrimaryHost/FB_PrimaryHost/PoolManager/allocGroupId/svnobj [r890] .. [r891]  Maximize  Restore

Switch to unified view

a/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_PrimaryHost/FB_PrimaryHost/PoolManager/allocGroupId/svnobj b/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_PrimaryHost/FB_PrimaryHost/PoolManager/allocGroupId/svnobj
1
Gx_l
1
Gx_lD!0…jüoÃJÕû»Áú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
2
!0…jüoQ P毑Pz)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
3
longTagText
h// steal an object from the pool and assign its nameTIF NOT THIS^._groupIDPool.ListIsEmpty THEN²    _itfElement := THIS^._groupIDs.AppendElem( THIS^._groupIDPool.HeadElem ); //Steal it!l    IF __QUERYPOINTER( _itfElement, _fb_groupid ) THENJ        _fb_groupid^.Name := GroupId;X        allocGroupID      REF= _fb_groupid^;
2
longTagText
h// steal an object from the pool and assign its nameTIF NOT THIS^._groupIDPool.ListIsEmpty THEN°    itfElement := THIS^._groupIDs.AppendElem( THIS^._groupIDPool.HeadElem ); //Steal it!j    IF __QUERYPOINTER( itfElement, pfb_groupid ) THENJ        pfb_groupid^.Name := GroupId;X        allocGroupID      REF= pfb_groupid^;
4
    ELSEZ    eError := ERROR.HostNotEnoughBlankGroupIDs;b      allocGroupID REF= GVL_sparkplug.InvalidGroupID;   END_IFELSEX   eError := ERROR.HostNotEnoughBlankGroupIDs;`   allocGroupID REF= GVL_sparkplug.InvalidGroupID;END_IFInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}r// Will try to allocate a new GroupID with the given nameZMETHOD allocGroupID : REFERENCE TO FB_GroupIDVAR_IN_OUT ,    GroupID : WSTRING;!END_VAR"VAR_OUTPUT#&    eError : ERROR;$VAR%6    _itfElement : IElement;&P    _fb_groupid : POINTER TO FB_GroupID;ÐÐÐEÐÐ    
3
    ELSEJ    newObjectFromThinAirPlease := TRUE;   END_IFELSEH   newObjectFromThinAirPlease := TRUE;END_IFDIF newObjectFromThinAirPlease THENb //No object? No worries, we will just create one     pfb_groupid := _GroupIDFactory.Create(itfData := initData, eError => FBFError);2   IF pfb_groupid <> 0 THENV    THIS^._groupIDs.AppendElem(pfb_groupid^);>      pfb_groupid^.Name := GroupId; ž     //No need to add it to the pool... we add it instead when we assign the owner!Z      eError := ERROR.HostNotEnoughBlankGroupIDs;"b      allocGroupID REF= GVL_sparkplug.InvalidGroupID;#Interface$L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}%r// Will try to allocate a new GroupID with the given name&ZMETHOD allocGroupID : REFERENCE TO FB_GroupID'VAR_IN_OUT(,    GroupID : WSTRING;)END_VAR*VAR_OUTPUT+&    eError : ERROR;,VAR-T    itfElement                 : IElement;.n    pfb_groupid                : POINTER TO FB_GroupID;/P initData                   : DummyData;0P   FBFError                   : FBF.ERROR;1F   newObjectFromThinAirPlease : BOOL;ÐÐÐEÐÐ  
5
­%ÚÐ-
ÐÐ  
4
­bÚÐ-
ÐÐ  
6
­&ÚÐ-ÐÐ  
5
­cÚÐ-ÐÐ  
7
­'ÚÐ-ÐÐ  
6
­dÚÐ-ÐÐ  
8
­(ÚÐ-ÐÐ  
7
­eÚÐ-ÐÐ  
9
­*ÚÐ-ÐÐ  
8
­fÚÐ-ÐÐ  
10
­+ÚÐ-ÐÐ  
9
­gÚÐ-ÐÐ  
11
­1ÚÐ-ÐÐ  
10
­hÚÐ-ÐÐ  
12
­2ÚÐ-ÐÐ  
11
­iÚÐ-ÐÐ  
13
­3ÚÐ-ÐÐ  
12
­kÚÐ-ÐÐ  
14
­0ÚÐ-ÐÐ  
13
­lÚÐ-ÐÐ  
15
­-ÚÐ-ÐÐ  
14
­mÚÐ-ÐÐ  
16
­.ÚÐ-ÐÐ  
15
­   ÚÐ-ÐÐ    
17
­/ÚÐ-ÐÐ  
16
­pÚÐ-ÐÐ  
18
­   ÚÐ-ÐÐEÐÐ  
17
­zÚÐ-ÐÐ  
19
­ÚÐ-ÐÐ  
18
­{ÚÐ-ÐÐ  
20
­ÚÐ-ÐÐ  
19
­|ÚÐ-ÐÐ  
21
­ÚÐ-ÐÐ  
20
­}ÚÐ-ÐÐ  
22
­ÚÐ- ÐÐ  
21
­‰ÚÐ-ÐÐ  
23
­ÚÐ-!ÐÐ  
22
­~ÚÐ-ÐÐ  
24
­ÚÐ-"ÐÐ  
23
­ˆÚÐ-ÐÐ  
25
­ ÚÐ-#ÐÐ  
24
­€ÚÐ- ÐÐ  
26
­!ÚÐ-!ÐÐ  
25
­…ÚÐ-ÐÐ  
27
­"ÚÐ-$ÐÐ  
26
­†ÚÐ-!ÐÐ  
28
­#ÚÐ-%ÐÐ  
27
­‡ÚÐ-"ÐÐ  
29
­$ÚÐ-&ÐÐ  
28
­„ÚÐ-ÐÐ  
30
­ÚÐ-!
29
­qÚÐ-ÐÐ  
30
­oÚÐ-Ð#$ÐEÐÐ    
31
­TÚÐ-%ÐÐ  
32
­UÚÐ-&ÐÐ  
33
­VÚÐ-'ÐÐ  
34
­WÚÐ-(ÐÐ  
35
­XÚÐ-)ÐÐ  
36
­YÚÐ-*ÐÐ  
37
­ZÚÐ-+ÐÐ  
38
­[ÚÐ-)ÐÐ  
39
­\ÚÐ-,ÐÐ  
40
­]ÚÐ--ÐÐ  
41
­^ÚÐ-.ÐÐ  
42
­_ÚÐ-/ÐÐ  
43
­`ÚÐ-0ÐÐ  
44
­aÚÐ-1ÐÐ  
45
­ÚÐ-)