06/103: guix: python-build-system: Add helpers for getting and setting PYTHONPATH.

[Hartmut Goebel]

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

commit 0b52e9974cef3ba88abcedfa3c248a4eea14de9b
Author: Hartmut Goebel <address@hidden>
Date:   Sat Oct 8 12:04:20 2016 +0200

    guix: python-build-system: Add helpers for getting and setting PYTHONPATH.
    
    * guix/build/python-build-system.scm (add-installed-pythonpath,
      site-packages): New exported procedures.
---
 guix/build/python-build-system.scm |   20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/guix/build/python-build-system.scm 
b/guix/build/python-build-system.scm
index ee40645..a4e8038 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -28,6 +28,8 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
   #:export (%standard-phases
+            add-installed-pythonpath
+            site-packages
             python-build))
 
 ;; Commentary:
@@ -74,6 +76,24 @@
          (major+minor (take components 2)))
     (string-join major+minor ".")))
 
+(define (site-packages inputs outputs)
+  "Return the path of the current output's Python site-package."
+  (let* ((out (assoc-ref outputs "out"))
+         (python (assoc-ref inputs "python")))
+    (string-append out "/lib/python"
+                   (get-python-version python)
+                   "/site-packages/")))
+
+(define (add-installed-pythonpath inputs outputs)
+  "Prepend the Python site-package of OUTPUT to PYTHONPATH.  This is useful
+when running checks after installing the package."
+  (let ((old-path (getenv "PYTHONPATH"))
+        (add-path (site-packages inputs outputs)))
+    (setenv "PYTHONPATH"
+            (string-append add-path
+                           (if old-path (string-append ":" old-path) "")))
+    #t))
+
 (define* (install #:key outputs (configure-flags '()) use-setuptools?
                   #:allow-other-keys)
   "Install a given Python package."