JsonUtil (p.kappa-library.4.1.3.doc.kappa-library.generic.Kappa_data

Sourceval write_to_channel : (Buffer.t -> 'a -> unit) -> out_channel -> 'a -> unit

Sourceval string_of_write : (Buffer.t -> 'a -> unit) -> ?len:int -> 'a -> string

val read_of_string : 
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'a) ->
  string ->
  'a

Source

val read_between_spaces : 
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'a) ->
  Yojson.Basic.lexer_state ->
  Lexing.lexbuf ->
  'a

Source

val read_next_item : 
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'a) ->
  Yojson.Basic.lexer_state ->
  Lexing.lexbuf ->
  'a

Sourceval write_comma : Buffer.t -> unit

Jsonify simple types

Sourceval build_msg : string -> string

Sourceval of_string : string -> Yojson.Basic.t

Sourceval to_string : ?error_msg:string -> Yojson.Basic.t -> string

Sourceval of_int : int -> Yojson.Basic.t

Sourceval to_int : ?error_msg:string -> Yojson.Basic.t -> int

Sourceval of_bool : bool -> Yojson.Basic.t

Sourceval to_bool : ?error_msg:string -> Yojson.Basic.t -> bool

Sourceval of_unit : unit -> Yojson.Basic.t

Sourceval to_unit : ?error_msg:string -> Yojson.Basic.t -> unit

Sourceval of_option : ('a -> Yojson.Basic.t) -> 'a option -> Yojson.Basic.t

Sourceval to_option : (Yojson.Basic.t -> 'a) -> Yojson.Basic.t -> 'a option

Beware: `Null is reserved for None

Sourceval write_option : (Buffer.t -> 'a -> unit) -> Buffer.t -> 'a option -> unit

Source

val read_option : 
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'a) ->
  Yojson.Basic.lexer_state ->
  Lexing.lexbuf ->
  'a option

Sourceval of_list : ('a -> Yojson.Basic.t) -> 'a list -> Yojson.Basic.t

Source

val to_list : 
  ?error_msg:string ->
  (Yojson.Basic.t -> 'a) ->
  Yojson.Basic.t ->
  'a list

Sourceval write_list : (Buffer.t -> 'a -> unit) -> Buffer.t -> 'a list -> unit

Sourceval of_array : ('a -> Yojson.Basic.t) -> 'a array -> Yojson.Basic.t

Source

val to_array : 
  ?error_msg:string ->
  (Yojson.Basic.t -> 'a) ->
  Yojson.Basic.t ->
  'a array

Sourceval write_array : (Buffer.t -> 'a -> unit) -> Buffer.t -> 'a array -> unit

Sourceval write_sequence : Buffer.t -> (Buffer.t -> unit) list -> unit

Source

val read_variant : 
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'a) ->
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'a -> 'b) ->
  Yojson.Basic.lexer_state ->
  Lexing.lexbuf ->
  'b

Sourceval smart_assoc : (string * Yojson.Basic.t) list -> Yojson.Basic.t

Similar to of_assoc, but does not include fields whose value is 'null', '' or '{}'

Sourceval of_assoc : ('a -> string * Yojson.Basic.t) -> 'a list -> Yojson.Basic.t

Source

val to_assoc : 
  ?error_msg:string ->
  ((string * Yojson.Basic.t) -> 'a) ->
  Yojson.Basic.t ->
  'a list

Sourceval write_field : string -> (Buffer.t -> 'a -> unit) -> Buffer.t -> 'a -> unit

Source

val of_pair : 
  ?lab1:string ->
  ?lab2:string ->
  ('a -> Yojson.Basic.t) ->
  ('b -> Yojson.Basic.t) ->
  ('a * 'b) ->
  Yojson.Basic.t

Source

val to_pair : 
  ?lab1:string ->
  ?lab2:string ->
  ?error_msg:string ->
  (Yojson.Basic.t -> 'a) ->
  (Yojson.Basic.t -> 'b) ->
  Yojson.Basic.t ->
  'a * 'b

Source

val write_compact_pair : 
  (Buffer.t -> 'a -> unit) ->
  (Buffer.t -> 'b -> unit) ->
  Buffer.t ->
  ('a * 'b) ->
  unit

Source

val read_compact_pair : 
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'a) ->
  (Yojson.Basic.lexer_state -> Lexing.lexbuf -> 'b) ->
  Yojson.Basic.lexer_state ->
  Lexing.lexbuf ->
  'a * 'b

Source

val compact_to_pair : 
  (Yojson.Basic.t -> 'a) ->
  (Yojson.Basic.t -> 'b) ->
  Yojson.Basic.t ->
  'a * 'b

Source

val of_triple : 
  ?lab1:string ->
  ?lab2:string ->
  ?lab3:string ->
  ('a -> Yojson.Basic.t) ->
  ('b -> Yojson.Basic.t) ->
  ('c -> Yojson.Basic.t) ->
  ('a * 'b * 'c) ->
  Yojson.Basic.t

Source

val to_triple : 
  ?lab1:string ->
  ?lab2:string ->
  ?lab3:string ->
  ?error_msg:string ->
  (Yojson.Basic.t -> 'a) ->
  (Yojson.Basic.t -> 'b) ->
  (Yojson.Basic.t -> 'c) ->
  Yojson.Basic.t ->
  'a * 'b * 'c

Source

val of_map : 
  ?lab_key:string ->
  ?lab_value:string ->
  fold:
    (('key -> 'value -> Yojson.Basic.t list -> Yojson.Basic.t list) ->
      'map ->
      Yojson.Basic.t list ->
      Yojson.Basic.t list) ->
  ('key -> Yojson.Basic.t) ->
  ('value -> Yojson.Basic.t) ->
  'map ->
  Yojson.Basic.t

Source

val to_map : 
  ?lab_key:string ->
  ?lab_value:string ->
  ?error_msg:string ->
  add:('key -> 'value -> 'map -> 'map) ->
  empty:'map ->
  (Yojson.Basic.t -> 'key) ->
  (Yojson.Basic.t -> 'value) ->
  Yojson.Basic.t ->
  'map

Sourceval of_unix_label : UnixLabels.error -> Yojson.Basic.t

Sourceval to_unix_label : Yojson.Basic.t -> UnixLabels.error

Sourceval of_unix_error : Unix.error -> Yojson.Basic.t

Sourceval to_unix_error : Yojson.Basic.t -> Unix.error

Sourceval std_json_string_of_float : float -> string