aboutsummaryrefslogtreecommitdiff
path: root/gn
diff options
context:
space:
mode:
Diffstat (limited to 'gn')
-rw-r--r--gn/packages/python.scm45
-rw-r--r--gn/packages/python24.scm51
2 files changed, 51 insertions, 45 deletions
diff --git a/gn/packages/python.scm b/gn/packages/python.scm
index 965cf53..dcd6026 100644
--- a/gn/packages/python.scm
+++ b/gn/packages/python.scm
@@ -47,51 +47,6 @@
#:use-module (guix build-system trivial)
#:use-module (srfi srfi-1))
-;; TODO: Check against 'guix lint -c cve python2.4' list:
-;; CVE-2019-9740, CVE-2019-9947, CVE-2019-9948, CVE-2018-1060, CVE-2018-1061,
-;; CVE-2014-9365, CVE-2012-0845, CVE-2012-1150, CVE-2011-1521, CVE-2011-4940,
-;; CVE-2010-3492, CVE-2008-5031, CVE-2008-5983
-(define-public python-2.4
- (package
- (inherit python-2)
- (name "python2.4")
- (version "2.4.6")
- (source
- (origin
- (method url-fetch)
- (uri (string-append "https://www.python.org/ftp/python/"
- version "/Python-" version ".tar.bz2"))
- (sha256
- (base32
- "021y88a4ki07dgq19yhg6zfvmncfiz7h5b2255438i9zmlwl246s"))))
- (outputs '("out"))
- (arguments
- (substitute-keyword-arguments (package-arguments python-2)
- ((#:phases phases)
- `(modify-phases ,phases
- (add-before 'check 'delete-failing-test
- (lambda _
- (delete-file "Lib/test/test_socket.py")
- #t))
- (add-after 'check 'find-netinet-in-h
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((glibc (assoc-ref inputs "libc")))
- (substitute* (find-files "Lib/plat-generic" ".*")
- (("/usr/include/netinet/in.h")
- (string-append glibc "/include/netinet/in.h")))
- #t)))
- (delete 'move-tk-inter)))))
- ;; Remove the inputs which are not found during building/testing:
- (inputs
- `(,@(fold alist-delete (package-inputs python-2)
- '("bzip2" "gdbm" "tk" "openssl" "zlib"))))
- (native-search-paths
- (list (search-path-specification
- (variable "PYTHONPATH")
- (files '("lib/python2.4/site-packages")))))
- (properties '((cpe-name . "python")))))
-
-
(define-public python-pyvcf
(package
(name "python-pyvcf")
diff --git a/gn/packages/python24.scm b/gn/packages/python24.scm
new file mode 100644
index 0000000..720694d
--- /dev/null
+++ b/gn/packages/python24.scm
@@ -0,0 +1,51 @@
+(define-module (gn packages python24)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix utils)
+ #:use-module (guix packages)
+ #:use-module (guix download)
+ #:use-module (gnu packages python)
+ #:use-module (srfi srfi-1))
+
+;; TODO: Check against 'guix lint -c cve python2.4' list:
+;; CVE-2019-9740, CVE-2019-9947, CVE-2019-9948, CVE-2018-1060, CVE-2018-1061,
+;; CVE-2014-9365, CVE-2012-0845, CVE-2012-1150, CVE-2011-1521, CVE-2011-4940,
+;; CVE-2010-3492, CVE-2008-5031, CVE-2008-5983
+(define-public python-2.4
+ (package
+ (inherit python-2)
+ (name "python2.4")
+ (version "2.4.6")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://www.python.org/ftp/python/"
+ version "/Python-" version ".tar.bz2"))
+ (sha256
+ (base32
+ "021y88a4ki07dgq19yhg6zfvmncfiz7h5b2255438i9zmlwl246s"))))
+ (outputs '("out"))
+ (arguments
+ (substitute-keyword-arguments (package-arguments python-2)
+ ((#:phases phases)
+ `(modify-phases ,phases
+ (add-before 'check 'delete-failing-test
+ (lambda _
+ (delete-file "Lib/test/test_socket.py")
+ #t))
+ (add-after 'check 'find-netinet-in-h
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((glibc (assoc-ref inputs "libc")))
+ (substitute* (find-files "Lib/plat-generic" ".*")
+ (("/usr/include/netinet/in.h")
+ (string-append glibc "/include/netinet/in.h")))
+ #t)))
+ (delete 'move-tk-inter)))))
+ ;; Remove the inputs which are not found during building/testing:
+ (inputs
+ `(,@(fold alist-delete (package-inputs python-2)
+ '("bzip2" "gdbm" "tk" "openssl" "zlib"))))
+ (native-search-paths
+ (list (search-path-specification
+ (variable "PYTHONPATH")
+ (files '("lib/python2.4/site-packages")))))
+ (properties '((cpe-name . "python")))))