let status = Mysql.status dbd in
match status with
| Mysql.StatusError Mysql.Table_exists_error -> ()
+ | Mysql.StatusError Mysql.Dup_keyname -> ()
| Mysql.StatusError _ -> raise exn
| _ -> ()
) statements
Mysql.iter rc (fun a -> match a.(0) with None ->()|Some a -> l := a:: !l);
List.map UriManager.uri_of_string !l
-let reset_owner_environment () =
- clean_owner_environment ();
- create_owner_environment ()
-
val instance: unit -> Mysql.dbd
-val reset_owner_environment : unit -> unit
val create_owner_environment: unit -> unit
+val clean_owner_environment: unit -> unit
val remove_uri: UriManager.uri -> string list
val xpointers_of_ind: UriManager.uri -> UriManager.uri list
prerr_endline "";
prerr_endline "usage:";
prerr_endline "\tmatitaclean all";
- prerr_endline "\tmatitaclean (uri|file)+";
+ prerr_endline "\t\tcleans the whole environment";
+ prerr_endline "\tmatitaclean files...";
+ prerr_endline "\t\tcleans the output of the compilation of files...\n";
prerr_endline "";
exit 1
if Array.length Sys.argv < 2 then usage ();
if Sys.argv.(1) = "all" then
begin
- MatitaDb.reset_owner_environment ();
+ MatitaDb.clean_owner_environment ();
exit 0
end
let uri_to_remove =ref [] in