Diff of /branches/FeatureBranches/refactorpayload/SparkplugB/Function Blocks/FB_PayloadSimple/FB_PayloadSimpleEncoder/AddMetric/svnobj [r814] .. [r815]  Maximize  Restore

Switch to side-by-side view

--- a/branches/FeatureBranches/refactorpayload/SparkplugB/Function Blocks/FB_PayloadSimple/FB_PayloadSimpleEncoder/AddMetric/svnobj
+++ b/branches/FeatureBranches/refactorpayload/SparkplugB/Function Blocks/FB_PayloadSimple/FB_PayloadSimpleEncoder/AddMetric/svnobj
@@ -1,160 +1,53 @@
-Gx_l3!0…jüo$¤Nt…Ùk½|7System.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
‚MyTempMetric REF= _Payload.AddMetricBlank( eError => AddMetric );DIF AddMetric = ERROR.NO_ERROR THENr    MyTempMetric.SetName( Name := SparkplugObject.Name );v    MyTempMetric.SetTimestamp( uliTimestamp := Timestamp );Š    MyTempMetric.SetDatatype( Datatype := SparkplugObject.DataType );H    CASE SparkplugObject.DataType OF8        MetricDataType.Int8:^            IF __QUERYPOINTER( SparkplugObject,p                               MyFB_SparkplugInt8 ) THENt                Decoded.Int8 := MyFB_SparkplugInt8^.Value;~                MyTempMetric.SetValueToInt( Value := Decoded );             ELSE|                AddMetric := ERROR.PayloadNotRightSimpleValue;$            END_IF:        MetricDataType.Int16:r                               MyFB_SparkplugInt16 ) THENx                Decoded.Int16 := MyFB_SparkplugInt16^.Value;:        MetricDataType.Int32: r                               MyFB_SparkplugInt32 ) THEN!x                Decoded.Int32 := MyFB_SparkplugInt32^.Value;":        MetricDataType.Int64:#r                               MyFB_SparkplugInt64 ) THEN$x                Decoded.Int64 := MyFB_SparkplugInt64^.Value;%‚                MyTempMetric.SetValueToInt64( Value := Decoded );&:        MetricDataType.UInt8:'r                               MyFB_SparkplugUInt8 ) THEN(x                Decoded.UInt8 := MyFB_SparkplugUInt8^.Value;)<        MetricDataType.UInt16:*t                               MyFB_SparkplugUInt16 ) THEN+|                Decoded.UInt16 := MyFB_SparkplugUInt16^.Value;,<        MetricDataType.UInt32:-t                               MyFB_SparkplugUInt32 ) THEN.|                Decoded.UInt32 := MyFB_SparkplugUInt32^.Value;/<        MetricDataType.UInt64:0t                               MyFB_SparkplugUInt64 ) THEN1|                Decoded.UInt64 := MyFB_SparkplugUInt64^.Value;2:        MetricDataType.Float:3r                               MyFB_SparkplugFloat ) THEN4¦                MyTempMetric.SetValueToReal( Value := MyFB_SparkplugFloat^.Value );5<        MetricDataType.Double:6t                               MyFB_SparkplugDouble ) THEN7ª                MyTempMetric.SetValueToLreal( Value := MyFB_SparkplugDouble^.Value );8>        MetricDataType.Boolean:9v                               MyFB_SparkplugBoolean ) THEN:ª                MyTempMetric.SetValueToBool( Value := MyFB_SparkplugBoolean^.Value );;>        MetricDataType.String_:<t                               MyFB_SparkplugString ) THEN=€                String_UUID_Text := MyFB_SparkplugString^.Value;>˜                MyTempMetric.SetValueToWString( Value := String_UUID_Text );?@        MetricDataType.DateTime:@x                               MyFB_SparkplugDateTime ) THENA€                Decoded.UInt64 := MyFB_SparkplugDateTime^.Value;B8        MetricDataType.Text:Cp                               MyFB_SparkplugText ) THEND|                String_UUID_Text := MyFB_SparkplugText^.Value;E8        MetricDataType.UUID:Fp                               MyFB_SparkplugUUID ) THENG|                String_UUID_Text := MyFB_SparkplugUUID^.Value;H    END_CASEIEND_IFJInterfaceKL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}L0METHOD AddMetric : ERRORMVAR_INPUTNB    Timestamp       : T_DateTime;OF    SparkplugObject : ISimpleValue;PEND_VARQVAR_IN_OUTR|    AllMetricsWhichWillEverReport : List; // OF ISimpleStorageSVARTb    MyTempMetric : REFERENCE TO FB_PayloadMetric;U    //PointersVx    MyFB_SparkplugBoolean  : POINTER TO FB_SparkplugBoolean;Wz    MyFB_SparkplugDateTime : POINTER TO FB_SparkplugDateTime;Xv    MyFB_SparkplugDouble   : POINTER TO FB_SparkplugDouble;Yt    MyFB_SparkplugFloat    : POINTER TO FB_SparkplugFloat;Zt    MyFB_SparkplugInt16    : POINTER TO FB_SparkplugInt16;[t    MyFB_SparkplugInt32    : POINTER TO FB_SparkplugInt32;\t    MyFB_SparkplugInt64    : POINTER TO FB_SparkplugInt64;]r    MyFB_SparkplugInt8     : POINTER TO FB_SparkplugInt8;^v    MyFB_SparkplugString   : POINTER TO FB_SparkplugString;_r    MyFB_SparkplugText     : POINTER TO FB_SparkplugText;`v    MyFB_SparkplugUInt16   : POINTER TO FB_SparkplugUInt16;av    MyFB_SparkplugUInt32   : POINTER TO FB_SparkplugUInt32;bv    MyFB_SparkplugUInt64   : POINTER TO FB_SparkplugUInt64;ct    MyFB_SparkplugUInt8    : POINTER TO FB_SparkplugUInt8;dr    MyFB_SparkplugUUID     : POINTER TO FB_SparkplugUUID;eV    Decoded                : DecodedVarInt;fF    Double                 : LREAL;gD    Boolean                : BOOL;hJ    String_UUID_Text       : WSTRING;ÐÐÐE~ÐÐ	
+Gx_lé!0…jüoØî&pR錬àoSystem.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
‚MyTempMetric REF= _Payload.AddMetricBlank( eError => AddMetric );P// Maybe check for SparkplugObject = 0 ?DIF AddMetric = ERROR.NO_ERROR THENr    MyTempMetric.SetName( Name := SparkplugObject.Name );v    MyTempMetric.SetTimestamp( uliTimestamp := Timestamp );Š    MyTempMetric.SetDatatype( Datatype := SparkplugObject.DataType );H    CASE SparkplugObject.DataType OF8        MetricDataType.Int8,:        MetricDataType.Int16,:        MetricDataType.Int32,:        MetricDataType.UInt8,<        MetricDataType.UInt16,<        MetricDataType.UInt32:À			//Native storage format of a decodedvarint is UInt64, so for speed I will just grab that one.X			Decoded.UInt64 := SparkplugObject.UInt64;r            MyTempMetric.SetValueToInt(Value := Decoded);.		MetricDataType.Int64,<        MetricDataType.UInt64, 4		MetricDataType.DateTime:!v            MyTempMetric.SetValueToInt64(Value := Decoded);":        MetricDataType.Float:#”            MyTempMetric.SetValueToReal( Value := SparkplugObject.Float );$<        MetricDataType.Double:%˜            MyTempMetric.SetValueToLreal( Value := SparkplugObject.Double );&>        MetricDataType.Boolean:'˜            MyTempMetric.SetValueToBool( Value := SparkplugObject.Boolean );(>        MetricDataType.String_,)8        MetricDataType.Text,*8        MetricDataType.UUID:+^			String_UUID_Text := SparkplugObject.String_;,            MyTempMetric.SetValueToWString( Value := String_UUID_Text );-    END_CASE.END_IF/Interface0L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}10METHOD AddMetric : ERROR2VAR_INPUT3B    Timestamp       : T_DateTime;4H    SparkplugObject : IRemoteMetric;5END_VAR6VAR_IN_OUT7|    AllMetricsWhichWillEverReport : List; // OF ISimpleStorage8VAR9b    MyTempMetric : REFERENCE TO FB_PayloadMetric;:V    Decoded                : DecodedVarInt;;F    Double                 : LREAL;<D    Boolean                : BOOL;=˜    String_UUID_Text       : WSTRING(GC_Sparkplug.supported_string_lengths);ÐÐÐE$ÐÐ	
 ­ãÚÐ-
ÐÐ	
-­åÚÐ-ÐÐ	
-­æÚÐ-ÐÐ	
-­çÚÐ-ÐÐ	
-­èÚÐ-ÐÐ	
-­éÚÐ-ÐÐ	
-­êÚÐ-ÐÐ	
-­ëÚÐ-ÐÐ	
-­ìÚÐ-ÐÐ	
-­íÚÐ-ÐÐ	
-­îÚÐ-ÐÐ	
-­ïÚÐ-ÐÐ	
-­ðÚÐ-ÐÐ	
-­ñÚÐ-ÐÐ	
-­òÚÐ-ÐÐ	
-­óÚÐ-ÐÐ	
-­ôÚÐ-ÐÐ	
-­õÚÐ-ÐÐ	
-­öÚÐ-ÐÐ	
-­÷ÚÐ-ÐÐ	
-­øÚÐ-ÐÐ	
-­ùÚÐ-ÐÐ	
-­úÚÐ-ÐÐ	
-­ûÚÐ-ÐÐ	
-­üÚÐ-ÐÐ	
-­ýÚÐ- ÐÐ	
-­þÚÐ-!ÐÐ	
-­ÿÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-"ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-#ÐÐ	
-­ÚÐ-$ÐÐ	
-­ÚÐ-%ÐÐ	
-­ÚÐ-ÐÐ	
-­	ÚÐ-ÐÐ	

-ÚÐ-ÐÐ	
-­ÚÐ-&ÐÐ	
-­ÚÐ-ÐÐ	

ÚÐ-'ÐÐ	
-­ÚÐ-(ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-)ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-*ÐÐ	
-­ÚÐ-+ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ-,ÐÐ	
-­ÚÐ-ÐÐ	
-­ÚÐ--ÐÐ	
-­ÚÐ-.ÐÐ	
-­ÚÐ-ÐÐ	
-­ ÚÐ-ÐÐ	
-­!ÚÐ-ÐÐ	
-­"ÚÐ-ÐÐ	
-­#ÚÐ-/ÐÐ	
-­$ÚÐ-ÐÐ	
-­%ÚÐ-0ÐÐ	
-­&ÚÐ-1ÐÐ	
-­'ÚÐ-%ÐÐ	
-­(ÚÐ-ÐÐ	
-­)ÚÐ-ÐÐ	
-­*ÚÐ-ÐÐ	
-­+ÚÐ-2ÐÐ	
-­,ÚÐ-ÐÐ	
-­-ÚÐ-3ÐÐ	
-­.ÚÐ-4ÐÐ	
-­/ÚÐ-ÐÐ	
-­0ÚÐ-ÐÐ	
-­1ÚÐ-ÐÐ	
-­2ÚÐ-5ÐÐ	
-­3ÚÐ-ÐÐ	
-­4ÚÐ-6ÐÐ	
-­5ÚÐ-7ÐÐ	
-­6ÚÐ-ÐÐ	
-­7ÚÐ-ÐÐ	
-­8ÚÐ-ÐÐ	
-­9ÚÐ-8ÐÐ	
-­:ÚÐ-ÐÐ	
-­;ÚÐ-9ÐÐ	
-­<ÚÐ-:ÐÐ	
-­=ÚÐ-ÐÐ	
-­>ÚÐ-ÐÐ	
-­?ÚÐ-ÐÐ	
-­@ÚÐ-;ÐÐ	
-­AÚÐ-ÐÐ	
-­BÚÐ-<ÐÐ	
-­CÚÐ-=ÐÐ	
-­DÚÐ->ÐÐ	
-­EÚÐ-ÐÐ	
-­FÚÐ-ÐÐ	
-­GÚÐ-ÐÐ	
-­HÚÐ-?ÐÐ	
-­IÚÐ-ÐÐ	
-­JÚÐ-@ÐÐ	
-­KÚÐ-AÐÐ	
-­LÚÐ-%ÐÐ	
-­MÚÐ-ÐÐ	
-­NÚÐ-ÐÐ	
-­OÚÐ-ÐÐ	
-­PÚÐ-BÐÐ	
-­QÚÐ-ÐÐ	
-­RÚÐ-CÐÐ	
-­SÚÐ-DÐÐ	
-­TÚÐ->ÐÐ	
-­UÚÐ-ÐÐ	
-­VÚÐ-ÐÐ	
-­WÚÐ-ÐÐ	
-­XÚÐ-EÐÐ	
-­YÚÐ-ÐÐ	
-­ZÚÐ-FÐÐ	
-­[ÚÐ-GÐÐ	
-­\ÚÐ->ÐÐ	
-­]ÚÐ-ÐÐ	
-­^ÚÐ-ÐÐ	
-­_ÚÐ-ÐÐ	
-­`ÚÐ-HÐÐ	
-­ÚÐ-IÐJKÐEÐÐ	
-­ÅÚÐ-LÐÐ	
-­ÆÚÐ-MÐÐ	
-­ÇÚÐ-NÐÐ	
-­ÈÚÐ-OÐÐ	
-­ÉÚÐ-PÐÐ	
-­ÊÚÐ-QÐÐ	
-­ËÚÐ-RÐÐ	
-­ÌÚÐ-PÐÐ	
-­ÍÚÐ-SÐÐ	
-­ÎÚÐ-TÐÐ	
-­ÏÚÐ-UÐÐ	
-­ÐÚÐ-VÐÐ	
-­ÑÚÐ-WÐÐ	
-­ÒÚÐ-XÐÐ	
-­ÓÚÐ-YÐÐ	
-­ÔÚÐ-ZÐÐ	
-­ÕÚÐ-[ÐÐ	
-­ÖÚÐ-\ÐÐ	
-­×ÚÐ-]ÐÐ	
-­ØÚÐ-^ÐÐ	
-­ÙÚÐ-_ÐÐ	
-­ÚÚÐ-`ÐÐ	
-­ÛÚÐ-aÐÐ	
-­ÜÚÐ-bÐÐ	
-­ÝÚÐ-cÐÐ	
-­ÞÚÐ-dÐÐ	
-­ßÚÐ-eÐÐ	
-­àÚÐ-fÐÐ	
-­áÚÐ-gÐÐ	
-­âÚÐ-hÐÐ	
-­ÚÐ-P
\ No newline at end of file
+­aÚÐ-ÐÐ	
+­åÚÐ-ÐÐ	
+­æÚÐ-ÐÐ	
+­çÚÐ-ÐÐ	
+­èÚÐ-ÐÐ	
+­éÚÐ-ÐÐ	
+­êÚÐ-ÐÐ	
+­ëÚÐ-ÐÐ	
+­óÚÐ-ÐÐ	
+­ûÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­fÚÐ-ÐÐ	
+­dÚÐ-ÐÐ	
+­eÚÐ-ÐÐ	
+­cÚÐ-ÐÐ	
+­#ÚÐ-ÐÐ	
+­jÚÐ- ÐÐ	
+­bÚÐ-ÐÐ	
+­*ÚÐ-!ÐÐ	
+­+ÚÐ-"ÐÐ	
+­.ÚÐ-#ÐÐ	
+­2ÚÐ-$ÐÐ	
+­5ÚÐ-%ÐÐ	
+­9ÚÐ-&ÐÐ	
+­gÚÐ-ÐÐ	
+­<ÚÐ-'ÐÐ	
+­@ÚÐ-(ÐÐ	
+­AÚÐ-)ÐÐ	
+­iÚÐ-*ÐÐ	
+­kÚÐ-+ÐÐ	
+­DÚÐ-,ÐÐ	
+­`ÚÐ--ÐÐ	
+­ÚÐ-.Ð/0ÐEÐÐ	
+­ÅÚÐ-1ÐÐ	
+­ÆÚÐ-2ÐÐ	
+­ÇÚÐ-3ÐÐ	
+­ÈÚÐ-4ÐÐ	
+­ÉÚÐ-5ÐÐ	
+­ÊÚÐ-6ÐÐ	
+­ËÚÐ-7ÐÐ	
+­ÌÚÐ-5ÐÐ	
+­ÍÚÐ-8ÐÐ	
+­ÎÚÐ-9ÐÐ	
+­ßÚÐ-:ÐÐ	
+­àÚÐ-;ÐÐ	
+­áÚÐ-<ÐÐ	
+­âÚÐ-=ÐÐ	
+­ÚÐ-5
\ No newline at end of file