TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: samba: Augment the RUNPATH of executables to point to $out/lib.

Browse source 
* gnu/packages/samba.scm (samba): Add `add-lib-to-runpath' phase, and
  PatchELF as an input.
This commit is contained in:
Ludovic Courtès 2013-02-15 22:04:51 +01:00
parent 52e6e2461f
commit b7e9ee3327
1 changed files with 42 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
gnu/packages/samba.scm
View file

@ -27,6 +27,7 @@ (define-module (gnu packages samba)
#:use-module (gnu packages readline)
#:use-module (gnu packages libunwind)
#:use-module (gnu packages linux)
#:use-module (gnu packages patchelf)
#:use-module (gnu packages perl)
#:use-module (gnu packages python))
@ -103,10 +104,45 @@ (define-public samba
"1phl6mmrc72jyvbyrw6cv6b92cxq3v2pbn1fh97nnb4hild1fnjg"))))
(build-system gnu-build-system)
(arguments
'(#:phases (alist-cons-before 'configure 'chdir
(lambda _
(chdir "source3"))
%standard-phases)
'(#:phases (alist-cons-before
'configure 'chdir
(lambda _
(chdir "source3"))
(alist-cons-after
'strip 'add-lib-to-runpath
(lambda* (#:key outputs #:allow-other-keys)
(define (file-rpath file)
;; Return the RPATH of FILE.
(let* ((p (open-pipe* OPEN_READ "patchelf"
"--print-rpath" file))
(l (read-line p)))
(and (zero? (close-pipe p)) l)))
(define (augment-rpath file dir)
;; Add DIR to the RPATH of FILE.
(let* ((rpath (file-rpath file))
(rpath* (if rpath
(string-append dir ":" rpath)
dir)))
(format #t "~a: changing RPATH from `~a' to `~a'~%"
file (or rpath "") rpath*)
(zero? (system* "patchelf" "--set-rpath"
rpath* file))))
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
;; Add LIB to the RUNPATH of all the executables.
(with-directory-excursion out
(for-each (cut augment-rpath <> lib)
(append (find-files "bin" ".*")
(find-files "sbin" ".*"))))))
%standard-phases))
#:modules ((guix build gnu-build-system)
(guix build utils)
(ice-9 popen)
(ice-9 rdelim)
(srfi srfi-26))
;; This flag is required to allow for "make test".
#:configure-flags '("--enable-socket-wrapper")
@ -126,7 +162,8 @@ (define-public samba
("popt" ,popt)
("openldap" ,openldap)
("linux-pam" ,linux-pam)
("readline" ,readline)))
("readline" ,readline)
("patchelf" ,patchelf)))
(native-inputs ; for the test suite
`(("perl" ,perl)
("python" ,python)))