10/16: gnu: libsrtp: Build shared library.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit d18116d9b5b0cafd4390326b57c487d51804a9e8
Author: Marius Bakke <address@hidden>
AuthorDate: Sun Jan 19 23:44:36 2020 +0100

    gnu: libsrtp: Build shared library.
    
    * gnu/packages/telephony.scm (libsrtp)[arguments]: Add #:phases.
---
 gnu/packages/telephony.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/telephony.scm b/gnu/packages/telephony.scm
index b9e3d62..a645c58 100644
--- a/gnu/packages/telephony.scm
+++ b/gnu/packages/telephony.scm
@@ -261,7 +261,19 @@ internet.")
        ("procps" ,procps)))
     (build-system gnu-build-system)
     (arguments
-     '(#:test-target "runtest"))
+     '(#:test-target "runtest"
+       #:phases (modify-phases %standard-phases
+                  (add-after 'build 'build-shared
+                    (lambda* (#:key (make-flags '()) #:allow-other-keys)
+                      ;; Build the shared library separately because
+                      ;; the test runner requires a static build.
+                      (apply invoke "make" "shared_library" make-flags)
+                      #t))
+                  (add-after 'install 'remove-static-library
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (delete-file (string-append (assoc-ref outputs "out")
+                                                  "/lib/libsrtp2.a"))
+                      #t)))))
     (synopsis "Secure RTP (SRTP) Reference Implementation")
     (description
      "This package provides an implementation of the Secure Real-time Transport