diff options
author | Christopher Baines <mail@cbaines.net> | 2016-09-04 23:28:34 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2016-09-04 23:28:34 +0100 |
commit | 4d22bc5da177188a4dcae2a116c9efa2603b38b4 (patch) | |
tree | 863b401e4b94ab78b610412b8130b43a4780b32c /gpip/python2-7.scm | |
download | guix-python-integration-project-4d22bc5da177188a4dcae2a116c9efa2603b38b4.tar guix-python-integration-project-4d22bc5da177188a4dcae2a116c9efa2603b38b4.tar.gz |
Initial commit
Diffstat (limited to 'gpip/python2-7.scm')
-rw-r--r-- | gpip/python2-7.scm | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/gpip/python2-7.scm b/gpip/python2-7.scm new file mode 100644 index 0000000..179c28c --- /dev/null +++ b/gpip/python2-7.scm @@ -0,0 +1,47 @@ +(define-module (gpip python2-7) + #:use-module ((gnu packages python) + #:select (python-2.7)) + #:use-module (guix build-system python) + #:use-module (pypi sdist-store) + #:use-module (pypi package) + #:use-module (pypi requirement) + #:use-module (pypi sdist) + #:use-module (gpip sdists) + #:use-module (gpip package-fixes)) + +(let + ((store + (add-sdists (make-sdist-store) sdists))) + (for-each + (lambda (sd) + (catch + #t + (lambda () + (let ((sym (string->symbol + (string-append + (pkg-info-name (sdist-info sd)) + "-" + (pkg-info-version (sdist-info sd))))) + (pkg + (requirement->package + (package-configuration + python-2.7 + get-fixed-package) + store + (requirement + (name (pkg-info-name (sdist-info sd))) + (specifiers + (string-append "==" (pkg-info-version (sdist-info sd)))))))) + (module-define! (resolve-interface '(gpip python2-7)) sym pkg))) + (lambda args + (display "Error creating package " (current-error-port)) + (display + (string-append + (pkg-info-name (sdist-info sd)) + "-" + (pkg-info-version (sdist-info sd))) + (current-error-port)) + (display "\n" (current-error-port)) + (display args (current-error-port)) + (display "\n" (current-error-port))))) + sdists)) |