X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaMisc.mli;h=170a87c9b1c03ae54fb6e8e7942ef82811025c10;hb=771ee8b9d122fa963881c876e86f90531bb7434f;hp=a04258aee771bb6e63898a9d3fb3d279d2c7e978;hpb=6fa89cef6aa8fc1774db065a9fcfc47867579054;p=helm.git

diff --git a/helm/matita/matitaMisc.mli b/helm/matita/matitaMisc.mli
index a04258aee..170a87c9b 100644
--- a/helm/matita/matitaMisc.mli
+++ b/helm/matita/matitaMisc.mli
@@ -23,21 +23,6 @@
  * http://helm.cs.unibo.it/
  *)
 
-val baseuri_of_baseuri_decl:
-  ('a, 'b, 'c, 'd, 'e) 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
-(** removes a dir if it exists and is empty *)
-val safe_rmdir: string -> unit 
-(** checks if the dir is empty *)
-val is_dir_empty: string -> bool
-(** removes a directory and recursively the father (if empty) *)
-val rmdir_descend: string -> unit
-
 val absolute_path: string -> string 
 
   (** @return true if file is a (textual) proof script *)
@@ -50,7 +35,6 @@ val is_proof_object: string -> bool
   * it *)
 val append_phrase_sep: string -> string
 
-val strip_trailing_slash: string -> string
 val normalize_dir: string -> string (** add trailing "/" if missing *)
 val strip_suffix: suffix:string -> string -> string
 
@@ -89,5 +73,3 @@ val singleton: (unit -> 'a) -> (unit -> 'a)
 
   (** given the base name of an image, returns its full path *)
 val image_path: string -> string
-val obj_file_of_baseuri: string -> string
-