X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaMisc.mli;h=dafd91387a8dee473897e6d0b71d127316635284;hb=71590f4a0cb620a5e98fee3e8d65670271234532;hp=c2cba5903192744d61ba9ec7264d1a297ef84e5b;hpb=ced6c94c59ba147abbee642dcd3e816ee2e1c1eb;p=helm.git diff --git a/helm/matita/matitaMisc.mli b/helm/matita/matitaMisc.mli index c2cba5903..dafd91387 100644 --- a/helm/matita/matitaMisc.mli +++ b/helm/matita/matitaMisc.mli @@ -23,10 +23,23 @@ * http://helm.cs.unibo.it/ *) +val baseuri_of_file : string -> string + +val baseuri_of_baseuri_decl : ('a, 'b, 'c) GrafiteAst.statement -> string option + + (** check whether no objects are defined below a given baseuri *) +val is_empty: string -> bool + +(** removes a file if it exists *) +val safe_remove: string -> unit + val is_dir: string -> bool (** @return true if file is a directory *) val is_regular: string -> bool (** @return true if file is a regular file *) val input_file: string -> string (** read all the contents of file to string *) +val output_file: string -> string -> unit (** write string to file *) + +val absolute_path: string -> string (** @return true if file is a (textual) proof script *) val is_proof_script: string -> bool @@ -41,6 +54,9 @@ val append_phrase_sep: string -> string val strip_trailing_blanks: string -> string val strip_trailing_slash: string -> string + (* split a string at character, char defaults to ' ' *) +val split: ?char:char -> string -> string list + val list_uniq: 'a list -> 'a list (* uniq unix filter on lists *) (** @raise Failure *) @@ -92,6 +108,7 @@ val get_proof_aliases: MatitaTypes.status -> DisambiguateTypes.environment (** given the base name of an image, returns its full path *) val image_path: string -> string +val obj_file_of_baseuri: string -> string val obj_file_of_script: string -> string (** invoke a given function and return its value; in addition il will print