X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.mli;h=b0dc6e8fd28e8b4a25bd51d0596b52809bac6adf;hb=d3f1cdd3ebec515770d4c2f8a4f7bbc1859e8946;hp=f38f0e5dc3e4dde8a76ee9e95c5b5a141c94ad03;hpb=4db221ee87ba30f63db0ea32c98858041e8e6213;p=helm.git

diff --git a/helm/software/components/grafite_parser/grafiteParser.mli b/helm/software/components/grafite_parser/grafiteParser.mli
index f38f0e5dc..b0dc6e8fd 100644
--- a/helm/software/components/grafite_parser/grafiteParser.mli
+++ b/helm/software/components/grafite_parser/grafiteParser.mli
@@ -33,15 +33,21 @@ type ast_statement =
    CicNotationPt.term CicNotationPt.obj, string)
     GrafiteAst.statement
 
+exception NoInclusionPerformed of string (* full path *)
+
 type statement =
+  ?never_include:bool -> 
+    (* do not call LexiconEngine to do includes, always raise NoInclusionPerformed *) 
   include_paths:string list ->
   LexiconEngine.status ->
     LexiconEngine.status * ast_statement localized_option
 
-(* this callback is called on every lexicon command *)
-val set_callback: (LexiconAst.command -> unit) -> unit 
-
 val parse_statement: Ulexing.lexbuf -> statement  (** @raise End_of_file *)
 
-val statement: statement Grammar.Entry.e
+val statement: unit -> statement Grammar.Entry.e
+
+(* this callback is called on every include command *)
+val set_callback: (string -> unit) -> unit 
 
+val push : unit -> unit
+val pop : unit -> unit