package atd

  1. Overview
  2. Docs

Module Atd.JsonSource

Mapping from ATD to JSON

Sourcetype ocaml_adapter = {
  1. normalize : string;
  2. restore : string;
}
Sourcetype json_adapter = {
  1. ocaml_adapter : ocaml_adapter option;
    (*

    A module implementing normalize and restore.

    *)
  2. java_adapter : string option;
    (*

    tbd

    *)
}

Association between languages and json adapter for that language. The specification of each json adapter is language-specific.

Sourceval no_adapter : json_adapter
Sourcetype json_int =
  1. | Int
  2. | String
Sourcetype json_float =
  1. | Float of int option
  2. | Int
Sourcetype json_list =
  1. | Array
  2. | Object
Sourcetype json_variant = {
  1. json_cons : string;
}
Sourcetype json_field = {
  1. json_fname : string;
  2. json_unwrapped : bool;
}
Sourcetype json_record = {
  1. json_keep_nulls : bool;
  2. json_record_adapter : json_adapter;
}
Sourcetype json_sum_repr =
  1. | Array
  2. | Object
Sourcetype json_sum = {
  1. json_sum_adapter : json_adapter;
  2. json_open_enum : bool;
  3. json_lowercase_tags : bool;
  4. json_sum_repr : json_sum_repr;
    (*

    Whether tagged variants are encoded as "Cons", payload (Array, default) or "Cons": payload (Object). Unit variants are always encoded as "Cons" strings regardless.

    *)
}
Sourcetype json_repr =
  1. | Abstract
  2. | Bool
  3. | Cell
  4. | Def
  5. | External
  6. | Field of json_field
  7. | Float of json_float
  8. | Int of json_int
  9. | List of json_list
  10. | Name
  11. | Nullable
  12. | Option
  13. | Record of json_record
  14. | String
  15. | Sum of json_sum
  16. | Tuple
  17. | Unit
  18. | Variant of json_variant
  19. | Wrap

The different kinds of ATD nodes with their json-specific options.

Sourceval annot_schema_json : Annot.schema
Sourceval get_json_list : Annot.t -> json_list
Sourceval get_json_int : Annot.t -> json_int
Sourceval get_json_float : Annot.t -> json_float
Sourceval get_json_cons : string -> Annot.t -> string
Sourceval get_json_fname : string -> Annot.t -> string
Sourceval get_json_record : Annot.t -> json_record
Sourceval get_json_sum : Annot.t -> json_sum