diff options
Diffstat (limited to 'guix-env.scm')
-rw-r--r-- | guix-env.scm | 29 |
1 files changed, 13 insertions, 16 deletions
diff --git a/guix-env.scm b/guix-env.scm index b1a5f94c6..588f389c5 100644 --- a/guix-env.scm +++ b/guix-env.scm | |||
@@ -1,20 +1,18 @@ | |||
1 | ;;; This file is part of GNUnet. | 1 | ;;; This file is part of GNUnet. |
2 | ;;; Copyright (C) 2016, 2017, 2018 GNUnet e.V. | 2 | ;;; Copyright (C) 2016, 2017, 2018 GNUnet e.V. |
3 | ;;; | 3 | ;;; |
4 | ;;; GNUnet is free software; you can redistribute it and/or modify | 4 | ;;; GNUnet is free software: you can redistribute it and/or modify it |
5 | ;;; it under the terms of the GNU General Public License as published | 5 | ;;; under the terms of the GNU Affero General Public License as published |
6 | ;;; by the Free Software Foundation; either version 3, or (at your | 6 | ;;; by the Free Software Foundation, either version 3 of the License, |
7 | ;;; option) any later version. | 7 | ;;; or (at your option) any later version. |
8 | ;;; | 8 | ;;; |
9 | ;;; GNUnet is distributed in the hope that it will be useful, but | 9 | ;;; GNUnet is distributed in the hope that it will be useful, but |
10 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | 10 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of |
11 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | 11 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
12 | ;;; General Public License for more details. | 12 | ;;; Affero General Public License for more details. |
13 | ;;; | 13 | ;;; |
14 | ;;; You should have received a copy of the GNU General Public License | 14 | ;;; You should have received a copy of the GNU Affero General Public License |
15 | ;;; along with GNUnet; see the file COPYING. If not, write to the | 15 | ;;; along with this program. If not, see <http://www.gnu.org/licenses/>. |
16 | ;;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | ||
17 | ;;; Boston, MA 02110-1301, USA. | ||
18 | 16 | ||
19 | (use-modules | 17 | (use-modules |
20 | (ice-9 popen) | 18 | (ice-9 popen) |
@@ -75,8 +73,8 @@ | |||
75 | source-file?)))) | 73 | source-file?)))) |
76 | (package | 74 | (package |
77 | (inherit gnunet) | 75 | (inherit gnunet) |
78 | (name "gnunet-dev-env") | 76 | (name "gnunet") |
79 | (version (string-append "0.11-" revision "." "dev-env")) | 77 | (version (string-append "git" revision)) |
80 | (source | 78 | (source |
81 | (local-file | 79 | (local-file |
82 | (string-append (getcwd)) | 80 | (string-append (getcwd)) |
@@ -98,10 +96,11 @@ | |||
98 | ("pulseaudio" ,pulseaudio) | 96 | ("pulseaudio" ,pulseaudio) |
99 | ("sqlite" ,sqlite) | 97 | ("sqlite" ,sqlite) |
100 | ("postgresql" ,postgresql) | 98 | ("postgresql" ,postgresql) |
101 | ("mysql" ,mysql) | 99 | ("mysql" ,mariadb) |
102 | ("zlib" ,zlib) | 100 | ("zlib" ,zlib) |
103 | ("perl" ,perl) | 101 | ("perl" ,perl) |
104 | ("python-2" ,python-2) ; tests and gnunet-qr | 102 | ("python-2" ,python-2) ; tests and gnunet-qr |
103 | ("python2-future" ,python2-future) | ||
105 | ("jansson" ,jansson) | 104 | ("jansson" ,jansson) |
106 | ("nss" ,nss) | 105 | ("nss" ,nss) |
107 | ("glib" ,glib "bin") | 106 | ("glib" ,glib "bin") |
@@ -134,14 +133,12 @@ | |||
134 | (modify-phases %standard-phases | 133 | (modify-phases %standard-phases |
135 | (add-after 'unpack 'patch-bin-sh | 134 | (add-after 'unpack 'patch-bin-sh |
136 | (lambda _ | 135 | (lambda _ |
137 | (substitute* "bootstrap" | ||
138 | (("contrib/pogen.sh") "sh contrib/pogen.sh")) | ||
139 | (for-each (lambda (f) (chmod f #o755)) | 136 | (for-each (lambda (f) (chmod f #o755)) |
140 | (find-files "po" "")) | 137 | (find-files "po" "")) |
141 | #t)) | 138 | #t)) |
142 | (add-after 'patch-bin-sh 'bootstrap | 139 | (add-after 'patch-bin-sh 'bootstrap |
143 | (lambda _ | 140 | (lambda _ |
144 | (zero? (system* "sh" "bootstrap")))) | 141 | (invoke "sh" "bootstrap"))) |
145 | ;;(add-before 'build 'chdir | 142 | ;;(add-before 'build 'chdir |
146 | ;; (lambda _ | 143 | ;; (lambda _ |
147 | ;; (chdir "doc/documentation"))) | 144 | ;; (chdir "doc/documentation"))) |
@@ -154,6 +151,6 @@ | |||
154 | (lib (string-append out "/lib"))) | 151 | (lib (string-append out "/lib"))) |
155 | (setenv "GNUNET_PREFIX" lib) | 152 | (setenv "GNUNET_PREFIX" lib) |
156 | (setenv "PATH" (string-append (getenv "PATH") ":" bin)) | 153 | (setenv "PATH" (string-append (getenv "PATH") ":" bin)) |
157 | (zero? (system* "make" "check"))))))))))) | 154 | (invoke "make" "check")))))))))) |
158 | 155 | ||
159 | gnunet-dev-env | 156 | gnunet-dev-env |