diff options
Diffstat (limited to 'gn/packages')
| -rw-r--r-- | gn/packages/python.scm | 45 | ||||
| -rw-r--r-- | gn/packages/python24.scm | 51 |
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"))))) |