aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-03-05 18:53:53 +0100
committerLudovic Courtès <ludo@gnu.org>2013-03-05 18:53:53 +0100
commite65df6a63a49666edb4e57a68369b8e2ef02f1a0 (patch)
treeef1acb707ad0e2506196fb7fa3b2066d44a18ce5
parent7f614e49e877cbf3e909ed74b3e6822dc39eabe5 (diff)
downloadpatches-e65df6a63a49666edb4e57a68369b8e2ef02f1a0.tar
patches-e65df6a63a49666edb4e57a68369b8e2ef02f1a0.tar.gz
utils: Add `delete-file-recursively'.
* guix/build/utils.scm (delete-file-recursively): New procedure.
-rw-r--r--guix/build/utils.scm21
1 files changed, 21 insertions, 0 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index d17346607f..7b49e9f4c7 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -32,6 +32,7 @@
with-directory-excursion
mkdir-p
copy-recursively
+ delete-file-recursively
find-files
set-path-environment-variable
@@ -147,6 +148,26 @@ return values of applying PROC to the port."
#t
source))
+(define (delete-file-recursively dir)
+ "Delete DIR recursively, like `rm -rf', without following symlinks. Report
+but ignore errors."
+ (file-system-fold (const #t) ; enter?
+ (lambda (file stat result) ; leaf
+ (delete-file file))
+ (const #t) ; down
+ (lambda (dir stat result) ; up
+ (rmdir dir))
+ (const #t) ; skip
+ (lambda (file stat errno result)
+ (format (current-error-port)
+ "warning: failed to delete ~a: ~a~%"
+ file (strerror errno)))
+ #t
+ dir
+
+ ;; Don't follow symlinks.
+ lstat))
+
(define (find-files dir regexp)
"Return the list of files under DIR whose basename matches REGEXP."
(define file-rx