`sig
module type S =
sig
type key
type +'a t
val empty : 'a BatMap.S.t
val is_empty : 'a BatMap.S.t -> bool
val cardinal : 'a BatMap.S.t -> int
val add : BatMap.S.key -> 'a -> 'a BatMap.S.t -> 'a BatMap.S.t
val find : BatMap.S.key -> 'a BatMap.S.t -> 'a
val remove : BatMap.S.key -> 'a BatMap.S.t -> 'a BatMap.S.t
val modify :
BatMap.S.key -> ('a -> 'a) -> 'a BatMap.S.t -> 'a BatMap.S.t
val modify_def :
'a -> BatMap.S.key -> ('a -> 'a) -> 'a BatMap.S.t -> 'a BatMap.S.t
val extract : BatMap.S.key -> 'a BatMap.S.t -> 'a * 'a BatMap.S.t
val pop : 'a BatMap.S.t -> (BatMap.S.key * 'a) * 'a BatMap.S.t
val mem : BatMap.S.key -> 'a BatMap.S.t -> bool
val iter : (BatMap.S.key -> 'a -> unit) -> 'a BatMap.S.t -> unit
val map : ('a -> 'b) -> 'a BatMap.S.t -> 'b BatMap.S.t
val mapi : (BatMap.S.key -> 'a -> 'b) -> 'a BatMap.S.t -> 'b BatMap.S.t
val fold :
(BatMap.S.key -> 'a -> 'b -> 'b) -> 'a BatMap.S.t -> 'b -> 'b
val filterv : ('a -> bool) -> 'a BatMap.S.t -> 'a BatMap.S.t
val filter :
(BatMap.S.key -> 'a -> bool) -> 'a BatMap.S.t -> 'a BatMap.S.t
val filter_map :
(BatMap.S.key -> 'a -> 'b option) -> 'a BatMap.S.t -> 'b BatMap.S.t
val compare :
('a -> 'a -> int) -> 'a BatMap.S.t -> 'a BatMap.S.t -> int
val equal :
('a -> 'a -> bool) -> 'a BatMap.S.t -> 'a BatMap.S.t -> bool
val keys : 'a BatMap.S.t -> BatMap.S.key BatEnum.t
val values : 'a BatMap.S.t -> 'a BatEnum.t
val min_binding : 'a BatMap.S.t -> BatMap.S.key * 'a
val max_binding : 'a BatMap.S.t -> BatMap.S.key * 'a
val choose : 'a BatMap.S.t -> BatMap.S.key * 'a
val split :
BatMap.S.key ->
'a BatMap.S.t -> 'a BatMap.S.t * 'a option * 'a BatMap.S.t
val partition :
(BatMap.S.key -> 'a -> bool) ->
'a BatMap.S.t -> 'a BatMap.S.t * 'a BatMap.S.t
val singleton : BatMap.S.key -> 'a -> 'a BatMap.S.t
val bindings : 'a BatMap.S.t -> (BatMap.S.key * 'a) list
val enum : 'a BatMap.S.t -> (BatMap.S.key * 'a) BatEnum.t
val backwards : 'a BatMap.S.t -> (BatMap.S.key * 'a) BatEnum.t
val of_enum : (BatMap.S.key * 'a) BatEnum.t -> 'a BatMap.S.t
val for_all : (BatMap.S.key -> 'a -> bool) -> 'a BatMap.S.t -> bool
val exists : (BatMap.S.key -> 'a -> bool) -> 'a BatMap.S.t -> bool
val merge :
(BatMap.S.key -> 'a option -> 'b option -> 'c option) ->
'a BatMap.S.t -> 'b BatMap.S.t -> 'c BatMap.S.t
val print :
?first:string ->
?last:string ->
?sep:string ->
?kvsep:string ->
('a BatInnerIO.output -> BatMap.S.key -> unit) ->
('a BatInnerIO.output -> 'c -> unit) ->
'a BatInnerIO.output -> 'c BatMap.S.t -> unit
module Exceptionless :
sig val find : BatMap.S.key -> 'a BatMap.S.t -> 'a option end
module Infix :
sig
val ( --> ) : 'a BatMap.S.t -> BatMap.S.key -> 'a
val ( <-- ) : 'a BatMap.S.t -> BatMap.S.key * 'a -> 'a BatMap.S.t
end
module Labels :
sig
val add :
key:BatMap.S.key -> data:'a -> 'a BatMap.S.t -> 'a BatMap.S.t
val iter :
f:(key:BatMap.S.key -> data:'a -> unit) -> 'a BatMap.S.t -> unit
val map : f:('a -> 'b) -> 'a BatMap.S.t -> 'b BatMap.S.t
val mapi :
f:(key:BatMap.S.key -> data:'a -> 'b) ->
'a BatMap.S.t -> 'b BatMap.S.t
val filterv : f:('a -> bool) -> 'a BatMap.S.t -> 'a BatMap.S.t
val filter :
f:(BatMap.S.key -> 'a -> bool) -> 'a BatMap.S.t -> 'a BatMap.S.t
val fold :
f:(key:BatMap.S.key -> data:'a -> 'b -> 'b) ->
'a BatMap.S.t -> init:'b -> 'b
val compare :
cmp:('a -> 'a -> int) -> 'a BatMap.S.t -> 'a BatMap.S.t -> int
val equal :
cmp:('a -> 'a -> bool) -> 'a BatMap.S.t -> 'a BatMap.S.t -> bool
end
end
module Make :
functor (Ord : BatInterfaces.OrderedType) ->
sig
type key = Ord.t
type +'a t
val empty : 'a t
val is_empty : 'a t -> bool
val cardinal : 'a t -> int
val add : key -> 'a -> 'a t -> 'a t
val find : key -> 'a t -> 'a
val remove : key -> 'a t -> 'a t
val modify : key -> ('a -> 'a) -> 'a t -> 'a t
val modify_def : 'a -> key -> ('a -> 'a) -> 'a t -> 'a t
val extract : key -> 'a t -> 'a * 'a t
val pop : 'a t -> (key * 'a) * 'a t
val mem : key -> 'a t -> bool
val iter : (key -> 'a -> unit) -> 'a t -> unit
val map : ('a -> 'b) -> 'a t -> 'b t
val mapi : (key -> 'a -> 'b) -> 'a t -> 'b t
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val filterv : ('a -> bool) -> 'a t -> 'a t
val filter : (key -> 'a -> bool) -> 'a t -> 'a t
val filter_map : (key -> 'a -> 'b option) -> 'a t -> 'b t
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> key BatEnum.t
val values : 'a t -> 'a BatEnum.t
val min_binding : 'a t -> key * 'a
val max_binding : 'a t -> key * 'a
val choose : 'a t -> key * 'a
val split : key -> 'a t -> 'a t * 'a option * 'a t
val partition : (key -> 'a -> bool) -> 'a t -> 'a t * 'a t
val singleton : key -> 'a -> 'a t
val bindings : 'a t -> (key * 'a) list
val enum : 'a t -> (key * 'a) BatEnum.t
val backwards : 'a t -> (key * 'a) BatEnum.t
val of_enum : (key * 'a) BatEnum.t -> 'a t
val for_all : (key -> 'a -> bool) -> 'a t -> bool
val exists : (key -> 'a -> bool) -> 'a t -> bool
val merge :
(key -> 'a option -> 'b option -> 'c option) ->
'a t -> 'b t -> 'c t
val print :
?first:string ->
?last:string ->
?sep:string ->
?kvsep:string ->
('a BatInnerIO.output -> key -> unit) ->
('a BatInnerIO.output -> 'c -> unit) ->
'a BatInnerIO.output -> 'c t -> unit
module Exceptionless : sig val find : key -> 'a t -> 'a option end
module Infix :
sig
val ( --> ) : 'a t -> key -> 'a
val ( <-- ) : 'a t -> key * 'a -> 'a t
end
module Labels :
sig
val add : key:key -> data:'a -> 'a t -> 'a t
val iter : f:(key:key -> data:'a -> unit) -> 'a t -> unit
val map : f:('a -> 'b) -> 'a t -> 'b t
val mapi : f:(key:key -> data:'a -> 'b) -> 'a t -> 'b t
val filterv : f:('a -> bool) -> 'a t -> 'a t
val filter : f:(key -> 'a -> bool) -> 'a t -> 'a t
val fold :
f:(key:key -> data:'a -> 'b -> 'b) -> 'a t -> init:'b -> 'b
val compare : cmp:('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : cmp:('a -> 'a -> bool) -> 'a t -> 'a t -> bool
end
end
type ('a, 'b) t
val empty : ('a, 'b) BatMap.t
val is_empty : ('a, 'b) BatMap.t -> bool
val singleton : 'a -> 'b -> ('a, 'b) BatMap.t
val cardinal : ('a, 'b) BatMap.t -> int
val add : 'a -> 'b -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t
val find : 'a -> ('a, 'b) BatMap.t -> 'b
val remove : 'a -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t
val mem : 'a -> ('a, 'b) BatMap.t -> bool
val iter : ('a -> 'b -> unit) -> ('a, 'b) BatMap.t -> unit
val map : ('b -> 'c) -> ('a, 'b) BatMap.t -> ('a, 'c) BatMap.t
val mapi : ('a -> 'b -> 'c) -> ('a, 'b) BatMap.t -> ('a, 'c) BatMap.t
val fold : ('b -> 'c -> 'c) -> ('a, 'b) BatMap.t -> 'c -> 'c
val foldi : ('a -> 'b -> 'c -> 'c) -> ('a, 'b) BatMap.t -> 'c -> 'c
val filterv : ('a -> bool) -> ('key, 'a) BatMap.t -> ('key, 'a) BatMap.t
val filter :
('key -> 'a -> bool) -> ('key, 'a) BatMap.t -> ('key, 'a) BatMap.t
val filter_map :
('key -> 'a -> 'b option) -> ('key, 'a) BatMap.t -> ('key, 'b) BatMap.t
val choose : ('key, 'a) BatMap.t -> 'key * 'a
val split :
'key ->
('key, 'a) BatMap.t ->
('key, 'a) BatMap.t * 'a option * ('key, 'a) BatMap.t
val min_binding : ('key, 'a) BatMap.t -> 'key * 'a
val max_binding : ('key, 'a) BatMap.t -> 'key * 'a
val enum : ('a, 'b) BatMap.t -> ('a * 'b) BatEnum.t
val backwards : ('a, 'b) BatMap.t -> ('a * 'b) BatEnum.t
val keys : ('a, 'b) BatMap.t -> 'a BatEnum.t
val values : ('a, 'b) BatMap.t -> 'b BatEnum.t
val of_enum : ('a * 'b) BatEnum.t -> ('a, 'b) BatMap.t
val for_all : ('a -> 'b -> bool) -> ('a, 'b) BatMap.t -> bool
val exists : ('a -> 'b -> bool) -> ('a, 'b) BatMap.t -> bool
val partition :
('a -> 'b -> bool) ->
('a, 'b) BatMap.t -> ('a, 'b) BatMap.t * ('a, 'b) BatMap.t
val add_carry :
'a -> 'b -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t * 'b option
val modify : 'a -> ('b -> 'b) -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t
val modify_def :
'b -> 'a -> ('b -> 'b) -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t
val extract : 'a -> ('a, 'b) BatMap.t -> 'b * ('a, 'b) BatMap.t
val pop : ('a, 'b) BatMap.t -> ('a * 'b) * ('a, 'b) BatMap.t
val union : ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t
val diff : ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t
val intersect :
('b -> 'c -> 'd) ->
('a, 'b) BatMap.t -> ('a, 'c) BatMap.t -> ('a, 'd) BatMap.t
val merge :
('key -> 'a option -> 'b option -> 'c option) ->
('key, 'a) BatMap.t -> ('key, 'b) BatMap.t -> ('key, 'c) BatMap.t
val compare :
('b -> 'b -> int) -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t -> int
val equal :
('b -> 'b -> bool) -> ('a, 'b) BatMap.t -> ('a, 'b) BatMap.t -> bool
module Exceptionless :
sig val find : 'a -> ('a, 'b) BatMap.t -> 'b option end
module Infix :
sig
val ( --> ) : ('a, 'b) BatMap.t -> 'a -> 'b
val ( <-- ) : ('a, 'b) BatMap.t -> 'a * 'b -> ('a, 'b) BatMap.t
end
val ( --> ) : ('a, 'b) BatMap.t -> 'a -> 'b
val ( <-- ) : ('a, 'b) BatMap.t -> 'a * 'b -> ('a, 'b) BatMap.t
val bindings : ('key, 'a) BatMap.t -> ('key * 'a) list
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) BatMap.t -> unit
module type OrderedType = BatInterfaces.OrderedType
module PMap :
sig
type ('a, 'b) t
val empty : ('a, 'b) BatMap.PMap.t
val is_empty : ('a, 'b) BatMap.PMap.t -> bool
val create : ('a -> 'a -> int) -> ('a, 'b) BatMap.PMap.t
val singleton :
?cmp:('a -> 'a -> int) -> 'a -> 'b -> ('a, 'b) BatMap.PMap.t
val cardinal : ('a, 'b) BatMap.PMap.t -> int
val add : 'a -> 'b -> ('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t
val find : 'a -> ('a, 'b) BatMap.PMap.t -> 'b
val remove : 'a -> ('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t
val mem : 'a -> ('a, 'b) BatMap.PMap.t -> bool
val iter : ('a -> 'b -> unit) -> ('a, 'b) BatMap.PMap.t -> unit
val map :
('b -> 'c) -> ('a, 'b) BatMap.PMap.t -> ('a, 'c) BatMap.PMap.t
val mapi :
('a -> 'b -> 'c) -> ('a, 'b) BatMap.PMap.t -> ('a, 'c) BatMap.PMap.t
val fold : ('b -> 'c -> 'c) -> ('a, 'b) BatMap.PMap.t -> 'c -> 'c
val foldi :
('a -> 'b -> 'c -> 'c) -> ('a, 'b) BatMap.PMap.t -> 'c -> 'c
val filterv :
('a -> bool) -> ('key, 'a) BatMap.PMap.t -> ('key, 'a) BatMap.PMap.t
val filter :
('key -> 'a -> bool) ->
('key, 'a) BatMap.PMap.t -> ('key, 'a) BatMap.PMap.t
val filter_map :
('key -> 'a -> 'b option) ->
('key, 'a) BatMap.PMap.t -> ('key, 'b) BatMap.PMap.t
val choose : ('key, 'a) BatMap.PMap.t -> 'key * 'a
val split :
'key ->
('key, 'a) BatMap.PMap.t ->
('key, 'a) BatMap.PMap.t * 'a option * ('key, 'a) BatMap.PMap.t
val min_binding : ('key, 'a) BatMap.PMap.t -> 'key * 'a
val max_binding : ('key, 'a) BatMap.PMap.t -> 'key * 'a
val enum : ('a, 'b) BatMap.PMap.t -> ('a * 'b) BatEnum.t
val backwards : ('a, 'b) BatMap.PMap.t -> ('a * 'b) BatEnum.t
val keys : ('a, 'b) BatMap.PMap.t -> 'a BatEnum.t
val values : ('a, 'b) BatMap.PMap.t -> 'b BatEnum.t
val of_enum :
?cmp:('a -> 'a -> int) ->
('a * 'b) BatEnum.t -> ('a, 'b) BatMap.PMap.t
val for_all : ('a -> 'b -> bool) -> ('a, 'b) BatMap.PMap.t -> bool
val exists : ('a -> 'b -> bool) -> ('a, 'b) BatMap.PMap.t -> bool
val partition :
('a -> 'b -> bool) ->
('a, 'b) BatMap.PMap.t ->
('a, 'b) BatMap.PMap.t * ('a, 'b) BatMap.PMap.t
val add_carry :
'a ->
'b -> ('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t * 'b option
val modify :
'a -> ('b -> 'b) -> ('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t
val modify_def :
'b ->
'a -> ('b -> 'b) -> ('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t
val extract :
'a -> ('a, 'b) BatMap.PMap.t -> 'b * ('a, 'b) BatMap.PMap.t
val pop : ('a, 'b) BatMap.PMap.t -> ('a * 'b) * ('a, 'b) BatMap.PMap.t
val union :
('a, 'b) BatMap.PMap.t ->
('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t
val diff :
('a, 'b) BatMap.PMap.t ->
('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t
val intersect :
('b -> 'c -> 'd) ->
('a, 'b) BatMap.PMap.t ->
('a, 'c) BatMap.PMap.t -> ('a, 'd) BatMap.PMap.t
val merge :
('key -> 'a option -> 'b option -> 'c option) ->
('key, 'a) BatMap.PMap.t ->
('key, 'b) BatMap.PMap.t -> ('key, 'c) BatMap.PMap.t
val merge_unsafe :
('key -> 'a option -> 'b option -> 'c option) ->
('key, 'a) BatMap.PMap.t ->
('key, 'b) BatMap.PMap.t -> ('key, 'c) BatMap.PMap.t
val compare :
('b -> 'b -> int) ->
('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t -> int
val equal :
('b -> 'b -> bool) ->
('a, 'b) BatMap.PMap.t -> ('a, 'b) BatMap.PMap.t -> bool
module Exceptionless :
sig val find : 'a -> ('a, 'b) BatMap.PMap.t -> 'b option end
module Infix :
sig
val ( --> ) : ('a, 'b) BatMap.PMap.t -> 'a -> 'b
val ( <-- ) :
('a, 'b) BatMap.PMap.t -> 'a * 'b -> ('a, 'b) BatMap.PMap.t
end
val ( --> ) : ('a, 'b) BatMap.PMap.t -> 'a -> 'b
val ( <-- ) :
('a, 'b) BatMap.PMap.t -> 'a * 'b -> ('a, 'b) BatMap.PMap.t
val bindings : ('key, 'a) BatMap.PMap.t -> ('key * 'a) list
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) BatMap.PMap.t -> unit
val get_cmp : ('a, 'b) BatMap.PMap.t -> 'a -> 'a -> int
end
end`