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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
(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 (guix git-download)
#:use-module (guix build-system python)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages tcl)
#: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-after 'unpack 'create-setup-local
(lambda* (#:key inputs #:allow-other-keys)
(let ((zlib (assoc-ref inputs "zlib"))
(tcl (assoc-ref inputs "tcl"))
(tk (assoc-ref inputs "tk"))
(gdbm (assoc-ref inputs "gdbm"))
(read (assoc-ref inputs "readline"))
(ssl (assoc-ref inputs "openssl")))
(with-output-to-file "Modules/Setup.local"
(lambda _
(format #t "readline readline.c -I~a/include -L~a/lib -lreadline~@
_ssl _ssl.c -DUSE_SSL -I$~a/include/openssl -L~a/lib -lssl -lcrypto~@
_tkinter _tkinter.c tkappinit.c -DWITH_APPINIT -L~a/lib -I~a/include -L~a/lib -I~a/include -ltk~a -ltcl~a~@
gdbm gdbmmodule.c -I~a/include -L~a/lib -lgdbm~@
zlib zlibmodule.c -I~a/include -L~a/lib -lz~%"
read read ssl ssl tcl tcl tk tk ,(version-major+minor (package-version tcl)) ,(version-major+minor (package-version tcl)) gdbm gdbm zlib zlib))))
#t))
(add-before 'check 'delete-failing-tests
(lambda _
(for-each
(lambda (file)
(delete-file (string-append "Lib/test/" file)))
'("test_socket.py" "test_anydbm.py" "test_whichdb.py" "test_zlib.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)))))
(native-search-paths
(list (search-path-specification
(variable "PYTHONPATH")
(files '("lib/python2.4/site-packages")))))
(properties '((cpe-name . "python")))))
(define (default-python2.4)
"Return the default Python-2.4 package."
;; Lazily resolve the binding.
(let ((python (resolve-interface '(gn packages python24))))
(module-ref python 'python-2.4)))
(define package-with-python24
((@@ (guix build-system python) package-with-explicit-python) (delay (default-python2.4))
"python-" "python24-"
#:variant-property 'python24-variant))
(define (strip-python24-variant p)
(package
(inherit p)
(properties (alist-delete 'python24-variant (package-properties p)))))
(define-public python24-htmlgen
(package
(name "python24-htmlgen")
(version "0.9")
;(version "0.99")
(source
(origin
(method url-fetch)
(uri (pypi-uri "htmlgen" version))
(sha256
(base32
"14xzjgwdqgs1vs5mq7mg3w48snvgb77yywv64mg8k6qhapmnafdw"))))
;"1kbn6jcbf2mpb9f8hm5gcsipy7habqrq4794lpdbzm5mqxlclmnl"))))
(build-system python-build-system)
(arguments
`(#:python ,python-2.4))
(native-inputs
`(("python24-setuptools" ,python24-setuptools)))
(propagated-inputs
`(("python24-asserts" ,python24-asserts)))
(home-page "https://github.com/srittau/python-htmlgen")
(synopsis "Python HTML 5 Generator")
(description "Python-htmlgen is a library to generate HTML from classes.")
(license license:expat)))
(define-public python24-setuptools
(package
(inherit python-setuptools)
(name "python24-setuptools")
(version "1.4.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "setuptools" version))
(sha256
(base32
"1gfvalhvzcskwj85r3lh9sx190f8k807vz5zln8agaw31ak8cf96"))))
(arguments
`(#:python ,python-2.4
#:tests? #f)))) ; skip the tests
(define-public python24-asserts
(package
(name "python24-asserts")
(version "0.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri "asserts" version))
(sha256
(base32
"05ffy111giwv6sqx97vzzsvcra0gxzx2ilv16gyw135v583frxbn"))))
(build-system python-build-system)
(arguments
`(#:python ,python-2.4))
(native-inputs
`(("python24-setuptools" ,python24-setuptools)))
(home-page "https://github.com/srittau/python-asserts")
(synopsis "Stand-alone Assertions for Python")
(description "Stand-alone Assertions for Python")
(license license:expat)))
|
