[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/04: gnu: libnl: Add "python2" and "python3" outputs.

From: Marius Bakke
Subject: 02/04: gnu: libnl: Add "python2" and "python3" outputs.
Date: Thu, 17 Aug 2017 18:37:18 -0400 (EDT)

mbakke pushed a commit to branch master
in repository guix.

commit 3eb7c000385b929583ced9c4adb9ce796512705e
Author: Dave Love <address@hidden>
Date:   Wed Aug 2 13:39:28 2017 +0100

    gnu: libnl: Add "python2" and "python3" outputs.
    * gnu/packages/linux.scm (libnl)[native-inputs]: Add SWIG and PKG-CONFIG.
    [inputs]: Add PYTHON-2 and PYTHON-3.
    [outputs]: Add python2, python3.
    [arguments]: Add 'install-python' phase.
    Co-authored-by: Marius Bakke <address@hidden>
 gnu/packages/linux.scm | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 2df4c86..7aa04bc 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -101,6 +101,7 @@
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages groff)
   #:use-module (gnu packages selinux)
+  #:use-module (gnu packages swig)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system python)
@@ -1467,6 +1468,8 @@ transparently through a bridge.")
      `(("bison" ,bison)
        ("flex" ,flex)
+       ("pkg-config" ,pkg-config)
+       ("swig" ,swig)
            (method url-fetch)
@@ -1476,10 +1479,31 @@ transparently through a bridge.")
                  "/libnl-doc-" version ".tar.gz"))
-    (outputs '("out" "doc"))
+    (inputs
+     `(("python-2" ,python-2)
+       ("python-3" ,python-3)))
+    (outputs '("out" "doc" "python2" "python3"))
-     `(#:phases
+     `(#:modules ((guix build gnu-build-system)
+                  (guix build utils)
+                  (srfi srfi-1))
+       #:phases
        (modify-phases %standard-phases
+         (add-after 'install 'install-python
+           (lambda* (#:key outputs #:allow-other-keys)
+             (define (python-inst python)
+               (let ((ldflags (format #f "LDFLAGS=-Wl,-rpath=~a/lib"
+                                      (assoc-ref %outputs "out")))
+                     (pyout (assoc-ref %outputs python)))
+                 (and
+                  (zero? (system (format #f "~a ~a build"
+                                         ldflags python pyout)))
+                  (zero?
+                   (system (format #f "~a ~a install --prefix=~a"
+                                   ldflags python pyout)))
+                  (zero? (system* python "" "clean")))))
+             (with-directory-excursion "./python"
+               (every python-inst '("python2" "python3")))))
          (add-after 'install 'install-doc
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((dest (string-append (assoc-ref outputs "doc")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]