src/props.ml

   1 (** Association list *)
   2 open ExtLib
   3
   4 type t = (string * string) list
   5
   6 let get x n = try Some (List.assoc n x) with Not_found -> None
   7 let get_all x n = List.filter_map (fun (k,v) -> if k = n then Some v else None) x
   8 let set x n v = (n,v)::x
   9 let empty = []