(* should be used only by the compiler since it looses the
* disambiguation_context (text,prefix_len,_) *)
val eval_from_stream :
- 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 -> GrafiteAst.statement -> unit) ->
- (GrafiteTypes.status *
- (DisambiguateTypes.domain_item * GrafiteAst.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 *)