exception Json_error of string
val json_error : string -> 'a
type 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 -> bool
val to_string :
?buf:Buffer.t ->
?len:int ->
?suf:string ->
?std:bool ->
t ->
string
val to_output :
?buf:Buffer.t ->
?len:int ->
?suf:string ->
?std:bool ->
< output : string -> int -> int -> int.. > ->
t ->
unit
val to_file : ?len:int -> ?std:bool -> ?suf:string -> string -> t -> unit
val to_buffer : ?suf:string -> ?std:bool -> Buffer.t -> t -> unit
val seq_to_string :
?buf:Buffer.t ->
?len:int ->
?suf:string ->
?std:bool ->
t Seq.t ->
string
val seq_to_file :
?len:int ->
?suf:string ->
?std:bool ->
string ->
t Seq.t ->
unit
val seq_to_buffer : ?suf:string -> ?std:bool -> Buffer.t -> t Seq.t -> unit
val write_null : Buffer.t -> unit -> unit
val write_bool : Buffer.t -> bool -> unit
val write_float : Buffer.t -> float -> unit
val write_std_float : Buffer.t -> float -> unit
val write_float_prec : int -> Buffer.t -> float -> unit
val write_std_float_prec : int -> Buffer.t -> float -> unit
val write_string : Buffer.t -> string -> unit
val write_intlit : Buffer.t -> string -> unit
val write_floatlit : Buffer.t -> string -> unit
val write_stringlit : Buffer.t -> string -> unit
val write_assoc : Buffer.t -> (string * t) list -> unit
val write_std_tuple : Buffer.t -> t list -> unit
val write_variant : Buffer.t -> string -> t option -> unit
val write_std_variant : Buffer.t -> string -> t option -> unit
val pretty_to_string : ?std:bool -> t -> string
val pretty_to_channel : ?std:bool -> out_channel -> t -> unit
module Basic : sig ... end
module Safe : sig ... end