blob: 179c28cf11d4d2e1cfbd99b233e2b822a2c3d434 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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))
|