sig
type t =
Abstract
| Structure of Unmarshal.structure
| Transform of Unmarshal.t * (Obj.t -> Obj.t)
| Return of Unmarshal.t * (unit -> Obj.t)
| Dynamic of (unit -> Unmarshal.t)
and structure =
Sum of Unmarshal.t array array
| Dependent_pair of Unmarshal.t * (Obj.t -> Unmarshal.t)
| Array of Unmarshal.t
val input_val : Pervasives.in_channel -> Unmarshal.t -> 'a
val null : Obj.t
val id : Obj.t -> Obj.t
val t_unit : Unmarshal.t
val t_int : Unmarshal.t
val t_string : Unmarshal.t
val t_float : Unmarshal.t
val t_bool : Unmarshal.t
val t_int32 : Unmarshal.t
val t_int64 : Unmarshal.t
val t_nativeint : Unmarshal.t
val t_record : Unmarshal.t array -> Unmarshal.t
val t_tuple : Unmarshal.t array -> Unmarshal.t
val t_list : Unmarshal.t -> Unmarshal.t
val t_ref : Unmarshal.t -> Unmarshal.t
val t_option : Unmarshal.t -> Unmarshal.t
val t_array : Unmarshal.t -> Unmarshal.t
val t_queue : Unmarshal.t -> Unmarshal.t
val t_hashtbl_unchangedhashs : Unmarshal.t -> Unmarshal.t -> Unmarshal.t
val t_hashtbl_changedhashs :
(int -> 'table) ->
('table -> 'key -> 'value -> unit) ->
Unmarshal.t -> Unmarshal.t -> Unmarshal.t
val t_set_unchangedcompares : Unmarshal.t -> Unmarshal.t
val t_map_unchangedcompares : Unmarshal.t -> Unmarshal.t -> Unmarshal.t
val register_custom : string -> (Pervasives.in_channel -> Obj.t) -> unit
val arch_sixtyfour : bool
val arch_bigendian : bool
val getword : Pervasives.in_channel -> Int32.t
val read8s : Pervasives.in_channel -> int
val read16s : Pervasives.in_channel -> int
val read32s : Pervasives.in_channel -> int
val read64s : Pervasives.in_channel -> int
val read8u : Pervasives.in_channel -> int
val read16u : Pervasives.in_channel -> int
val read32u : Pervasives.in_channel -> int
val read64u : Pervasives.in_channel -> int
val readblock : Pervasives.in_channel -> Obj.t -> int -> int -> unit
val readblock_rev : Pervasives.in_channel -> Obj.t -> int -> int -> unit
end