type ast_statement =
(CicNotationPt.term, CicNotationPt.term,
- CicNotationPt.term GrafiteAst.reduction, CicNotationPt.obj, string)
+ CicNotationPt.term GrafiteAst.reduction,
+ CicNotationPt.term CicNotationPt.obj, string)
GrafiteAst.statement
type statement =
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