summaryrefslogtreecommitdiff
path: root/shroud/utils.scm
diff options
context:
space:
mode:
Diffstat (limited to 'shroud/utils.scm')
-rw-r--r--shroud/utils.scm29
1 files changed, 28 insertions, 1 deletions
diff --git a/shroud/utils.scm b/shroud/utils.scm
index 59dbbc2..3f28840 100644
--- a/shroud/utils.scm
+++ b/shroud/utils.scm
@@ -27,7 +27,8 @@
alist-pick
gpg-binary
call-with-encrypted-output-file
- call-with-decrypted-input-file))
+ call-with-decrypted-input-file
+ mkdir-p))
(define (vhash-ref vhash key)
"Return the value associated with KEY in VHASH or #f if there is no
@@ -113,3 +114,29 @@ FILE."
"--no-tty" "--batch" "--yes"
"--decrypt" ,file)
proc)))))
+
+;; Written by Ludovic Court├Ęs for GNU Guix.
+(define (mkdir-p dir)
+ "Create directory DIR and all its ancestors."
+ (define absolute?
+ (string-prefix? "/" dir))
+
+ (define not-slash
+ (char-set-complement (char-set #\/)))
+
+ (let loop ((components (string-tokenize dir not-slash))
+ (root (if absolute?
+ ""
+ ".")))
+ (match components
+ ((head tail ...)
+ (let ((path (string-append root "/" head)))
+ (catch 'system-error
+ (lambda ()
+ (mkdir path)
+ (loop tail path))
+ (lambda args
+ (if (= EEXIST (system-error-errno args))
+ (loop tail path)
+ (apply throw args))))))
+ (() #t))))