Diff of /branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_PrimaryHost/FB_PrimaryHost/PoolManager/allocEdgetoGroupId/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/allocEdgetoGroupId/svnobj b/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_PrimaryHost/FB_PrimaryHost/PoolManager/allocEdgetoGroupId/svnobj
1
Gx_lL!0…jüo“)¨N‘¸Z€Þ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
1
Gx_lN!0…jüoC8£É#™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
longTagText
¤// steal an object from the pool, register it with the groupID and assign its nameNIF NOT THIS^._edgePool.ListIsEmpty THENà    _itfElement := THIS^._edgePool.HeadElem.RemoveElem(); //Remove it, but now it is not part of a group anymorer    IF __QUERYPOINTER( _itfElement, _fb_RemoteEdge ) THENŠ        _fb_RemoteEdge^( itfGroupID := itfGroupID,  Name := EdgeId );`        allocEdgetoGroupId REF= _fb_RemoteEdge^;
2
longTagText
¤// steal an object from the pool, register it with the groupID and assign its nameNIF NOT THIS^._edgePool.ListIsEmpty THENÞ    itfElement := THIS^._edgePool.HeadElem.RemoveElem(); //Remove it, but now it is not part of a group anymorep    IF __QUERYPOINTER( itfElement, pfb_RemoteEdge ) THENŠ        pfb_RemoteEdge^( itfGroupID := itfGroupID,  Name := EdgeId );`        allocEdgetoGroupId REF= pfb_RemoteEdge^;
3
    ELSET    eError := ERROR.HostNotEnoughBlankEdges; END_IFELSER   eError := ERROR.HostNotEnoughBlankEdges;END_IFInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}p// Will try to allocate a new EdgeId with the given namelMETHOD allocEdgetoGroupId : REFERENCE TO FB_RemoteEdgeVAR_IN_OUT2    EdgeId     : WSTRING; 4    itfGroupID : IGroupID;!END_VAR"VAR_OUTPUT#&    eError : ERROR;$VAR%<    _itfElement    : IElement;&\    _fb_RemoteEdge : POINTER TO FB_RemoteEdge;ÐÐÐE
ÐÐ  
3
    ELSEJ    newObjectFromThinAirPlease := TRUE;   END_IFELSEH   newObjectFromThinAirPlease := TRUE;END_IFDIF newObjectFromThinAirPlease THENb //No metric? No worries, we will just create one     pfb_RemoteEdge := _EdgeFactory.Create(itfData := initData, eError => FBFError);8   IF pfb_RemoteEdge <> 0 THENž     //No need to add it to the pool... we add it instead when we assign the ownerT      eError := ERROR.HostNotEnoughBlankEdges; Interface!L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}"p// Will try to allocate a new EdgeId with the given name#lMETHOD allocEdgetoGroupId : REFERENCE TO FB_RemoteEdge$VAR_IN_OUT%2    EdgeId     : WSTRING;&4    itfGroupID : IGroupID;'END_VAR(VAR_OUTPUT)&    eError : ERROR;*VAR+T    itfElement                 : IElement;,t    pfb_RemoteEdge             : POINTER TO FB_RemoteEdge;-P initData                   : DummyData;.P   FBFError                   : FBF.ERROR;/F   newObjectFromThinAirPlease : BOOL;ÐÐÐEÐÐ  
4
­%ÚÐ-
ÐÐ  
4
­zÚÐ-
ÐÐ  
5
­&ÚÐ-ÐÐ  
5
­{ÚÐ-ÐÐ  
6
­'ÚÐ-ÐÐ  
6
­|ÚÐ-ÐÐ  
7
­(ÚÐ-ÐÐ  
7
­}ÚÐ-ÐÐ  
8
­*ÚÐ-ÐÐ  
8
­~ÚÐ-ÐÐ  
9
­,ÚÐ-ÐÐ  
9
­ÚÐ-ÐÐ  
10
­-ÚÐ-ÐÐ  
10
­ÚÐ-ÐÐ  
11
­2ÚÐ-ÐÐ  
11
­ÚÐ-ÐÐ  
12
­3ÚÐ-ÐÐ  
12
­ƒÚÐ-ÐÐ  
13
­.ÚÐ-ÐÐ  
13
­ÚÐ-ÐÐ  
14
­0ÚÐ-ÐÐ  
14
­ÚÐ-ÐÐ  
15
­1ÚÐ-ÐÐ  
15
­ÚÐ-ÐÐ  
16
­ÚÐ-ÐÐE
ÐÐ  
16
­ÚÐ-ÐÐ  
17
­ˆÚÐ-ÐÐ  
18
­‰ÚÐ-ÐÐ  
19
­ŠÚÐ-ÐÐ  
20
­‹ÚÐ-ÐÐ  
21
­šÚÐ-ÐÐ  
22
­ÚÐ-ÐÐ  
23
­ŽÚÐ-ÐÐ  
24
­›ÚÐ-ÐÐ  
25
­œÚÐ-ÐÐ  
26
­’ÚÐ-ÐÐ  
27
­“ÚÐ-ÐÐ  
28
­”ÚÐ-ÐÐ  
29
­AÚÐ-Ð !ÐEÐÐ    
17
­/ÚÐ-ÐÐ  
30
­nÚÐ-"ÐÐ  
18
­ÚÐ-ÐÐ  
31
­oÚÐ-#ÐÐ  
32
­pÚÐ-$ÐÐ  
19
­ÚÐ-ÐÐ  
33
­qÚÐ-%ÐÐ  
20
­ÚÐ-ÐÐ  
34
­rÚÐ-&ÐÐ  
21
­ÚÐ- ÐÐ  
35
­sÚÐ-'ÐÐ  
36
­tÚÐ-(ÐÐ  
22
­ÚÐ-!ÐÐ  
37
­uÚÐ-)ÐÐ  
23
­ÚÐ-"ÐÐ  
38
­vÚÐ-'ÐÐ  
24
­ ÚÐ-#ÐÐ  
39
­wÚÐ-*ÐÐ  
40
­xÚÐ-+ÐÐ  
25
­!ÚÐ-!ÐÐ  
41
­yÚÐ-,ÐÐ  
26
­"ÚÐ-$ÐÐ  
42
­˜ÚÐ--ÐÐ  
27
­#ÚÐ-%ÐÐ  
43
­ÚÐ-.ÐÐ  
28
­$ÚÐ-&ÐÐ  
44
­ÚÐ-/ÐÐ  
29
­ÚÐ-!
45
­ÚÐ-'