[r891]: / branches / develop / mqttsparkplug / mqttsparkplug / Sparkplug™ MQTT edge and host / Function Blocks / FB_GroupID / FB_GroupID / svnobj  Maximize  Restore  History

Download this file

23 lines (20 with data), 3.8 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
{attribute 'call_after_init'}
    Name           : WSTRING; //Leave blank if you are happy for this to be used as a pool GroupID
END_VAR
VAR_OUTPUT
    {attribute 'no_copy'}
    itfGroupID : IGroupID := THIS^;
VAR
    pPrimary : POINTER TO FB_PrimaryHost;
    _edges   : List; // OF FB_RemoteEdge
    //IElement
    _itfPrev : IElement;
    _itfNext : IElement;
    _itfList : IList;
	
	// IMessageSource
	_IMessageSource_published  : BOOL; // TRUE when publish is complete.  Is set false automatically in claimExclusivePublishingRights, but you can set it false yourself if you want
    
IF THIS^.itfPrimaryHost <> 0 THEN
    IF __QUERYPOINTER( itfPrimaryHost, pPrimary ) THEN
        pPrimary^.RegisterGroupID( THIS^ );
    END_IF
END_IF