Library
Module
Module type
Parameter
Class
Class type
Extension to the standard Hashtbl
type 'a printer = Format.formatter -> 'a -> unit
Polymorphic tables
This sub-module contains the extension of the standard polymorphic Hashtbl.
module Poly : sig ... end
include module type of Poly
val get : ('a, 'b) Hashtbl.t -> 'a -> 'b option
Safe version of Hashtbl.find
.
val get_or : ('a, 'b) Hashtbl.t -> 'a -> default:'b -> 'b
get_or tbl k ~default
returns the value associated to k
if present, and returns default
otherwise (if k
doesn't belong in tbl
).
Iterate on keys (similar order as Hashtbl.iter
).
val keys_list : ('a, 'b) Hashtbl.t -> 'a list
keys_list t
is the list of keys in t
. If the key is in the Hashtable multiple times, all occurrences will be returned.
val values_list : ('a, 'b) Hashtbl.t -> 'b list
values_list t
is the list of values in t
.
val map_list : ('a -> 'b -> 'c) -> ('a, 'b) Hashtbl.t -> 'c list
Map on a hashtable's items, collect into a list.
val incr : ?by:int -> ('a, int) Hashtbl.t -> 'a -> unit
incr ?by tbl x
increments or initializes the counter associated with x
. If get tbl x = None
, then after update, get tbl x = Some 1
; otherwise, if get tbl x = Some n
, now get tbl x = Some (n+1)
.
val decr : ?by:int -> ('a, int) Hashtbl.t -> 'a -> unit
Like incr
but subtract 1 (or the value of by
). If the value reaches 0, the key is removed from the table. This does nothing if the key is not already present in the table.
val add_list : ('a, 'b list) Hashtbl.t -> 'a -> 'b -> unit
add_list tbl x y
adds y
to the list x
is bound to. If x
is not bound, it becomes bound to y
.
Add the corresponding pairs to the table, using Hashtbl.add
.
add_seq_count tbl seq
increments the count of each element of seq
by calling incr
. This is useful for counting how many times each element of seq
occurs.
Like add_seq_count
, but allocates a new table and returns it.
val to_list : ('a, 'b) Hashtbl.t -> ('a * 'b) list
List of bindings (order unspecified).
val of_list : ('a * 'b) list -> ('a, 'b) Hashtbl.t
Build a table from the given list of bindings k_i -> v_i
, added in order using add
. If a key occurs several times, it will be added several times, and the visible binding will be the last one.
val update :
('a, 'b) Hashtbl.t ->
f:('a -> 'b option -> 'b option) ->
k:'a ->
unit
update tbl ~f ~k
updates key k
by calling f k (Some v)
if k
was mapped to v
, or f k None
otherwise; if the call returns None
then k
is removed/stays removed, if the call returns Some v'
then the binding k -> v'
is inserted using Hashtbl.replace
.
val get_or_add : ('a, 'b) Hashtbl.t -> f:('a -> 'b) -> k:'a -> 'b
get_or_add tbl ~k ~f
finds and returns the binding of k
in tbl
, if it exists. If it does not exist, then f k
is called to obtain a new binding v
; k -> v
is added to tbl
and v
is returned.
Functor
module type S = sig ... end
module Make
(X : Hashtbl.HashedType) :
S with type key = X.t and type 'a t = 'a Hashtbl.Make(X).t