open System

open System.Collections

open System.Collections.Generic

open System.Linq

open System.Text

open System.Runtime.Serialization.Formatters

open System.IO

open System.Data

open System.ComponentModel.DataAnnotations

open System.Globalization

​

open Newtonsoft.Json

open Newtonsoft.Json.Linq

open Newtonsoft.Json.Converters

open Newtonsoft.Json.Serialization

​

printfn "Environment.Version=%s" (Environment.Version.ToString())

printfn "%s version=%s" (typedefof<Map<_, _>>.Assembly.GetName().Name) (typedefof<Map<_, _>>.Assembly.GetName().FullName)

​

let jsonToStream(obj : 'T) =

    let JsonSerializer = JsonSerializer.CreateDefault()

    let std = new IO.MemoryStream()

    (   use sw = new StreamWriter(std, new UTF8Encoding(false, true), 1024, true)

        use JsonWriter = new JsonTextWriter(sw, CloseOutput = false)

        JsonSerializer.Serialize(JsonWriter, obj, obj.GetType()))

    std.Position <- 0L

    std

let debugTest(obj : 'T) =

    let st = jsonToStream(obj)

    let sw = new StreamReader(st)

    let jsonString = sw.ReadToEnd()

    printfn "\nResult using JsonSerializer.Serialize(JsonWriter, %s, %s.GetType())):\n%s" (obj.GetType().Name) (obj.GetType().Name) jsonString

    ()

// Test f# multi-level inheritance

type A() =     

    let mutable a = "AA"

    member public this.A

        with get() = a

        and set value = a <- value

​

type B() =     

    inherit A()

    let mutable b = "BB"

    member public this.B

        with get() = b

        and set value = b <- value

type C() = 

    inherit B()

    let mutable c = "CC"

    member public this.CC  // FIXED member public _.CC

        with get() = c

        and set value = c <- value

​

debugTest(new C ())

​

// Test f# inheritance from some multilevel c# classes (here Newtonsoft.Json.Converters.XmlNodeConverter and others used purely as objects with properties):

​

type MyType() = 

    inherit XmlNodeConverter()

    let mutable c = "CC"

    member public this.CC  // FIXED member public _.CC

        with get() = c

        and set value = c <- value

​

debugTest(new MyType())

​

type MyType2() = 

    inherit CamelCaseNamingStrategy()

    let mutable c = "CC"

    member public this.CC  // FIXED member public _.CC

        with get() = c

        and set value = c <- value

​

debugTest(new MyType2())

​

type MyType3() = 

    inherit MyType2()

    let mutable d = "DD"

    member public this.DD

        with get() = d

        and set value = d <- value

​

debugTest(new MyType3())

​