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))