*)
val eval_ast :
+ include_paths: string list ->
?do_heavy_checks:bool ->
GrafiteTypes.status ->
string * int *
- ((NotationPt.term, NotationPt.term,
- NotationPt.term GrafiteAst.reduction, NotationPt.term NotationPt.obj, string)
- GrafiteAst.statement) ->
+ GrafiteAst.statement ->
(GrafiteTypes.status *
- (DisambiguateTypes.domain_item * LexiconAst.alias_spec) option) list
+ (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) option) list
(* heavy checks slow down the compilation process but give you some interesting
(* should be used only by the compiler since it looses the
* disambiguation_context (text,prefix_len,_) *)
val eval_from_stream :
- first_statement_only:bool ->
- include_paths:string list ->
- ?do_heavy_checks:bool ->
- ?enforce_no_new_aliases:bool -> (* default true *)
- ?watch_statuses:(GrafiteTypes.status -> unit) ->
- GrafiteTypes.status ->
- Ulexing.lexbuf ->
- (GrafiteTypes.status ->
- (NotationPt.term, NotationPt.term,
- NotationPt.term GrafiteAst.reduction, NotationPt.term NotationPt.obj, string)
- GrafiteAst.statement -> unit) ->
- (GrafiteTypes.status *
- (DisambiguateTypes.domain_item * LexiconAst.alias_spec) option) list
+ include_paths:string list -> ?do_heavy_checks:bool -> GrafiteTypes.status ->
+ Ulexing.lexbuf -> (GrafiteTypes.status -> GrafiteAst.statement -> unit) ->
+ GrafiteTypes.status
+
+val toplevel:
+ #GrafiteParser.status -> include_paths:string list -> string ->
+ GrafiteParser.ast_statement
+
+(* EX MATITACLIB *)
+module Make : sig
+ val make: string -> string list -> bool
+end
+(* FINE EX MATITACLIB *)