[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: gnu: recutils: Symlink bash loadables.
From: |
guix-commits |
Subject: |
04/04: gnu: recutils: Symlink bash loadables. |
Date: |
Sun, 25 Jun 2023 08:36:59 -0400 (EDT) |
lilyp pushed a commit to branch master
in repository guix.
commit c210dbe43e554c1f0e7dc645c1e2bd3c29505ffc
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Sun Jun 18 09:20:22 2023 +0200
gnu: recutils: Symlink bash loadables.
This makes it so that the "enable" builtin finds readrec and testrec without
having to supply the full store path.
* gnu/packages/databases.scm (recutils)[#:phases]: Add
‘symlink-bash-loadables’.
---
gnu/packages/databases.scm | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 42b394daf2..94c3c31fc4 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1559,7 +1559,22 @@ organized in a hash table or B+ tree.")
#~(list "--disable-static"
(string-append "--with-bash-headers="
(search-input-directory %build-inputs
- "include/bash")))))
+ "include/bash")))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'install 'symlink-bash-loadables
+ (lambda* (#:key outputs #:allow-other-keys)
+ (with-directory-excursion (string-append
+ (assoc-ref outputs "out")
+ "/lib")
+ (mkdir "bash")
+ (for-each
+ (compose symlink
+ (lambda (loadable)
+ (values
+ (string-append (getcwd) "/" loadable ".so")
+ (string-append "bash/" loadable))))
+ '("readrec" "testrec"))))))))
(native-inputs
(list bc check-0.14 pkg-config))
(inputs