summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-10-17 23:06:17 +0200
committerLudovic Courtès <ludo@gnu.org>2012-10-17 23:25:25 +0200
commitc0746cc9dbf178e0358e93034072a60b6dfc24a1 (patch)
tree22e534874e40e628b2eaba0d4a97d3cc170fae76 /guix/build
parent7da95264f196d1c5dfa01654e87a319bce458cc1 (diff)
utils: Add `copy-recursively'; use it.
* guix/build/utils.scm (copy-recursively): New procedure. * distro/packages/base.scm (%guile-static-stripped): Use it.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/utils.scm29
1 files changed, 29 insertions, 0 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 0543ab48d5..741f5201bb 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -19,6 +19,7 @@
(define-module (guix build utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
+ #:use-module (ice-9 ftw)
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (ice-9 rdelim)
@@ -27,6 +28,7 @@
#:export (directory-exists?
with-directory-excursion
mkdir-p
+ copy-recursively
set-path-environment-variable
search-path-as-string->list
list->search-path-as-string
@@ -88,6 +90,33 @@
(apply throw args))))))
(() #t))))
+(define* (copy-recursively source destination
+ #:optional (log (current-output-port)))
+ "Copy SOURCE directory to DESTINATION."
+ (define strip-source
+ (let ((len (string-length source)))
+ (lambda (file)
+ (substring file len))))
+
+ (file-system-fold (const #t) ; enter?
+ (lambda (file stat result) ; leaf
+ (let ((dest (string-append destination
+ (strip-source file))))
+ (format log "`~a' -> `~a'~%" file dest)
+ (copy-file file dest)))
+ (lambda (dir stat result) ; down
+ (mkdir-p (string-append destination
+ (strip-source dir))))
+ (lambda (dir stat result) ; up
+ result)
+ (const #t) ; skip
+ (lambda (file stat errno result)
+ (format (current-error-port) "i/o error: ~a: ~a~%"
+ file (strerror errno))
+ #f)
+ #t
+ source))
+
;;;
;;; Search paths.