* http://helm.cs.unibo.it/
*)
-exception Drop
-exception UnableToInclude of string
-
-type statement =
- (CicNotationPt.term, GrafiteAst.obj, string) GrafiteAst.statement
-
-(* heavy checks slow down the compilation process but give you some interesting
- * infos like if the theorem is a duplicate *)
-val eval_string:
+val eval_ast :
?do_heavy_checks:bool ->
- ?include_paths:string list ->
?clean_baseuri:bool ->
- MatitaTypes.status ref -> string -> unit
+ 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_from_stream:
- ?do_heavy_checks:bool ->
- ?include_paths:string list ->
- ?clean_baseuri:bool ->
- MatitaTypes.status ref -> char Stream.t ->
- (MatitaTypes.status -> statement -> unit) ->
- unit
-val eval_from_stream_greedy:
+(* 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 ->
- ?include_paths:string list ->
?clean_baseuri:bool ->
- MatitaTypes.status ref-> char Stream.t ->
- (MatitaTypes.status -> statement -> unit) ->
- unit
+ LexiconEngine.status ->
+ GrafiteTypes.status ->
+ string ->
+ ((GrafiteTypes.status * LexiconEngine.status) *
+ (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) option
+ ) list
-val eval_ast:
+val eval_from_stream :
+ first_statement_only:bool ->
+ include_paths:string list ->
+ ?prompt:bool ->
?do_heavy_checks:bool ->
- ?include_paths:string list ->
?clean_baseuri:bool ->
- MatitaTypes.status ->
- statement ->
- MatitaTypes.status
-
-val initial_status: MatitaTypes.status lazy_t
-
+ 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