simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

CCHashtbl: Added {keys,values}_list in the functor as well. Better doc.

Browse source
This commit is contained in:
Vincent Bernardoff 2014-12-22 17:27:04 +01:00
parent 22e5b26b94
commit 86fdb22d5a
2 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/core/CCHashtbl.ml
View file

@ -84,6 +84,14 @@ module type S = sig
val values : 'a t -> 'a sequence val values : 'a t -> 'a sequence
(** Iterate on values in the table *) (** Iterate on values in the table *)
val keys_list : ('a, 'b) Hashtbl.t -> 'a list
(** [keys t] is the list of keys in [t].
@since NEXT_RELEASE *)
val values_list : ('a, 'b) Hashtbl.t -> 'b list
(** [values t] is the list of values in [t].
@since NEXT_RELEASE *)
val map_list : (key -> 'a -> 'b) -> 'a t -> 'b list val map_list : (key -> 'a -> 'b) -> 'a t -> 'b list
(** Map on a hashtable's items, collect into a list *) (** Map on a hashtable's items, collect into a list *)
@ -111,6 +119,9 @@ module Make(X : Hashtbl.HashedType) = struct
let values tbl k = iter (fun _ v -> k v) tbl let values tbl k = iter (fun _ v -> k v) tbl
let keys_list tbl = Hashtbl.fold (fun k _ a -> k::a) tbl []
let values_list tbl = Hashtbl.fold (fun _ v a -> v::a) tbl []
let map_list f h = let map_list f h =
fold fold
(fun x y acc -> f x y :: acc) (fun x y acc -> f x y :: acc)

14
src/core/CCHashtbl.mli
View file

@ -45,10 +45,12 @@ val values : ('a,'b) Hashtbl.t -> 'b sequence
(** Iterate on values in the table *) (** Iterate on values in the table *)
val keys_list : ('a, 'b) Hashtbl.t -> 'a list val keys_list : ('a, 'b) Hashtbl.t -> 'a list
(** [keys t] is the list of keys in [t]. *) (** [keys t] is the list of keys in [t].
@since NEXT_RELEASE *)
val values_list : ('a, 'b) Hashtbl.t -> 'b list val values_list : ('a, 'b) Hashtbl.t -> 'b list
(** [values t] is the list of values in [t]. *) (** [values t] is the list of values in [t].
@since NEXT_RELEASE *)
val map_list : ('a -> 'b -> 'c) -> ('a, 'b) Hashtbl.t -> 'c list val map_list : ('a -> 'b -> 'c) -> ('a, 'b) Hashtbl.t -> 'c list
(** Map on a hashtable's items, collect into a list *) (** Map on a hashtable's items, collect into a list *)
@ -79,6 +81,14 @@ module type S = sig
val values : 'a t -> 'a sequence val values : 'a t -> 'a sequence
(** Iterate on values in the table *) (** Iterate on values in the table *)
val keys_list : ('a, 'b) Hashtbl.t -> 'a list
(** [keys t] is the list of keys in [t].
@since NEXT_RELEASE *)
val values_list : ('a, 'b) Hashtbl.t -> 'b list
(** [values t] is the list of values in [t].
@since NEXT_RELEASE *)
val map_list : (key -> 'a -> 'b) -> 'a t -> 'b list val map_list : (key -> 'a -> 'b) -> 'a t -> 'b list
(** Map on a hashtable's items, collect into a list *) (** Map on a hashtable's items, collect into a list *)