patches for hints & unification:

[helm.git] / helm / software / components / disambiguation / multiPassDisambiguator.mli

diff --git a/helm/software/components/disambiguation/multiPassDisambiguator.mli b/helm/software/components/disambiguation/multiPassDisambiguator.mli
index 21818816ca6d405d9fd8ce06d552b4744a6d29f2..41b79c9b025b2ea73761cf5937f62be39e841396 100644 (file)
--- a/helm/software/components/disambiguation/multiPassDisambiguator.mli
+++ b/helm/software/components/disambiguation/multiPassDisambiguator.mli
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+val debug: bool ref
+
 (* the integer is an offset to be added to each location *)
 exception DisambiguationError of
  int *
@@ -45,12 +47,10 @@ val disambiguate_thing:
   subst:'subst ->
   string_context_of_context:('context -> string option list) ->
   initial_ugraph:'ugraph ->
-  hint: 
-    ('metasenv -> 'raw_thing -> 'raw_thing) * 
-    (('refined_thing,'metasenv,'subst,'ugraph) Disambiguate.test_result ->
-       ('refined_thing,'metasenv,'subst,'ugraph) Disambiguate.test_result) ->
+  expty: 'refined_thing option ->
   mk_implicit:(bool -> 'alias) ->
   description_of_alias:('alias -> string) ->
+  fix_instance:(DisambiguateTypes.domain_item -> 'alias list -> 'alias list) ->
   aliases:'alias DisambiguateTypes.Environment.t ->
   universe:'alias list
     DisambiguateTypes.Environment.t option ->
@@ -73,7 +73,7 @@ val disambiguate_thing:
       'raw_thing) ->
   refine_thing:(
     'metasenv -> 'subst -> 'context -> 'uri -> use_coercions:bool ->
-    'raw_thing -> 'ugraph -> localization_tbl:'cichash -> 
+    'raw_thing -> 'refined_thing option -> 'ugraph -> localization_tbl:'cichash -> 
       ('refined_thing, 'metasenv,'subst,'ugraph) Disambiguate.test_result) ->
   mk_localization_tbl:(int -> 'cichash) ->
   string * int * 'ast_thing ->