From 4c261f4169b9da6b8a04d420422426e5548feac4 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 17 Oct 2012 23:17:15 +0200
Subject: utils: Add `find-files'.

* guix/build/utils.scm (find-files): New procedure.
---
 guix/build/utils.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'guix')

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 741f5201bb..26bdfff1db 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -29,6 +29,8 @@ (define-module (guix build utils)
             with-directory-excursion
             mkdir-p
             copy-recursively
+            find-files
+
             set-path-environment-variable
             search-path-as-string->list
             list->search-path-as-string
@@ -117,6 +119,31 @@ (define strip-source
                     #t
                     source))
 
+(define (find-files dir regexp)
+  "Return the list of files under DIR whose basename matches REGEXP."
+  (define file-rx
+    (if (regexp? regexp)
+        regexp
+        (make-regexp regexp)))
+
+  (file-system-fold (const #t)
+                    (lambda (file stat result)    ; leaf
+                      (if (regexp-exec file-rx (basename file))
+                          (cons file result)
+                          result))
+                    (lambda (dir stat result)     ; down
+                      result)
+                    (lambda (dir stat result)     ; up
+                      result)
+                    (lambda (file stat result)    ; skip
+                      result)
+                    (lambda (file stat errno result)
+                      (format (current-error-port) "find-files: ~a: ~a~%"
+                              file (strerror errno))
+                      #f)
+                    '()
+                    dir))
+
 
 ;;;
 ;;; Search paths.
-- 
cgit v1.2.3