`sig
module Hashtbl :
sig
type ('a, 'b) t = ('a, 'b) Hashtbl.t
val create : int -> ('a, 'b) t
val length : ('a, 'b) t -> int
val is_empty : ('a, 'b) t -> bool
val add : ('a, 'b) t -> 'a -> 'b -> unit
val remove : ('a, 'b) t -> 'a -> unit
val remove_all : ('a, 'b) t -> 'a -> unit
val replace : ('a, 'b) t -> 'a -> 'b -> unit
val modify : 'a -> ('b -> 'b) -> ('a, 'b) t -> unit
val modify_def : 'b -> 'a -> ('b -> 'b) -> ('a, 'b) t -> unit
val modify_opt : 'a -> ('b option -> 'b option) -> ('a, 'b) t -> unit
val copy : ('a, 'b) t -> ('a, 'b) t
val clear : ('a, 'b) t -> unit
val keys : ('a, 'b) t -> 'a BatEnum.t
val values : ('a, 'b) t -> 'b BatEnum.t
val enum : ('a, 'b) t -> ('a * 'b) BatEnum.t
val of_enum : ('a * 'b) BatEnum.t -> ('a, 'b) t
val find : ('a, 'b) t -> 'a -> 'b
val find_all : ('a, 'b) t -> 'a -> 'b list
val find_default : ('a, 'b) t -> 'a -> 'b -> 'b
val find_option : ('a, 'b) Hashtbl.t -> 'a -> 'b option
val mem : ('a, 'b) t -> 'a -> bool
val iter : ('a -> 'b -> unit) -> ('a, 'b) t -> unit
val fold : ('a -> 'b -> 'c -> 'c) -> ('a, 'b) t -> 'c -> 'c
val map : ('a -> 'b -> 'c) -> ('a, 'b) t -> ('a, 'c) t
val map_inplace : ('a -> 'b -> 'b) -> ('a, 'b) t -> unit
val filter : ('a -> bool) -> ('key, 'a) t -> ('key, 'a) t
val filter_inplace : ('a -> bool) -> ('key, 'a) t -> unit
val filteri : ('key -> 'a -> bool) -> ('key, 'a) t -> ('key, 'a) t
val filteri_inplace : ('key -> 'a -> bool) -> ('key, 'a) t -> unit
val filter_map :
('key -> 'a -> 'b option) -> ('key, 'a) t -> ('key, 'b) t
val filter_map_inplace :
('key -> 'a -> 'a option) -> ('key, 'a) t -> unit
val hash : 'a -> int
external hash_param : int -> int -> 'a -> int = "caml_hash_univ_param"
"noalloc"
val print :
?first:string ->
?last:string ->
?sep:string ->
?kvsep:string ->
('a BatInnerIO.output -> 'b -> unit) ->
('a BatInnerIO.output -> 'c -> unit) ->
'a BatInnerIO.output -> ('b, 'c) t -> unit
module Exceptionless :
sig
val find : ('a, 'b) t -> 'a -> 'b option
val modify :
'a ->
('b -> 'b) -> ('a, 'b) t -> (unit, exn) BatPervasives.result
end
module Infix :
sig
val ( --> ) : ('a, 'b) t -> 'a -> 'b
val ( <-- ) : ('a, 'b) t -> 'a * 'b -> unit
end
module Labels :
sig
val add : ('a, 'b) t -> key:'a -> data:'b -> unit
val replace : ('a, 'b) t -> key:'a -> data:'b -> unit
val iter : f:(key:'a -> data:'b -> unit) -> ('a, 'b) t -> unit
val map : f:(key:'a -> data:'b -> 'c) -> ('a, 'b) t -> ('a, 'c) t
val map_inplace : f:(key:'a -> data:'b -> 'b) -> ('a, 'b) t -> unit
val filter : f:('a -> bool) -> ('key, 'a) t -> ('key, 'a) t
val filter_inplace : f:('a -> bool) -> ('key, 'a) t -> unit
val filteri :
f:(key:'key -> data:'a -> bool) -> ('key, 'a) t -> ('key, 'a) t
val filteri_inplace :
f:(key:'key -> data:'a -> bool) -> ('key, 'a) t -> unit
val filter_map :
f:(key:'key -> data:'a -> 'b option) ->
('key, 'a) t -> ('key, 'b) t
val filter_map_inplace :
f:(key:'key -> data:'a -> 'a option) -> ('key, 'a) t -> unit
val fold :
f:(key:'a -> data:'b -> 'c -> 'c) -> ('a, 'b) t -> init:'c -> 'c
val modify : key:'a -> f:('b -> 'b) -> ('a, 'b) t -> unit
val modify_def :
default:'b -> key:'a -> f:('b -> 'b) -> ('a, 'b) t -> unit
val modify_opt :
key:'a -> f:('b option -> 'b option) -> ('a, 'b) t -> unit
end
module type HashedType =
sig type t val equal : t -> t -> bool val hash : t -> int end
module type S =
sig
type key
type 'a t
val create : int -> 'a t
val length : 'a t -> int
val is_empty : 'a t -> bool
val clear : 'a t -> unit
val copy : 'a t -> 'a t
val add : 'a t -> key -> 'a -> unit
val remove : 'a t -> key -> unit
val remove_all : 'a t -> key -> unit
val find : 'a t -> key -> 'a
val find_all : 'a t -> key -> 'a list
val find_default : 'a t -> key -> 'a -> 'a
val find_option : 'a t -> key -> 'a option
val replace : 'a t -> key -> 'a -> unit
val mem : 'a t -> key -> bool
val iter : (key -> 'a -> unit) -> 'a t -> unit
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val map : (key -> 'b -> 'c) -> 'b t -> 'c t
val map_inplace : (key -> 'a -> 'a) -> 'a t -> unit
val filter : ('a -> bool) -> 'a t -> 'a t
val filter_inplace : ('a -> bool) -> 'a t -> unit
val filteri : (key -> 'a -> bool) -> 'a t -> 'a t
val filteri_inplace : (key -> 'a -> bool) -> 'a t -> unit
val filter_map : (key -> 'a -> 'b option) -> 'a t -> 'b t
val filter_map_inplace : (key -> 'a -> 'a option) -> 'a t -> unit
val modify : key -> ('a -> 'a) -> 'a t -> unit
val modify_def : 'a -> key -> ('a -> 'a) -> 'a t -> unit
val modify_opt : key -> ('a option -> 'a option) -> 'a t -> unit
val keys : 'a t -> key BatEnum.t
val values : 'a t -> 'a BatEnum.t
val enum : 'a t -> (key * 'a) BatEnum.t
val of_enum : (key * 'a) BatEnum.t -> 'a t
val print :
?first:string ->
?last:string ->
?sep:string ->
('a BatInnerIO.output -> key -> unit) ->
('a BatInnerIO.output -> 'b -> unit) ->
'a BatInnerIO.output -> 'b t -> unit
module Exceptionless :
sig
val find : 'a t -> key -> 'a option
val modify :
key -> ('a -> 'a) -> 'a t -> (unit, exn) BatPervasives.result
end
module Infix :
sig
val ( --> ) : 'a t -> key -> 'a
val ( <-- ) : 'a t -> key * 'a -> unit
end
module Labels :
sig
val add : 'a t -> key:key -> data:'a -> unit
val replace : 'a t -> key:key -> data:'a -> unit
val iter : f:(key:key -> data:'a -> unit) -> 'a t -> unit
val map : f:(key:key -> data:'a -> 'b) -> 'a t -> 'b t
val map_inplace : f:(key:key -> data:'a -> 'a) -> 'a t -> unit
val filter : f:('a -> bool) -> 'a t -> 'a t
val filter_inplace : f:('a -> bool) -> 'a t -> unit
val filteri : f:(key:key -> data:'a -> bool) -> 'a t -> 'a t
val filteri_inplace :
f:(key:key -> data:'a -> bool) -> 'a t -> unit
val filter_map :
f:(key:key -> data:'a -> 'b option) -> 'a t -> 'b t
val filter_map_inplace :
f:(key:key -> data:'a -> 'a option) -> 'a t -> unit
val fold :
f:(key:key -> data:'a -> 'b -> 'b) -> 'a t -> init:'b -> 'b
val modify : key:key -> f:('a -> 'a) -> 'a t -> unit
val modify_def :
default:'a -> key:key -> f:('a -> 'a) -> 'a t -> unit
val modify_opt :
key:key -> f:('a option -> 'a option) -> 'a t -> unit
end
end
module Make :
functor (H : HashedType) ->
sig
type key = H.t
type 'a t = 'a BatHashtbl.Make(H).t
val create : int -> 'a t
val length : 'a t -> int
val is_empty : 'a t -> bool
val clear : 'a t -> unit
val copy : 'a t -> 'a t
val add : 'a t -> key -> 'a -> unit
val remove : 'a t -> key -> unit
val remove_all : 'a t -> key -> unit
val find : 'a t -> key -> 'a
val find_all : 'a t -> key -> 'a list
val find_default : 'a t -> key -> 'a -> 'a
val find_option : 'a t -> key -> 'a option
val replace : 'a t -> key -> 'a -> unit
val mem : 'a t -> key -> bool
val iter : (key -> 'a -> unit) -> 'a t -> unit
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val map : (key -> 'b -> 'c) -> 'b t -> 'c t
val map_inplace : (key -> 'a -> 'a) -> 'a t -> unit
val filter : ('a -> bool) -> 'a t -> 'a t
val filter_inplace : ('a -> bool) -> 'a t -> unit
val filteri : (key -> 'a -> bool) -> 'a t -> 'a t
val filteri_inplace : (key -> 'a -> bool) -> 'a t -> unit
val filter_map : (key -> 'a -> 'b option) -> 'a t -> 'b t
val filter_map_inplace : (key -> 'a -> 'a option) -> 'a t -> unit
val modify : key -> ('a -> 'a) -> 'a t -> unit
val modify_def : 'a -> key -> ('a -> 'a) -> 'a t -> unit
val modify_opt : key -> ('a option -> 'a option) -> 'a t -> unit
val keys : 'a t -> key BatEnum.t
val values : 'a t -> 'a BatEnum.t
val enum : 'a t -> (key * 'a) BatEnum.t
val of_enum : (key * 'a) BatEnum.t -> 'a t
val print :
?first:string ->
?last:string ->
?sep:string ->
('a BatInnerIO.output -> key -> unit) ->
('a BatInnerIO.output -> 'b -> unit) ->
'a BatInnerIO.output -> 'b t -> unit
module Exceptionless :
sig
val find : 'a t -> key -> 'a option
val modify :
key ->
('a -> 'a) -> 'a t -> (unit, exn) BatPervasives.result
end
module Infix :
sig
val ( --> ) : 'a t -> key -> 'a
val ( <-- ) : 'a t -> key * 'a -> unit
end
module Labels :
sig
val add : 'a t -> key:key -> data:'a -> unit
val replace : 'a t -> key:key -> data:'a -> unit
val iter : f:(key:key -> data:'a -> unit) -> 'a t -> unit
val map : f:(key:key -> data:'a -> 'b) -> 'a t -> 'b t
val map_inplace :
f:(key:key -> data:'a -> 'a) -> 'a t -> unit
val filter : f:('a -> bool) -> 'a t -> 'a t
val filter_inplace : f:('a -> bool) -> 'a t -> unit
val filteri : f:(key:key -> data:'a -> bool) -> 'a t -> 'a t
val filteri_inplace :
f:(key:key -> data:'a -> bool) -> 'a t -> unit
val filter_map :
f:(key:key -> data:'a -> 'b option) -> 'a t -> 'b t
val filter_map_inplace :
f:(key:key -> data:'a -> 'a option) -> 'a t -> unit
val fold :
f:(key:key -> data:'a -> 'b -> 'b) -> 'a t -> init:'b -> 'b
val modify : key:key -> f:('a -> 'a) -> 'a t -> unit
val modify_def :
default:'a -> key:key -> f:('a -> 'a) -> 'a t -> unit
val modify_opt :
key:key -> f:('a option -> 'a option) -> 'a t -> unit
end
end
module Cap :
sig
type ('a, 'b, 'c) t = ('a, 'b, 'c) BatHashtbl.Cap.t
constraint 'c = [< `Read | `Write ]
val create : int -> ('a, 'b, [< `Read | `Write ]) t
external of_table :
('a, 'b) Hashtbl.t -> ('a, 'b, [< `Read | `Write ]) t
= "%identity"
external to_table :
('a, 'b, [ `Read | `Write ]) t -> ('a, 'b) Hashtbl.t
= "%identity"
external read_only :
('a, 'b, [< `Read | `Write > `Read ]) t -> ('a, 'b, [ `Read ]) t
= "%identity"
external write_only :
('a, 'b, [< `Read | `Write > `Write ]) t ->
('a, 'b, [ `Write ]) t = "%identity"
val length : ('a, 'b, [< `Read | `Write ]) t -> int
val is_empty : ('a, 'b, [< `Read | `Write ]) t -> bool
val add :
('a, 'b, [< `Read | `Write > `Write ]) t -> 'a -> 'b -> unit
val remove : ('a, 'b, [< `Read | `Write > `Write ]) t -> 'a -> unit
val remove_all :
('a, 'b, [< `Read | `Write > `Write ]) t -> 'a -> unit
val replace :
('a, 'b, [< `Read | `Write > `Write ]) t -> 'a -> 'b -> unit
val copy :
('a, 'b, [< `Read | `Write > `Read ]) t ->
('a, 'b, [< `Read | `Write ]) t
val clear : ('a, 'b, [< `Read | `Write > `Write ]) t -> unit
val find : ('a, 'b, [< `Read | `Write > `Read ]) t -> 'a -> 'b
val find_all :
('a, 'b, [< `Read | `Write > `Read ]) t -> 'a -> 'b list
val find_default :
('a, 'b, [< `Read | `Write > `Read ]) t -> 'a -> 'b -> 'b
val find_option :
('a, 'b, [< `Read | `Write > `Read ]) t -> 'a -> 'b option
val mem : ('a, 'b, [< `Read | `Write > `Read ]) t -> 'a -> bool
val iter :
('a -> 'b -> unit) ->
('a, 'b, [< `Read | `Write > `Read ]) t -> unit
val fold :
('a -> 'b -> 'c -> 'c) ->
('a, 'b, [< `Read | `Write > `Read ]) t -> 'c -> 'c
val map :
('a -> 'b -> 'c) ->
('a, 'b, [< `Read | `Write > `Read ]) t ->
('a, 'c, [< `Read | `Write ]) t
val map_inplace :
('a -> 'b -> 'b) ->
('a, 'b, [< `Read | `Write > `Write ]) t -> unit
val filter :
('a -> bool) ->
('key, 'a, [< `Read | `Write > `Read ]) t ->
('key, 'a, [< `Read | `Write ]) t
val filter_inplace :
('a -> bool) ->
('key, 'a, [< `Read | `Write > `Write ]) t -> unit
val filteri :
('key -> 'a -> bool) ->
('key, 'a, [< `Read | `Write > `Read ]) t ->
('key, 'a, [< `Read | `Write ]) t
val filteri_inplace :
('key -> 'a -> bool) ->
('key, 'a, [< `Read | `Write > `Write ]) t -> unit
val filter_map :
('key -> 'a -> 'b option) ->
('key, 'a, [< `Read | `Write > `Read ]) t ->
('key, 'b, [< `Read | `Write ]) t
val filter_map_inplace :
('key -> 'a -> 'a option) ->
('key, 'a, [< `Read | `Write > `Write ]) t -> unit
val keys : ('a, 'b, [< `Read | `Write > `Read ]) t -> 'a BatEnum.t
val values :
('a, 'b, [< `Read | `Write > `Read ]) t -> 'b BatEnum.t
val enum :
('a, 'b, [< `Read | `Write > `Read ]) t -> ('a * 'b) BatEnum.t
val of_enum :
('a * 'b) BatEnum.t -> ('a, 'b, [< `Read | `Write ]) t
val print :
?first:string ->
?last:string ->
?sep:string ->
?kvsep:string ->
('a BatInnerIO.output -> 'b -> unit) ->
('a BatInnerIO.output -> 'c -> unit) ->
'a BatInnerIO.output ->
('b, 'c, [< `Read | `Write > `Read ]) t -> unit
module Exceptionless :
sig
val find :
('a, 'b, [< `Read | `Write > `Read ]) t -> 'a -> 'b option
val modify :
'a ->
('b -> 'b) ->
('a, 'b, [< `Read | `Write > `Read ]) t ->
(unit, exn) BatPervasives.result
end
module Labels :
sig
val add :
('a, 'b, [< `Read | `Write > `Write ]) t ->
key:'a -> data:'b -> unit
val replace :
('a, 'b, [< `Read | `Write > `Write ]) t ->
key:'a -> data:'b -> unit
val iter :
f:(key:'a -> data:'b -> unit) ->
('a, 'b, [< `Read | `Write > `Read ]) t -> unit
val map :
f:(key:'a -> data:'b -> 'c) ->
('a, 'b, [< `Read | `Write > `Read ]) t ->
('a, 'c, [< `Read | `Write ]) t
val map_inplace :
f:(key:'a -> data:'b -> 'b) ->
('a, 'b, [< `Read | `Write > `Write ]) t -> unit
val filter :
f:('a -> bool) ->
('key, 'a, [< `Read | `Write > `Read ]) t ->
('key, 'a, [< `Read | `Write ]) t
val filter_inplace :
f:('a -> bool) ->
('key, 'a, [< `Read | `Write > `Write ]) t -> unit
val filteri :
f:(key:'key -> data:'a -> bool) ->
('key, 'a, [< `Read | `Write > `Read ]) t ->
('key, 'a, [< `Read | `Write ]) t
val filteri_inplace :
f:(key:'key -> data:'a -> bool) ->
('key, 'a, [< `Read | `Write > `Write ]) t -> unit
val filter_map :
f:(key:'key -> data:'a -> 'b option) ->
('key, 'a, [< `Read | `Write > `Read ]) t ->
('key, 'b, [< `Read | `Write ]) t
val filter_map_inplace :
f:(key:'key -> data:'a -> 'a option) ->
('key, 'a, [< `Read | `Write > `Write ]) t -> unit
val fold :
f:(key:'a -> data:'b -> 'c -> 'c) ->
('a, 'b, [< `Read | `Write > `Read ]) t -> init:'c -> 'c
end
end
end
end`