add emptying_directory function

David René
1 parent 4edc98f1
Showing 1 changed file with 32 additions and 2 deletions Show diff stats
anubis_dev/library/system/files.anubis
@@ -128,9 +128,9 @@ public define ResultCopy
           }
     }
    else
-    result
-  .
+    result .
  
+    
 public define Bool
   move_file
   (
@@ -351,3 +351,33 @@ public define Bool
         false
   }.
  
+define Bool
+  remove_files
+  (
+    String       path,
+    List(String) files
+  )=
+  if files is
+  {
+    []        then true,  //we have finished
+    [file_name . t ]  then
+      if remove(path + file_name) then
+//        println("removing "+path+file_name);
+        remove_files(path, t)
+      else
+        println("can't remove file ["+path+file_name+"]"); false
+  }.
+
+  /**
+   * Emptying directory, remove all files matching with the given mask
+   * If something wrong happend during the deletion of files the function
+   * may return false otherwise true
+   */
+public define Bool
+  emptying_directory
+  (
+    String  path,
+    String  mask
+  )=
+  with path = normalize_path(path),
+  remove_files(path +"/", directory_list(path, mask)).