UnquotedJson 1.0.2

UnquotedJson

UnquotedJson is a JSON parser. In addition to being able to parse the standard JSON format, UnquotedJson also allows unquoted strings which are keys and/or in values.

When a string is unquoted and does not cause parsing ambiguity or errors, the string can be unquoted or quoted.

When a string is unquoted and causes parsing ambiguity or errors, the string must be quoted.

Format Convert

unquoted format convert to normal json format:

let x = """{
    0:{index:0, license:t, nameSID:n, image:"img:left", descriptionSID:t, category:r}
    }"""
let y = 
    x
    |> JSON.parse
    |> JSON.stringifyNormalJson

UnquotedJson is a superset of JSON, so the JSON.parse parsing function can directly parse normal JSON. follows code convert the normal format to unquoted json format:

let n = """{
    "0":{"index":0,"license":"t","nameSID":"n","image":"img:left","descriptionSID":"t","category":"r"}
    }"""

let y = 
    n
    |> JSON.parse
    |> JSON.stringifyUnquotedJson

Object Serialization

You can define serialization and deserialization functions for objects.

let serialize<'t> obj =
    obj
    |> JSON.read<'t>
    |> JSON.stringifyNormalJson

let deserialize<'t> text =
    text
    |> JSON.parse 
    |> JSON.write<'t>

Here are some examples of serialization of common object types.

Tuple

(1,"x")

[1,"x"]

Array, list, Set and so on

[1;2;3]

[1,2,3]

Record

Supports serialization of anonymous records also.

{ name = "abcdefg"; age = 18 }

{"name":"abcdefg","age":18}

Map

Map [1,"1";2,"2"]

[[1,"1"],[2,"2"]]

Option

[Some 1;None]

[1,null]

Union

type UionExample =
| Zero
| OnlyOne of int
| Pair of int * string

[Zero;OnlyOne 1;Pair(2,"b")]

["Zero",{"OnlyOne":1},{"Pair":[2,"b"]}]

Provide tryRead and tryWrite to custom your convert rule

The signature of tryRead is:

tryRead:Type -> obj -> ((Type -> obj -> JsonValue) -> JsonValue) option

The signature of tryWrite is:

tryWrite:Type -> JsonValue -> ((Type -> JsonValue -> obj) -> obj) option

The return value of JSON.parse is JsonValue type that is a Discriminated Union type of F#.