X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.mli;h=1413e93fd97409b96518496a0fcf993d61007fe7;hb=497563d35f24bbcbcbd8d669d73284b76a823118;hp=b0dc6e8fd28e8b4a25bd51d0596b52809bac6adf;hpb=01001c883a8151edba81cd03a6f254d24a81c867;p=helm.git

diff --git a/helm/software/components/grafite_parser/grafiteParser.mli b/helm/software/components/grafite_parser/grafiteParser.mli
index b0dc6e8fd..1413e93fd 100644
--- a/helm/software/components/grafite_parser/grafiteParser.mli
+++ b/helm/software/components/grafite_parser/grafiteParser.mli
@@ -46,8 +46,13 @@ val parse_statement: Ulexing.lexbuf -> statement  (** @raise End_of_file *)
 
 val statement: unit -> statement Grammar.Entry.e
 
-(* this callback is called on every include command *)
-val set_callback: (string -> unit) -> unit 
+(* this callback is called before every grafite statement *)
+val set_grafite_callback:
+   (LexiconEngine.status -> ast_statement -> unit) -> unit 
+
+(* this callback is called before every lexicon command *)
+val set_lexicon_callback:
+   (LexiconEngine.status -> LexiconAst.command -> unit) -> unit 
 
 val push : unit -> unit
 val pop : unit -> unit