Fwd: [PATCH] gnu: Enable the 'ctypes' module in Python.

Fwd: [PATCH] gnu: Enable the 'ctypes' module in Python.

[Cyril Roelandt]

[-- Attachment #1: Type: text/plain, Size: 2833 bytes --]

Forgot to CC this to -devel.

Cyril.


-------- Original Message --------
Return-Path: <tipecaml@gmail.com>
Received: from localhost.localdomain 
(tal33-3-82-233-82-24.fbx.proxad.net. [82.233.82.24])        by 
mx.google.com with ESMTPSA id uq2sm23377356wjc.5.2014.01.31.16.47.22 
     for <multiple recipients>        (version=TLSv1.2 
cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);        Fri, 31 Jan 
2014 16:47:23 -0800 (PST)
From: Cyril Roelandt <tipecaml@gmail.com>
To: 16569@debbugs.gnu.org
Cc: Cyril Roelandt <tipecaml@gmail.com>
Subject: [PATCH] gnu: Enable the 'ctypes' module in Python.
Date: Sat,  1 Feb 2014 01:46:00 +0100
Message-Id: <1391215560-6020-1-git-send-email-tipecaml@gmail.com>
X-Mailer: git-send-email 1.8.4.rc3

* gnu/packages/python.scm (python-2): add libffi to the inputs and use it to
   build the ctypes module.
---
  gnu/packages/python.scm | 7 +++++++
  1 file changed, 7 insertions(+)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index 6d2c940..260bace 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -27,9 +27,11 @@
    #:use-module (gnu packages compression)
    #:use-module (gnu packages gdbm)
    #:use-module (gnu packages icu4c)
+  #:use-module (gnu packages libffi)
    #:use-module (gnu packages readline)
    #:use-module (gnu packages openssl)
    #:use-module (gnu packages patchelf)
+  #:use-module (gnu packages pkg-config)
    #:use-module (gnu packages sqlite)
    #:use-module (guix packages)
    #:use-module (guix download)
@@ -98,10 +100,12 @@
         #:configure-flags
          (let ((bz2 (assoc-ref %build-inputs "bzip2"))
                (gdbm (assoc-ref %build-inputs "gdbm"))
+              (libffi (assoc-ref %build-inputs "libffi"))
                (openssl (assoc-ref %build-inputs "openssl"))
                (readline (assoc-ref %build-inputs "readline"))
                (zlib (assoc-ref %build-inputs "zlib")))
           (list "--enable-shared"                  ; allow embedding
+               "--with-system-ffi"                ; build ctypes
                 (string-append "CPPFLAGS="
                  "-I" bz2 "/include "
                  "-I" gdbm "/include "
@@ -111,6 +115,7 @@
                 (string-append "LDFLAGS="
                  "-L" bz2 "/lib "
                  "-L" gdbm "/lib "
+                "-L" libffi "/lib "
                  "-L" openssl "/lib "
                  "-L" readline "/lib "
                  "-L" zlib "/lib")))
@@ -137,7 +142,9 @@
      (inputs
       `(("bzip2" ,bzip2)
         ("gdbm" ,gdbm)
+       ("libffi" ,libffi)                         ; for ctypes
         ("openssl" ,openssl)
+       ("pkg-config" ,pkg-config)
         ("readline" ,readline)
         ("zlib" ,zlib)
         ("patchelf" ,patchelf)))                   ; for (guix build rpath)
-- 
1.8.4.rc3




[-- Attachment #2: Attached Message Part --]
[-- Type: text/plain, Size: 0 bytes --]