X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaEngine.mli;h=2b8d9fd8c7708722fb45ec6d33f722b72623bd20;hb=a02ba10c669642bd4b75a5b0ac9351c24ddb724a;hp=29f3a5a0b64169649655dfb29c1738b19d3b7aec;hpb=b505ea98f76ba6defb31be73a6871c62136e5747;p=helm.git diff --git a/matita/matita/matitaEngine.mli b/matita/matita/matitaEngine.mli index 29f3a5a0b..2b8d9fd8c 100644 --- a/matita/matita/matitaEngine.mli +++ b/matita/matita/matitaEngine.mli @@ -23,6 +23,25 @@ * http://helm.cs.unibo.it/ *) +exception TryingToAdd of string Lazy.t +exception EnrichedWithStatus of exn * GrafiteTypes.status +exception AlreadyLoaded of string Lazy.t +exception FailureCompiling of string * exn +exception CircularDependency of string + +class status: + string -> + object + inherit GrafiteTypes.status + inherit ApplyTransformation.status + end + +val get_ast: + GrafiteTypes.status -> include_paths:string list -> GrafiteParser.parsable -> + GrafiteAst.statement + +(* heavy checks slow down the compilation process but give you some interesting + * infos like if the theorem is a duplicate *) val eval_ast : include_paths: string list -> ?do_heavy_checks:bool -> @@ -32,25 +51,8 @@ val eval_ast : (GrafiteTypes.status * (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) option) list +val assert_ng: include_paths:string list -> string -> bool -(* heavy checks slow down the compilation process but give you some interesting - * infos like if the theorem is a duplicate *) - -exception EnrichedWithStatus of exn * GrafiteTypes.status - -(* 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 -> 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 *) +(* given a path to a ma file inside the include_paths, returns the + new include_paths associated to that file *) +val read_include_paths: include_paths:string list -> string -> string list