From d5b3de6af276c1ade22a946b16d36b6077a06ab8 Mon Sep 17 00:00:00 2001 From: Eric Bavier Date: Wed, 4 Feb 2015 09:48:39 -0600 Subject: [PATCH 01/57] utils: Strip duplicates from search path. * guix/build/utils.scm (search-path-as-list): Delete duplicate input directories before searching. --- guix/build/utils.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 4407f9af23..c7fdd1d553 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -323,7 +323,7 @@ for under the directories designated by FILES. For example: (list file) '()))))) files)) - input-dirs)) + (delete-duplicates input-dirs))) (define (list->search-path-as-string lst separator) (string-join lst separator)) From f6408bc584bd3c01713e7703b052e966ee616209 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 11 Feb 2015 11:23:46 +0100 Subject: [PATCH 02/57] gnu: patch: Update to 2.7.4. * gnu/packages/base.scm (patch): Update to 2.7.4. Remove 'replacement'. Remove outdated comment. (patch-2.7.4, patch-CVE-2015-1196): Remove. --- gnu/packages/base.scm | 43 +++++++++++-------------------------------- 1 file changed, 11 insertions(+), 32 deletions(-) diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index be33cb2caf..7306f2842f 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -147,32 +147,6 @@ standard utility.") (define-public patch (package (name "patch") - (version "2.7.1") - (source (origin - (method url-fetch) - (uri (string-append "mirror://gnu/patch/patch-" - version ".tar.xz")) - (sha256 - (base32 - "1sqckf560pzwgniy00vcpdv2c9c11s4cmhlm14yqgg8avd3bl94i")))) - (build-system gnu-build-system) - (native-inputs `(("ed", ed))) - ;; TODO: When cross-compiling, add this: - ;; '(#:configure-flags '("ac_cv_func_strnlen_working=yes")) - (synopsis "Apply differences to originals, with optional backups") - (description - "Patch is a program that applies changes to files based on differences -laid out as by the program \"diff\". The changes may be applied to one or more -files depending on the contents of the diff file. It accepts several -different diff formats. It may also be used to revert previously applied -differences.") - (license gpl3+) - (replacement patch-CVE-2015-1196) - (home-page "http://savannah.gnu.org/projects/patch/"))) - -(define-public patch-2.7.4 - (package - (inherit patch) (version "2.7.4") (source (origin (method url-fetch) @@ -181,12 +155,17 @@ differences.") (sha256 (base32 "02gikxjvcxysr4l65c8vivgz62xmalp0av5ypzff8vqhrq3vpb0f")))) - (replacement #f))) - -(define patch-CVE-2015-1196 - (package (inherit patch-2.7.4) - ;; Keep the old version number so it can be used as a 'replacement'. - (version (package-version patch)))) + (build-system gnu-build-system) + (native-inputs `(("ed", ed))) + (synopsis "Apply differences to originals, with optional backups") + (description + "Patch is a program that applies changes to files based on differences +laid out as by the program \"diff\". The changes may be applied to one or more +files depending on the contents of the diff file. It accepts several +different diff formats. It may also be used to revert previously applied +differences.") + (license gpl3+) + (home-page "http://savannah.gnu.org/projects/patch/"))) (define-public diffutils (package From fdaae613712077f9325141024da395ef315db130 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 11 Feb 2015 14:11:14 +0100 Subject: [PATCH 03/57] gnu: glibc: Update to 2.21. * gnu/packages/base.scm (glibc): Update to 2.21. Remove 3 patches no longer needed. * gnu/packages/patches/glibc-CVE-2012-3406.patch, gnu/packages/patches/glibc-CVE-2014-7817.patch, gnu/packages/patches/glibc-mips-dangling-vfork-ref.patch: Remove. * gnu-system.am (dist_patch_DATA): Adjust accordingly. --- gnu-system.am | 3 - gnu/packages/base.scm | 11 +- .../patches/glibc-CVE-2012-3406.patch | 282 ------------------ .../patches/glibc-CVE-2014-7817.patch | 171 ----------- .../glibc-mips-dangling-vfork-ref.patch | 45 --- 5 files changed, 4 insertions(+), 508 deletions(-) delete mode 100644 gnu/packages/patches/glibc-CVE-2012-3406.patch delete mode 100644 gnu/packages/patches/glibc-CVE-2014-7817.patch delete mode 100644 gnu/packages/patches/glibc-mips-dangling-vfork-ref.patch diff --git a/gnu-system.am b/gnu-system.am index a46647e450..038841b069 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -389,11 +389,8 @@ dist_patch_DATA = \ gnu/packages/patches/glib-tests-prlimit.patch \ gnu/packages/patches/glib-tests-timer.patch \ gnu/packages/patches/glib-tests-gapplication.patch \ - gnu/packages/patches/glibc-CVE-2012-3406.patch \ - gnu/packages/patches/glibc-CVE-2014-7817.patch \ gnu/packages/patches/glibc-bootstrap-system.patch \ gnu/packages/patches/glibc-ldd-x86_64.patch \ - gnu/packages/patches/glibc-mips-dangling-vfork-ref.patch \ gnu/packages/patches/gmp-arm-asm-nothumb.patch \ gnu/packages/patches/gnunet-fix-scheduler.patch \ gnu/packages/patches/gnunet-fix-tests.patch \ diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index 7306f2842f..cb6269a11e 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -357,14 +357,14 @@ included.") (define-public glibc (package (name "glibc") - (version "2.20") + (version "2.21") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/glibc/glibc-" version ".tar.xz")) (sha256 (base32 - "19bbyfc2gcxr9rihrkkbd3p362i608yhlyrr7icqsa6cmr16sjzq")) + "1f135546j34s9bfkydmx2nhh9vwxlx60jldi80zmsnln6wj3dsxf")) (snippet ;; Disable 'ldconfig' and /etc/ld.so.cache. The latter is ;; required on LFS distros to avoid loading the distro's libc.so @@ -373,10 +373,7 @@ included.") (("use_ldconfig=yes") "use_ldconfig=no"))) (modules '((guix build utils))) - (patches (list (search-patch "glibc-CVE-2014-7817.patch") - (search-patch "glibc-CVE-2012-3406.patch") - (search-patch "glibc-mips-dangling-vfork-ref.patch") - (search-patch "glibc-ldd-x86_64.patch"))))) + (patches (list (search-patch "glibc-ldd-x86_64.patch"))))) (build-system gnu-build-system) ;; Glibc's refers to , for instance, so glibc @@ -409,7 +406,7 @@ included.") (assoc-ref %build-inputs "linux-headers") "/include") - ;; This is the default for most architectures as of GNU libc 2.20, + ;; This is the default for most architectures as of GNU libc 2.21, ;; but we specify it explicitly for clarity and consistency. See ;; "kernel-features.h" in the GNU libc for details. "--enable-kernel=2.6.32" diff --git a/gnu/packages/patches/glibc-CVE-2012-3406.patch b/gnu/packages/patches/glibc-CVE-2012-3406.patch deleted file mode 100644 index 9147a2aeee..0000000000 --- a/gnu/packages/patches/glibc-CVE-2012-3406.patch +++ /dev/null @@ -1,282 +0,0 @@ -Fix CVE-2012-3406: Stack overflow in vfprintf [BZ #16617] - -Note: Here the ChangeLog and NEWS updates are removed from Jeff's - patch, since they depend on other earlier commits. - -From: Jeff Law -Date: Mon, 15 Dec 2014 09:09:32 +0000 (+0100) -Subject: CVE-2012-3406: Stack overflow in vfprintf [BZ #16617] -X-Git-Url: https://sourceware.org/git/gitweb.cgi?p=glibc.git;a=commitdiff_plain;h=a3a1f4163c4d0f9a36056c8640661a88674ae8a2 - -CVE-2012-3406: Stack overflow in vfprintf [BZ #16617] - -A larger number of format specifiers coudld cause a stack overflow, -potentially allowing to bypass _FORTIFY_SOURCE format string -protection. - -(cherry picked from commit a5357b7ce2a2982c5778435704bcdb55ce3667a0) -(cherry picked from commit ae61fc7b33d9d99d2763c16de8275227dc9748ba) - -Conflicts: - NEWS ---- - -diff --git a/stdio-common/Makefile b/stdio-common/Makefile -index 5f8e534..e5e45b6 100644 ---- a/stdio-common/Makefile -+++ b/stdio-common/Makefile -@@ -57,7 +57,7 @@ tests := tstscanf test_rdwr test-popen tstgetln test-fseek \ - bug19 bug19a tst-popen2 scanf13 scanf14 scanf15 bug20 bug21 bug22 \ - scanf16 scanf17 tst-setvbuf1 tst-grouping bug23 bug24 \ - bug-vfprintf-nargs tst-long-dbl-fphex tst-fphex-wide tst-sprintf3 \ -- bug25 tst-printf-round bug26 -+ bug25 tst-printf-round bug23-2 bug23-3 bug23-4 bug26 - - test-srcs = tst-unbputc tst-printf - -diff --git a/stdio-common/bug23-2.c b/stdio-common/bug23-2.c -new file mode 100644 -index 0000000..9e0cfe6 ---- /dev/null -+++ b/stdio-common/bug23-2.c -@@ -0,0 +1,70 @@ -+#include -+#include -+#include -+ -+static const char expected[] = "\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55\ -+\n\ -+a\n\ -+abbcd55%%%%%%%%%%%%%%%%%%%%%%%%%%\n"; -+ -+static int -+do_test (void) -+{ -+ char *buf = malloc (strlen (expected) + 1); -+ snprintf (buf, strlen (expected) + 1, -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n", -+ "a", "b", "c", "d", 5); -+ return strcmp (buf, expected) != 0; -+} -+ -+#define TEST_FUNCTION do_test () -+#include "../test-skeleton.c" -diff --git a/stdio-common/bug23-3.c b/stdio-common/bug23-3.c -new file mode 100644 -index 0000000..57c8cef ---- /dev/null -+++ b/stdio-common/bug23-3.c -@@ -0,0 +1,50 @@ -+#include -+#include -+#include -+ -+int -+do_test (void) -+{ -+ size_t instances = 16384; -+#define X0 "\n%1$s\n" "%1$s" "%2$s" "%2$s" "%3$s" "%4$s" "%5$d" "%5$d" -+ const char *item = "\na\nabbcd55"; -+#define X3 X0 X0 X0 X0 X0 X0 X0 X0 -+#define X6 X3 X3 X3 X3 X3 X3 X3 X3 -+#define X9 X6 X6 X6 X6 X6 X6 X6 X6 -+#define X12 X9 X9 X9 X9 X9 X9 X9 X9 -+#define X14 X12 X12 X12 X12 -+#define TRAILER "%%%%%%%%%%%%%%%%%%%%%%%%%%" -+#define TRAILER2 TRAILER TRAILER -+ size_t length = instances * strlen (item) + strlen (TRAILER) + 1; -+ -+ char *buf = malloc (length + 1); -+ snprintf (buf, length + 1, -+ X14 TRAILER2 "\n", -+ "a", "b", "c", "d", 5); -+ -+ const char *p = buf; -+ size_t i; -+ for (i = 0; i < instances; ++i) -+ { -+ const char *expected; -+ for (expected = item; *expected; ++expected) -+ { -+ if (*p != *expected) -+ { -+ printf ("mismatch at offset %zu (%zu): expected %d, got %d\n", -+ (size_t) (p - buf), i, *expected & 0xFF, *p & 0xFF); -+ return 1; -+ } -+ ++p; -+ } -+ } -+ if (strcmp (p, TRAILER "\n") != 0) -+ { -+ printf ("mismatch at trailer: [%s]\n", p); -+ return 1; -+ } -+ free (buf); -+ return 0; -+} -+#define TEST_FUNCTION do_test () -+#include "../test-skeleton.c" -diff --git a/stdio-common/bug23-4.c b/stdio-common/bug23-4.c -new file mode 100644 -index 0000000..a478564 ---- /dev/null -+++ b/stdio-common/bug23-4.c -@@ -0,0 +1,31 @@ -+#include -+#include -+#include -+#include -+ -+#define LIMIT 1000000 -+ -+int -+main (void) -+{ -+ struct rlimit lim; -+ getrlimit (RLIMIT_STACK, &lim); -+ lim.rlim_cur = 1048576; -+ setrlimit (RLIMIT_STACK, &lim); -+ char *fmtstr = malloc (4 * LIMIT + 1); -+ if (fmtstr == NULL) -+ abort (); -+ char *output = malloc (LIMIT + 1); -+ if (output == NULL) -+ abort (); -+ for (size_t i = 0; i < LIMIT; i++) -+ memcpy (fmtstr + 4 * i, "%1$d", 4); -+ fmtstr[4 * LIMIT] = '\0'; -+ int ret = snprintf (output, LIMIT + 1, fmtstr, 0); -+ if (ret != LIMIT) -+ abort (); -+ for (size_t i = 0; i < LIMIT; i++) -+ if (output[i] != '0') -+ abort (); -+ return 0; -+} -diff --git a/stdio-common/vfprintf.c b/stdio-common/vfprintf.c -index c4ff833..429a3d1 100644 ---- a/stdio-common/vfprintf.c -+++ b/stdio-common/vfprintf.c -@@ -263,6 +263,12 @@ vfprintf (FILE *s, const CHAR_T *format, va_list ap) - /* For the argument descriptions, which may be allocated on the heap. */ - void *args_malloced = NULL; - -+ /* For positional argument handling. */ -+ struct printf_spec *specs; -+ -+ /* Track if we malloced the SPECS array and thus must free it. */ -+ bool specs_malloced = false; -+ - /* This table maps a character into a number representing a - class. In each step there is a destination label for each - class. */ -@@ -1679,8 +1685,8 @@ do_positional: - size_t nspecs = 0; - /* A more or less arbitrary start value. */ - size_t nspecs_size = 32 * sizeof (struct printf_spec); -- struct printf_spec *specs = alloca (nspecs_size); - -+ specs = alloca (nspecs_size); - /* The number of arguments the format string requests. This will - determine the size of the array needed to store the argument - attributes. */ -@@ -1721,11 +1727,39 @@ do_positional: - if (nspecs * sizeof (*specs) >= nspecs_size) - { - /* Extend the array of format specifiers. */ -+ if (nspecs_size * 2 < nspecs_size) -+ { -+ __set_errno (ENOMEM); -+ done = -1; -+ goto all_done; -+ } - struct printf_spec *old = specs; -- specs = extend_alloca (specs, nspecs_size, 2 * nspecs_size); -+ if (__libc_use_alloca (2 * nspecs_size)) -+ specs = extend_alloca (specs, nspecs_size, 2 * nspecs_size); -+ else -+ { -+ nspecs_size *= 2; -+ specs = malloc (nspecs_size); -+ if (specs == NULL) -+ { -+ __set_errno (ENOMEM); -+ specs = old; -+ done = -1; -+ goto all_done; -+ } -+ } - - /* Copy the old array's elements to the new space. */ - memmove (specs, old, nspecs * sizeof (*specs)); -+ -+ /* If we had previously malloc'd space for SPECS, then -+ release it after the copy is complete. */ -+ if (specs_malloced) -+ free (old); -+ -+ /* Now set SPECS_MALLOCED if needed. */ -+ if (!__libc_use_alloca (nspecs_size)) -+ specs_malloced = true; - } - - /* Parse the format specifier. */ -@@ -2046,6 +2080,8 @@ do_positional: - } - - all_done: -+ if (specs_malloced) -+ free (specs); - if (__glibc_unlikely (args_malloced != NULL)) - free (args_malloced); - if (__glibc_unlikely (workstart != NULL)) diff --git a/gnu/packages/patches/glibc-CVE-2014-7817.patch b/gnu/packages/patches/glibc-CVE-2014-7817.patch deleted file mode 100644 index 14c885523c..0000000000 --- a/gnu/packages/patches/glibc-CVE-2014-7817.patch +++ /dev/null @@ -1,171 +0,0 @@ -Fix CVE-2014-7817: wordexp fails to honour WRDE_NOCMD. - -Note: Here the ChangeLog and NEWS updates are removed from Carlos's - patch, since they depend on other earlier commits. - -From: Carlos O'Donell -Date: Wed, 19 Nov 2014 16:44:12 +0000 (-0500) -Subject: CVE-2014-7817: wordexp fails to honour WRDE_NOCMD. -X-Git-Url: https://sourceware.org/git/gitweb.cgi?p=glibc.git;a=commitdiff_plain;h=33ceaf6187b31ea15284ac65131749e1cb68d2ae - -CVE-2014-7817: wordexp fails to honour WRDE_NOCMD. - -The function wordexp() fails to properly handle the WRDE_NOCMD -flag when processing arithmetic inputs in the form of "$((... ``))" -where "..." can be anything valid. The backticks in the arithmetic -epxression are evaluated by in a shell even if WRDE_NOCMD forbade -command substitution. This allows an attacker to attempt to pass -dangerous commands via constructs of the above form, and bypass -the WRDE_NOCMD flag. This patch fixes this by checking for WRDE_NOCMD -in exec_comm(), the only place that can execute a shell. All other -checks for WRDE_NOCMD are superfluous and removed. - -We expand the testsuite and add 3 new regression tests of roughly -the same form but with a couple of nested levels. - -On top of the 3 new tests we add fork validation to the WRDE_NOCMD -testing. If any forks are detected during the execution of a wordexp() -call with WRDE_NOCMD, the test is marked as failed. This is slightly -heuristic since vfork might be used in the future, but it provides a -higher level of assurance that no shells were executed as part of -command substitution with WRDE_NOCMD in effect. In addition it doesn't -require libpthread or libdl, instead we use the public implementation -namespace function __register_atfork (already part of the public ABI -for libpthread). - -Tested on x86_64 with no regressions. - -(cherry picked from commit a39208bd7fb76c1b01c127b4c61f9bfd915bfe7c) ---- - -diff --git a/posix/wordexp-test.c b/posix/wordexp-test.c -index 4957006..bdd65e4 100644 ---- a/posix/wordexp-test.c -+++ b/posix/wordexp-test.c -@@ -27,6 +27,25 @@ - - #define IFS " \n\t" - -+extern void *__dso_handle __attribute__ ((__weak__, __visibility__ ("hidden"))); -+extern int __register_atfork (void (*) (void), void (*) (void), void (*) (void), void *); -+ -+static int __app_register_atfork (void (*prepare) (void), void (*parent) (void), void (*child) (void)) -+{ -+ return __register_atfork (prepare, parent, child, -+ &__dso_handle == NULL ? NULL : __dso_handle); -+} -+ -+/* Number of forks seen. */ -+static int registered_forks; -+ -+/* For each fork increment the fork count. */ -+static void -+register_fork (void) -+{ -+ registered_forks++; -+} -+ - struct test_case_struct - { - int retval; -@@ -206,6 +225,12 @@ struct test_case_struct - { WRDE_SYNTAX, NULL, "$((2+))", 0, 0, { NULL, }, IFS }, - { WRDE_SYNTAX, NULL, "`", 0, 0, { NULL, }, IFS }, - { WRDE_SYNTAX, NULL, "$((010+4+))", 0, 0, { NULL }, IFS }, -+ /* Test for CVE-2014-7817. We test 3 combinations of command -+ substitution inside an arithmetic expression to make sure that -+ no commands are executed and error is returned. */ -+ { WRDE_CMDSUB, NULL, "$((`echo 1`))", WRDE_NOCMD, 0, { NULL, }, IFS }, -+ { WRDE_CMDSUB, NULL, "$((1+`echo 1`))", WRDE_NOCMD, 0, { NULL, }, IFS }, -+ { WRDE_CMDSUB, NULL, "$((1+$((`echo 1`))))", WRDE_NOCMD, 0, { NULL, }, IFS }, - - { -1, NULL, NULL, 0, 0, { NULL, }, IFS }, - }; -@@ -258,6 +283,15 @@ main (int argc, char *argv[]) - return -1; - } - -+ /* If we are not allowed to do command substitution, we install -+ fork handlers to verify that no forks happened. No forks should -+ happen at all if command substitution is disabled. */ -+ if (__app_register_atfork (register_fork, NULL, NULL) != 0) -+ { -+ printf ("Failed to register fork handler.\n"); -+ return -1; -+ } -+ - for (test = 0; test_case[test].retval != -1; test++) - if (testit (&test_case[test])) - ++fail; -@@ -367,6 +401,9 @@ testit (struct test_case_struct *tc) - - printf ("Test %d (%s): ", ++tests, tc->words); - -+ if (tc->flags & WRDE_NOCMD) -+ registered_forks = 0; -+ - if (tc->flags & WRDE_APPEND) - { - /* initial wordexp() call, to be appended to */ -@@ -378,6 +415,13 @@ testit (struct test_case_struct *tc) - } - retval = wordexp (tc->words, &we, tc->flags); - -+ if ((tc->flags & WRDE_NOCMD) -+ && (registered_forks > 0)) -+ { -+ printf ("FAILED fork called for WRDE_NOCMD\n"); -+ return 1; -+ } -+ - if (tc->flags & WRDE_DOOFFS) - start_offs = sav_we.we_offs; - -diff --git a/posix/wordexp.c b/posix/wordexp.c -index b6b65dd..26f3a26 100644 ---- a/posix/wordexp.c -+++ b/posix/wordexp.c -@@ -893,6 +893,10 @@ exec_comm (char *comm, char **word, size_t *word_length, size_t *max_length, - pid_t pid; - int noexec = 0; - -+ /* Do nothing if command substitution should not succeed. */ -+ if (flags & WRDE_NOCMD) -+ return WRDE_CMDSUB; -+ - /* Don't fork() unless necessary */ - if (!comm || !*comm) - return 0; -@@ -2082,9 +2086,6 @@ parse_dollars (char **word, size_t *word_length, size_t *max_length, - } - } - -- if (flags & WRDE_NOCMD) -- return WRDE_CMDSUB; -- - (*offset) += 2; - return parse_comm (word, word_length, max_length, words, offset, flags, - quoted? NULL : pwordexp, ifs, ifs_white); -@@ -2196,9 +2197,6 @@ parse_dquote (char **word, size_t *word_length, size_t *max_length, - break; - - case '`': -- if (flags & WRDE_NOCMD) -- return WRDE_CMDSUB; -- - ++(*offset); - error = parse_backtick (word, word_length, max_length, words, - offset, flags, NULL, NULL, NULL); -@@ -2357,12 +2355,6 @@ wordexp (const char *words, wordexp_t *pwordexp, int flags) - break; - - case '`': -- if (flags & WRDE_NOCMD) -- { -- error = WRDE_CMDSUB; -- goto do_error; -- } -- - ++words_offset; - error = parse_backtick (&word, &word_length, &max_length, words, - &words_offset, flags, pwordexp, ifs, diff --git a/gnu/packages/patches/glibc-mips-dangling-vfork-ref.patch b/gnu/packages/patches/glibc-mips-dangling-vfork-ref.patch deleted file mode 100644 index 852b6de669..0000000000 --- a/gnu/packages/patches/glibc-mips-dangling-vfork-ref.patch +++ /dev/null @@ -1,45 +0,0 @@ -Avoid a dangling `vfork@GLIBC_2.0' reference on MIPS. - -Note: Here the ChangeLog and NEWS updates are removed from Maciej's - patch, since they depend on other earlier commits. - -From: Maciej W. Rozycki -Date: Wed, 22 Oct 2014 14:20:37 +0000 (+0100) -Subject: MIPS: Avoid a dangling `vfork@GLIBC_2.0' reference -X-Git-Url: https://sourceware.org/git/?p=glibc.git;a=commitdiff_plain;h=c14e752fc73d34c75d4f84f37fea8e0b1734cf98 - -MIPS: Avoid a dangling `vfork@GLIBC_2.0' reference - -This satisfies a symbol reference created with: - - .symver __libc_vfork, vfork@GLIBC_2.0 - -where `__libc_vfork' has not been defined or referenced. In this case -the `vfork@GLIBC_2.0' reference is supposed to be discarded, however a -bug present in GAS since forever causes an undefined symbol table entry -to be created. This in turn triggers a problem in the linker that can -manifest itself by link errors such as: - -ld: libpthread.so: invalid string offset 2765592330 >= 5154 for section `.dynstr' - -The GAS and linker bugs need to be resolved, but we can avoid them too -by providing a `__libc_vfork' definition just like our other platforms. - - [BZ #17485] - * sysdeps/unix/sysv/linux/mips/vfork.S (__libc_vfork): Define. - -(cherry picked from commit b5af9297d51a43f96c5be1bafab032184690dd6f) - -Conflicts: - NEWS ---- - -diff --git a/sysdeps/unix/sysv/linux/mips/vfork.S b/sysdeps/unix/sysv/linux/mips/vfork.S -index 80c362d..2c1a747 100644 ---- a/sysdeps/unix/sysv/linux/mips/vfork.S -+++ b/sysdeps/unix/sysv/linux/mips/vfork.S -@@ -108,3 +108,4 @@ L(error): - - libc_hidden_def(__vfork) - weak_alias (__vfork, vfork) -+strong_alias (__vfork, __libc_vfork) From d6718df416c93bad365b736cc466739e6c2b11df Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 11 Feb 2015 14:16:29 +0100 Subject: [PATCH 04/57] gnu: glibc: Add search path specification for 'LOCPATH'. * gnu/packages/base.scm (glibc)[native-search-paths]: New field. --- gnu/packages/base.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index cb6269a11e..2de9bc2d81 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -485,6 +485,13 @@ included.") (native-inputs `(("texinfo" ,texinfo) ("perl" ,perl))) + (native-search-paths + ;; Search path for packages that provide locale data. This is useful + ;; primarily in build environments. + (list (search-path-specification + (variable "LOCPATH") + (files '("share/locale"))))) + (synopsis "The GNU C Library") (description "Any Unix-like operating system needs a C library: the library which From a4a17ec36ed75b688a3658e353f0975f94a48d4a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 11 Feb 2015 14:20:23 +0100 Subject: [PATCH 05/57] gnu: bison: Update to 3.0.4. * gnu/packages/bison.scm (bison): Update to 3.0.4. --- gnu/packages/bison.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gnu/packages/bison.scm b/gnu/packages/bison.scm index 76aa88fe26..43ab216797 100644 --- a/gnu/packages/bison.scm +++ b/gnu/packages/bison.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013 Ludovic Courtès +;;; Copyright © 2012, 2013, 2015 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -30,7 +30,7 @@ (define bison (package (name "bison") - (version "3.0.2") + (version "3.0.4") (source (origin (method url-fetch) @@ -38,7 +38,7 @@ version ".tar.xz")) (sha256 (base32 - "0g4gjan477lac18m51kv4xzcsp6wjfsfwvd2dxymcl6vid9fihx2")))) + "1qbgf6q1n2z17k8g33444m0q68kf3fbiq65q7jlrzpvvj73jh957")))) (build-system gnu-build-system) (native-inputs `(("perl" ,perl))) (inputs `(("flex" ,flex))) From 9e91418b105ad92b259be7588a6f927bb915da9e Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sun, 15 Feb 2015 19:17:57 +0100 Subject: [PATCH 06/57] gnu: freetype: Update to 2.5.5. * gnu/packages/fontutils.scm (freetype): Update to 2.5.5. --- gnu/packages/fontutils.scm | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm index 4d4a288d3e..14f42a9236 100644 --- a/gnu/packages/fontutils.scm +++ b/gnu/packages/fontutils.scm @@ -40,28 +40,23 @@ (define-public freetype (package (name "freetype") - (version "2.4.11") + (version "2.5.5") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/freetype/freetype-" - version ".tar.gz")) + version ".tar.bz2")) (sha256 (base32 - "0gpcz6swir64kp0dk3rwgqqkmf48b90dqgczdmznjjryhrahx9r9")))) + "1fdgl7js99xv1yy5zx1ravmqd0jxlnqpv7zcl954h4hbg15wqyrq")))) (build-system gnu-build-system) (arguments `(#:phases - (alist-replace - 'install - (lambda* (#:key outputs #:allow-other-keys #:rest args) - (let ((install (assoc-ref %standard-phases 'install)) - (include (string-append (assoc-ref outputs "out") "/include"))) - (apply install args) - ;; Unravel one directory, since ft2build.h includes directly from - ;; freetype/, not freetype2/freetype; this is announced in the file - ;; to be changed in a future release. - (symlink (string-append include "/freetype2/freetype") - (string-append include "/freetype")))) - %standard-phases))) + ;; This should not be necessary; reported upstream as + ;; https://savannah.nongnu.org/bugs/index.php?44261 + (alist-cons-before + 'configure 'set-paths + (lambda _ + (setenv "CONFIG_SHELL" (which "bash"))) + %standard-phases))) (synopsis "Font rendering library") (description "Freetype is a library that can be used by applications to access the From a02ee3d714da93bcadc303ea063d2bf31ef38580 Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sun, 15 Feb 2015 19:26:01 +0100 Subject: [PATCH 07/57] gnu: libgpg-error: Update to 1.18. * gnu/packages/gnupg.scm (libgpg-error): Update to 1.18. --- gnu/packages/gnupg.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index 9bc75b2329..cbca9ca985 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014 Ludovic Courtès -;;; Copyright © 2013 Andreas Enge +;;; Copyright © 2013, 2015 Andreas Enge ;;; Copyright © 2014 Eric Bavier ;;; Copyright © 2014 Mark H Weaver ;;; @@ -39,7 +39,7 @@ (define-public libgpg-error (package (name "libgpg-error") - (version "1.17") + (version "1.18") (source (origin (method url-fetch) @@ -47,7 +47,7 @@ version ".tar.bz2")) (sha256 (base32 - "1dapxzxl1naghf342fwfc2w2f2c5hb9gr1a1s4n8dsqn26kybx1z")))) + "0408v19h3h0q6w61g51hgbdg6cyw81nyzkh70qfprvsc3pkddwcz")))) (build-system gnu-build-system) (home-page "http://gnupg.org") (synopsis "Library of error values for GnuPG components") From 456cf627cd649552a41f26d179e2758c1d084b4b Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sun, 15 Feb 2015 19:49:10 +0100 Subject: [PATCH 08/57] gnu: gpgme: Update to 1.5.3. * gnu/packages/gnupg.scm (gpgme): Update to 1.5.3. --- gnu/packages/gnupg.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index cbca9ca985..e2a91bb28c 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -231,7 +231,7 @@ libskba (working with X.509 certificates and CMS data).") (define-public gpgme (package (name "gpgme") - (version "1.5.1") + (version "1.5.3") (source (origin (method url-fetch) @@ -239,7 +239,7 @@ libskba (working with X.509 certificates and CMS data).") ".tar.bz2")) (sha256 (base32 - "1qqi9bxwxxsc4r15j7drclgp0w8jk9nj3h2fsivk4c7brvw3lbvc")))) + "1jgwmra6cf0i5x2prj92w77vl7hmj276qmmll3lwysbyn32l1c0d")))) (build-system gnu-build-system) (propagated-inputs ;; Needs to be propagated because gpgme.h includes gpg-error.h. From 2249a16832b53c2b3c846d6617071501ce22dba2 Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sun, 15 Feb 2015 19:51:24 +0100 Subject: [PATCH 09/57] gnu: pius: Update to 2.0.11. * gnu/packages/gnupg.scm (pius): Update to 2.0.11. --- gnu/packages/gnupg.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index e2a91bb28c..0559525950 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -265,14 +265,14 @@ and every application benefits from this.") (define-public pius (package (name "pius") - (version "2.0.9") + (version "2.0.11") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/pgpius/pius/" version "/pius-" version ".tar.bz2")) (sha256 (base32 - "1g1jly3wl4ks6h8ydkygyl2c4i7v3z91rg42005m6vm70y1d8b3d")))) + "0pdbyqz6k0bm182cz81ss7yckmpms5qhrrw0wcr4a1srzcjyzf5f")))) (build-system gnu-build-system) (inputs `(("perl" ,perl) ("python" ,python-2) ; uses the Python 2 'print' syntax From 3e74dcd0bb3d98d53e9f5e546a107af303d33bbc Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sun, 15 Feb 2015 20:28:56 +0100 Subject: [PATCH 10/57] gnu: pinentry: Update to 0.9.0. * gnu/packages/gnupg.scm (pinentry): Update to 0.9.0. --- gnu/packages/gnupg.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index 0559525950..fa44d1f438 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -414,14 +414,14 @@ including tools for signing keys, keyring analysis, and party preparation. (define-public pinentry (package (name "pinentry") - (version "0.8.3") + (version "0.9.0") (source (origin (method url-fetch) (uri (string-append "mirror://gnupg/pinentry/pinentry-" version ".tar.bz2")) (sha256 (base32 - "1bd047crf7xb8g61mval8v6qww98rddlsw2dz6j8h8qbnl4hp2sn")))) + "1awhajq21hcjgqfxg9czaxg555gij4bba6axrwg8w6lfmc3ml14h")))) (build-system gnu-build-system) (inputs `(("ncurses" ,ncurses) From b01f89675d03202851a00c38d4995424bbb1879f Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sun, 15 Feb 2015 17:14:53 +0100 Subject: [PATCH 11/57] utils: Use $0 instead of absolute path to original program in 'wrap-program'. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/build/utils.scm (wrap-program): Create scripts that use $0 (which is usually just the base name) instead of the absolute path to the original program. Alternative implementation of 2ed11b3. Co-authored-by: Ludovic Courtès Closes . --- guix/build/utils.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/guix/build/utils.scm b/guix/build/utils.scm index c7fdd1d553..a3446cb617 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -816,7 +816,7 @@ contents: #!location/of/bin/bash export PATH=\"/gnu/.../bar/bin\" export CERT_PATH=\"$CERT_PATH${CERT_PATH:+:}/gnu/.../baz/certs:/qux/certs\" - exec -a location/of/foo location/of/.foo-real \"$@\" + exec -a $0 location/of/.foo-real \"$@\" This is useful for scripts that expect particular programs to be in $PATH, for programs that expect particular shared libraries to be in $LD_LIBRARY_PATH, or @@ -870,11 +870,10 @@ the previous wrapper." (with-output-to-file prog-tmp (lambda () (format #t - "#!~a~%~a~%exec -a \"~a\" \"~a\" \"$@\"~%" + "#!~a~%~a~%exec -a \"$0\" \"~a\" \"$@\"~%" (which "bash") (string-join (map export-variable vars) "\n") - (canonicalize-path prog) (canonicalize-path target)))) (chmod prog-tmp #o755) From da466f7ff63e34aca271e603090f25ba471f009e Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Sun, 15 Feb 2015 17:40:17 +0100 Subject: [PATCH 12/57] utils: Preserve symbolic links in 'wrap-program'. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/build/utils.scm (wrap-program): Preserve symbolic links instead of copying the contents of the link. Co-authored-by: Ludovic Courtès Closes . --- guix/build/utils.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/build/utils.scm b/guix/build/utils.scm index a3446cb617..6de1fa3b1e 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -837,7 +837,7 @@ the previous wrapper." (if (zero? number) (let ((prog-real (string-append (dirname prog) "/." (basename prog) "-real"))) - (copy-file prog prog-real) + (rename-file prog prog-real) prog-real) (wrapper-file-name number))) From 192c6f966fd7e7ecf3b828baee0da9ebc2026471 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Mon, 16 Feb 2015 10:56:34 -0500 Subject: [PATCH 13/57] gnu: libtool and libltdl: Update to 2.4.6. * gnu/packages/autotools.scm (libtool, libltdl): Update to 2.4.6. * gnu/packages/patches/libtool-skip-tests.patch: Adapt to 2.4.6. --- gnu/packages/autotools.scm | 9 +++--- gnu/packages/patches/libtool-skip-tests.patch | 28 +++++++++---------- 2 files changed, 19 insertions(+), 18 deletions(-) diff --git a/gnu/packages/autotools.scm b/gnu/packages/autotools.scm index 7f20b262f8..4b5cbb6dfd 100644 --- a/gnu/packages/autotools.scm +++ b/gnu/packages/autotools.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2012 Nikita Karetnikov ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès ;;; Copyright © 2014 Manolis Fragkiskos Ragkousis +;;; Copyright © 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -238,14 +239,14 @@ Makefile, simplifying the entire process for the developer.") (define-public libtool (package (name "libtool") - (version "2.4.5") + (version "2.4.6") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/libtool/libtool-" version ".tar.xz")) (sha256 (base32 - "0zhphv4n9bdd6sz66lqfrfqcsnv89mg2bykgi5w9401va4vc3al4")) + "0vxj52zm709125gwv9qqlw02silj8bnjnh4y07arrz60r31ai1vw")) (patches (list (search-patch "libtool-skip-tests.patch"))))) (build-system gnu-build-system) @@ -295,14 +296,14 @@ complexity of working with shared libraries across platforms.") ;; Libtool's extensive test suite isn't run. (package (name "libltdl") - (version "2.4.4") + (version "2.4.6") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/libtool/libtool-" version ".tar.xz")) (sha256 (base32 - "0v3zq08qxv7k5067mpqrkjkjl3wphhg06i696mka90mzadc5nad8")) + "0vxj52zm709125gwv9qqlw02silj8bnjnh4y07arrz60r31ai1vw")) (patches (list (search-patch "libtool-skip-tests.patch"))))) (build-system gnu-build-system) diff --git a/gnu/packages/patches/libtool-skip-tests.patch b/gnu/packages/patches/libtool-skip-tests.patch index 6082c3f1f1..9191d40487 100644 --- a/gnu/packages/patches/libtool-skip-tests.patch +++ b/gnu/packages/patches/libtool-skip-tests.patch @@ -4,8 +4,8 @@ one in demo.test, and one in destdir.at. Disable these. Also skip the nopic test on ARM and MIPS systems. ---- libtool-2.4.4/tests/demo.at.orig 2014-11-19 07:28:51.000000000 -0500 -+++ libtool-2.4.4/tests/demo.at 2015-01-07 17:30:46.482247718 -0500 +--- libtool-2.4.6/tests/demo.at.orig 2015-01-16 13:52:04.000000000 -0500 ++++ libtool-2.4.6/tests/demo.at 2015-02-16 10:48:51.435851966 -0500 @@ -510,7 +510,7 @@ AT_SETUP([force non-PIC objects]) @@ -15,9 +15,9 @@ Also skip the nopic test on ARM and MIPS systems. # These hosts cannot use non-PIC shared libs exit 77 ;; *-solaris*|*-sunos*) ---- libtool-2.4.4/tests/testsuite.orig 2014-11-29 11:43:11.000000000 -0500 -+++ libtool-2.4.4/tests/testsuite 2015-01-07 17:24:51.424672582 -0500 -@@ -8633,7 +8633,7 @@ +--- libtool-2.4.6/tests/testsuite.orig 2015-02-15 11:15:25.000000000 -0500 ++++ libtool-2.4.6/tests/testsuite 2015-02-16 10:50:58.736483216 -0500 +@@ -8741,7 +8741,7 @@ { set +x $as_echo "$at_srcdir/demo.at:535: case \$host in @@ -26,7 +26,7 @@ Also skip the nopic test on ARM and MIPS systems. # These hosts cannot use non-PIC shared libs exit 77 ;; *-solaris*|*-sunos*) -@@ -8658,7 +8658,7 @@ +@@ -8766,7 +8766,7 @@ " at_fn_check_prepare_notrace 'a `...` command substitution' "demo.at:535" ( $at_check_trace; case $host in @@ -35,19 +35,19 @@ Also skip the nopic test on ARM and MIPS systems. # These hosts cannot use non-PIC shared libs exit 77 ;; *-solaris*|*-sunos*) -@@ -9185,7 +9185,7 @@ read at_status <"$at_status_file" - #AT_START_33 - at_fn_group_banner 33 'demo.at:548' \ - "hardcoding library path" " " 3 +@@ -9298,7 +9298,7 @@ + #AT_START_34 + at_fn_group_banner 34 'demo.at:548' \ + "hardcoding library path" " " 4 -at_xfail=no +at_xfail=yes test no = "$ACLOCAL" && at_xfail=yes test no = "$AUTOHEADER" && at_xfail=yes test no = "$AUTOMAKE" && at_xfail=yes -@@ -27052,7 +27052,7 @@ read at_status <"$at_status_file" - #AT_START_97 - at_fn_group_banner 97 'destdir.at:75' \ - "DESTDIR with in-package deplibs" " " 7 +@@ -27243,7 +27243,7 @@ + #AT_START_98 + at_fn_group_banner 98 'destdir.at:75' \ + "DESTDIR with in-package deplibs" " " 8 -at_xfail=no +at_xfail=yes eval `$LIBTOOL --config | $GREP '^fast_install='` From c1944c92724cb1c1192c830a89501009a73431b0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Wed, 11 Feb 2015 21:26:48 +0800 Subject: [PATCH 14/57] gnu: libxml2: Propagate input zlib. * gnu/packages/xml.scm (libxml2): Move zlib to 'propagated-inputs'. --- gnu/packages/xml.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm index f2b3baa418..173435d2a5 100644 --- a/gnu/packages/xml.scm +++ b/gnu/packages/xml.scm @@ -65,7 +65,7 @@ things the parser might find in the XML document (like start tags).") (build-system gnu-build-system) (home-page "http://www.xmlsoft.org/") (synopsis "C parser for XML") - (inputs `(("zlib" ,zlib))) + (propagated-inputs `(("zlib" ,zlib))) ; libxml2.la says '-lz'. (native-inputs `(("perl" ,perl) ("python" ,python-2))) ; incompatible with Python 3 (print syntax) From 6f96a359ebb349527dd2e1d9c62a18f84bc2d164 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Thu, 12 Feb 2015 21:12:54 +0800 Subject: [PATCH 15/57] gnu: Add libxklavier. * gnu/packages/gnome.scm (libxklavier): New variable. --- gnu/packages/gnome.scm | 47 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index c42092d28e..73fb7f50dc 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2014 Ian Denhardt ;;; Copyright © 2014 Eric Bavier ;;; Copyright © 2014, 2015 Federico Beffa +;;; Copyright © 2015 Sou Bunnbu ;;; ;;; This file is part of GNU Guix. ;;; @@ -1514,3 +1515,49 @@ serialization and deserialization support for the JavaScript Object Notation GObject classes and various wrappers for the complex data types employed by JSON, such as arrays and objects.") (license license:lgpl2.1+))) + +(define-public libxklavier + (package + (name "libxklavier") + (version "5.3") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + version "/" name "-" version ".tar.xz")) + (sha256 + (base32 + "016lpdv35z0qsw1cprdc2k5qzkdi5waj6qmr0a2q6ljn9g2kpv7b")))) + (build-system gnu-build-system) + (arguments + '(#:configure-flags + (list (string-append "--with-xkb-base=" + (assoc-ref %build-inputs "xkeyboard-config") + "/share/X11/xkb")) + #:phases + (alist-cons-before + 'build 'set-cc + (lambda _ + (setenv "CC" "gcc")) ; for g-ir-scanner. + %standard-phases))) + (native-inputs + `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc. + ("gobject-introspection" ,gobject-introspection) + ("pkg-config" ,pkg-config))) + (propagated-inputs + ;; Required by libxklavier.pc. + `(("glib" ,glib) + ("libxml2" ,libxml2))) + (inputs + `(("iso-codes" ,iso-codes) + ("libxi" ,libxi) + ("libxkbfile" ,libxkbfile) + ("xkbcomp" ,xkbcomp) + ("xkeyboard-config" ,xkeyboard-config))) + (home-page "http://www.freedesktop.org/wiki/Software/LibXklavier/") + (synopsis "High-level API for X Keyboard Extension") + (description + "LibXklavier is a library providing high-level API for X Keyboard +Extension known as XKB. This library is indended to support XFree86 and other +commercial X servers. It is useful for creating XKB-related software (layout +indicators etc).") + (license license:lgpl2.0+))) From d2fcfd3d425612721658171e05fafe43cfdd53ac Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Wed, 11 Feb 2015 19:20:14 +0800 Subject: [PATCH 16/57] gnu: gnutls: Move which from 'propagated-inputs' to 'native-inputs'. * gnu/packages/gnutls.scm (gnutls): Move which to 'native-inputs'. Comment on 'propagated-inputs'. --- gnu/packages/gnutls.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gnu/packages/gnutls.scm b/gnu/packages/gnutls.scm index a51d948ce8..b256a97ddf 100644 --- a/gnu/packages/gnutls.scm +++ b/gnu/packages/gnutls.scm @@ -132,14 +132,15 @@ living in the same process.") ;; independently. This seems suboptimal. "--with-default-trust-store-dir=/etc/ssl/certs"))) (native-inputs - `(("pkg-config" ,pkg-config))) + `(("pkg-config" ,pkg-config) + ("which" ,which))) (inputs `(("guile" ,guile-2.0) ("perl" ,perl))) (propagated-inputs + ;; These are all in the 'Requires.private' field of gnutls.pc. `(("libtasn1" ,libtasn1) ("nettle" ,nettle) - ("which" ,which) ("zlib" ,guix:zlib))) (home-page "http://www.gnu.org/software/gnutls/") (synopsis "Transport layer security library") From fdb316266548d5a158457b5d2652697f12ebf7ff Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 19 Feb 2015 04:12:30 -0500 Subject: [PATCH 17/57] gnu: libunistring: Update to 0.9.5. * gnu/packages/libunistring.scm (libunistring): Update to 0.9.5. --- gnu/packages/libunistring.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gnu/packages/libunistring.scm b/gnu/packages/libunistring.scm index ddafd74202..aa053711a9 100644 --- a/gnu/packages/libunistring.scm +++ b/gnu/packages/libunistring.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014 Ludovic Courtès +;;; Copyright © 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -25,7 +26,7 @@ (define-public libunistring (package (name "libunistring") - (version "0.9.4") + (version "0.9.5") (source (origin (method url-fetch) (uri (string-append @@ -33,7 +34,7 @@ version ".tar.gz")) (sha256 (base32 - "19nqvn19hz25ig9dbmh2di5j1r7v852x9mlnq0nr0hka51ins97m")))) + "05va4x47ik006nd13grwm276gfxb8igsj63k37vvwl3q8rr0g30s")))) (propagated-inputs '()) ; FIXME: add libiconv when !glibc (build-system gnu-build-system) (arguments From c18ea90fd9812c1dd7cebba3dd519e631e0d9fee Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Thu, 19 Feb 2015 21:22:25 +0100 Subject: [PATCH 18/57] gnu: Add npth. * gnu/packages/gnupg.scm (npth): New variable. --- gnu/packages/gnupg.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index fa44d1f438..a7b303bcaa 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -162,6 +162,31 @@ as well as the CMS easily accessible by other applications. Both specifications are building blocks of S/MIME and TLS.") (license gpl3+))) +(define-public npth + (package + (name "npth") + (version "1.1") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://gnupg/npth/npth-" + version ".tar.bz2")) + (sha256 + (base32 + "0zyzwmk4mp6pas87jz35zx0jvwdz7x5b13w225gs73gcn8g5cv49")))) + (build-system gnu-build-system) + (home-page "http://www.gnupg.org") + (synopsis "Non-preemptive thread library") + (description + "Npth is a library to provide the GNU Pth API and thus a non-preemptive +threads implementation. + +In contrast to GNU Pth is is based on the system's standard threads +implementation. This allows the use of libraries which are not +compatible to GNU Pth.") + (license (list lgpl3+ gpl2+)))) ; dual license + (define-public gnupg (package (name "gnupg") From 232010f89dc6f9fc6f8a1ca5df846048c9eff8ef Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 19 Feb 2015 18:01:18 -0500 Subject: [PATCH 19/57] gnu: glibc: Disable parallel build. * gnu/packages/base.scm (glibc)[arguments]: Disable parallel build. --- gnu/packages/base.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index ca440c242c..a603688a6b 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès ;;; Copyright © 2014 Andreas Enge ;;; Copyright © 2012 Nikita Karetnikov -;;; Copyright © 2014 Mark H Weaver +;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2014 Alex Kost ;;; ;;; This file is part of GNU Guix. @@ -385,6 +385,7 @@ included.") (arguments `(#:out-of-source? #t + #:parallel-build? #f ; There's at least one race in the build. #:configure-flags (list "--enable-add-ons" "--sysconfdir=/etc" From cd064df7bbc554ab1cb1d5aeea9323e22f7b65f5 Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Thu, 19 Feb 2015 22:01:03 +0100 Subject: [PATCH 20/57] gnu: gnupg: Add version 2.1.2. * gnu/packages/gnupg.scm (gnupg): Update to 2.1.2. (gnupg-2.0): Copy of previous package for version 2.0.26. --- gnu/packages/gnupg.scm | 54 ++++++++++++++++++++++++++++++++---------- 1 file changed, 42 insertions(+), 12 deletions(-) diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index a7b303bcaa..584b1c68c1 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -190,6 +190,47 @@ compatible to GNU Pth.") (define-public gnupg (package (name "gnupg") + (version "2.1.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnupg/gnupg/gnupg-" version + ".tar.bz2")) + (sha256 + (base32 + "14k7c5spai3yppz6izf1ggbnffskl54ln87v1wgy9pwism1mlks0")))) + (build-system gnu-build-system) + (inputs + `(("bzip2" ,guix:bzip2) + ("curl" ,curl) + ("libassuan" ,libassuan) + ("libgcrypt" ,libgcrypt) + ("libgpg-error" ,libgpg-error) + ("libksba" ,libksba) + ("npth" ,npth) + ("openldap" ,openldap) + ("zlib" ,guix:zlib) + ("readline" ,readline))) + (arguments + `(#:phases + (alist-cons-before + 'configure 'patch-config-files + (lambda _ + (substitute* "tests/openpgp/defs.inc" + (("/bin/pwd") (which "pwd")))) + %standard-phases))) + (home-page "http://gnupg.org/") + (synopsis "GNU Privacy Guard") + (description + "The GNU Privacy Guard is a complete implementation of the OpenPGP +standard. It is used to encrypt and sign data and communication. It +features powerful key management and the ability to access public key +servers. It includes several libraries: libassuan (IPC between GnuPG +components), libgpg-error (centralized GnuPG error values), and +libskba (working with X.509 certificates and CMS data).") + (license gpl3+))) + +(define-public gnupg-2.0 + (package (inherit gnupg) (version "2.0.26") (source (origin (method url-fetch) @@ -198,7 +239,6 @@ compatible to GNU Pth.") (sha256 (base32 "1q5qcl5panrvcvpwvz6nl9gayl5a6vwvfhgdcxqpmbl2qc6y6n3p")))) - (build-system gnu-build-system) (inputs `(("bzip2" ,guix:bzip2) ("curl" ,curl) @@ -217,17 +257,7 @@ compatible to GNU Pth.") (lambda _ (substitute* "tests/openpgp/Makefile.in" (("/bin/sh") (which "bash")))) - %standard-phases))) - (home-page "http://gnupg.org/") - (synopsis "GNU Privacy Guard") - (description - "The GNU Privacy Guard is a complete implementation of the OpenPGP -standard. It is used to encrypt and sign data and communication. It -features powerful key management and the ability to access public key -servers. It includes several libraries: libassuan (IPC between GnuPG -components), libgpg-error (centralized GnuPG error values), and -libskba (working with X.509 certificates and CMS data).") - (license gpl3+))) + %standard-phases))))) (define-public gnupg-1 (package (inherit gnupg) From 945562d4692b80b20852723530895e7eb365eb89 Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Fri, 20 Feb 2015 16:52:29 +0100 Subject: [PATCH 21/57] gnu: mpc: Update to 1.0.3. * gnu/packages/multiprecision.scm (mpc): Update to 1.0.3. --- gnu/packages/multiprecision.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gnu/packages/multiprecision.scm b/gnu/packages/multiprecision.scm index ddbfc79965..da52b2b1e9 100644 --- a/gnu/packages/multiprecision.scm +++ b/gnu/packages/multiprecision.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013 Ludovic Courtès ;;; Copyright © 2014 Mark H Weaver +;;; Copyright © 2015 Andreas Enge ;;; ;;; This file is part of GNU Guix. ;;; @@ -88,13 +89,14 @@ floating-point computations with correct rounding.") (define-public mpc (package (name "mpc") - (version "1.0.2") + (version "1.0.3") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/mpc/mpc-" version ".tar.gz")) - (sha256 (base32 - "1264h3ivldw5idph63x35dqqdzqqbxrm5vlir0xyx727i96zaqdm")))) + (sha256 + (base32 + "1hzci2zrrd7v3g1jk35qindq05hbl0bhjcyyisq9z209xb3fqzb1")))) (build-system gnu-build-system) (outputs '("out" "debug")) (propagated-inputs `(("gmp" ,gmp) ; refers to both From 8a00b93027ee185f251d878f46d9967e5ccdd99e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 25 Feb 2015 09:46:13 +0100 Subject: [PATCH 22/57] gnu: glibc: Change 'LOCPATH' specification to look for "lib/locale". Suggested by Andreas Schwab at . * gnu/packages/base.scm (glibc)[native-search-paths]: Change "share/locale" to "lib/locale". --- gnu/packages/base.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index a603688a6b..dae9ff067b 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -492,7 +492,7 @@ included.") ;; primarily in build environments. (list (search-path-specification (variable "LOCPATH") - (files '("share/locale"))))) + (files '("lib/locale"))))) (synopsis "The GNU C Library") (description From a068dba78bde9c83a69c755df1131c286d065850 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 26 Feb 2015 04:26:16 -0500 Subject: [PATCH 23/57] gnu: grep: Apply fix for CVE-2015-1345. * gnu/packages/patches/grep-CVE-2015-1345.patch: New file. * gnu-system.am (dist_patch_DATA): Add it. * gnu/packages/base.scm (grep): Add patch. --- gnu-system.am | 1 + gnu/packages/base.scm | 3 ++- gnu/packages/patches/grep-CVE-2015-1345.patch | 17 +++++++++++++++++ 3 files changed, 20 insertions(+), 1 deletion(-) create mode 100644 gnu/packages/patches/grep-CVE-2015-1345.patch diff --git a/gnu-system.am b/gnu-system.am index 561b66cec0..6849b9c618 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -398,6 +398,7 @@ dist_patch_DATA = \ gnu/packages/patches/gobject-introspection-absolute-shlib-path.patch \ gnu/packages/patches/gobject-introspection-cc.patch \ gnu/packages/patches/gobject-introspection-girepository.patch \ + gnu/packages/patches/grep-CVE-2015-1345.patch \ gnu/packages/patches/grub-gets-undeclared.patch \ gnu/packages/patches/gstreamer-0.10-bison3.patch \ gnu/packages/patches/gstreamer-0.10-silly-test.patch \ diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index dae9ff067b..698a6b6e03 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -73,7 +73,8 @@ command-line arguments, multiple languages, and so on.") version ".tar.xz")) (sha256 (base32 - "1pp5n15qwxrw1pibwjhhgsibyv5cafhamf8lwzjygs6y00fa2i2j")))) + "1pp5n15qwxrw1pibwjhhgsibyv5cafhamf8lwzjygs6y00fa2i2j")) + (patches (list (search-patch "grep-CVE-2015-1345.patch"))))) (build-system gnu-build-system) (synopsis "Print lines matching a pattern") (description diff --git a/gnu/packages/patches/grep-CVE-2015-1345.patch b/gnu/packages/patches/grep-CVE-2015-1345.patch new file mode 100644 index 0000000000..b0d0c8e5dc --- /dev/null +++ b/gnu/packages/patches/grep-CVE-2015-1345.patch @@ -0,0 +1,17 @@ +Fix CVE-2015-1345. From upstream commit +83a95bd8c8561875b948cadd417c653dbe7ef2e2 +by Yuliy Pisetsky . + +diff --git a/src/kwset.c b/src/kwset.c +index 4003c8d..376f7c3 100644 +--- a/src/kwset.c ++++ b/src/kwset.c +@@ -643,6 +643,8 @@ bmexec_trans (kwset_t kwset, char const *text, size_t size) + if (! tp) + return -1; + tp++; ++ if (ep <= tp) ++ break; + } + } + } From cd0385b61a934eafe1601e7c22024cf452d357c2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Feb 2015 22:46:26 +0100 Subject: [PATCH 24/57] build-system/gnu: Add support for zip archives. Fixes . Reported by Andreas Enge . * guix/build/gnu-build-system.scm (unpack): Use 'unzip' when SOURCE ends in '.zip'. --- guix/build/gnu-build-system.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 2880168273..25df711170 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -108,7 +108,9 @@ working directory." (copy-recursively source "." #:keep-mtime? #t) #t) - (and (zero? (system* "tar" "xvf" source)) + (and (if (string-suffix? ".zip" source) + (zero? (system* "unzip" source)) + (zero? (system* "tar" "xvf" source))) (chdir (first-subdirectory "."))))) ;; See . From 8ddc41e1f25b643beaa204b1f5c271cfe7f3e0a9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Feb 2015 22:48:14 +0100 Subject: [PATCH 25/57] utils: Add 'modify-phases'. * guix/build/utils.scm (modify-phases): New macro. --- .dir-locals.el | 1 + guix/build/utils.scm | 28 ++++++++++++++++++++++++++++ 2 files changed, 29 insertions(+) diff --git a/.dir-locals.el b/.dir-locals.el index e056e26c9a..7aef853625 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -20,6 +20,7 @@ (eval . (put 'guard 'scheme-indent-function 1)) (eval . (put 'lambda* 'scheme-indent-function 1)) (eval . (put 'substitute* 'scheme-indent-function 1)) + (eval . (put 'modify-phases 'scheme-indent-function 1)) (eval . (put 'with-directory-excursion 'scheme-indent-function 1)) (eval . (put 'package 'scheme-indent-function 0)) (eval . (put 'origin 'scheme-indent-function 0)) diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 6de1fa3b1e..f24ed47f3e 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -54,6 +54,7 @@ alist-cons-before alist-cons-after alist-replace + modify-phases with-atomic-file-replacement substitute substitute* @@ -423,6 +424,33 @@ An error is raised when no such pair exists." ((_ after ...) (append before (alist-cons key value after)))))) +(define-syntax-rule (modify-phases phases mod-spec ...) + "Modify PHASES sequentially as per each MOD-SPEC, which may have one of the +following forms: + + (delete ) + (replace ) + (add-before ) + (add-after ) + +Where every <*-phase-name> is an automatically quoted symbol, and +an expression evaluating to a procedure." + (let* ((phases* phases) + (phases* (%modify-phases phases* mod-spec)) + ...) + phases*)) + +(define-syntax %modify-phases + (syntax-rules (delete replace add-before add-after) + ((_ phases (delete old-phase-name)) + (alist-delete 'old-phase-name phases)) + ((_ phases (replace old-phase-name new-phase)) + (alist-replace 'old-phase-name new-phase phases)) + ((_ phases (add-before old-phase-name new-phase-name new-phase)) + (alist-cons-before 'old-phase-name 'new-phase-name new-phase phases)) + ((_ phases (add-after old-phase-name new-phase-name new-phase)) + (alist-cons-after 'old-phase-name 'new-phase-name new-phase phases)))) + ;;; ;;; Text substitution (aka. sed). From f84218acae6cb323c6c9f7d5957531dae9b9912f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Feb 2015 23:00:21 +0100 Subject: [PATCH 26/57] build-system: Use 'modify-phases'. * guix/build/cmake-build-system.scm (%standard-phases): Use 'modify-phases' instead of alist-*. * guix/build/glib-or-gtk-build-system.scm (%standard-phases): Likewise. * guix/build/gnu-dist.scm (%dist-phases): Likewise. * guix/build/perl-build-system.scm (%standard-phases): Likewise. * guix/build/python-build-system.scm (%standard-phases): Likewise. * guix/build/ruby-build-system.scm (%standard-phases): Likewise. * guix/build/waf-build-system.scm (%standard-phases): Likewise. --- guix/build/cmake-build-system.scm | 8 ++++---- guix/build/glib-or-gtk-build-system.scm | 11 ++++------- guix/build/gnu-dist.scm | 17 +++++++---------- guix/build/perl-build-system.scm | 16 ++++++---------- guix/build/python-build-system.scm | 22 ++++++++-------------- guix/build/ruby-build-system.scm | 12 +++++------- guix/build/waf-build-system.scm | 13 +++++-------- 7 files changed, 39 insertions(+), 60 deletions(-) diff --git a/guix/build/cmake-build-system.scm b/guix/build/cmake-build-system.scm index 74b4f01425..07fd8df481 100644 --- a/guix/build/cmake-build-system.scm +++ b/guix/build/cmake-build-system.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014 Ludovic Courtès +;;; Copyright © 2013, 2014, 2015 Ludovic Courtès ;;; Copyright © 2013 Cyril Roelandt ;;; Copyright © 2014 Andreas Enge ;;; @@ -72,9 +72,9 @@ (define %standard-phases ;; Everything is as with the GNU Build System except for the `configure' ;; and 'check' phases. - (alist-replace 'configure configure - (alist-replace 'check check - gnu:%standard-phases))) + (modify-phases gnu:%standard-phases + (replace check check) + (replace configure configure))) (define* (cmake-build #:key inputs (phases %standard-phases) #:allow-other-keys #:rest args) diff --git a/guix/build/glib-or-gtk-build-system.scm b/guix/build/glib-or-gtk-build-system.scm index 92e91bf7a5..c57bc3e731 100644 --- a/guix/build/glib-or-gtk-build-system.scm +++ b/guix/build/glib-or-gtk-build-system.scm @@ -239,13 +239,10 @@ needed." outputs)) (define %standard-phases - (alist-cons-after - 'install 'glib-or-gtk-wrap wrap-all-programs - (alist-cons-after - 'install 'glib-or-gtk-icon-cache generate-icon-cache - (alist-cons-after - 'install 'glib-or-gtk-compile-schemas compile-glib-schemas - gnu:%standard-phases)))) + (modify-phases gnu:%standard-phases + (add-after install glib-or-gtk-compile-schemas compile-glib-schemas) + (add-after install glib-or-gtk-icon-cache generate-icon-cache) + (add-after install glib-or-gtk-wrap wrap-all-programs))) (define* (glib-or-gtk-build #:key inputs (phases %standard-phases) #:allow-other-keys #:rest args) diff --git a/guix/build/gnu-dist.scm b/guix/build/gnu-dist.scm index 562056b5f6..887b5e94e9 100644 --- a/guix/build/gnu-dist.scm +++ b/guix/build/gnu-dist.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2015 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -82,14 +82,11 @@ (define %dist-phases ;; Phases for building a source tarball. - (alist-replace - 'unpack copy-source - (alist-cons-before - 'configure 'autoreconf autoreconf - (alist-replace - 'build build - (alist-replace - 'install install-dist - (alist-delete 'strip %standard-phases)))))) + (modify-phases %standard-phases + (delete strip) + (replace install install-dist) + (replace build build) + (add-before configure autoreconf autoreconf) + (replace unpack copy-source))) ;;; gnu-dist.scm ends here diff --git a/guix/build/perl-build-system.scm b/guix/build/perl-build-system.scm index 7eb944ccd1..9ca5353bb9 100644 --- a/guix/build/perl-build-system.scm +++ b/guix/build/perl-build-system.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2015 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -71,15 +71,11 @@ (define %standard-phases ;; Everything is as with the GNU Build System except for the `configure', ;; `build', `check', and `install' phases. - (alist-replace - 'configure configure - (alist-replace - 'build build - (alist-replace - 'check check - (alist-replace - 'install install - gnu:%standard-phases))))) + (modify-phases gnu:%standard-phases + (replace install install) + (replace check check) + (replace build build) + (replace configure configure))) (define* (perl-build #:key inputs (phases %standard-phases) #:allow-other-keys #:rest args) diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm index 74ba0c765d..9f853134bd 100644 --- a/guix/build/python-build-system.scm +++ b/guix/build/python-build-system.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2015 Ludovic Courtès ;;; Copyright © 2013 Andreas Enge ;;; Copyright © 2013 Nikita Karetnikov ;;; @@ -122,19 +122,13 @@ installed with setuptools." (define %standard-phases ;; 'configure' and 'build' phases are not needed. Everything is done during ;; 'install'. - (alist-cons-before - 'strip 'rename-pth-file - rename-pth-file - (alist-cons-after - 'install 'wrap - wrap - (alist-replace - 'build build - (alist-replace - 'check check - (alist-replace 'install install - (alist-delete 'configure - gnu:%standard-phases))))))) + (modify-phases gnu:%standard-phases + (delete configure) + (replace install install) + (replace check check) + (replace build build) + (add-after install wrap wrap) + (add-before strip rename-pth-file rename-pth-file))) (define* (python-build #:key inputs (phases %standard-phases) #:allow-other-keys #:rest args) diff --git a/guix/build/ruby-build-system.scm b/guix/build/ruby-build-system.scm index 2b3ba7c8cd..40aa974dee 100644 --- a/guix/build/ruby-build-system.scm +++ b/guix/build/ruby-build-system.scm @@ -62,13 +62,11 @@ directory." (first-matching-file "\\.gem$"))))) (define %standard-phases - (alist-replace - 'build build - (alist-replace - 'install install - (alist-replace - 'check check - (alist-delete 'configure gnu:%standard-phases))))) + (modify-phases gnu:%standard-phases + (delete configure) + (replace build build) + (replace install install) + (replace check check))) (define* (ruby-build #:key inputs (phases %standard-phases) #:allow-other-keys #:rest args) diff --git a/guix/build/waf-build-system.scm b/guix/build/waf-build-system.scm index e64b51abc0..d172c5a836 100644 --- a/guix/build/waf-build-system.scm +++ b/guix/build/waf-build-system.scm @@ -69,14 +69,11 @@ (call-waf "install" params))) (define %standard-phases - (alist-replace - 'configure configure - (alist-replace - 'build build - (alist-replace - 'check check - (alist-replace 'install install - gnu:%standard-phases))))) + (modify-phases gnu:%standard-phases + (replace configure configure) + (replace build build) + (replace check check) + (replace install install))) (define* (waf-build #:key inputs (phases %standard-phases) #:allow-other-keys #:rest args) From 5335c56e8eb1953d7e14130896fea35309231134 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Feb 2015 23:36:55 +0100 Subject: [PATCH 27/57] build-system/gnu: Add 'install-locale' phase. * guix/build/gnu-build-system.scm (install-locale): New procedure. (%standard-phases): Add it. * guix/build-system/gnu.scm (gnu-build): Add #:locale and pass it to the build script. (gnu-cross-build): Likewise. --- guix/build-system/gnu.scm | 6 +++++- guix/build/gnu-build-system.scm | 25 ++++++++++++++++++++++++- 2 files changed, 29 insertions(+), 2 deletions(-) diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm index c675155a6a..c91ad2ee0c 100644 --- a/guix/build-system/gnu.scm +++ b/guix/build-system/gnu.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014 Ludovic Courtès +;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -278,6 +278,7 @@ standard packages used as implicit inputs of the GNU build system." (strip-directories ''("lib" "lib64" "libexec" "bin" "sbin")) (phases '%standard-phases) + (locale "en_US.UTF-8") (system (%current-system)) (imported-modules %default-modules) (modules %default-modules) @@ -328,6 +329,7 @@ are allowed to refer to." #:search-paths ',(map search-path-specification->sexp search-paths) #:phases ,phases + #:locale ,locale #:configure-flags ,configure-flags #:make-flags ,make-flags #:out-of-source? ,out-of-source? @@ -410,6 +412,7 @@ is one of `host' or `target'." (strip-directories ''("lib" "lib64" "libexec" "bin" "sbin")) (phases '%standard-phases) + (locale "en_US.UTF-8") (system (%current-system)) (imported-modules '((guix build gnu-build-system) (guix build utils))) @@ -473,6 +476,7 @@ platform." search-path-specification->sexp native-search-paths) #:phases ,phases + #:locale ,locale #:configure-flags ,configure-flags #:make-flags ,make-flags #:out-of-source? ,out-of-source? diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 25df711170..c3cc3ce70a 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -94,6 +94,29 @@ #t) +(define* (install-locale #:key + (locale "en_US.UTF-8") + (locale-category LC_ALL) + #:allow-other-keys) + "Try to install LOCALE; emit a warning if that fails. The main goal is to +use a UTF-8 locale so that Guile correctly interprets UTF-8 file names. + +This phase must typically happen after 'set-paths' so that $LOCPATH has a +chance to be set." + (catch 'system-error + (lambda () + (setlocale locale-category locale) + (format (current-error-port) "using '~a' locale for category ~a~%" + locale locale-category) + #t) + (lambda args + ;; This is known to fail for instance in early bootstrap where locales + ;; are not available. + (format (current-error-port) + "warning: failed to install '~a' locale: ~a~%" + locale (strerror (system-error-errno args))) + #t))) + (define* (unpack #:key source #:allow-other-keys) "Unpack SOURCE in the working directory, and change directory within the source. When SOURCE is a directory, copy it in a sub-directory of the current @@ -454,7 +477,7 @@ DOCUMENTATION-COMPRESSOR-FLAGS." ;; Standard build phases, as a list of symbol/procedure pairs. (let-syntax ((phases (syntax-rules () ((_ p ...) `((p . ,p) ...))))) - (phases set-paths unpack + (phases set-paths install-locale unpack patch-usr-bin-file patch-source-shebangs configure patch-generated-file-shebangs build check install From b0fd2bd3c5c1b04c3452473cdf104a8258bb7649 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Feb 2015 23:39:47 +0100 Subject: [PATCH 28/57] gnu: Add glibc-utf8-locales to the implicit inputs. Suggested by Mark H Weaver and Andreas Enge at . * gnu/packages/commencement.scm (gzip-final, glibc-utf8-locales-final): New variables. (%final-inputs): Use them. --- gnu/packages/commencement.scm | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index 8fa90fed3f..aa0aac6d0e 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014 Ludovic Courtès +;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès ;;; Copyright © 2014 Andreas Enge ;;; Copyright © 2012 Nikita Karetnikov ;;; Copyright © 2014 Mark H Weaver @@ -662,6 +662,16 @@ store.") ("grep" ,grep-final) ,@%boot4-inputs)) +(define gzip-final + (package-with-explicit-inputs gzip %boot5-inputs + (current-source-location))) + +(define glibc-utf8-locales-final + (package + (inherit glibc-utf8-locales) + (inputs `(("glibc" ,glibc-final) + ("gzip" ,gzip-final))))) + (define-public %final-inputs ;; Final derivations used as implicit inputs by 'gnu-build-system'. We ;; still use 'package-with-bootstrap-guile' so that the bootstrap tools are @@ -674,7 +684,6 @@ store.") ((name package) (list name (finalize package)))) `(("tar" ,tar) - ("gzip" ,gzip) ("bzip2" ,bzip2) ("xz" ,xz) ("file" ,file) @@ -683,6 +692,7 @@ store.") ("sed" ,sed) ("findutils" ,findutils) ("gawk" ,gawk))) + ("gzip" ,gzip-final) ("grep" ,grep-final) ("coreutils" ,coreutils-final) ("make" ,gnu-make-final) @@ -690,7 +700,8 @@ store.") ("ld-wrapper" ,ld-wrapper) ("binutils" ,binutils-final) ("gcc" ,gcc-final) - ("libc" ,glibc-final)))) + ("libc" ,glibc-final) + ("locales" ,glibc-utf8-locales-final)))) (define-public canonical-package (let ((name->package (fold (lambda (input result) From 9cca706c2e76bddb3c04ca2ab310cd1262596232 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 00:03:17 +0100 Subject: [PATCH 29/57] packages: When possible, use a UTF-8 locale in patch-and-repack. * guix/packages.scm (%standard-patch-inputs): Add "locales". (patch-and-repack)[builder]: Add 'locales' variable. When it is true, call 'setenv' and 'setlocale'. --- guix/packages.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/guix/packages.scm b/guix/packages.scm index 5b686a122f..b72a6ddc8e 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -335,7 +335,8 @@ corresponds to the arguments expected by `set-path-environment-variable'." ("bzip2" ,(ref '(gnu packages compression) 'bzip2)) ("gzip" ,(ref '(gnu packages compression) 'gzip)) ("lzip" ,(ref '(gnu packages compression) 'lzip)) - ("patch" ,(ref '(gnu packages base) 'patch))))) + ("patch" ,(ref '(gnu packages base) 'patch)) + ("locales" ,(ref '(gnu packages base) 'glibc-utf8-locales))))) (define (default-guile) "Return the default Guile package used to run the build code of @@ -411,7 +412,8 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET." (srfi srfi-1) (guix build utils)) - (let ((out (assoc-ref %outputs "out")) + (let ((locales (assoc-ref %build-inputs "locales")) + (out (assoc-ref %outputs "out")) (xz (assoc-ref %build-inputs "xz")) (decomp (assoc-ref %build-inputs ,decompression-type)) (source (assoc-ref %build-inputs "source")) @@ -433,6 +435,12 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET." (lambda (name) (not (member name '("." ".."))))))) + (when locales + ;; First of all, install a UTF-8 locale so that UTF-8 file names + ;; are correctly interpreted. During bootstrap, LOCALES is #f. + (setenv "LOCPATH" (string-append locales "/lib/locale")) + (setlocale LC_ALL "en_US.UTF-8")) + (setenv "PATH" (string-append xz "/bin" ":" decomp "/bin")) From f307947ecc8a3427a7787a478ef7d08bdb1e72aa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 00:08:04 +0100 Subject: [PATCH 30/57] ld-wrapper: Add '-rpath' for arguments such as 'libfoo.so.5.3'. Suggested by Andreas Enge at . CMake command lines appear to refer to such file names. * gnu/packages/ld-wrapper.scm (shared-library?): New procedure. (library-files-linked): Use it. --- gnu/packages/ld-wrapper.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/gnu/packages/ld-wrapper.scm b/gnu/packages/ld-wrapper.scm index 19856176b3..4fa2962bb9 100644 --- a/gnu/packages/ld-wrapper.scm +++ b/gnu/packages/ld-wrapper.scm @@ -104,6 +104,15 @@ exec @GUILE@ -c "(load-compiled \"$0.go\") (apply $main (cdr (command-line)))" " (< depth %max-symlink-depth) (loop (readlink file) (+ 1 depth)))))))) +(define (shared-library? file) + ;; Return #t when FILE denotes a shared library. + (or (string-suffix? ".so" file) + (let ((index (string-contains file ".so."))) + ;; Since we cannot use regexps during bootstrap, roll our own. + (and index + (string-every (char-set-union (char-set #\.) char-set:digit) + (string-drop file (+ index 3))))))) + (define (library-files-linked args) ;; Return the file names of shared libraries explicitly linked against via ;; `-l' or with an absolute file name in ARGS. @@ -125,7 +134,7 @@ exec @GUILE@ -c "(load-compiled \"$0.go\") (apply $main (cdr (command-line)))" " (cons full library-files)) result))) ((and (string-prefix? %store-directory argument) - (string-suffix? ".so" argument)) ;add library + (shared-library? argument)) ;add library (cons library-path (cons argument library-files))) (else From 8f1d22b718bd2fe6ffa02b98b61c2b869588ca25 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 26 Feb 2015 18:28:32 -0500 Subject: [PATCH 31/57] gnu: sqlite: Add "CFLAGS=-O2 -DSQLITE_SECURE_DELETE" to configure-flags. * gnu/packages/databases.scm (sqlite)[arguments]: Add "CFLAGS=-O2 -DSQLITE_SECURE_DELETE" to configure-flags. --- gnu/packages/databases.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm index 8d21248fe5..953995e487 100644 --- a/gnu/packages/databases.scm +++ b/gnu/packages/databases.scm @@ -235,8 +235,10 @@ types are supported, as is encryption.") (base32 "1v2rhgsx27in6dcvxk0pkxc0zrbl38biimjg6c1zxz85jh9hydw6")))) (build-system gnu-build-system) - (inputs - `(("readline" ,readline))) + (inputs `(("readline" ,readline))) + ;; Add -DSQLITE_SECURE_DELETE. GNU Icecat will refuse to use the system + ;; SQLite unless this option is enabled. + (arguments `(#:configure-flags '("CFLAGS=-O2 -DSQLITE_SECURE_DELETE"))) (home-page "http://www.sqlite.org/") (synopsis "The SQLite database management system") (description From e5718ca1e65c75ca584ca383f8931e62d7180f80 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 26 Feb 2015 19:22:27 -0500 Subject: [PATCH 32/57] gnu: sqlite: Update to 3.8.8.3. * gnu/packages/databases.scm (sqlite): Update to 3.8.8.3. --- gnu/packages/databases.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm index 953995e487..26df1f7d22 100644 --- a/gnu/packages/databases.scm +++ b/gnu/packages/databases.scm @@ -213,7 +213,7 @@ types are supported, as is encryption.") (define-public sqlite (package (name "sqlite") - (version "3.8.7.4") + (version "3.8.8.3") (source (origin (method url-fetch) ;; TODO: Download from sqlite.org once this bug : @@ -233,7 +233,7 @@ types are supported, as is encryption.") "/sqlite-autoconf-" numeric-version ".tar.gz"))) (sha256 (base32 - "1v2rhgsx27in6dcvxk0pkxc0zrbl38biimjg6c1zxz85jh9hydw6")))) + "04dl53iv5q0srv4jcgjfzsrdzkq6dg1sgmlmpw9lrd4xrmj6jmvl")))) (build-system gnu-build-system) (inputs `(("readline" ,readline))) ;; Add -DSQLITE_SECURE_DELETE. GNU Icecat will refuse to use the system From 77888fae13baaaee6499908de2fd739d2a4995f5 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 26 Feb 2015 19:21:42 -0500 Subject: [PATCH 33/57] gnu: cairo: Enable tee surface backend. * gnu/packages/gtk.scm (cairo)[arguments]: Add --enable-tee to configure-flags. --- gnu/packages/gtk.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm index a5022ba116..424b6e0f87 100644 --- a/gnu/packages/gtk.scm +++ b/gnu/packages/gtk.scm @@ -102,7 +102,8 @@ tools have full access to view and control running applications.") `(("pkg-config" ,pkg-config) ("python" ,python-wrapper))) (arguments - `(#:tests? #f)) ; see http://lists.gnu.org/archive/html/bug-guix/2013-06/msg00085.html + `(#:tests? #f ; see http://lists.gnu.org/archive/html/bug-guix/2013-06/msg00085.html + #:configure-flags '("--enable-tee"))) ; needed for GNU Icecat (synopsis "2D graphics library") (description "Cairo is a 2D graphics library with support for multiple output devices. From f1886b51bd86bd80a47c5b4aafc16039126315e8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Thu, 26 Feb 2015 22:06:41 +0800 Subject: [PATCH 34/57] gnu: cmake: Update to 3.1.3. * gnu/packages/cmake.scm (cmake): Update to 3.1.3. --- gnu/packages/cmake.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gnu/packages/cmake.scm b/gnu/packages/cmake.scm index 63805ef9fd..c3ed4ae81f 100644 --- a/gnu/packages/cmake.scm +++ b/gnu/packages/cmake.scm @@ -35,7 +35,7 @@ (define-public cmake (package (name "cmake") - (version "2.8.12") + (version "3.1.3") (source (origin (method url-fetch) (uri (string-append @@ -43,7 +43,7 @@ (version-major+minor version) "/cmake-" version ".tar.gz")) (sha256 - (base32 "11q21vyrr6c6smyjy81k2k07zmn96ggjia9im9cxwvj0n88bm1fq")) + (base32 "1l662p9lscbzx9s85y86cynb9fn1rb2alqg4584wqq9gibxd7x25")) (patches (list (search-patch "cmake-fix-tests.patch"))))) (build-system gnu-build-system) (arguments @@ -62,6 +62,7 @@ "Source/cmGlobalXCodeGenerator.cxx" "Source/CTest/cmCTestBatchTestHandler.cxx" "Source/cmLocalUnixMakefileGenerator3.cxx" + "Source/cmExecProgramCommand.cxx" "Utilities/cmbzip2/Makefile-libbz2_so" "Utilities/Release/release_cmake.cmake" "Utilities/cmlibarchive/libarchive/archive_write_set_format_shar.c" From 50915d2c2ed050c40db51988106ad46d61039d56 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Fri, 27 Feb 2015 19:10:40 +0800 Subject: [PATCH 35/57] build-system/cmake: Enable verbose output from Makefile builds. * guix/build/cmake-build-system.scm (configure): Pass -DCMAKE_VERBOSE_MAKEFILE=ON to cmake. --- guix/build/cmake-build-system.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/guix/build/cmake-build-system.scm b/guix/build/cmake-build-system.scm index 07fd8df481..08ae73ef8d 100644 --- a/guix/build/cmake-build-system.scm +++ b/guix/build/cmake-build-system.scm @@ -57,6 +57,8 @@ "-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE" ;; add (other) libraries of the project itself to rpath ,(string-append "-DCMAKE_INSTALL_RPATH=" out "/lib") + ;; enable verbose output from builds + "-DCMAKE_VERBOSE_MAKEFILE=ON" ,@configure-flags))) (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH")) (setenv "CMAKE_INCLUDE_PATH" (getenv "CPATH")) From e8c9f0498f9f3ead4ea345d49f1c5e630ff158f8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 14:37:03 +0100 Subject: [PATCH 36/57] gnu: gettext: Set encoding to ISO-8859-1 when modifying files. * gnu/packages/gettext.scm (gnu-gettext)[arguments] : Set %default-port-encoding. Fixes test failures at . --- gnu/packages/gettext.scm | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) diff --git a/gnu/packages/gettext.scm b/gnu/packages/gettext.scm index af8876f9d6..27b5fb5f55 100644 --- a/gnu/packages/gettext.scm +++ b/gnu/packages/gettext.scm @@ -51,21 +51,25 @@ 'check 'patch-tests (lambda* (#:key inputs #:allow-other-keys) (let* ((bash (which "sh"))) - (substitute* - (find-files "gettext-tools/tests" - "^(lang-sh|msg(exec|filter)-[0-9])") - (("#![[:blank:]]/bin/sh") - (format #f "#!~a" bash))) + ;; Some of the files we're patching are + ;; ISO-8859-1-encoded, so choose it as the default + ;; encoding so the byte encoding is preserved. + (with-fluids ((%default-port-encoding #f)) + (substitute* + (find-files "gettext-tools/tests" + "^(lang-sh|msg(exec|filter)-[0-9])") + (("#![[:blank:]]/bin/sh") + (format #f "#!~a" bash))) - (substitute* (cons "gettext-tools/src/msginit.c" - (find-files "gettext-tools/gnulib-tests" - "posix_spawn")) - (("/bin/sh") - bash)) + (substitute* (cons "gettext-tools/src/msginit.c" + (find-files "gettext-tools/gnulib-tests" + "posix_spawn")) + (("/bin/sh") + bash)) - (substitute* "gettext-tools/src/project-id" - (("/bin/pwd") - "pwd")))) + (substitute* "gettext-tools/src/project-id" + (("/bin/pwd") + "pwd"))))) %standard-phases) ;; When tests fail, we want to know the details. From da6dd842d038aa0761918305953ad92951fb663f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 14:40:21 +0100 Subject: [PATCH 37/57] gnu: Remove now unneeded 'unpack' phases for unzip. This is a followup to commit cd0385b. * gnu/packages/bioinformatics.scm (hisat)[arguments]: Remove 'unpack' phase. * gnu/packages/image.scm (freeimage): Likewise. * gnu/packages/python.scm (python2-cssutils): Likewise. --- gnu/packages/bioinformatics.scm | 53 +++++++++++++++------------------ gnu/packages/image.scm | 23 ++++++-------- gnu/packages/python.scm | 10 ++----- 3 files changed, 35 insertions(+), 51 deletions(-) diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index b64dab73cd..dbafd94c2f 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -265,35 +265,30 @@ Illumina, Roche 454, and the SOLiD platform.") '() '("POPCNT_CAPABILITY=0"))) #:phases - (alist-replace - 'unpack - (lambda* (#:key source #:allow-other-keys) - (and (zero? (system* "unzip" source)) - (chdir "hisat-0.1.4-beta"))) - (alist-cons-after - 'unpack 'patch-sources - (lambda _ - ;; XXX Cannot use snippet because zip files are not supported - (substitute* "Makefile" - (("^CC = .*$") "CC = gcc") - (("^CPP = .*$") "CPP = g++") - ;; replace BUILD_HOST and BUILD_TIME for deterministic build - (("-DBUILD_HOST=.*") "-DBUILD_HOST=\"\\\"guix\\\"\"") - (("-DBUILD_TIME=.*") "-DBUILD_TIME=\"\\\"0\\\"\"")) - (substitute* '("hisat-build" "hisat-inspect") - (("/usr/bin/env") (which "env")))) - (alist-replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((bin (string-append (assoc-ref outputs "out") "/bin/"))) - (mkdir-p bin) - (for-each - (lambda (file) - (copy-file file (string-append bin file))) - (find-files - "." - "hisat(-(build|align|inspect)(-(s|l)(-debug)*)*)*$")))) - (alist-delete 'configure %standard-phases)))))) + (alist-cons-after + 'unpack 'patch-sources + (lambda _ + ;; XXX Cannot use snippet because zip files are not supported + (substitute* "Makefile" + (("^CC = .*$") "CC = gcc") + (("^CPP = .*$") "CPP = g++") + ;; replace BUILD_HOST and BUILD_TIME for deterministic build + (("-DBUILD_HOST=.*") "-DBUILD_HOST=\"\\\"guix\\\"\"") + (("-DBUILD_TIME=.*") "-DBUILD_TIME=\"\\\"0\\\"\"")) + (substitute* '("hisat-build" "hisat-inspect") + (("/usr/bin/env") (which "env")))) + (alist-replace + 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin (string-append (assoc-ref outputs "out") "/bin/"))) + (mkdir-p bin) + (for-each + (lambda (file) + (copy-file file (string-append bin file))) + (find-files + "." + "hisat(-(build|align|inspect)(-(s|l)(-debug)*)*)*$")))) + (alist-delete 'configure %standard-phases))))) (native-inputs `(("unzip" ,unzip))) (inputs diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index a71465dc12..46b0824c8d 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -385,20 +385,15 @@ supplies a generic doubly-linked list and some string functions.") "0q1gnjnxgphsh4l8i9rfly4bi8xsczsb9ryzbm8hf38lc3fk5bq3")))) (build-system gnu-build-system) (arguments - '(#:phases (alist-replace - 'unpack - (lambda* (#:key source #:allow-other-keys) - (and (zero? (system* "unzip" source)) - (chdir "FreeImage"))) - (alist-delete - 'configure - (alist-cons-before - 'build 'patch-makefile - (lambda* (#:key outputs #:allow-other-keys) - (substitute* "Makefile.gnu" - (("/usr") (assoc-ref outputs "out")) - (("-o root -g root") ""))) - %standard-phases))) + '(#:phases (alist-delete + 'configure + (alist-cons-before + 'build 'patch-makefile + (lambda* (#:key outputs #:allow-other-keys) + (substitute* "Makefile.gnu" + (("/usr") (assoc-ref outputs "out")) + (("-o root -g root") ""))) + %standard-phases)) #:make-flags '("CC=gcc") #:tests? #f)) ; no check target (native-inputs diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index bbff241833..0df91d69cb 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Nikita Karetnikov -;;; Copyright © 2013, 2014 Ludovic Courtès +;;; Copyright © 2013, 2014, 2015 Ludovic Courtès ;;; Copyright © 2013, 2014, 2015 Andreas Enge ;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2014 Eric Bavier @@ -3129,13 +3129,7 @@ capabilities to the Python interpreter.") (arguments `(#:python ,python-2 ; Otherwise tests fail with a syntax error. #:tests? #f ; The tests apparently download an external URL. - #:phases - (alist-replace - 'unpack - (lambda* (#:key source #:allow-other-keys) - (and (zero? (system* "unzip" source)) - (chdir "cssutils-1.0"))) - %standard-phases))) + )) (home-page "http://cthedot.de/cssutils/") (synopsis "CSS Cascading Style Sheets library for Python") From 7184b4b1bd839cd4fd0c9630c050c7854174057d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 14:49:27 +0100 Subject: [PATCH 38/57] gnu: Remove now unneeded 'localedef' invocations. This is a followup to commit b0fd2bd. * gnu/packages/gawk.scm (gawk)[arguments] : Add comment on why we leave this here. * gnu/packages/guile.scm (guile-ncurses)[arguments]: Remove 'install-locales' phase. * gnu/packages/swig.scm (swig)[arguments]: Likewise. * gnu/packages/python.scm (python-matplotlib): Remove 'LOCPATH' setting and 'localedef' invocation. (python-scipy): Likewise. --- gnu/packages/gawk.scm | 3 ++- gnu/packages/guile.scm | 11 +---------- gnu/packages/python.scm | 12 ------------ gnu/packages/swig.scm | 14 +------------- 4 files changed, 4 insertions(+), 36 deletions(-) diff --git a/gnu/packages/gawk.scm b/gnu/packages/gawk.scm index e0d3f41ac2..06ecf6a064 100644 --- a/gnu/packages/gawk.scm +++ b/gnu/packages/gawk.scm @@ -61,7 +61,8 @@ 'check 'install-locales (lambda _ ;; A bunch of tests require the availability of a UTF-8 - ;; locale and otherwise fail. Give them what they want. + ;; locale and otherwise fail. Since UTF-8 locales are not + ;; available during bootstrap, create one here. (setenv "LOCPATH" (getcwd)) (zero? (system* "localedef" "--no-archive" "--prefix" (getcwd) "-i" "en_US" diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index f71201b553..c29b1213ac 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -261,16 +261,7 @@ many readers as needed).") (("\"libguile-ncurses\"") (format #f "\"~a/lib/libguile-ncurses\"" out))))) - (alist-cons-before - 'check 'install-locales - (lambda _ - ;; One of the tests requires the availability of a UTF-8 - ;; locale and otherwise fails. - (setenv "LOCPATH" (getcwd)) - (zero? (system* "localedef" "--no-archive" - "--prefix" (getcwd) "-i" "en_US" - "-f" "UTF-8" "./en_US.utf8"))) - %standard-phases)))) + %standard-phases))) (home-page "http://www.gnu.org/software/guile-ncurses/") (synopsis "Guile bindings to ncurses") (description diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 0df91d69cb..7569770889 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -2251,12 +2251,6 @@ backend = GTK3Agg~%"))))) (info (string-append data "/info")) (html (string-append doc "/html"))) (with-directory-excursion "doc" - ;; Install and set UTF-8 locale to avoid an encoding error. - (setenv "LOCPATH" (getcwd)) - (system* "localedef" "--no-archive" - "--prefix" (getcwd) "-i" "en_US" - "-f" "UTF-8" "./en_US.UTF-8") - (setenv "LANG" "en_US.UTF-8") ;; Produce pdf in 'A4' format. (substitute* (find-files "." "conf\\.py") (("latex_paper_size = 'letter'") @@ -2349,12 +2343,6 @@ toolkits.") (html (string-append doc "/html")) (pyver ,(string-append "PYVER="))) (with-directory-excursion "doc" - ;; Install and set UTF-8 locale to avoid an encoding error. - (setenv "LOCPATH" (getcwd)) - (system* "localedef" "--no-archive" - "--prefix" (getcwd) "-i" "en_US" - "-f" "UTF-8" "./en_US.UTF-8") - (setenv "LANG" "en_US.UTF-8") ;; Fix generation of images for mathematical expressions. (substitute* (find-files "source" "conf\\.py") (("pngmath_use_preview = True") diff --git a/gnu/packages/swig.scm b/gnu/packages/swig.scm index a978dec681..bd7978da50 100644 --- a/gnu/packages/swig.scm +++ b/gnu/packages/swig.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2015 Ludovic Courtès ;;; Copyright © 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. @@ -54,18 +54,6 @@ ;; The python part probably never worked and does not seem to ;; be needed for currently dependent packages. ;; ("python" ,python-wrapper))) - (arguments - `(#:phases - (alist-cons-before - 'check 'install-locales - (lambda _ - ;; One of the tests requires the availability of a UTF-8 - ;; locale and otherwise fails. - (setenv "LOCPATH" (getcwd)) - (zero? (system* "localedef" "--no-archive" - "--prefix" (getcwd) "-i" "en_US" - "-f" "UTF-8" "./en_US.utf8"))) - %standard-phases))) (home-page "http://swig.org/") (synopsis "Interface compiler that connects C/C++ code to higher-level languages") From 251e8b2ee8a9cb89ce662b9c47d9dcd76dec618b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 14:54:00 +0100 Subject: [PATCH 39/57] build-system/gnu: Set $LC_ALL (or similar) to the chosen locale. Suggested by Mark H Weaver. * guix/build/utils.scm (locale-category->string): New procedure. * guix/build/gnu-build-system.scm (install-locale): Add 'setenv' call. --- guix/build/gnu-build-system.scm | 8 ++++++-- guix/build/utils.scm | 26 +++++++++++++++++++++++++- 2 files changed, 31 insertions(+), 3 deletions(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index c3cc3ce70a..a2bd9d43d1 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -106,8 +106,12 @@ chance to be set." (catch 'system-error (lambda () (setlocale locale-category locale) - (format (current-error-port) "using '~a' locale for category ~a~%" - locale locale-category) + + ;; While we're at it, pass it to sub-processes. + (setenv (locale-category->string locale-category) locale) + + (format (current-error-port) "using '~a' locale for category ~s~%" + locale (locale-category->string locale-category)) #t) (lambda args ;; This is known to fail for instance in early bootstrap where locales diff --git a/guix/build/utils.scm b/guix/build/utils.scm index f24ed47f3e..f43451bd35 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -21,6 +21,7 @@ (define-module (guix build utils) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) + #:use-module (srfi srfi-60) #:use-module (ice-9 ftw) #:use-module (ice-9 match) #:use-module (ice-9 regex) @@ -65,7 +66,9 @@ patch-/usr/bin/file fold-port-matches remove-store-references - wrap-program)) + wrap-program + + locale-category->string)) ;;; @@ -909,6 +912,27 @@ the previous wrapper." (symlink wrapper prog-tmp) (rename-file prog-tmp prog))) + +;;; +;;; Locales. +;;; + +(define (locale-category->string category) + "Return the name of locale category CATEGORY, one of the 'LC_' constants. +If CATEGORY is a bitwise or of several 'LC_' constants, an approximation is +returned." + (letrec-syntax ((convert (syntax-rules () + ((_) + (number->string category)) + ((_ first rest ...) + (if (= first category) + (symbol->string 'first) + (convert rest ...)))))) + (convert LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE + LC_IDENTIFICATION LC_MEASUREMENT LC_MESSAGES LC_MONETARY + LC_NAME LC_NUMERIC LC_PAPER LC_TELEPHONE + LC_TIME))) + ;;; Local Variables: ;;; eval: (put 'call-with-output-file/atomic 'scheme-indent-function 1) ;;; eval: (put 'call-with-ascii-input-file 'scheme-indent-function 1) From 2c1fb35377182d3301a265945c88deb12f0b88d4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 14:56:01 +0100 Subject: [PATCH 40/57] utils: Call the progress-report proc when 'dump-port' starts. * guix/build/utils.scm (dump-port): Add call to PROGRESS at the beginning. --- guix/build/utils.scm | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/guix/build/utils.scm b/guix/build/utils.scm index f43451bd35..a3f8911491 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -588,22 +588,27 @@ match the terminating newline of a line." (define* (dump-port in out #:key (buffer-size 16384) (progress (lambda (t k) (k)))) - "Read as much data as possible from IN and write it to OUT, using -chunks of BUFFER-SIZE bytes. Call PROGRESS after each successful -transfer of BUFFER-SIZE bytes or less, passing it the total number of -bytes transferred and the continuation of the transfer as a thunk." + "Read as much data as possible from IN and write it to OUT, using chunks of +BUFFER-SIZE bytes. Call PROGRESS at the beginning and after each successful +transfer of BUFFER-SIZE bytes or less, passing it the total number of bytes +transferred and the continuation of the transfer as a thunk." (define buffer (make-bytevector buffer-size)) - (let loop ((total 0) - (bytes (get-bytevector-n! in buffer 0 buffer-size))) + (define (loop total bytes) (or (eof-object? bytes) (let ((total (+ total bytes))) (put-bytevector out buffer 0 bytes) (progress total (lambda () (loop total - (get-bytevector-n! in buffer 0 buffer-size)))))))) + (get-bytevector-n! in buffer 0 buffer-size))))))) + + ;; Make sure PROGRESS is called when we start so that it can measure + ;; throughput. + (progress 0 + (lambda () + (loop 0 (get-bytevector-n! in buffer 0 buffer-size))))) (define (set-file-time file stat) "Set the atime/mtime of FILE to that specified by STAT." From e7620dc9951132439abec2a49904aaeeb8de5397 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 14:57:54 +0100 Subject: [PATCH 41/57] download: Abstract the receive buffer size. * guix/build/download.scm (%http-receive-buffer-size): New variable. (progress-proc, tls-wrap, http-fetch): Use it. --- guix/build/download.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/guix/build/download.scm b/guix/build/download.scm index e8d61e0d92..c439f6b2b9 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014 Ludovic Courtès +;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès ;;; Copyright © 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. @@ -42,6 +42,10 @@ ;;; ;;; Code: +(define %http-receive-buffer-size + ;; Size of the HTTP receive buffer. + 65536) + (define* (progress-proc file size #:optional (log-port (current-output-port))) "Return a procedure to show the progress of FILE's download, which is SIZE byte long. The returned procedure is suitable for use as an @@ -92,7 +96,7 @@ abbreviation of URI showing the scheme, host, and basename of the file." (call-with-output-file file (lambda (out) (dump-port in out - #:buffer-size 65536 ; don't flood the log + #:buffer-size %http-receive-buffer-size #:progress (progress-proc (uri-abbreviation uri) size)))) (ftp-close conn)) @@ -182,7 +186,7 @@ which is not available during bootstrap." (connect s (addrinfo:addr ai)) ;; Buffer input and output on this port. - (setvbuf s _IOFBF) + (setvbuf s _IOFBF %http-receive-buffer-size) (if (eq? 'https (uri-scheme uri)) (tls-wrap s (uri-host uri)) @@ -334,7 +338,7 @@ Return the resulting target URI." (if (port? bv-or-port) (begin (dump-port bv-or-port p - #:buffer-size 65536 ; don't flood the log + #:buffer-size %http-receive-buffer-size #:progress (progress-proc (uri-abbreviation uri) size)) (newline)) From 9fbe6f1920f0c16be3d1e7a216c164837e31f0fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 15:00:38 +0100 Subject: [PATCH 42/57] download: Measure and display the throughput. * guix/build/download.scm (duration->seconds, throughput->string): New procedures. (progress-proc): Measure and display the throughput. --- guix/build/download.scm | 68 ++++++++++++++++++++++++++++++++--------- 1 file changed, 54 insertions(+), 14 deletions(-) diff --git a/guix/build/download.scm b/guix/build/download.scm index c439f6b2b9..6c94fa0574 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -26,6 +26,7 @@ #:use-module (rnrs io ports) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) + #:use-module (srfi srfi-19) #:use-module (srfi srfi-26) #:use-module (ice-9 match) #:use-module (ice-9 format) @@ -46,24 +47,59 @@ ;; Size of the HTTP receive buffer. 65536) +(define (duration->seconds duration) + "Return the number of seconds represented by DURATION, a 'time-duration' +object, as an inexact number." + (+ (time-second duration) + (/ (time-nanosecond duration) 1e9))) + +(define (throughput->string throughput) + "Given THROUGHPUT, measured in bytes per second, return a string +representing it in a human-readable way." + (if (> throughput 3e6) + (format #f "~,2f MiB/s" (/ throughput (expt 2. 20))) + (format #f "~,0f KiB/s" (/ throughput 1024.0)))) + (define* (progress-proc file size #:optional (log-port (current-output-port))) "Return a procedure to show the progress of FILE's download, which is SIZE byte long. The returned procedure is suitable for use as an argument to `dump-port'. The progress report is written to LOG-PORT." - (if (number? size) - (lambda (transferred cont) - (let ((% (* 100.0 (/ transferred size)))) - (display #\cr log-port) - (format log-port "~a\t~5,1f% of ~,1f KiB" - file % (/ size 1024.0)) - (flush-output-port log-port) - (cont))) - (lambda (transferred cont) - (display #\cr log-port) - (format log-port "~a\t~6,1f KiB transferred" - file (/ transferred 1024.0)) - (flush-output-port log-port) - (cont)))) + (let ((start-time #f)) + (let-syntax ((with-elapsed-time + (syntax-rules () + ((_ elapsed body ...) + (let* ((now (current-time time-monotonic)) + (elapsed (and start-time + (duration->seconds + (time-difference now + start-time))))) + (unless start-time + (set! start-time now)) + body ...))))) + (if (number? size) + (lambda (transferred cont) + (with-elapsed-time elapsed + (let ((% (* 100.0 (/ transferred size))) + (throughput (if elapsed + (/ transferred elapsed) + 0))) + (display #\cr log-port) + (format log-port "~a\t~5,1f% of ~,1f KiB (~a)" + file % (/ size 1024.0) + (throughput->string throughput)) + (flush-output-port log-port) + (cont)))) + (lambda (transferred cont) + (with-elapsed-time elapsed + (let ((throughput (if elapsed + (/ transferred elapsed) + 0))) + (display #\cr log-port) + (format log-port "~a\t~6,1f KiB transferred (~a)" + file (/ transferred 1024.0) + (throughput->string throughput)) + (flush-output-port log-port) + (cont)))))))) (define* (uri-abbreviation uri #:optional (max-length 42)) "If URI's string representation is larger than MAX-LENGTH, return an @@ -427,4 +463,8 @@ on success." file url) #f)))) +;;; Local Variables: +;;; eval: (put 'with-elapsed-time 'scheme-indent-function 1) +;;; End: + ;;; download.scm ends here From c9727aac405123ecf2ffb26745fa255a76c87e40 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 15:04:05 +0100 Subject: [PATCH 43/57] download: Comment on lack of progress report with chunked encoding. * guix/build/download.scm (progress-proc): Add comment. --- guix/build/download.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/guix/build/download.scm b/guix/build/download.scm index 6c94fa0574..a3105ad41d 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -64,6 +64,9 @@ representing it in a human-readable way." "Return a procedure to show the progress of FILE's download, which is SIZE byte long. The returned procedure is suitable for use as an argument to `dump-port'. The progress report is written to LOG-PORT." + ;; XXX: Because of this procedure is often not + ;; called as frequently as we'd like too; this is especially bad with Nginx + ;; on hydra.gnu.org, which returns whole nars as a single chunk. (let ((start-time #f)) (let-syntax ((with-elapsed-time (syntax-rules () From 4b23c4664ec67b8c6329c4aa82a331d2e48341cb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 22:01:54 +0100 Subject: [PATCH 44/57] gexp: Add tests for 'gexp-outputs'. * tests/gexp.scm (gexp-outputs): New procedure. ("output list", "output list, combined gexps"): New tests. --- tests/gexp.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/tests/gexp.scm b/tests/gexp.scm index 0b189b570b..a6fb550540 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -42,6 +42,7 @@ ;; For white-box testing. (define gexp-inputs (@@ (guix gexp) gexp-inputs)) (define gexp-native-inputs (@@ (guix gexp) gexp-native-inputs)) +(define gexp-outputs (@@ (guix gexp) gexp-outputs)) (define gexp->sexp (@@ (guix gexp) gexp->sexp)) (define* (gexp->sexp* exp #:optional target) @@ -214,6 +215,21 @@ (equal? (gexp->sexp* exp) ;native (gexp->sexp* exp "mips64el-linux"))))) +(test-equal "output list" + 2 + (let ((exp (gexp (begin (mkdir (ungexp output)) + (mkdir (ungexp output "bar")))))) + (length (gexp-outputs exp)))) ;XXX: is private + +(test-assert "output list, combined gexps" + (let* ((exp0 (gexp (mkdir (ungexp output)))) + (exp1 (gexp (mkdir (ungexp output "foo")))) + (exp2 (gexp (begin (display "hi!") (ungexp exp0) (ungexp exp1))))) + (and (lset= equal? + (append (gexp-outputs exp0) (gexp-outputs exp1)) + (gexp-outputs exp2)) + (= 2 (length (gexp-outputs exp2)))))) + (test-assertm "gexp->file" (mlet* %store-monad ((exp -> (gexp (display (ungexp %bootstrap-guile)))) (guile (package-file %bootstrap-guile)) From f9efe568c3cd46f0aecb5bdd35731e98a29dbcea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2015 22:05:40 +0100 Subject: [PATCH 45/57] gexp: Aggregate outputs of compound gexps. * guix/gexp.scm (gexp-outputs)[add-reference-output]: Recurse into lists. * tests/gexp.scm ("output list + ungexp-splicing list, combined gexps"): New test. --- guix/gexp.scm | 6 +++--- tests/gexp.scm | 10 ++++++++++ 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/guix/gexp.scm b/guix/gexp.scm index a8349c7d6e..1f64cf75ae 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -314,12 +314,12 @@ references." (cons name result)) ((? gexp? exp) (append (gexp-outputs exp) result)) + ((lst ...) + (fold-right add-reference-output result lst)) (_ result))) - (fold-right add-reference-output - '() - (gexp-references exp))) + (add-reference-output (gexp-references exp) '())) (define* (gexp->sexp exp #:key (system (%current-system)) diff --git a/tests/gexp.scm b/tests/gexp.scm index a6fb550540..2ec6c8e3ef 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -230,6 +230,16 @@ (gexp-outputs exp2)) (= 2 (length (gexp-outputs exp2)))))) +(test-assert "output list + ungexp-splicing list, combined gexps" + (let* ((exp0 (gexp (mkdir (ungexp output)))) + (exp1 (gexp (mkdir (ungexp output "foo")))) + (exp2 (gexp (begin (display "hi!") + (ungexp-splicing (list exp0 exp1)))))) + (and (lset= equal? + (append (gexp-outputs exp0) (gexp-outputs exp1)) + (gexp-outputs exp2)) + (= 2 (length (gexp-outputs exp2)))))) + (test-assertm "gexp->file" (mlet* %store-monad ((exp -> (gexp (display (ungexp %bootstrap-guile)))) (guile (package-file %bootstrap-guile)) From ca1e3ad2faa59d5b32289f84e0937fa476e21a1a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 28 Feb 2015 01:01:51 +0100 Subject: [PATCH 46/57] utils: Change 'patch-shebangs' to use binary input. * guix/build/utils.scm (get-char*): New procedure. (patch-shebang): Use it instead of 'read-char'. (fold-port-matches): Remove local 'get-char' and use 'get-char*' instead. --- guix/build/utils.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/guix/build/utils.scm b/guix/build/utils.scm index a3f8911491..c98c4ca0f0 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -618,6 +618,14 @@ transferred and the continuation of the transfer as a thunk." (stat:atimensec stat) (stat:mtimensec stat))) +(define (get-char* p) + ;; We call it `get-char', but that's really a binary version + ;; thereof. (The real `get-char' cannot be used here because our + ;; bootstrap Guile is hacked to always use UTF-8.) + (match (get-u8 p) + ((? integer? x) (integer->char x)) + (x x))) + (define patch-shebang (let ((shebang-rx (make-regexp "^[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]*)(.*)$"))) (lambda* (file @@ -653,8 +661,8 @@ FILE are kept unchanged." (call-with-ascii-input-file file (lambda (p) - (and (eq? #\# (read-char p)) - (eq? #\! (read-char p)) + (and (eq? #\# (get-char* p)) + (eq? #\! (get-char* p)) (let ((line (false-if-exception (read-line p)))) (and=> (and line (regexp-exec shebang-rx line)) (lambda (m) @@ -753,21 +761,13 @@ for each unmatched character." (map char-set (string->list pattern)) pattern)) - (define (get-char p) - ;; We call it `get-char', but that's really a binary version - ;; thereof. (The real `get-char' cannot be used here because our - ;; bootstrap Guile is hacked to always use UTF-8.) - (match (get-u8 p) - ((? integer? x) (integer->char x)) - (x x))) - ;; Note: we're not really striving for performance here... (let loop ((chars '()) (pattern initial-pattern) (matched '()) (result init)) (cond ((null? chars) - (loop (list (get-char port)) + (loop (list (get-char* port)) pattern matched result)) From 4db87162e68e58031d71597a86b253072e18e2ac Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 28 Feb 2015 01:10:24 +0100 Subject: [PATCH 47/57] packages: Set the port conversion strategy to 'error'. Suggested by Mark H Weaver. * guix/build/gnu-build-system.scm (gnu-build): Set %DEFAULT-PORT-CONVERSION-STRATEGY to 'error. * guix/packages.scm (patch-and-repack)[builder]: Likewise. --- guix/build/gnu-build-system.scm | 3 +++ guix/packages.scm | 3 +++ 2 files changed, 6 insertions(+) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index a2bd9d43d1..5ae537150f 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -499,6 +499,9 @@ in order. Return #t if all the PHASES succeeded, #f otherwise." (setvbuf (current-output-port) _IOLBF) (setvbuf (current-error-port) _IOLBF) + ;; Encoding/decoding errors shouldn't be silent. + (fluid-set! %default-port-conversion-strategy 'error) + ;; The trick is to #:allow-other-keys everywhere, so that each procedure in ;; PHASES can pick the keyword arguments it's interested in. (every (match-lambda diff --git a/guix/packages.scm b/guix/packages.scm index b72a6ddc8e..fc5264673d 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -412,6 +412,9 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET." (srfi srfi-1) (guix build utils)) + ;; Encoding/decoding errors shouldn't be silent. + (fluid-set! %default-port-conversion-strategy 'error) + (let ((locales (assoc-ref %build-inputs "locales")) (out (assoc-ref %outputs "out")) (xz (assoc-ref %build-inputs "xz")) From dd0a8ef15f903422c6b020e7d793986427add927 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 28 Feb 2015 12:25:22 +0100 Subject: [PATCH 48/57] utils: Treat 'configure' and Makefiles with an 8-bit encoding. * guix/build/utils.scm (patch-makefile-SHELL, patch-/usr/bin/file): Wrap 'substitute*' in 'with-fluids'. Fixes . --- guix/build/utils.scm | 38 +++++++++++++++++++++----------------- 1 file changed, 21 insertions(+), 17 deletions(-) diff --git a/guix/build/utils.scm b/guix/build/utils.scm index c98c4ca0f0..a5a6167a8c 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -712,16 +712,18 @@ When KEEP-MTIME? is true, the atime/mtime of FILE are kept unchanged." shell)) (let ((st (stat file))) - (substitute* file - (("^ *SHELL[[:blank:]]*:?=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)(.*)$" - _ dir shell args) - (let* ((old (string-append dir shell)) - (new (or (find-shell shell) old))) - (unless (string=? new old) - (format (current-error-port) - "patch-makefile-SHELL: ~a: changing `SHELL' from `~a' to `~a'~%" - file old new)) - (string-append "SHELL = " new args)))) + ;; Consider FILE is using an 8-bit encoding to avoid errors. + (with-fluids ((%default-port-encoding #f)) + (substitute* file + (("^ *SHELL[[:blank:]]*:?=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)(.*)$" + _ dir shell args) + (let* ((old (string-append dir shell)) + (new (or (find-shell shell) old))) + (unless (string=? new old) + (format (current-error-port) + "patch-makefile-SHELL: ~a: changing `SHELL' from `~a' to `~a'~%" + file old new)) + (string-append "SHELL = " new args))))) (when keep-mtime? (set-file-time file st)))) @@ -738,13 +740,15 @@ unchanged." "patch-/usr/bin/file: warning: \ no replacement 'file' command, doing nothing~%") (let ((st (stat file))) - (substitute* file - (("/usr/bin/file") - (begin - (format (current-error-port) - "patch-/usr/bin/file: ~a: changing `~a' to `~a'~%" - file "/usr/bin/file" file-command) - file-command))) + ;; Consider FILE is using an 8-bit encoding to avoid errors. + (with-fluids ((%default-port-encoding #f)) + (substitute* file + (("/usr/bin/file") + (begin + (format (current-error-port) + "patch-/usr/bin/file: ~a: changing `~a' to `~a'~%" + file "/usr/bin/file" file-command) + file-command)))) (when keep-mtime? (set-file-time file st))))) From 722ec722441a755e18fbc696d23441427dfb26af Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Fri, 27 Feb 2015 11:53:06 -0500 Subject: [PATCH 49/57] gnu: Move autoconf-style phases after the unpack phase. * gnu/packages/audio.scm (soundtouch)[arguments]: Move 'bootstrap' after 'unpack'. Remove custom /usr/bin/file patching, which will now be handled by the 'patch-usr-bin-file' phase. * gnu/packages/emacs.scm (emacs-w3m)[arguments]: Rename 'pre-configure' phase to 'autoconf' and move it after 'unpack'. * gnu/packages/fontutils.scm (libuninameslist)[arguments]: Move 'bootstrap' phase after 'unpack'. * gnu/packages/libevent.scm (libuv)[arguments]: Move 'autogen' phase after 'unpack'. Run "sh autogen.sh" instead of "./autogen.sh". * gnu/packages/linux.scm (bridge-utils)[arguments]: Move 'bootstrap' phase after 'unpack'. * gnu/packages/mail.scm (libetpan)[arguments]: Move 'autogen' phase after 'unpack'. Run "sh autogen.sh" instead of "./autogen.sh". Setenv "NOCONFIGURE" before running autogen.sh. * gnu/packages/package-management.scm (guix-devel)[arguments]: Move 'bootstrap' phase after 'unpack'. Run "sh autogen.sh" instead of "./autogen.sh". * gnu/packages/rdf.scm (lrdf)[arguments]: Move 'autoreconf' phase after 'remove-out-of-tree-references' phase. * gnu/packages/tor.scm (privoxy)[arguments]: Move 'autoconf' phase after 'unpack'. * gnu/packages/web.scm (libpsl)[arguments]: Move 'bootstrap' phase after 'unpack'. Run "sh autogen.sh" instead of "./autogen.sh". Remove 'fix-autogen-shebang' phase. --- gnu/packages/audio.scm | 9 +++------ gnu/packages/emacs.scm | 4 ++-- gnu/packages/fontutils.scm | 4 ++-- gnu/packages/libevent.scm | 6 +++--- gnu/packages/linux.scm | 4 ++-- gnu/packages/mail.scm | 13 +++++-------- gnu/packages/package-management.scm | 6 +++--- gnu/packages/rdf.scm | 6 +++--- gnu/packages/tor.scm | 6 +++--- gnu/packages/web.scm | 17 +++++------------ 10 files changed, 31 insertions(+), 44 deletions(-) diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index 52feea3701..bc21c9f1f9 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -804,13 +804,10 @@ stretching and pitch scaling of audio. This package contains the library.") ("file" ,file))) (arguments '(#:phases - (alist-cons-before - 'configure 'bootstrap + (alist-cons-after + 'unpack 'bootstrap (lambda _ - (unless (zero? (system* "sh" "bootstrap")) - (error "bootstrap failed")) - (substitute* '("configure") - (("/usr/bin/file") "file"))) + (zero? (system* "sh" "bootstrap"))) %standard-phases))) (home-page "http://www.surina.net/soundtouch/") (synopsis diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index f4d7ac9748..b2a151a68e 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -309,8 +309,8 @@ operations.") out "/share/images/emacs-w3m"))) #:tests? #f ; no check target #:phases - (alist-cons-before - 'configure 'pre-configure + (alist-cons-after + 'unpack 'autoconf (lambda _ (zero? (system* "autoconf"))) (alist-cons-before diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm index 14f42a9236..52e34e516f 100644 --- a/gnu/packages/fontutils.scm +++ b/gnu/packages/fontutils.scm @@ -278,8 +278,8 @@ smooth contours with constant curvature at the spline joins.") ("automake" ,automake) ("libtool" ,libtool))) (arguments - `(#:phases (alist-cons-before - 'configure 'bootstrap + `(#:phases (alist-cons-after + 'unpack 'bootstrap (lambda _ (zero? (system* "autoreconf" "-vi"))) %standard-phases))) diff --git a/gnu/packages/libevent.scm b/gnu/packages/libevent.scm index 64892bf878..2afae3f302 100644 --- a/gnu/packages/libevent.scm +++ b/gnu/packages/libevent.scm @@ -73,12 +73,12 @@ loop.") "1ys2wlypdbv59yywn91d5vl329z50mi7ivi3fj5rjm4mr9g3wnmr")))) (build-system gnu-build-system) (arguments - '(#:phases (alist-cons-before - 'configure 'autogen + '(#:phases (alist-cons-after + 'unpack 'autogen (lambda _ ;; Fashionable people don't run 'make dist' these days, so ;; we need to do that ourselves. - (zero? (system* "./autogen.sh"))) + (zero? (system* "sh" "autogen.sh"))) %standard-phases) ;; XXX: Some tests want /dev/tty, attempt to make connections, etc. diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 4fe6f887cf..b7eedc6be2 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -1005,8 +1005,8 @@ Linux-based operating systems.") (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake))) (arguments - '(#:phases (alist-cons-before - 'configure 'bootstrap + '(#:phases (alist-cons-after + 'unpack 'bootstrap (lambda _ (zero? (system* "autoreconf" "-vf"))) %standard-phases) diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index dc33c8cbd3..17988cc4f9 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès -;;; Copyright © 2014 Mark H Weaver +;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2014 Ian Denhardt ;;; Copyright © 2014 Sou Bunnbu ;;; Copyright © 2014 Julien Lepiller @@ -432,14 +432,11 @@ useful features.") `(("curl" ,curl) ("expat" ,expat))) (arguments - '(#:phases (alist-cons-before - 'configure 'autogen + '(#:phases (alist-cons-after + 'unpack 'autogen (lambda _ - (system* "./autogen.sh")) ;; Note: this fails because the - ;; generated configure script uses /bin/sh. It is - ;; replaced in the configure phase by the correct - ;; value. TODO: replace the configure phase by the - ;; autogen phase and have the SHELL variable be replaced + (setenv "NOCONFIGURE" "true") + (zero? (system* "sh" "autogen.sh"))) %standard-phases) #:configure-flags '("--disable-static" "--disable-db"))) diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 97e96c712f..65b4e9b55b 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -156,15 +156,15 @@ the Nix package manager.") (arguments (substitute-keyword-arguments (package-arguments guix-0.8.1) ((#:phases phases) - `(alist-cons-before - 'configure 'bootstrap + `(alist-cons-after + 'unpack 'bootstrap (lambda _ ;; Make sure 'msgmerge' can modify the PO files. (for-each (lambda (po) (chmod po #o666)) (find-files "." "\\.po$")) - (zero? (system* "./bootstrap"))) + (zero? (system* "sh" "bootstrap"))) ,phases)))) (native-inputs `(("autoconf" ,(autoconf-wrapper)) diff --git a/gnu/packages/rdf.scm b/gnu/packages/rdf.scm index 5102ebe921..8edc2f46fc 100644 --- a/gnu/packages/rdf.scm +++ b/gnu/packages/rdf.scm @@ -140,9 +140,9 @@ Java Lucene text search engine API to C++.") (substitute* "examples/Makefile.am" (("instances_test remove_test") "instances_test") (("\\$\\(TESTS\\) remove_test") "$(TESTS)"))) - (alist-cons-before - 'configure 'autoreconf - (lambda* (#:key inputs #:allow-other-keys) + (alist-cons-after + 'remove-out-of-tree-references 'autoreconf + (lambda _ (zero? (system* "autoreconf" "-vfi"))) %standard-phases)))) (inputs diff --git a/gnu/packages/tor.scm b/gnu/packages/tor.scm index db0415adbf..73becbba92 100644 --- a/gnu/packages/tor.scm +++ b/gnu/packages/tor.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014 Ludovic Courtès -;;; Copyright © 2014 Mark H Weaver +;;; Copyright © 2014, 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -99,8 +99,8 @@ rejects UDP traffic from the application you're using.") #:configure-flags (list (string-append "--sysconfdir=" (assoc-ref %outputs "out") "/etc/privoxy")) - #:phases (alist-cons-before - 'configure 'autoconf + #:phases (alist-cons-after + 'unpack 'autoconf (lambda _ ;; Unfortunately, this is not a tarball produced by ;; "make dist". diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 5296c43c53..f0f974661b 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013, 2015 Andreas Enge ;;; Copyright © 2013 Aljosha Papsch ;;; Copyright © 2014, 2015 Ludovic Courtès -;;; Copyright © 2014 Mark H Weaver +;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2015 Ricardo Wurmus ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer ;;; @@ -258,18 +258,11 @@ for efficient socket-like bidirectional reliable communication channels.") ("which" ,which) ("libtool" ,libtool))) (arguments - `(#:phases (alist-cons-before - 'bootstrap 'fix-autogen-shebang + `(#:phases (alist-cons-after + 'unpack 'bootstrap (lambda _ - (substitute* "autogen.sh" - ;; Removing -e as it causes the whole script to fail when - ;; `which gtkdocize` fails. - (("# !/bin/sh -e") (string-append "#!" (which "sh"))))) - (alist-cons-before - 'patch-usr-bin-file 'bootstrap - (lambda _ - (zero? (system* "./autogen.sh"))) - %standard-phases)))) + (zero? (system* "sh" "autogen.sh"))) + %standard-phases))) (home-page "https://github.com/rockdaboot/libpsl") (synopsis "C library for the Publix Suffix List") (description From f586c877054f68d267c29f743933a79bd16b95bb Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Fri, 27 Feb 2015 12:23:27 -0500 Subject: [PATCH 50/57] gnu: Add 'file-name' fields for github source tarballs without a name. * gnu/packages/aarddict.scm (aarddict), gnu/packages/algebra.scm (arb), gnu/packages/audio.scm (jack-2, lvtk), gnu/packages/bioinformatics.scm (bedops, bedtools, bowtie), gnu/packages/game-development.scm (tiled), gnu/packages/games.scm (minetest-data, minetest, retroarch), gnu/packages/jrnl.scm (jrnl), gnu/packages/kde.scm (qjson), gnu/packages/libevent.scm (libuv), gnu/packages/linux.scm (pflask), gnu/packages/mail.scm (offlineimap, libetpan), gnu/packages/maths.scm (arpack-ng), gnu/packages/ninja.scm (ninja), gnu/packages/nutrition.scm (gourmet), gnu/packages/python.scm (python-cairocffi), gnu/packages/rdf.scm (lrdf), gnu/packages/ruby.scm (ruby-i18n), gnu/packages/sxiv.scm (sxiv): Add 'file-name' field to origin. --- gnu/packages/aarddict.scm | 1 + gnu/packages/algebra.scm | 1 + gnu/packages/audio.scm | 2 ++ gnu/packages/bioinformatics.scm | 3 +++ gnu/packages/game-development.scm | 2 ++ gnu/packages/games.scm | 3 +++ gnu/packages/jrnl.scm | 2 ++ gnu/packages/kde.scm | 1 + gnu/packages/libevent.scm | 1 + gnu/packages/linux.scm | 1 + gnu/packages/mail.scm | 2 ++ gnu/packages/maths.scm | 1 + gnu/packages/ninja.scm | 1 + gnu/packages/nutrition.scm | 2 ++ gnu/packages/python.scm | 1 + gnu/packages/rdf.scm | 1 + gnu/packages/ruby.scm | 3 ++- gnu/packages/sxiv.scm | 1 + 18 files changed, 28 insertions(+), 1 deletion(-) diff --git a/gnu/packages/aarddict.scm b/gnu/packages/aarddict.scm index 33bd7b4ac9..76c7aa4f33 100644 --- a/gnu/packages/aarddict.scm +++ b/gnu/packages/aarddict.scm @@ -33,6 +33,7 @@ (method url-fetch) (uri (string-append "https://github.com/aarddict/desktop/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "12h7m0z7nd7rg8avpi9syd265k0rhh4vbdh464nq0jzdg8m9p28c")))) diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm index 2fe26a4878..da8dab9318 100644 --- a/gnu/packages/algebra.scm +++ b/gnu/packages/algebra.scm @@ -215,6 +215,7 @@ fast arithmetic.") (uri (string-append "https://github.com/fredrik-johansson/arb/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "0a8cgzznkmr59ngj4di9a37b5h4i00gbnixnxlwd34bcbflvjzyr")))) (build-system gnu-build-system) diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index bc21c9f1f9..42449e89c9 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -284,6 +284,7 @@ synchronous execution of all clients, and low latency operation.") "https://github.com/jackaudio/jack2/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "03b0iiyk3ng3vh5s8gaqwn565vik7910p56mlbk512bw3dhbdwc8")))) @@ -507,6 +508,7 @@ software.") (uri (string-append "https://github.com/lvtk/lvtk/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "03nbj2cqcklqwh50zj2gwm07crh5iwqbpxbpzwbg5hvgl4k4rnjd")))) diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index dbafd94c2f..f6df298db5 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -43,6 +43,7 @@ (method url-fetch) (uri (string-append "https://github.com/bedops/bedops/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "0wmg6j0icimlrnsidaxrzf3hfgjvlkkcwvpdg7n4gg7hdv2m9ni5")))) @@ -100,6 +101,7 @@ computational cluster.") (method url-fetch) (uri (string-append "https://github.com/arq5x/bedtools2/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "16aq0w3dmbd0853j32xk9jin4vb6v6fgakfyvrsmsjizzbn3fpfl")))) @@ -149,6 +151,7 @@ BED, GFF/GTF, VCF.") (method url-fetch) (uri (string-append "https://github.com/BenLangmead/bowtie2/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "15dnbqippwvhyh9zqjhaxkabk7lm1xbh1nvar1x4b5kwm117zijn")) diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm index fefdf67f3d..0e6a1d5b89 100644 --- a/gnu/packages/game-development.scm +++ b/gnu/packages/game-development.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Tomáš Čech +;;; Copyright © 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -58,6 +59,7 @@ is used in some video games and movies.") (method url-fetch) (uri (string-append "https://github.com/bjorn/tiled/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "03a15vbzjfwc8dpifbjvd0gnr208mzmdkgs2nlc8zq6z0a4h4jqd")))) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 789a02e577..5843ca660d 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -606,6 +606,7 @@ for common mesh file formats, and collision detection.") (uri (string-append "https://github.com/minetest/minetest_game/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "0hzb27srv6f2j84dpxx2p0p0aaq9vdp5jvbrfpklb5q5ssdjxvc6")))) @@ -646,6 +647,7 @@ for common mesh file formats, and collision detection.") (uri (string-append "https://github.com/minetest/minetest/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "0h223svzkvp63b77nqfxy7k8whw4543gahs3kxd3x4myi5ax5z5f")))) @@ -792,6 +794,7 @@ reference interpreter, using Glk API.") (method url-fetch) (uri (string-append "https://github.com/libretro/RetroArch/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1iqcrb076xiih20sk8n1w79xsp4fb8pj4vkmdc1xn562h56y4nxx")))) (build-system gnu-build-system) diff --git a/gnu/packages/jrnl.scm b/gnu/packages/jrnl.scm index bdd4471c41..26401f8da9 100644 --- a/gnu/packages/jrnl.scm +++ b/gnu/packages/jrnl.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Eric Bavier +;;; Copyright © 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -32,6 +33,7 @@ (method url-fetch) (uri (string-append "https://github.com/maebert/jrnl/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "019ky09sj5i7frmca0imv4jm46mn3f4lzah2wmiwxh22cisj7ksn")))) diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm index 96acf0a573..c6556865c2 100644 --- a/gnu/packages/kde.scm +++ b/gnu/packages/kde.scm @@ -96,6 +96,7 @@ (method url-fetch) (uri (string-append "https://github.com/flavio/qjson/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "163fspi0xc705irv79qw861fmh68pjyla9vx3kqiq6xrdhb9834j")))) diff --git a/gnu/packages/libevent.scm b/gnu/packages/libevent.scm index 2afae3f302..a48c524779 100644 --- a/gnu/packages/libevent.scm +++ b/gnu/packages/libevent.scm @@ -68,6 +68,7 @@ loop.") (method url-fetch) (uri (string-append "https://github.com/joyent/libuv/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1ys2wlypdbv59yywn91d5vl329z50mi7ivi3fj5rjm4mr9g3wnmr")))) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index b7eedc6be2..4bd3592672 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -1851,6 +1851,7 @@ particular the 'perf' command.") (method url-fetch) (uri (string-append "https://github.com/ghedo/pflask/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1g8fjj67dfkc2s0852l9vqi1pm61gp4rxbpzbzg780f5s5hd1fys")))) diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 17988cc4f9..0dfc282ea8 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -283,6 +283,7 @@ and corrections. It is based on a Bayesian filter.") (method url-fetch) (uri (string-append "https://github.com/OfflineIMAP/offlineimap/" "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "00k84qagph3xnxss6rkxm61x07ngz8fvffx4z9jyw5baf3cdd32p")))) @@ -416,6 +417,7 @@ useful features.") (method url-fetch) (uri (string-append "https://github.com/dinhviethoa/" name "/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "05qyqx2c1ppb1jnrs3m52i60f9xlxfxdmb9dnwg4vqjv8kwv2qkr")))) (build-system gnu-build-system) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index 8c4eb3bd2f..e3e6e59e47 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -222,6 +222,7 @@ be output in text, PostScript, PDF or HTML.") (method url-fetch) (uri (string-append "https://github.com/opencollab/arpack-ng/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1fwch6vipms1ispzg2djvbzv5wag36f1dmmr3xs3mbp6imfyhvff")))) diff --git a/gnu/packages/ninja.scm b/gnu/packages/ninja.scm index 7416b67d02..2483cc51fe 100644 --- a/gnu/packages/ninja.scm +++ b/gnu/packages/ninja.scm @@ -32,6 +32,7 @@ (method url-fetch) (uri (string-append "https://github.com/martine/ninja/" "archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1h3yfwcfl61v493vna6jia2fizh8rpig7qw2504cvkr6gid3p5bw")) diff --git a/gnu/packages/nutrition.scm b/gnu/packages/nutrition.scm index 72bd5b0d3e..636379806c 100644 --- a/gnu/packages/nutrition.scm +++ b/gnu/packages/nutrition.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Eric Bavier +;;; Copyright © 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -36,6 +37,7 @@ (method url-fetch) (uri (string-append "https://github.com/thinkle/gourmet/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1qvz175arzqm10lpfx8ffadrgirs3240zzqcp0h7sl53qfwx7v8k")))) diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 7569770889..e044e1955b 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -2678,6 +2678,7 @@ support for Python 3 and PyPy. It is based on cffi.") ;; The archive on pypi is missing the 'utils' directory! (uri (string-append "https://github.com/SimonSapin/cairocffi/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "03w5p62sp3nqiccx864sbq0jvh7946277jqx3rcc3dch5xwfvv51")))) diff --git a/gnu/packages/rdf.scm b/gnu/packages/rdf.scm index 8edc2f46fc..a76b2c30ab 100644 --- a/gnu/packages/rdf.scm +++ b/gnu/packages/rdf.scm @@ -120,6 +120,7 @@ Java Lucene text search engine API to C++.") (method url-fetch) (uri (string-append "https://github.com/swh/LRDF/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "18p2flb2sv2hq6w2qkd29z9c7knnwqr3f12i2srshlzx6vwkm05s")))) diff --git a/gnu/packages/ruby.scm b/gnu/packages/ruby.scm index 7fc799311c..4a4ab5de3b 100644 --- a/gnu/packages/ruby.scm +++ b/gnu/packages/ruby.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Pjotr Prins ;;; Copyright © 2014 Ludovic Courtès -;;; Copyright © 2014 Mark H Weaver +;;; Copyright © 2014, 2015 Mark H Weaver ;;; Copyright © 2014 David Thompson ;;; ;;; This file is part of GNU Guix. @@ -122,6 +122,7 @@ a focus on simplicity and productivity.") (method url-fetch) (uri (string-append "https://github.com/svenfuchs/i18n/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1fdhnhh1p5g8vibv44d770z8nq208zrms3m2nswdvr54072y1m6k")))) diff --git a/gnu/packages/sxiv.scm b/gnu/packages/sxiv.scm index 4c068e5366..ee5e822c8d 100644 --- a/gnu/packages/sxiv.scm +++ b/gnu/packages/sxiv.scm @@ -34,6 +34,7 @@ (uri (string-append "https://github.com/muennich/sxiv/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "03hxy5ff7xbs15rhlbpgx8xmvmpjlffp0m4528975hg16sqa2c4s")))) From b479c3ddaf85c831e34888229849bc1ce34419de Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 1 Mar 2015 00:23:07 +0100 Subject: [PATCH 51/57] build-system/gnu: Keep the sloppy conversion strategy during bootstrap. * guix/build/gnu-build-system.scm (gnu-build): Leave %DEFAULT-PORT-CONVERSION-STRATEGY unchanged when 'string->bytevector' fails to convert to ISO-8859-1. This is an attempt to work around the build failures at . --- guix/build/gnu-build-system.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 5ae537150f..5ac6b4d43a 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -22,6 +22,7 @@ #:use-module (ice-9 match) #:use-module (ice-9 regex) #:use-module (ice-9 format) + #:use-module (ice-9 iconv) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:export (%standard-phases @@ -499,8 +500,11 @@ in order. Return #t if all the PHASES succeeded, #f otherwise." (setvbuf (current-output-port) _IOLBF) (setvbuf (current-error-port) _IOLBF) - ;; Encoding/decoding errors shouldn't be silent. - (fluid-set! %default-port-conversion-strategy 'error) + ;; Encoding/decoding errors shouldn't be silent. But our bootstrap Guile + ;; currently doesn't have access to iconv modules, so we have to allow it to + ;; be sloppier (XXX). + (when (false-if-exception (string->bytevector "works?" "ISO-8859-1")) + (fluid-set! %default-port-conversion-strategy 'error)) ;; The trick is to #:allow-other-keys everywhere, so that each procedure in ;; PHASES can pick the keyword arguments it's interested in. From 87c8b92f50c852de05eab2a0a50217adf8897c65 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 1 Mar 2015 16:58:43 +0100 Subject: [PATCH 52/57] gnu: commencement: Make UTF-8 locales available right after 'guile-final'. In , we see: 153: 12 [patch-usr-bin-file #:native-inputs #f ...] [...] ?: 1 [regexp-exec # ...] In ice-9/boot-9.scm: 106: 0 [# encoding-error ...] ice-9/boot-9.scm:106:20: In procedure #: ice-9/boot-9.scm:106:20: Throw to key `encoding-error' with args `("scm_to_stringn" "cannot convert narrow string to output locale" 84 #f #f)'. This is due to that fact that 'patch-/usr/bin/file' read a line containing a byte sequence with bytes > 127 (namely a copyright sign.) But this build was running with a C locale, and so those bytes cannot be represented in that locale, hence this error. This commit makes the UTF-8 locales available earlier such that everything can be represented in locale encoding. * gnu/packages/commencement.scm (glibc-utf8-locales-final): Move earlier; change "gzip" input to GZIP built with %BOOT4-INPUTS. (%boot5-inputs): Define to %BOOT4-INPUTS plus GLIBC-UTF8-LOCALES-FINAL. (gnu-make-final, coreutils-final, grep-final): Use it instead of %BOOT4-INPUTS. (gzip-final): Remove. (%boot6-inputs): New variable. (%final-inputs): Use it instead of %BOOT5-INPUTS. Don't rely on GZIP-FINAL. --- gnu/packages/commencement.scm | 43 +++++++++++++++++++++-------------- 1 file changed, 26 insertions(+), 17 deletions(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index aa0aac6d0e..f312e1729c 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -616,12 +616,31 @@ store.") (current-source-location) #:guile %bootstrap-guile))) +(define glibc-utf8-locales-final + ;; Now that we have GUILE-FINAL, build the UTF-8 locales. They are needed + ;; by the build processes afterwards so their 'scm_to_locale_string' works + ;; with the full range of Unicode codepoints (remember + ;; 'scm_to_locale_string' is called every time a string is passed to a C + ;; function.) + (package + (inherit glibc-utf8-locales) + (inputs `(("glibc" ,glibc-final) + ("gzip" + ,(package-with-explicit-inputs gzip %boot4-inputs + (current-source-location) + #:guile %bootstrap-guile)))))) + +(define %boot5-inputs + ;; Now with UTF-8 locale. + `(("locales" ,glibc-utf8-locales-final) + ,@%boot4-inputs)) + (define gnu-make-final ;; The final GNU Make, which uses the final Guile. (package-with-bootstrap-guile (package-with-explicit-inputs gnu-make `(("guile" ,guile-final) - ,@%boot4-inputs) + ,@%boot5-inputs) (current-source-location)))) (define-public ld-wrapper @@ -638,7 +657,7 @@ store.") ;; Findutils, keep a reference to the Coreutils they were built with. (package-with-bootstrap-guile (package-with-explicit-inputs coreutils - %boot4-inputs + %boot5-inputs (current-source-location) ;; Use the final Guile, linked against the @@ -652,25 +671,15 @@ store.") ;; built before gzip. (package-with-bootstrap-guile (package-with-explicit-inputs grep - %boot4-inputs + %boot5-inputs (current-source-location) #:guile guile-final))) -(define %boot5-inputs +(define %boot6-inputs ;; Now use the final Coreutils. `(("coreutils" ,coreutils-final) ("grep" ,grep-final) - ,@%boot4-inputs)) - -(define gzip-final - (package-with-explicit-inputs gzip %boot5-inputs - (current-source-location))) - -(define glibc-utf8-locales-final - (package - (inherit glibc-utf8-locales) - (inputs `(("glibc" ,glibc-final) - ("gzip" ,gzip-final))))) + ,@%boot5-inputs)) (define-public %final-inputs ;; Final derivations used as implicit inputs by 'gnu-build-system'. We @@ -678,12 +687,13 @@ store.") ;; used for origins that have patches, thereby avoiding circular ;; dependencies. (let ((finalize (compose package-with-bootstrap-guile - (cut package-with-explicit-inputs <> %boot5-inputs + (cut package-with-explicit-inputs <> %boot6-inputs (current-source-location))))) `(,@(map (match-lambda ((name package) (list name (finalize package)))) `(("tar" ,tar) + ("gzip" ,gzip) ("bzip2" ,bzip2) ("xz" ,xz) ("file" ,file) @@ -692,7 +702,6 @@ store.") ("sed" ,sed) ("findutils" ,findutils) ("gawk" ,gawk))) - ("gzip" ,gzip-final) ("grep" ,grep-final) ("coreutils" ,coreutils-final) ("make" ,gnu-make-final) From bbe7a2ce0c7cbc44349c4f073af102872e1bb965 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 1 Mar 2015 17:05:41 +0100 Subject: [PATCH 53/57] Revert "build-system/gnu: Keep the sloppy conversion strategy during bootstrap." This reverts commit b479c3ddaf85c831e34888229849bc1ce34419de. This commit was the result of an incorrect characterization of the problem; see the log of commit 87c8b92 for details. --- guix/build/gnu-build-system.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 5ac6b4d43a..5ae537150f 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -22,7 +22,6 @@ #:use-module (ice-9 match) #:use-module (ice-9 regex) #:use-module (ice-9 format) - #:use-module (ice-9 iconv) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:export (%standard-phases @@ -500,11 +499,8 @@ in order. Return #t if all the PHASES succeeded, #f otherwise." (setvbuf (current-output-port) _IOLBF) (setvbuf (current-error-port) _IOLBF) - ;; Encoding/decoding errors shouldn't be silent. But our bootstrap Guile - ;; currently doesn't have access to iconv modules, so we have to allow it to - ;; be sloppier (XXX). - (when (false-if-exception (string->bytevector "works?" "ISO-8859-1")) - (fluid-set! %default-port-conversion-strategy 'error)) + ;; Encoding/decoding errors shouldn't be silent. + (fluid-set! %default-port-conversion-strategy 'error) ;; The trick is to #:allow-other-keys everywhere, so that each procedure in ;; PHASES can pick the keyword arguments it's interested in. From 751be9a056114d353bac12510bea33e8d5577f49 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Sun, 1 Mar 2015 18:52:02 -0500 Subject: [PATCH 54/57] gnu: libgcrypt: Update to 1.6.3. * gnu/packages/gnupg.scm (libgcrypt): Update to 1.6.3. --- gnu/packages/gnupg.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index 584b1c68c1..63756a7925 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2012, 2013, 2014 Ludovic Courtès ;;; Copyright © 2013, 2015 Andreas Enge ;;; Copyright © 2014 Eric Bavier -;;; Copyright © 2014 Mark H Weaver +;;; Copyright © 2014, 2015 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -61,14 +61,14 @@ Daemon and possibly more in the future.") (define-public libgcrypt (package (name "libgcrypt") - (version "1.6.2") + (version "1.6.3") (source (origin (method url-fetch) (uri (string-append "mirror://gnupg/libgcrypt/libgcrypt-" version ".tar.bz2")) (sha256 (base32 - "0k2wi34qhp5hq71w1ab3kw1gfsx7xff79bvynqkxp35kls94826y")))) + "0pq2nwfqgggrsh8rk84659d80vfnlkbphwqjwahccd5fjdxr3d21")))) (build-system gnu-build-system) (propagated-inputs `(("libgpg-error-host" ,libgpg-error))) From 7e75a6739bf02c39baf8340e31e590c2c7c5fd16 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 2 Mar 2015 16:26:13 +0100 Subject: [PATCH 55/57] gexp: Make sure 'gexp-outputs' removes duplicate outputs. Fixes a regression introduced in f9efe56. * guix/gexp.scm (gexp-outputs): Add call to 'delete-duplicates'. * tests/gexp.scm ("output list, combined gexps, duplicate output"): New test. --- guix/gexp.scm | 3 ++- tests/gexp.scm | 7 +++++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/guix/gexp.scm b/guix/gexp.scm index 1f64cf75ae..1e26342101 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -319,7 +319,8 @@ references." (_ result))) - (add-reference-output (gexp-references exp) '())) + (delete-duplicates + (add-reference-output (gexp-references exp) '()))) (define* (gexp->sexp exp #:key (system (%current-system)) diff --git a/tests/gexp.scm b/tests/gexp.scm index 2ec6c8e3ef..783ca2cdbc 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -230,6 +230,13 @@ (gexp-outputs exp2)) (= 2 (length (gexp-outputs exp2)))))) +(test-equal "output list, combined gexps, duplicate output" + 1 + (let* ((exp0 (gexp (mkdir (ungexp output)))) + (exp1 (gexp (begin (mkdir (ungexp output)) (ungexp exp0)))) + (exp2 (gexp (begin (mkdir (ungexp output)) (ungexp exp1))))) + (length (gexp-outputs exp2)))) + (test-assert "output list + ungexp-splicing list, combined gexps" (let* ((exp0 (gexp (mkdir (ungexp output)))) (exp1 (gexp (mkdir (ungexp output "foo")))) From e343024dc46a8f513e78eec3d756b0d9f8bfd6f6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 2 Mar 2015 23:18:27 +0100 Subject: [PATCH 56/57] gnu: tcsh: Use ISO-8859-1 when patching "tests/testsuite". * gnu/packages/tcsh.scm (tcsh)[arguments]: Set %DEFAULT-PORT-ENCODING before substituting "tests/testsuite". Fixes build failure at . --- gnu/packages/tcsh.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/gnu/packages/tcsh.scm b/gnu/packages/tcsh.scm index f582713911..814f2a6321 100644 --- a/gnu/packages/tcsh.scm +++ b/gnu/packages/tcsh.scm @@ -58,7 +58,11 @@ (("; other_script.csh") "; /bin/sh other_script.csh")) ;; Now, let's generate the test suite and patch it (system* "make" "tests/testsuite") - (substitute* "tests/testsuite" (("/bin/sh") (which "sh")))) + + ;; This file is ISO-8859-1 encoded. + (with-fluids ((%default-port-encoding #f)) + (substitute* "tests/testsuite" + (("/bin/sh") (which "sh"))))) (alist-cons-after 'install 'post-install (lambda* (#:key inputs outputs #:allow-other-keys) From da699774d4d839a45daa3ae3b9189331c490b315 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 3 Mar 2015 21:18:47 +0100 Subject: [PATCH 57/57] gnu: Add search path specifications for 'SSL_CERT_FILE' and 'GIT_SSL_CAINFO'. * gnu/packages/openssl.scm (openssl)[native-search-paths]: Add specification for 'SSL_CERT_FILE'. * gnu/packages/version-control.scm (git)[native-search-paths]: Add specification for 'GIT_SSL_CAINFO'. --- gnu/packages/openssl.scm | 11 +++++++++-- gnu/packages/version-control.scm | 9 +++++++++ 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/gnu/packages/openssl.scm b/gnu/packages/openssl.scm index 90dea4956d..26a1bbb811 100644 --- a/gnu/packages/openssl.scm +++ b/gnu/packages/openssl.scm @@ -64,9 +64,16 @@ "rm")))) %standard-phases)))) (native-search-paths - (list (search-path-specification + ;; FIXME: These two variables must designate a single file or directory + ;; and are not actually "search paths." In practice it works OK in user + ;; profiles because there's always just one item that matches the + ;; specification. + (list (search-path-specification (variable "SSL_CERT_DIR") - (files '("etc/ssl/certs"))))) + (files '("etc/ssl/certs"))) + (search-path-specification + (variable "SSL_CERT_FILE") + (files '("etc/ssl/certs/ca-certificates.crt"))))) (synopsis "SSL/TLS implementation") (description "OpenSSL is an implementation of SSL/TLS") diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 9fc310d55d..71b3630607 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -204,6 +204,15 @@ as well as the classic centralized workflow.") `("PATH" ":" prefix ("$HOME/.guix-profile/libexec/git-core"))))) %standard-phases)))) + + (native-search-paths + ;; For HTTPS access, Git needs a single-file certificate bundle, specified + ;; with $GIT_SSL_CAINFO. + ;; FIXME: This variable designates a single file; it is not a search path. + (list (search-path-specification + (variable "GIT_SSL_CAINFO") + (files '("etc/ssl/certs/ca-certificates.crt"))))) + (synopsis "Distributed version control system") (description "Git is a free distributed version control system designed to handle