From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Wed, 19 Jul 2006 10:43:43 +0000 (+0000)
Subject: added sets of uri pairs (useful for edges between uris)
X-Git-Tag: make_still_working~7042
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=230b21d82131c6e6a4bccad225d5dc419aeb9ae4;p=helm.git

added sets of uri pairs (useful for edges between uris)
currently commented since not used ...
---

diff --git a/helm/software/components/urimanager/uriManager.ml b/helm/software/components/urimanager/uriManager.ml
index eb0388cc2..c0da8eb4b 100644
--- a/helm/software/components/urimanager/uriManager.ml
+++ b/helm/software/components/urimanager/uriManager.ml
@@ -220,6 +220,19 @@ end
 
 module UriSet = Set.Make (OrderedUri)
 
+(*
+module OrderedUriPair =
+struct
+  type t = uri * uri
+  let compare (u11, u12) (u21, u22) =
+    match compare u11 u21 with
+    | 0 -> compare u12 u22
+    | x -> x
+end
+
+module UriPairSet = Set.Make (OrderedUriPair)
+*)
+
 module HashedUri =
 struct
   type t = uri
diff --git a/helm/software/components/urimanager/uriManager.mli b/helm/software/components/urimanager/uriManager.mli
index 1b8317816..0d4fcb419 100644
--- a/helm/software/components/urimanager/uriManager.mli
+++ b/helm/software/components/urimanager/uriManager.mli
@@ -67,6 +67,7 @@ val univgraphuri_of_uri : uri -> uri
 val uri_of_uriref :  uri -> int -> int option -> uri
 
 module UriSet: Set.S with type elt = uri
+(*module UriPairSet: Set.S with type elt = uri * uri*)
 
 module UriHashtbl : Hashtbl.S with type key = uri