exception Json_error of stringval json_error : string -> 'atype lexer_state = {buf : Buffer.t;mutable lnum : int;mutable bol : int;mutable fname : string option;
}type t = [ | `Assoc of (string * t) list| `Bool of bool| `Float of float| `Floatlit of string| `Int of int| `Intlit of string| `List of t list| `Null| `String of string| `Stringlit of string| `Tuple of t list| `Variant of string * t option
]val equal : t -> t -> boolval to_string :
?buf:Buffer.t ->
?len:int ->
?suf:string ->
?std:bool ->
t ->
stringval to_output :
?buf:Buffer.t ->
?len:int ->
?suf:string ->
?std:bool ->
< output : string -> int -> int -> int.. > ->
t ->
unitval to_file : ?len:int -> ?std:bool -> ?suf:string -> string -> t -> unitval to_buffer : ?suf:string -> ?std:bool -> Buffer.t -> t -> unitval seq_to_string :
?buf:Buffer.t ->
?len:int ->
?suf:string ->
?std:bool ->
t Seq.t ->
stringval seq_to_file :
?len:int ->
?suf:string ->
?std:bool ->
string ->
t Seq.t ->
unitval seq_to_buffer : ?suf:string -> ?std:bool -> Buffer.t -> t Seq.t -> unitval write_null : Buffer.t -> unit -> unitval write_bool : Buffer.t -> bool -> unitval write_float : Buffer.t -> float -> unitval write_std_float : Buffer.t -> float -> unitval write_float_prec : int -> Buffer.t -> float -> unitval write_std_float_prec : int -> Buffer.t -> float -> unitval write_string : Buffer.t -> string -> unitval write_intlit : Buffer.t -> string -> unitval write_floatlit : Buffer.t -> string -> unitval write_stringlit : Buffer.t -> string -> unitval write_assoc : Buffer.t -> (string * t) list -> unitval write_std_tuple : Buffer.t -> t list -> unitval write_variant : Buffer.t -> string -> t option -> unitval write_std_variant : Buffer.t -> string -> t option -> unitval pretty_to_string : ?std:bool -> t -> stringval pretty_to_channel : ?std:bool -> out_channel -> t -> unitmodule Basic : sig ... endmodule Safe : sig ... end