Signed-off-by: Matthias Goergens <[email protected]>
stdext/listext.ml | 4 ++++ stdext/listext.mli | 2 ++ 2 files changed, 6 insertions(+), 0 deletions(-)
# HG changeset patch # User Matthias Goergens <[email protected]> # Date 1274191678 -3600 # Node ID abd16fd2af43edf2a81bd49c75e213bedb752a59 # Parent 2cdc87ed18e96f3e4d3d8d8345dccf348d0899d1 stdext/Listext got a function make_assoc to build Lisp-like assoc lists Signed-off-by: Matthias Goergens <[email protected]> diff --git a/stdext/listext.ml b/stdext/listext.ml --- a/stdext/listext.ml +++ b/stdext/listext.ml @@ -197,6 +197,8 @@ let safe_hd = function | a::_ -> Some a | [] -> None +let make_assoc op l = map (fun item -> item, op item) l + let rec replace_assoc key new_value = function | [] -> [] | (k, _) as p :: tl -> @@ -205,4 +207,6 @@ let rec replace_assoc key new_value = fu else p :: replace_assoc key new_value tl +let make_assoc op l = map (fun item -> item, op item) l + end diff --git a/stdext/listext.mli b/stdext/listext.mli --- a/stdext/listext.mli +++ b/stdext/listext.mli @@ -180,4 +180,6 @@ sig (** Replace the value belonging to a key in an association list. *) val replace_assoc : 'a -> 'b -> ('a * 'b) list -> ('a * 'b) list + + val make_assoc : ('a -> 'b) -> 'a list -> ('a * 'b) list end
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
