Null Variant question

[EthernautParticipant]

In the following code, I’d like to detect if the field has a null value WITHOUT knowing the field’s type in advance, in other words, I cannot cast the variant obtained by DeclInfo.Get( instance ) and see if it has a null value.

The goal here is to not Serialize any fields that contain a Null value, and serialize everything else.
(I’m not serializing classes “for real” in this simple example, it’s just adding their class name as the value)

Monkey

Namespace test #Import "<mojo>" #Reflect mojo.. #Reflect std.. #Reflect test.. Using std.. Using mojo.. Function Main() Local t := New SerialObj t.Serialize() End Class SerialObj Field value:= 10 Field name:= "Test Class" Field image:Image = Null '<------I want the serializer method to skip this empty field Field color:= Color.Red Method Serialize:JsonObject() Local obj:= New JsonObject obj.SetString( "Class", InstanceType.Name ) For Local d := Eachin InstanceType.GetDecls() If d.Gettable Local value := d.Get( Self ) If value'<----------------------Always contains a DeclInfo, even if the field value is null! obj.SetValue( d.Name, SerializeValue( d, value ) ) End End Next Print obj.ToJson() Return obj End Method SerializeValue:JsonValue( d:DeclInfo, v:Variant ) Local newValue:JsonValue Local info := d.Type Select info.Name Case "Float" newValue = New JsonNumber( Cast<Float>( v ) ) Case "Double" newValue = New JsonNumber( Cast<Double>( v ) ) Case "Int" newValue = New JsonNumber( Cast<Int>( v ) ) Case "UInt" newValue = New JsonNumber( Cast<UInt>( v ) ) Case "String" newValue = New JsonString( Cast<String>( v ) ) Case "Bool" newValue = New JsonBool( Cast<Bool>( v ) ) Default Local obj := New JsonObject If info.Kind="Class" Or info.Kind="Struct" Local dynamicValue := New JsonString( info.Name ) If dynamicValue Then Return dynamicValue Else newValue = New JsonString( "Serializer: Warning, unhandled scenario found!" ) End End Return newValue End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85

Namespace test   #Import "<mojo>"   #Reflect mojo.. #Reflect std.. #Reflect test..   Using std.. Using mojo..   Function Main() Local t := New SerialObj t.Serialize() End     Class SerialObj Field value:= 10 Field name:= "Test Class" Field image:Image = Null    '<------I want the serializer method to skip this empty field Field color:= Color.Red Method Serialize:JsonObject() Local obj:= New JsonObject obj.SetString( "Class", InstanceType.Name ) For Local d := Eachin InstanceType.GetDecls() If d.Gettable Local value := d.Get( Self ) If value'<----------------------Always contains a DeclInfo, even if the field value is null! obj.SetValue( d.Name, SerializeValue( d, value ) ) End End Next Print obj.ToJson() Return obj End Method SerializeValue:JsonValue( d:DeclInfo, v:Variant ) Local newValue:JsonValue Local info := d.Type   Select info.Name Case "Float" newValue = New JsonNumber( Cast<Float>( v ) ) Case "Double" newValue = New JsonNumber( Cast<Double>( v ) ) Case "Int" newValue = New JsonNumber( Cast<Int>( v ) ) Case "UInt" newValue = New JsonNumber( Cast<UInt>( v ) ) Case "String" newValue = New JsonString( Cast<String>( v ) ) Case "Bool" newValue = New JsonBool( Cast<Bool>( v ) ) Default Local obj := New JsonObject If info.Kind="Class" Or info.Kind="Struct" Local dynamicValue := New JsonString( info.Name ) If dynamicValue Then Return dynamicValue Else newValue = New JsonString( "Serializer: Warning, unhandled scenario found!" ) End End Return newValue End End

Is it doable somehow? Or would this be a feature request?
It’s one of the last missing puzzle pieces I need to have a fully functional Serializer module.

Any help appreciated!

[Author]

Posts