04/104: guix: python-build-system: Import setuptools before calling `setup.py'.

[Hartmut Goebel]

htgoebel pushed a commit to branch python-build-system
in repository guix.

commit 46bcdcc287ecfc1db8b7a0429e72517f407b580d
Author: Marius Bakke <address@hidden>
Date:   Thu Sep 29 18:41:35 2016 +0100

    guix: python-build-system: Import setuptools before calling `setup.py'.
    
    This is needed for packages using "distutils" instead of "setuptools" since
    the former does not understand the "--single-version-externally-managed"
    flag. Also export __file__ since it will be unset when setup.py is called 
from
    python "exec".
    
    * guix/build/python-build-system.scm (call-setuppy): extend "python 
setup.py"
      call to import setuptools, export __file__, and call setup.py from
      setuptools python environment.
    
    Co-Authored-By: Hartmut Goebel <address@hidden>
---
 guix/build/python-build-system.scm |   14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/guix/build/python-build-system.scm 
b/guix/build/python-build-system.scm
index 2424fed..6086df3 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -36,13 +36,25 @@
 ;;
 ;; Code:
 
+(define setuptools-shim
+  ;; Run setup.py with "setuptools" being imported, which will patch
+  ;; "distutils". This is needed for packages using "distutils" instead of
+  ;; "setuptools" since the former does not understand the
+  ;; "--single-version-externally-managed" flag.
+  ;; Python code taken from pip 9.0.1 pip/utils/setuptools_build.py
+  (string-append
+   "import setuptools, tokenize;__file__='setup.py';"
+   "f=getattr(tokenize, 'open', open)(__file__);"
+   "code=f.read().replace('\\r\\n', '\\n');"
+   "f.close();"
+   "exec(compile(code, __file__, 'exec'))"))
 
 (define (call-setuppy command params)
   (if (file-exists? "setup.py")
       (begin
          (format #t "running \"python setup.py\" with command ~s and 
parameters ~s~%"
                 command params)
-         (zero? (apply system* "python" "setup.py" command params)))
+         (zero? (apply system* "python" "-c" setuptools-shim command params)))
       (error "no setup.py found")))
 
 (define* (build #:rest empty)