Imported Upstream snapshot 8.3~beta0+13298

1 files changed, 34 insertions, 0 deletions

diff --git a/lib/tries.mli b/lib/tries.mli
new file mode 100644
index 00000000..342c81ec
--- /dev/null
+++ b/lib/tries.mli
@@ -0,0 +1,34 @@
+
+
+
+
+
+module Make :
+  functor (X : Set.OrderedType) ->
+    functor (Y : Map.OrderedType) ->
+sig
+     
+  type t 
+    
+  val empty : t
+      
+  (* Work on labels, not on paths. *)
+
+  val map : t -> Y.t -> t
+
+  val xtract : t -> X.t list
+    
+  val dom : t -> Y.t list
+
+  val in_dom : t -> Y.t -> bool
+
+  (* Work on paths, not on labels. *)
+
+  val add : t -> Y.t list * X.t -> t
+  
+  val rmv : t -> Y.t list * X.t -> t 
+
+  val app : ((Y.t list * X.t) -> unit) -> t -> unit
+    
+  val to_list : t -> (Y.t list * X.t) list
+end