me/guix
Archived
1
0
Fork 0
Code Activity

gnu: libssh: Add $libdir to RUNPATH of libssh_threads.so.

Browse source 
* gnu/packages/ssh.scm (libssh)[arguments]: Add #:phases, #:modules, and
  #:imported-modules.
  [native-inputs]: New field.
This commit is contained in:
Ludovic Courtès 2013-12-04 00:29:19 +01:00
parent 799dcdc48f
commit deed349b4a
1 changed files with 35 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
gnu/packages/ssh.scm
View file

@ -23,6 +23,7 @@
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages groff) #:use-module (gnu packages groff)
#:use-module (gnu packages openssl) #:use-module (gnu packages openssl)
#:use-module (gnu packages patchelf)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
@ -40,13 +41,43 @@
(base32 (base32
"1w6s217vjq0w3v5i0c5ql6m0ki1yz05g9snah3azxfkl9k4schpd")))) "1w6s217vjq0w3v5i0c5ql6m0ki1yz05g9snah3azxfkl9k4schpd"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments '(#:configure-flags '("-DWITH_GCRYPT=ON") (arguments
'(#:configure-flags '("-DWITH_GCRYPT=ON"
;; TODO: Add 'CMockery' and '-DWITH_TESTING=ON' for the test ;; Leave a valid RUNPATH upon install.
;; suite. "-DCMAKE_SKIP_BUILD_RPATH=ON")
#:tests? #f))
;; TODO: Add 'CMockery' and '-DWITH_TESTING=ON' for the test suite.
#:tests? #f
#:modules ((guix build cmake-build-system)
(guix build utils)
(guix build rpath))
#:imported-modules ((guix build gnu-build-system)
(guix build cmake-build-system)
(guix build utils)
(guix build rpath))
#:phases (alist-cons-after
'install 'augment-runpath
(lambda* (#:key outputs #:allow-other-keys)
;; libssh_threads.so NEEDs libssh.so, so add $libdir to its
;; RUNPATH.
(define (dereference file)
(let ((target (false-if-exception (readlink file))))
(if target
(dereference target)
file)))
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
(with-directory-excursion lib
(augment-rpath (dereference "libssh_threads.so")
lib))))
%standard-phases)))
(inputs `(("zlib" ,zlib) (inputs `(("zlib" ,zlib)
("libgcrypt" ,libgcrypt))) ("libgcrypt" ,libgcrypt)))
(native-inputs `(("patchelf" ,patchelf)))
(synopsis "SSH client library") (synopsis "SSH client library")
(description (description
"libssh is a C library implementing the SSHv2 and SSHv1 protocol for "libssh is a C library implementing the SSHv2 and SSHv1 protocol for