Commit | Line | Data |
---|---|---|
a01b6da7 NK |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> | |
3 | ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> | |
4 | ;;; | |
5 | ;;; This file is part of GNU Guix. | |
6 | ;;; | |
7 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
8 | ;;; under the terms of the GNU General Public License as published by | |
9 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
10 | ;;; your option) any later version. | |
11 | ;;; | |
12 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
13 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;;; GNU General Public License for more details. | |
16 | ;;; | |
17 | ;;; You should have received a copy of the GNU General Public License | |
18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
19 | ||
1ffa7090 | 20 | (define-module (gnu packages python) |
a01b6da7 | 21 | #:use-module ((guix licenses) #:select (psfl)) |
3fdc99da | 22 | #:use-module (gnu packages) |
1ffa7090 | 23 | #:use-module (gnu packages compression) |
3fdc99da CR |
24 | #:use-module (gnu packages gdbm) |
25 | #:use-module (gnu packages readline) | |
1ffa7090 | 26 | #:use-module (gnu packages openssl) |
a01b6da7 NK |
27 | #:use-module (guix packages) |
28 | #:use-module (guix download) | |
29 | #:use-module (guix build-system gnu)) | |
30 | ||
31 | (define-public python | |
32 | (package | |
33 | (name "python") | |
0160536d | 34 | (version "2.7.4") |
a01b6da7 NK |
35 | (source |
36 | (origin | |
37 | (method url-fetch) | |
38 | (uri (string-append "http://www.python.org/ftp/python/" | |
39 | version "/Python-" version ".tar.xz")) | |
40 | (sha256 | |
41 | (base32 | |
0160536d | 42 | "0bdn4dylm92n2dsvqvjfyask9jbz88aan5hi4lgkawkxs2v6wqmn")))) |
a01b6da7 | 43 | (build-system gnu-build-system) |
3fdc99da CR |
44 | (arguments |
45 | `(#:tests? #f ; XXX: some tests fail | |
3fdc99da CR |
46 | #:configure-flags |
47 | (let ((bz2 (assoc-ref %build-inputs "bzip2")) | |
48 | (gdbm (assoc-ref %build-inputs "gdbm")) | |
49 | (openssl (assoc-ref %build-inputs "openssl")) | |
50 | (readline (assoc-ref %build-inputs "readline")) | |
51 | (zlib (assoc-ref %build-inputs "zlib"))) | |
52 | (list (string-append "CPPFLAGS=" | |
53 | "-I" bz2 "/include " | |
54 | "-I" gdbm "/include " | |
55 | "-I" openssl "/include " | |
56 | "-I" readline "/include " | |
57 | "-I" zlib "/include") | |
58 | (string-append "LDFLAGS=" | |
59 | "-L" bz2 "/lib " | |
60 | "-L" gdbm "/lib " | |
61 | "-L" openssl "/lib " | |
62 | "-L" readline "/lib " | |
63 | "-L" zlib "/lib"))))) | |
a01b6da7 | 64 | (inputs |
3fdc99da CR |
65 | `(("bzip2" ,bzip2) |
66 | ("gdbm" ,gdbm) | |
a01b6da7 | 67 | ("openssl" ,openssl) |
3fdc99da | 68 | ("readline" ,readline) |
0160536d | 69 | ("zlib" ,zlib))) |
9be8d7c8 LC |
70 | (native-search-paths |
71 | (list (search-path-specification | |
72 | (variable "PYTHONPATH") | |
73 | (directories '("lib/python2.7/site-packages"))))) | |
a01b6da7 NK |
74 | (home-page "http://python.org") |
75 | (synopsis | |
76 | "Python, a high-level dynamically-typed programming language") | |
77 | (description | |
78 | "Python is a remarkably powerful dynamic programming language that | |
79 | is used in a wide variety of application domains. Some of its key | |
80 | distinguishing features include: clear, readable syntax; strong | |
81 | introspection capabilities; intuitive object orientation; natural | |
82 | expression of procedural code; full modularity, supporting hierarchical | |
83 | packages; exception-based error handling; and very high level dynamic | |
84 | data types.") | |
85 | (license psfl))) |