Fixed pretty printer and debug printings

[helm.git] / helm / software / components / grafite_parser / grafiteDisambiguate.mli

diff --git a/helm/software/components/grafite_parser/grafiteDisambiguate.mli b/helm/software/components/grafite_parser/grafiteDisambiguate.mli
index 163e6db6d7e6ba7e1478f3a3d9ec72fbf1803dd2..6565a4d9f0e4887091929e8fec214662597d6a1f 100644 (file)
--- a/helm/software/components/grafite_parser/grafiteDisambiguate.mli
+++ b/helm/software/components/grafite_parser/grafiteDisambiguate.mli
@@ -42,11 +42,11 @@ val disambiguate_tactic:
   Cic.metasenv * lazy_tactic
 
 val disambiguate_command: 
- LexiconEngine.status ->
+ LexiconEngine.status as 'status ->
  ?baseuri:string ->
  Cic.metasenv ->
  ((CicNotationPt.term,CicNotationPt.term CicNotationPt.obj) GrafiteAst.command) Disambiguate.disambiguator_input ->
-  LexiconEngine.status * Cic.metasenv * (Cic.term,Cic.obj) GrafiteAst.command
+  'status * Cic.metasenv * (Cic.term,Cic.obj) GrafiteAst.command
 
 val disambiguate_macro:
  LexiconEngine.status ref ->
@@ -56,7 +56,23 @@ val disambiguate_macro:
   Cic.metasenv * (Cic.term,Cic.lazy_term) GrafiteAst.macro
 
 val disambiguate_nterm :
- NCic.term option -> LexiconEngine.status ->
+ NCic.term option -> 
+ (#NEstatus.status as 'status) ->
  NCic.context -> NCic.metasenv -> NCic.substitution ->
  CicNotationPt.term Disambiguate.disambiguator_input ->
-   NCic.metasenv * NCic.substitution * LexiconEngine.status * NCic.term
+   NCic.metasenv * NCic.substitution * 'status * NCic.term
+
+val disambiguate_nobj :
+ #NEstatus.status as 'status ->
+ ?baseuri:string ->
+ (CicNotationPt.term CicNotationPt.obj) Disambiguate.disambiguator_input ->
+  'status * NCic.obj
+
+type pattern = 
+  CicNotationPt.term Disambiguate.disambiguator_input option * 
+  (string * NCic.term) list * NCic.term option
+
+val disambiguate_npattern:
+  GrafiteAst.npattern Disambiguate.disambiguator_input -> pattern
+    
+