* http://helm.cs.unibo.it/
*)
-exception Drop
+val eval_ast :
+ ?do_heavy_checks:bool ->
+ ?clean_baseuri:bool ->
+ LexiconEngine.status ->
+ GrafiteTypes.status ->
+ (CicNotationPt.term, CicNotationPt.term,
+ CicNotationPt.term GrafiteAst.reduction, CicNotationPt.obj, string)
+ GrafiteAst.statement ->
+ ((GrafiteTypes.status * LexiconEngine.status) *
+ (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) option
+ ) list
-val eval_string: (string -> unit) -> MatitaTypes.status ref -> string -> unit
-val eval_from_stream:
- (string -> unit) ->
- MatitaTypes.status ref -> char Stream.t ->
- (MatitaTypes.status ->
- (CicAst.term,TacticAst.obj,string) TacticAst.statement -> unit) ->
- unit
-
-val eval_from_stream_greedy:
- (string -> unit) ->
- MatitaTypes.status ref-> char Stream.t ->
- (MatitaTypes.status ->
- (CicAst.term,TacticAst.obj,string) TacticAst.statement -> unit) ->
- unit
-
-val eval_ast:
- (string -> unit) ->
- MatitaTypes.status ->
- (CicAst.term,TacticAst.obj,string) TacticAst.statement ->
- MatitaTypes.status
-
-val eval:
- (string -> unit) ->
- MatitaTypes.status -> (Cic.term,Cic.obj,string) TacticAst.statement ->
- MatitaTypes.status
-
-val initial_status: MatitaTypes.status lazy_t
+(* heavy checks slow down the compilation process but give you some interesting
+ * infos like if the theorem is a duplicate *)
+val eval_string :
+ first_statement_only:bool ->
+ include_paths:string list ->
+ ?do_heavy_checks:bool ->
+ ?clean_baseuri:bool ->
+ LexiconEngine.status ->
+ GrafiteTypes.status ->
+ string ->
+ ((GrafiteTypes.status * LexiconEngine.status) *
+ (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) option
+ ) list
+val eval_from_stream :
+ first_statement_only:bool ->
+ include_paths:string list ->
+ ?prompt:bool ->
+ ?do_heavy_checks:bool ->
+ ?clean_baseuri:bool ->
+ LexiconEngine.status ->
+ GrafiteTypes.status ->
+ Ulexing.lexbuf ->
+ (GrafiteTypes.status ->
+ (CicNotationPt.term, CicNotationPt.term,
+ CicNotationPt.term GrafiteAst.reduction, CicNotationPt.obj, string)
+ GrafiteAst.statement -> unit) ->
+ ((GrafiteTypes.status * LexiconEngine.status) *
+ (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) option
+ ) list