X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgrafite_engine%2FgrafiteEngine.mli;h=ee5f3a15724e598c95da8a1219b3b7250ae3af96;hb=e66e67d2f9f2772d63a7457e386f9616f62a2f39;hp=4043e80720b0287ce9be98dece31bb2c833a8c85;hpb=827e35d6058ebba3a4a4fa6eb3c160f0cd0fd1e8;p=helm.git

diff --git a/helm/ocaml/grafite_engine/grafiteEngine.mli b/helm/ocaml/grafite_engine/grafiteEngine.mli
index 4043e8072..ee5f3a157 100644
--- a/helm/ocaml/grafite_engine/grafiteEngine.mli
+++ b/helm/ocaml/grafite_engine/grafiteEngine.mli
@@ -25,6 +25,9 @@
 
 exception Drop
 exception IncludedFileNotCompiled of string
+exception Macro of
+ GrafiteAst.loc *
+  (Cic.context -> GrafiteTypes.status * Cic.term GrafiteAst.macro)
 
 val eval_ast :
   disambiguate_tactic:
@@ -39,6 +42,11 @@ val eval_ast :
     'obj GrafiteAst.command ->
     GrafiteTypes.status * Cic.obj GrafiteAst.command) ->
 
+  disambiguate_macro:
+   (GrafiteTypes.status ->
+    'term GrafiteAst.macro ->
+    Cic.context -> GrafiteTypes.status * Cic.term GrafiteAst.macro) ->
+
   ?do_heavy_checks:bool ->
   ?clean_baseuri:bool ->
   GrafiteTypes.status ->