X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fng_disambiguation%2FgrafiteDisambiguate.ml;h=d6e4e0c354f305f107fd79e09e16cff9e4eefa4d;hb=dc20d16b32940a94d29a04de0d4fe1f80e00a73f;hp=c39ac161d939d56dac961b2f0527589a07f8b759;hpb=04168c737e0916ebdbcdb1457f228bef670c657b;p=helm.git

diff --git a/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml b/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml
index c39ac161d..d6e4e0c35 100644
--- a/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml
+++ b/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml
@@ -106,7 +106,23 @@ let add_to_interpr status new_aliases =
      {status#disambiguate_db with interpr = interpr }
    in
     status#set_disambiguate_db new_status
-   
+
+(*
+let print_interpr status =
+   DisambiguateTypes.InterprEnv.iter
+     (fun loc alias ->
+        let start,stop = HExtlib.loc_of_floc loc in
+        let strpos = Printf.sprintf "@(%d,%d):" start stop in
+        match alias with
+        | GrafiteAst.Ident_alias (id,uri) -> 
+            Printf.printf "%s   [%s;%s]\n" strpos id uri
+        | GrafiteAst.Symbol_alias (name,_ouri,desc) ->
+            Printf.printf "%s  <%s:%s>\n" strpos name desc
+        | GrafiteAst.Number_alias (_ouri,desc) ->
+            Printf.printf "%s  <NUM:%s>\n" strpos desc)
+     status#disambiguate_db.interpr
+*)
+
 let add_to_disambiguation_univ status new_aliases =
    let multi_aliases =
     List.fold_left (fun acc (d,c) -> 
@@ -353,7 +369,7 @@ let disambiguate_nterm status expty context metasenv subst thing
           diff_term Stdpp.dummy_loc thing' ast) choices 
       in 
       raise (Ambiguous_input (find_diffs diffs)) 
-  | Disambiguate.Disamb_failure (l,_) ->
+  | Disambiguate.Disamb_failure l ->
       raise (Error (List.map (clusterize (diff_term Stdpp.dummy_loc thing')) l))
   | _ -> assert false
 ;;
@@ -440,7 +456,7 @@ let disambiguate_nobj status ?baseuri (text,prefix_len,obj as obj') =
           diff_obj Stdpp.dummy_loc obj ast) choices 
       in
       raise (Ambiguous_input (find_diffs diffs)) 
-  | Disambiguate.Disamb_failure (l,_) -> 
+  | Disambiguate.Disamb_failure l -> 
       raise (Error (List.map (clusterize (diff_obj Stdpp.dummy_loc obj)) l))
   | _ -> assert false
 ;;