* gnu/packages/bash.com (bash): Include contents of include directory in "include" output. --- gnu/packages/bash.scm | 9 +++++++++ 1 file changed, 9 insertions(+)
diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm index 180c64e..e1ddd7c 100644 --- a/gnu/packages/bash.scm +++ b/gnu/packages/bash.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <[email protected]> ;;; Copyright © 2014, 2015 Mark H Weaver <[email protected]> +;;; Copyright © 2015 Leo Famulari <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -143,9 +144,16 @@ number/base32-hash tuples, directly usable in the 'patch-series' form." ;; guile-bash expect. (let ((include (string-append (assoc-ref outputs "include") "/include/bash")) + (includes "^\\./include/[^/]+\\.h$") (headers "^\\./(builtins/|lib/glob/|lib/tilde/|)[^/]+\\.h$")) (mkdir-p include) (for-each (lambda (file) + (when ((@ (ice-9 regex) string-match) includes file) + (let ((directory (string-append include))) + (mkdir-p directory) + (copy-file file + (string-append directory "/" + (basename file))))) (when ((@ (ice-9 regex) string-match) headers file) (let ((directory (string-append include "/" (dirname file)))) @@ -154,6 +162,7 @@ number/base32-hash tuples, directly usable in the 'patch-series' form." (string-append directory "/" (basename file)))))) (find-files "." "\\.h$")) + (delete-file (string-append include "/" "y.tab.h")) #t))) (version "4.3")) (package -- 2.6.1
