gnu/packages/base.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2014, 2019 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
   5 ;;; Copyright © 2014, 2015, 2016, 2018 Mark H Weaver <mhw@netris.org>
   6 ;;; Copyright © 2014 Alex Kost <alezost@gmail.com>
   7 ;;; Copyright © 2014, 2015 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
   8 ;;; Copyright © 2016, 2017, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
   9 ;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
  10 ;;; Copyright © 2016, 2018 Alex Vong <alexvong1995@gmail.com>
  11 ;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
  12 ;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
  13 ;;; Copyright © 2017, 2018, 2020 Marius Bakke <mbakke@fastmail.com>
  14 ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
  15 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  16 ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
  17 ;;; Copyright © 2020 Vitaliy Shatrov <D0dyBo0D0dyBo0@protonmail.com>
  18 ;;;
  19 ;;; This file is part of GNU Guix.
  20 ;;;
  21 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  22 ;;; under the terms of the GNU General Public License as published by
  23 ;;; the Free Software Foundation; either version 3 of the License, or (at
  24 ;;; your option) any later version.
  25 ;;;
  26 ;;; GNU Guix is distributed in the hope that it will be useful, but
  27 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  28 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  29 ;;; GNU General Public License for more details.
  30 ;;;
  31 ;;; You should have received a copy of the GNU General Public License
  32 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  33
  34 (define-module (gnu packages base)
  35   #:use-module ((guix licenses)
  36                 #:select (gpl3+ lgpl2.0+ lgpl3+ public-domain))
  37   #:use-module (gnu packages)
  38   #:use-module (gnu packages acl)
  39   #:use-module (gnu packages algebra)
  40   #:use-module (gnu packages bash)
  41   #:use-module (gnu packages bison)
  42   #:use-module (gnu packages ed)
  43   #:use-module (gnu packages gcc)
  44   #:use-module (gnu packages guile)
  45   #:use-module (gnu packages multiprecision)
  46   #:use-module (gnu packages compression)
  47   #:use-module (gnu packages perl)
  48   #:use-module (gnu packages linux)
  49   #:use-module (gnu packages pcre)
  50   #:use-module (gnu packages texinfo)
  51   #:use-module (gnu packages hurd)
  52   #:use-module (gnu packages pkg-config)
  53   #:use-module (gnu packages python)
  54   #:use-module (gnu packages gettext)
  55   #:use-module (guix utils)
  56   #:use-module (guix packages)
  57   #:use-module (guix download)
  58   #:use-module (guix git-download)
  59   #:use-module (guix build-system gnu)
  60   #:use-module (guix build-system trivial)
  61   #:use-module (ice-9 match)
  62   #:use-module (srfi srfi-1)
  63   #:use-module (srfi srfi-26)
  64   #:export (glibc
  65             libiconv-if-needed))
  66
  67 ;;; Commentary:
  68 ;;;
  69 ;;; Base packages of the Guix-based GNU user-land software distribution.
  70 ;;;
  71 ;;; Code:
  72
  73 (define-public hello
  74   (package
  75     (name "hello")
  76     (version "2.10")
  77     (source (origin
  78               (method url-fetch)
  79               (uri (string-append "mirror://gnu/hello/hello-" version
  80                                   ".tar.gz"))
  81               (sha256
  82                (base32
  83                 "0ssi1wpaf7plaswqqjwigppsg5fyh99vdlb9kzl7c9lng89ndq1i"))))
  84     (build-system gnu-build-system)
  85     (synopsis "Hello, GNU world: An example GNU package")
  86     (description
  87      "GNU Hello prints the message \"Hello, world!\" and then exits.  It
  88 serves as an example of standard GNU coding practices.  As such, it supports
  89 command-line arguments, multiple languages, and so on.")
  90     (home-page "https://www.gnu.org/software/hello/")
  91     (license gpl3+)))
  92
  93 (define-public grep
  94   (package
  95    (name "grep")
  96    (version "3.4")
  97    (source (origin
  98             (method url-fetch)
  99             (uri (string-append "mirror://gnu/grep/grep-"
 100                                 version ".tar.xz"))
 101             (sha256
 102              (base32
 103               "1yy33kiwrxrwj2nxa4fg15bvmwyghqbs8qwkdvy5phm784f7brjq"))
 104             (patches (search-patches "grep-timing-sensitive-test.patch"))))
 105    (build-system gnu-build-system)
 106    (native-inputs `(("perl" ,perl)))             ;some of the tests require it
 107    (inputs `(("pcre" ,pcre)))
 108    (arguments
 109     `(#:phases
 110       (modify-phases %standard-phases
 111         (add-after 'install 'fix-egrep-and-fgrep
 112           ;; Patch 'egrep' and 'fgrep' to execute 'grep' via its
 113           ;; absolute file name instead of searching for it in $PATH.
 114           (lambda* (#:key outputs #:allow-other-keys)
 115             (let* ((out (assoc-ref outputs "out"))
 116                    (bin (string-append out "/bin")))
 117               (substitute* (list (string-append bin "/egrep")
 118                                  (string-append bin "/fgrep"))
 119                 (("^exec grep")
 120                  (string-append "exec " bin "/grep")))
 121               #t))))))
 122    (synopsis "Print lines matching a pattern")
 123    (description
 124      "grep is a tool for finding text inside files.  Text is found by
 125 matching a pattern provided by the user in one or many files.  The pattern
 126 may be provided as a basic or extended regular expression, or as fixed
 127 strings.  By default, the matching text is simply printed to the screen,
 128 however the output can be greatly customized to include, for example, line
 129 numbers.  GNU grep offers many extensions over the standard utility,
 130 including, for example, recursive directory searching.")
 131    (license gpl3+)
 132    (home-page "https://www.gnu.org/software/grep/")))
 133
 134 (define-public sed
 135   (package
 136    (name "sed")
 137    (version "4.8")
 138    (source (origin
 139             (method url-fetch)
 140             (uri (string-append "mirror://gnu/sed/sed-" version
 141                                 ".tar.gz"))
 142             (sha256
 143              (base32
 144               "0alqagh0nliymz23kfjg6g9w3cr086k0sfni56gi8fhzqwa3xksk"))))
 145    (build-system gnu-build-system)
 146    (synopsis "Stream editor")
 147    (native-inputs
 148     `(("perl" ,perl)))                            ;for tests
 149    (description
 150     "Sed is a non-interactive, text stream editor.  It receives a text
 151 input from a file or from standard input and it then applies a series of text
 152 editing commands to the stream and prints its output to standard output.  It
 153 is often used for substituting text patterns in a stream.  The GNU
 154 implementation offers several extensions over the standard utility.")
 155    (license gpl3+)
 156    (home-page "https://www.gnu.org/software/sed/")))
 157
 158 (define-public tar
 159   (package
 160    (name "tar")
 161    (version "1.32")
 162    (source (origin
 163             (method url-fetch)
 164             (uri (string-append "mirror://gnu/tar/tar-"
 165                                 version ".tar.xz"))
 166             (sha256
 167              (base32
 168               "1n7xy657ii0sa42zx6944v2m4v9qrh6sqgmw17l3nch3y43sxlyh"))
 169             (patches (search-patches "tar-skip-unreliable-tests.patch"
 170                                      "tar-remove-wholesparse-check.patch"))))
 171    (build-system gnu-build-system)
 172    ;; Note: test suite requires ~1GiB of disk space.
 173    (arguments
 174     `(,@(if (hurd-target?)
 175             '(#:make-flags
 176               (list (string-append
 177                      "TESTSUITEFLAGS= -k '"
 178                      "!sparse"
 179                      ",!renamed dirs in incrementals"
 180                      ",!--exclude-tag option in incremental pass"
 181                      ",!incremental dumps with -C"
 182                      ",!incremental dumps of nested directories"
 183                      ",!incremental restores with -C"
 184                      ",!concatenated incremental archives (renames)"
 185                      ",!renamed directory containing subdirectories"
 186                      ",!renamed subdirectories"
 187                      "'")))
 188             '())
 189       #:phases (modify-phases %standard-phases
 190                  (add-before 'build 'set-shell-file-name
 191                    (lambda* (#:key inputs #:allow-other-keys)
 192                      ;; Do not use "/bin/sh" to run programs.
 193                      (let ((bash (assoc-ref inputs "bash")))
 194                        (substitute* "src/system.c"
 195                          (("/bin/sh")
 196                           (string-append bash "/bin/sh")))
 197                        #t))))))
 198
 199    ;; When cross-compiling, the 'set-shell-file-name' phase needs to be able
 200    ;; to refer to the target Bash.
 201    (inputs (if (%current-target-system)
 202                `(("bash" ,bash))
 203                '()))
 204
 205    (synopsis "Managing tar archives")
 206    (description
 207     "Tar provides the ability to create tar archives, as well as the
 208 ability to extract, update or list files in an existing archive.  It is
 209 useful for combining many files into one larger file, while maintaining
 210 directory structure and file information such as permissions and
 211 creation/modification dates.  GNU tar offers many extensions over the
 212 standard utility.")
 213    (license gpl3+)
 214    (home-page "https://www.gnu.org/software/tar/")))
 215
 216 (define-public patch
 217   (package
 218    (name "patch")
 219     (version "2.7.6")
 220     (source (origin
 221               (method url-fetch)
 222               (uri (string-append "mirror://gnu/patch/patch-"
 223                                   version ".tar.xz"))
 224               (sha256
 225                (base32
 226                 "1zfqy4rdcy279vwn2z1kbv19dcfw25d2aqy9nzvdkq5bjzd0nqdc"))
 227               (patches (search-patches "patch-hurd-path-max.patch"))))
 228    (build-system gnu-build-system)
 229    (arguments
 230     ;; Work around a cross-compilation bug whereby libpatch.a would provide
 231     ;; '__mktime_internal', which conflicts with the one in libc.a.
 232     (if (%current-target-system)
 233         `(#:configure-flags '("gl_cv_func_working_mktime=yes"))
 234         '()))
 235    (native-inputs `(("ed" ,ed)))
 236    (synopsis "Apply differences to originals, with optional backups")
 237    (description
 238     "Patch is a program that applies changes to files based on differences
 239 laid out as by the program \"diff\".  The changes may be applied to one or more
 240 files depending on the contents of the diff file.  It accepts several
 241 different diff formats.  It may also be used to revert previously applied
 242 differences.")
 243    (license gpl3+)
 244    (home-page "https://savannah.gnu.org/projects/patch/")))
 245
 246 (define-public diffutils
 247   (package
 248    (name "diffutils")
 249    (version "3.7")
 250    (source (origin
 251             (method url-fetch)
 252             (uri (string-append "mirror://gnu/diffutils/diffutils-"
 253                                 version ".tar.xz"))
 254             (sha256
 255              (base32
 256               "09isrg0isjinv8c535nxsi1s86wfdfzml80dbw41dj9x3hiad9xk"))))
 257    (build-system gnu-build-system)
 258    (native-inputs `(("perl" ,perl)))
 259    (synopsis "Comparing and merging files")
 260    (description
 261     "GNU Diffutils is a package containing tools for finding the
 262 differences between files.  The \"diff\" command is used to show how two files
 263 differ, while \"cmp\" shows the offsets and line numbers where they differ.
 264 \"diff3\" allows you to compare three files.  Finally, \"sdiff\" offers an
 265 interactive means to merge two files.")
 266    (license gpl3+)
 267    (home-page "https://www.gnu.org/software/diffutils/")))
 268
 269 (define-public findutils
 270   (package
 271    (name "findutils")
 272    (version "4.7.0")
 273    (source (origin
 274             (method url-fetch)
 275             (uri (string-append "mirror://gnu/findutils/findutils-"
 276                                 version ".tar.xz"))
 277             (sha256
 278              (base32
 279               "16kqz9yz98dasmj70jwf5py7jk558w96w0vgp3zf9xsqk3gzpzn5"))
 280             (patches (search-patches "findutils-localstatedir.patch"
 281                                      "findutils-test-rwlock-threads.patch"))))
 282    (build-system gnu-build-system)
 283    (arguments
 284     `(#:configure-flags (list
 285                          ;; Tell 'updatedb' to write to /var.
 286                          "--localstatedir=/var")
 287       #:phases (modify-phases %standard-phases
 288                  (add-before 'check 'adjust-test-shebangs
 289                    (lambda _
 290                      (substitute* '("tests/xargs/verbose-quote.sh"
 291                                     "tests/find/exec-plus-last-file.sh")
 292                        (("#!/bin/sh")
 293                         (string-append "#!" (which "sh"))))
 294                      #t)))))
 295    (synopsis "Operating on files matching given criteria")
 296    (description
 297     "Findutils supplies the basic file directory searching utilities of the
 298 GNU system.  It consists of two primary searching utilities: \"find\"
 299 recursively searches for files in a directory according to given criteria and
 300 \"locate\" lists files in a database that match a query.  Two auxiliary tools
 301 are included: \"updatedb\" updates the file name database and \"xargs\" may be
 302 used to apply commands with arbitrarily long arguments.")
 303    (license gpl3+)
 304    (home-page "https://www.gnu.org/software/findutils/")))
 305
 306 (define-public coreutils
 307   (package
 308    (name "coreutils")
 309    (version "8.32")
 310    (source (origin
 311             (method url-fetch)
 312             (uri (string-append "mirror://gnu/coreutils/coreutils-"
 313                                 version ".tar.xz"))
 314             (sha256
 315              (base32
 316               "1yjcrh5hw70c0yn8zw55pd6j51dj90anpq8mmg649ps9g3gdhn24"))
 317             (patches (search-patches "coreutils-ls.patch"))))
 318    (build-system gnu-build-system)
 319    (inputs `(("acl"  ,acl)                        ; TODO: add SELinux
 320              ("gmp"  ,gmp)                        ;bignums in 'expr', yay!
 321
 322              ;; Do not use libcap when cross-compiling since it's not quite
 323              ;; cross-compilable; and use it only for supported systems.
 324              ,@(if (and (not (%current-target-system))
 325                         (member (%current-system)
 326                                 (package-supported-systems libcap)))
 327              `(("libcap" ,libcap))  ;capability support in 'ls', etc.
 328              '())))
 329    (native-inputs
 330     ;; Perl is needed to run tests in native builds, and to run the bundled
 331     ;; copy of help2man.  However, don't pass it when cross-compiling since
 332     ;; that would lead it to try to run programs to get their '--help' output
 333     ;; for help2man.
 334     (if (%current-target-system)
 335         '()
 336         `(("perl" ,perl))))
 337    (outputs '("out" "debug"))
 338    (arguments
 339     `(#:parallel-build? #f            ; help2man may be called too early
 340       ,@(if (hurd-target?)
 341             '(#:make-flags            ; these tests fail deterministically
 342               (list (string-append "XFAIL_TESTS=tests/misc/env-S.pl"
 343                                    " tests/misc/kill.sh"
 344                                    " tests/misc/nice.sh"
 345                                    " tests/split/fail.sh"
 346                                    " test-fdutimensat"
 347                                    " test-futimens"
 348                                    " test-linkat"
 349                                    " test-renameat"
 350                                    " test-renameatu"
 351                                    " test-tls"
 352                                    " test-utimensat")))
 353             '())
 354       #:phases (modify-phases %standard-phases
 355                  (add-before 'build 'patch-shell-references
 356                    (lambda _
 357                      ;; 'split' uses either $SHELL or /bin/sh.  Set $SHELL so
 358                      ;; that tests pass, since /bin/sh isn't in the chroot.
 359                      (setenv "SHELL" (which "sh"))
 360
 361                      (substitute* (find-files "gnulib-tests" "\\.c$")
 362                        (("/bin/sh") (which "sh")))
 363                      (substitute* (find-files "tests" "\\.sh$")
 364                        (("#!/bin/sh") (string-append "#!" (which "sh"))))
 365                      #t))
 366                  ,@(if (hurd-target?)
 367                        `((add-after 'unpack 'remove-tests
 368                            (lambda _
 369                              (substitute* "Makefile.in"
 370                                ;; this test hangs
 371                                (("^ *tests/misc/timeout-group.sh.*") ""))
 372                              #t)))
 373                        '()))))
 374    (synopsis "Core GNU utilities (file, text, shell)")
 375    (description
 376     "GNU Coreutils package includes all of the basic command-line tools that
 377 are expected in a POSIX system, excluding shell.  This package is the union of
 378 the GNU fileutils, sh-utils, and textutils packages.  Most of these tools
 379 offer extended functionality beyond that which is outlined in the POSIX
 380 standard.")
 381    (license gpl3+)
 382    (home-page "https://www.gnu.org/software/coreutils/")))
 383
 384 (define-public coreutils-minimal
 385   ;; Coreutils without its optional dependencies.
 386   (package
 387     (inherit coreutils)
 388     (name "coreutils-minimal")
 389     (outputs '("out"))
 390     (inputs '())))
 391
 392 (define-public coreutils-8.30
 393   ;; XXX: This version is kept just so we can run PRoot tests.
 394   (hidden-package
 395    (package
 396      (inherit coreutils-minimal)
 397      (version "8.30")
 398      (source (origin
 399                (method url-fetch)
 400                (uri (string-append "mirror://gnu/coreutils/coreutils-"
 401                                    version ".tar.xz"))
 402                (sha256
 403                 (base32
 404                  "0mxhw43d4wpqmvg0l4znk1vm10fy92biyh90lzdnqjcic2lb6cg8"))))
 405      (arguments
 406       (substitute-keyword-arguments (package-arguments coreutils-minimal)
 407         ((#:phases phases '%standard-phases)
 408          `(modify-phases ,phases
 409             (add-before 'check 'disable-broken-test
 410               (lambda _
 411                 ;; This test hits the 127 character shebang limit in the build
 412                 ;; environment due to the way "env -S" splits arguments into
 413                 ;; shebangs.  Note that "env-S-script.sh" works around this
 414                 ;; specific issue, but "env-S.pl" is not adjusted for build
 415                 ;; environments with long prefixes (/tmp/guix-build-...).
 416                 (substitute* "Makefile"
 417                   (("^.*tests/misc/env-S.pl.*$") ""))
 418                 #t)))))))))
 419
 420 (define-public gnu-make
 421   (package
 422    (name "make")
 423    (version "4.3")
 424    (source (origin
 425             (method url-fetch)
 426             (uri (string-append "mirror://gnu/make/make-" version
 427                                 ".tar.gz"))
 428             (sha256
 429              (base32
 430               "06cfqzpqsvdnsxbysl5p2fgdgxgl9y4p7scpnrfa8z2zgkjdspz0"))
 431             (patches (search-patches "make-impure-dirs.patch"))))
 432    (build-system gnu-build-system)
 433    (native-inputs `(("pkg-config" ,pkg-config)))  ; to detect Guile
 434    (inputs `(("guile" ,guile-3.0)))
 435    (outputs '("out" "debug"))
 436    (arguments
 437     `(,@(if (hurd-target?)
 438             '(#:configure-flags '("CFLAGS=-D__alloca=alloca"
 439                                   "ac_cv_func_posix_spawn=no"))
 440             '())
 441       #:phases
 442       (modify-phases %standard-phases
 443         (add-before 'build 'set-default-shell
 444           (lambda* (#:key inputs #:allow-other-keys)
 445             ;; Change the default shell from /bin/sh.
 446             (let ((bash (assoc-ref inputs "bash")))
 447               (substitute* "src/job.c"
 448                 (("default_shell =.*$")
 449                  (format #f "default_shell = \"~a/bin/sh\";\n"
 450                          bash)))
 451               #t))))))
 452    (synopsis "Remake files automatically")
 453    (description
 454     "Make is a program that is used to control the production of
 455 executables or other files from their source files.  The process is
 456 controlled from a Makefile, in which the developer specifies how each file is
 457 generated from its source.  It has powerful dependency resolution and the
 458 ability to determine when files have to be regenerated after their sources
 459 change.  GNU make offers many powerful extensions over the standard utility.")
 460    (license gpl3+)
 461    (home-page "https://www.gnu.org/software/make/")))
 462
 463 (define-public gnu-make-4.2
 464   (package
 465     (inherit gnu-make)
 466     (version "4.2.1")
 467     (source (origin
 468               (method url-fetch)
 469               (uri (string-append "mirror://gnu/make/make-" version
 470                                   ".tar.bz2"))
 471               (sha256
 472                (base32
 473                 "12f5zzyq2w56g95nni65hc0g5p7154033y2f3qmjvd016szn5qnn"))))
 474     (arguments
 475      `(#:configure-flags '("CFLAGS=-D__alloca=alloca")
 476        #:phases
 477        (modify-phases %standard-phases
 478          (add-before 'build 'set-default-shell
 479            (lambda* (#:key inputs #:allow-other-keys)
 480              ;; Change the default shell from /bin/sh.
 481              (let ((bash (assoc-ref inputs "bash")))
 482                (substitute* "job.c"
 483                  (("default_shell =.*$")
 484                   (format #f "default_shell = \"~a/bin/sh\";\n"
 485                           bash)))
 486                #t))))))))
 487
 488 (define-public binutils
 489   (package
 490    (name "binutils")
 491    (version "2.34")
 492    (source (origin
 493             (method url-fetch)
 494             (uri (string-append "mirror://gnu/binutils/binutils-"
 495                                 version ".tar.bz2"))
 496             (sha256
 497              (base32
 498               "1rin1f5c7wm4n3piky6xilcrpf2s0n3dd5vqq8irrxkcic3i1w49"))
 499             (patches (search-patches "binutils-loongson-workaround.patch"))))
 500    (build-system gnu-build-system)
 501
 502    ;; TODO: Add dependency on zlib + those for Gold.
 503    (arguments
 504     `(#:configure-flags '(;; Add `-static-libgcc' to not retain a dependency
 505                           ;; on GCC when bootstrapping.
 506                           "LDFLAGS=-static-libgcc"
 507
 508                           ;; Turn on --enable-new-dtags by default to make the
 509                           ;; linker set RUNPATH instead of RPATH on binaries.
 510                           ;; This is important because RUNPATH can be overriden
 511                           ;; using LD_LIBRARY_PATH at runtime.
 512                           "--enable-new-dtags"
 513
 514                           ;; Don't search under /usr/lib & co.
 515                           "--with-lib-path=/no-ld-lib-path"
 516
 517                           ;; Install BFD.  It ends up in a hidden directory,
 518                           ;; but it's here.
 519                           "--enable-install-libbfd"
 520
 521                           ;; Make sure 'ar' and 'ranlib' produce archives in a
 522                           ;; deterministic fashion.
 523                           "--enable-deterministic-archives")
 524
 525       ;; XXX: binutils 2.34 was mistakenly released without generated manuals:
 526       ;; <https://sourceware.org/bugzilla/show_bug.cgi?id=25491>.  To avoid a
 527       ;; circular dependency on texinfo, prevent the build system from creating
 528       ;; the manuals by calling "true" instead of "makeinfo"...
 529       #:make-flags '("MAKEINFO=true")))
 530
 531    ;; ...and "hide" this package so that users who install binutils get the
 532    ;; version with documentation defined below.
 533    (properties '((hidden? . #t)))
 534
 535    (synopsis "Binary utilities: bfd gas gprof ld")
 536    (description
 537     "GNU Binutils is a collection of tools for working with binary files.
 538 Perhaps the most notable are \"ld\", a linker, and \"as\", an assembler.
 539 Other tools include programs to display binary profiling information, list
 540 the strings in a binary file, and utilities for working with archives.  The
 541 \"bfd\" library for working with executable and object formats is also
 542 included.")
 543    (license gpl3+)
 544    (home-page "https://www.gnu.org/software/binutils/")))
 545
 546 ;; Work around a problem with binutils 2.34 whereby manuals are missing from
 547 ;; the release tarball.  Remove this and the related code above when updating.
 548 (define-public binutils+documentation
 549   (package/inherit
 550    binutils
 551    (native-inputs
 552     `(("texinfo" ,texinfo)))
 553    (arguments
 554     (substitute-keyword-arguments (package-arguments binutils)
 555       ((#:make-flags _ ''()) ''())))
 556    (properties '())))
 557
 558 ;; FIXME: ath9k-firmware-htc-binutils.patch do not apply on 2.34 because of a
 559 ;; big refactoring of xtensa-modules.c (commit 567607c11fbf7105 upstream).
 560 ;; Keep this version around until the patch is updated.
 561 (define-public binutils-2.33
 562   (package/inherit
 563    binutils
 564    (version "2.33.1")
 565    (source (origin
 566              (inherit (package-source binutils))
 567              (uri (string-append "mirror://gnu/binutils/binutils-"
 568                                  version ".tar.bz2"))
 569              (sha256
 570               (base32
 571                "1cmd0riv37bqy9mwbg6n3523qgr8b3bbm5kwj19sjrasl4yq9d0c"))))
 572    (arguments
 573     (substitute-keyword-arguments (package-arguments binutils)
 574       ((#:make-flags _ ''()) ''())))
 575    (properties '())))
 576
 577 (define-public binutils-gold
 578   (package
 579     (inherit binutils)
 580     (name "binutils-gold")
 581     (arguments
 582      `(#:phases
 583        (modify-phases %standard-phases
 584          (add-after 'patch-source-shebangs 'patch-more-shebangs
 585            (lambda _
 586              (substitute* "gold/Makefile.in"
 587                (("/bin/sh") (which "sh")))
 588              #t)))
 589        ,@(substitute-keyword-arguments (package-arguments binutils)
 590          ; Upstream is aware of unrelocatable test failures on arm*.
 591          ((#:tests? _ #f)
 592           (if (any (cute string-prefix? <> (or (%current-target-system)
 593                                                (%current-system)))
 594                    '("i686" "x86_64"))
 595               '#t '#f))
 596          ((#:configure-flags flags)
 597           `(cons* "--enable-gold=default"
 598                  (delete "LDFLAGS=-static-libgcc" ,flags))))))
 599      (native-inputs
 600      `(("bc" ,bc)))
 601      (inputs
 602      `(("gcc:lib" ,gcc "lib")))))
 603
 604 (define* (make-ld-wrapper name #:key
 605                           (target (const #f))
 606                           binutils
 607                           (guile (canonical-package guile-3.0))
 608                           (bash (canonical-package bash))
 609                           (guile-for-build guile))
 610   "Return a package called NAME that contains a wrapper for the 'ld' program
 611 of BINUTILS, which adds '-rpath' flags to the actual 'ld' command line.  The
 612 wrapper uses GUILE and BASH.
 613
 614 TARGET must be a one-argument procedure that, given a system type, returns a
 615 cross-compilation target triplet or #f.  When the result is not #f, make a
 616 wrapper for the cross-linker for that target, called 'TARGET-ld'."
 617   ;; Note: #:system->target-triplet is a procedure so that the evaluation of
 618   ;; its result can be delayed until the 'arguments' field is evaluated, thus
 619   ;; in a context where '%current-system' is accurate.
 620   (package
 621     (name name)
 622     (version "0")
 623     (source #f)
 624     (build-system trivial-build-system)
 625     (inputs `(("binutils" ,binutils)
 626               ("guile"    ,guile)
 627               ("bash"     ,bash)
 628               ("wrapper"  ,(search-path %load-path
 629                                         "gnu/packages/ld-wrapper.in"))))
 630     (arguments
 631      (let ((target (target (%current-system))))
 632        `(#:guile ,guile-for-build
 633          #:modules ((guix build utils))
 634          #:builder (begin
 635                      (use-modules (guix build utils)
 636                                   (system base compile))
 637
 638                      (let* ((out (assoc-ref %outputs "out"))
 639                             (bin (string-append out "/bin"))
 640                             (ld  ,(if target
 641                                       `(string-append bin "/" ,target "-ld")
 642                                       '(string-append bin "/ld")))
 643                             (go  (string-append ld ".go")))
 644
 645                        (setvbuf (current-output-port)
 646                                 (cond-expand (guile-2.0 _IOLBF)
 647                                              (else 'line)))
 648                        (format #t "building ~s/bin/ld wrapper in ~s~%"
 649                                (assoc-ref %build-inputs "binutils")
 650                                out)
 651
 652                        (mkdir-p bin)
 653                        (copy-file (assoc-ref %build-inputs "wrapper") ld)
 654                        (substitute* ld
 655                          (("@SELF@")
 656                           ld)
 657                          (("@GUILE@")
 658                           (string-append (assoc-ref %build-inputs "guile")
 659                                          "/bin/guile"))
 660                          (("@BASH@")
 661                           (string-append (assoc-ref %build-inputs "bash")
 662                                          "/bin/bash"))
 663                          (("@LD@")
 664                           (string-append (assoc-ref %build-inputs "binutils")
 665                                          ,(if target
 666                                               (string-append "/bin/"
 667                                                              target "-ld")
 668                                               "/bin/ld"))))
 669                        (chmod ld #o555)
 670                        (compile-file ld #:output-file go)
 671                        #t)))))
 672     (synopsis "The linker wrapper")
 673     (description
 674      "The linker wrapper (or @code{ld-wrapper}) wraps the linker to add any
 675 missing @code{-rpath} flags, and to detect any misuse of libraries outside of
 676 the store.")
 677     (home-page "https://www.gnu.org/software/guix//")
 678     (license gpl3+)))
 679
 680 (export make-ld-wrapper)
 681
 682 (define-public glibc
 683   ;; This is the GNU C Library, used on GNU/Linux and GNU/Hurd.  Prior to
 684   ;; version 2.28, GNU/Hurd used a different glibc branch.
 685   (package
 686    (name "glibc")
 687    (version "2.31")
 688    (source (origin
 689             (method url-fetch)
 690             (uri (string-append "mirror://gnu/glibc/glibc-" version ".tar.xz"))
 691             (sha256
 692              (base32
 693               "05zxkyz9bv3j9h0xyid1rhvh3klhsmrpkf3bcs6frvlgyr2gwilj"))
 694             (snippet
 695              ;; Disable 'ldconfig' and /etc/ld.so.cache.  The latter is
 696              ;; required on LFS distros to avoid loading the distro's libc.so
 697              ;; instead of ours.
 698              '(begin
 699                 (substitute* "sysdeps/unix/sysv/linux/configure"
 700                   (("use_ldconfig=yes")
 701                    "use_ldconfig=no"))
 702                 #t))
 703             (modules '((guix build utils)))
 704             (patches (search-patches "glibc-ldd-x86_64.patch"
 705                                      "glibc-hidden-visibility-ldconfig.patch"
 706                                      "glibc-versioned-locpath.patch"
 707                                      "glibc-allow-kernel-2.6.32.patch"
 708                                      "glibc-reinstate-prlimit64-fallback.patch"
 709                                      "glibc-supported-locales.patch"
 710                                      "glibc-hurd-clock_t_centiseconds.patch"
 711                                      "glibc-hurd-clock_gettime_monotonic.patch"
 712                                      "glibc-hurd-signal-sa-siginfo.patch"))))
 713    (build-system gnu-build-system)
 714
 715    ;; Glibc's <limits.h> refers to <linux/limit.h>, for instance, so glibc
 716    ;; users should automatically pull Linux headers as well.  On GNU/Hurd,
 717    ;; libc provides <hurd.h>, which includes a bunch of Hurd and Mach headers,
 718    ;; so both should be propagated.
 719    (propagated-inputs
 720     (if (hurd-target?)
 721         `(("hurd-core-headers" ,hurd-core-headers))
 722         `(("kernel-headers" ,linux-libre-headers))))
 723
 724    (outputs '("out" "debug"
 725               "static"))                          ;9 MiB of .a files
 726
 727    (arguments
 728     `(#:out-of-source? #t
 729
 730       ;; The libraries have an empty RUNPATH, but some, such as the versioned
 731       ;; libraries (libdl-2.24.so, etc.) have ld.so marked as NEEDED.  Since
 732       ;; these libraries are always going to be found anyway, just skip
 733       ;; RUNPATH checks.
 734       #:validate-runpath? #f
 735
 736       #:modules ((ice-9 ftw)
 737                  (srfi srfi-26)
 738                  (guix build utils)
 739                  (guix build gnu-build-system))
 740
 741       #:configure-flags
 742       (list "--sysconfdir=/etc"
 743
 744             ;; Installing a locale archive with all the locales is to
 745             ;; expensive (~100 MiB), so we rely on users to install the
 746             ;; locales they really want.
 747             ;;
 748             ;; Set the default locale path.  In practice, $LOCPATH may be
 749             ;; defined to point whatever locales users want.  However, setuid
 750             ;; binaries don't honor $LOCPATH, so they'll instead look into
 751             ;; $libc_cv_complocaledir; we choose /run/current-system/locale/X.Y,
 752             ;; with the idea that it is going to be populated by the sysadmin.
 753             ;; The "X.Y" sub-directory is because locale data formats are
 754             ;; incompatible across libc versions; see
 755             ;; <https://lists.gnu.org/archive/html/guix-devel/2015-08/msg00737.html>.
 756             ;;
 757             ;; `--localedir' is not honored, so work around it.
 758             ;; See <http://sourceware.org/ml/libc-alpha/2013-03/msg00093.html>.
 759             (string-append "libc_cv_complocaledir=/run/current-system/locale/"
 760                            ,(version-major+minor version))
 761
 762             (string-append "--with-headers="
 763                            (assoc-ref ,(if (%current-target-system)
 764                                            '%build-target-inputs
 765                                            '%build-inputs)
 766                                       "kernel-headers")
 767                            "/include")
 768
 769             ;; This is the default for most architectures as of GNU libc 2.26,
 770             ;; but we specify it explicitly for clarity and consistency.  See
 771             ;; "kernel-features.h" in the GNU libc for details.
 772             "--enable-kernel=3.2.0"
 773
 774             ;; Use our Bash instead of /bin/sh.
 775             (string-append "BASH_SHELL="
 776                            (assoc-ref %build-inputs "bash")
 777                            "/bin/bash")
 778
 779             ;; On GNU/Hurd we get discarded-qualifiers warnings for
 780             ;; 'device_write_inband' among other things.  Ignore them.
 781             ,@(if (hurd-target?)
 782                   '("--disable-werror")
 783                   '()))
 784
 785       #:tests? #f                                 ; XXX
 786       #:phases (modify-phases %standard-phases
 787                  (add-before
 788                   'configure 'pre-configure
 789                   (lambda* (#:key inputs native-inputs outputs
 790                                   #:allow-other-keys)
 791                     (let* ((out  (assoc-ref outputs "out"))
 792                            (bin  (string-append out "/bin"))
 793                            ;; FIXME: Normally we would look it up only in INPUTS
 794                            ;; but cross-base uses it as a native input.
 795                            (bash (or (assoc-ref inputs "static-bash")
 796                                      (assoc-ref native-inputs "static-bash"))))
 797                       ;; Install the rpc data base file under `$out/etc/rpc'.
 798                       ;; FIXME: Use installFlags = [ "sysconfdir=$(out)/etc" ];
 799                       (substitute* "sunrpc/Makefile"
 800                         (("^\\$\\(inst_sysconfdir\\)/rpc(.*)$" _ suffix)
 801                          (string-append out "/etc/rpc" suffix "\n"))
 802                         (("^install-others =.*$")
 803                          (string-append "install-others = " out "/etc/rpc\n")))
 804
 805                       (substitute* "Makeconfig"
 806                         ;; According to
 807                         ;; <http://www.linuxfromscratch.org/lfs/view/stable/chapter05/glibc.html>,
 808                         ;; linking against libgcc_s is not needed with GCC
 809                         ;; 4.7.1.
 810                         ((" -lgcc_s") ""))
 811
 812                       ;; Have `system' use that Bash.
 813                       (substitute* "sysdeps/posix/system.c"
 814                         (("#define[[:blank:]]+SHELL_PATH.*$")
 815                          (format #f "#define SHELL_PATH \"~a/bin/bash\"\n"
 816                                  bash)))
 817
 818                       ;; Same for `popen'.
 819                       (substitute* "libio/iopopen.c"
 820                         (("/bin/sh")
 821                          (string-append bash "/bin/sh")))
 822
 823                       ;; Same for the shell used by the 'exec' functions for
 824                       ;; scripts that lack a shebang.
 825                       (substitute* (find-files "." "^paths\\.h$")
 826                         (("#define[[:blank:]]+_PATH_BSHELL[[:blank:]].*$")
 827                          (string-append "#define _PATH_BSHELL \""
 828                                         bash "/bin/sh\"\n")))
 829
 830                       ;; Nscd uses __DATE__ and __TIME__ to create a string to
 831                       ;; make sure the client and server come from the same
 832                       ;; libc.  Use something deterministic instead.
 833                       (substitute* "nscd/nscd_stat.c"
 834                         (("static const char compilation\\[21\\] =.*$")
 835                          (string-append
 836                           "static const char compilation[21] = \""
 837                           (string-take (basename out) 20) "\";\n")))
 838
 839                       ;; Make sure we don't retain a reference to the
 840                       ;; bootstrap Perl.
 841                       (substitute* "malloc/mtrace.pl"
 842                         (("^#!.*")
 843                          ;; The shebang can be omitted, because there's the
 844                          ;; "bilingual" eval/exec magic at the top of the file.
 845                          "")
 846                         (("exec @PERL@")
 847                          "exec perl"))
 848
 849                       #t)))
 850
 851                  (add-after 'install 'move-static-libs
 852                    (lambda* (#:key outputs #:allow-other-keys)
 853                      ;; Move static libraries to the "static" output.
 854                      (define (static-library? file)
 855                        ;; Return true if FILE is a static library.  The
 856                        ;; "_nonshared.a" files are referred to by libc.so,
 857                        ;; libpthread.so, etc., which are in fact linker
 858                        ;; scripts.
 859                        (and (string-suffix? ".a" file)
 860                             (not (string-contains file "_nonshared"))))
 861
 862                      (define (linker-script? file)
 863                        ;; Guess whether FILE, a ".a" file, is actually a
 864                        ;; linker script.
 865                        (and (not (ar-file? file))
 866                             (not (elf-file? file))))
 867
 868                      (let* ((out    (assoc-ref outputs "out"))
 869                             (lib    (string-append out "/lib"))
 870                             (files  (scandir lib static-library?))
 871                             (static (assoc-ref outputs "static"))
 872                             (slib   (string-append static "/lib")))
 873                        (mkdir-p slib)
 874                        (for-each (lambda (base)
 875                                    (rename-file (string-append lib "/" base)
 876                                                 (string-append slib "/" base)))
 877                                  files)
 878
 879                        ;; Usually libm.a is a linker script so we need to
 880                        ;; change the file names in there to refer to STATIC
 881                        ;; instead of OUT.
 882                        (for-each (lambda (ld-script)
 883                                    (substitute* ld-script
 884                                      ((out) static)))
 885                                  (filter linker-script?
 886                                          (map (cut string-append slib "/" <>)
 887                                               files)))
 888                        #t)))
 889
 890                  ,@(if (hurd-target?)
 891                        '((add-after 'install 'augment-libc.so
 892                            (lambda* (#:key outputs #:allow-other-keys)
 893                              (let* ((out (assoc-ref outputs "out")))
 894                                (substitute* (string-append out "/lib/libc.so")
 895                                  (("/[^ ]+/lib/libc.so.0.3")
 896                                   (string-append out "/lib/libc.so.0.3"
 897                                                  " libmachuser.so libhurduser.so"))))
 898                              #t)))
 899                        '()))))
 900
 901    (inputs `(("static-bash" ,static-bash)))
 902
 903    ;; To build the manual, we need Texinfo and Perl.  Gettext is needed to
 904    ;; install the message catalogs, with 'msgfmt'.
 905    (native-inputs `(("texinfo" ,texinfo)
 906                     ("perl" ,perl)
 907                     ("bison" ,bison)
 908                     ("gettext" ,gettext-minimal)
 909                     ("python" ,python-minimal)
 910
 911                     ,@(if (hurd-target?)
 912                           `(("mig" ,mig)
 913                             ("perl" ,perl))
 914                           '())))
 915
 916    (native-search-paths
 917     ;; Search path for packages that provide locale data.  This is useful
 918     ;; primarily in build environments.  Use 'GUIX_LOCPATH' rather than
 919     ;; 'LOCPATH' to avoid interference with the host system's libc on foreign
 920     ;; distros.
 921     (list (search-path-specification
 922            (variable "GUIX_LOCPATH")
 923            (files '("lib/locale")))))
 924
 925    (synopsis "The GNU C Library")
 926    (description
 927     "Any Unix-like operating system needs a C library: the library which
 928 defines the \"system calls\" and other basic facilities such as open, malloc,
 929 printf, exit...
 930
 931 The GNU C library is used as the C library in the GNU system and most systems
 932 with the Linux kernel.")
 933    (license lgpl2.0+)
 934    (home-page "https://www.gnu.org/software/libc/")))
 935
 936 ;; Below are old libc versions, which we use mostly to build locale data in
 937 ;; the old format (which the new libc cannot cope with.)
 938
 939 (define-public glibc-2.30
 940   (package
 941     (inherit glibc)
 942     (version "2.30")
 943     (source (origin
 944               (inherit (package-source glibc))
 945               (uri (string-append "mirror://gnu/glibc/glibc-" version ".tar.xz"))
 946               (sha256
 947                (base32
 948                 "1bxqpg91d02qnaz837a5kamm0f43pr1il4r9pknygywsar713i72"))
 949               (patches (search-patches "glibc-ldd-x86_64.patch"
 950                                        "glibc-CVE-2019-19126.patch"
 951                                        "glibc-hidden-visibility-ldconfig.patch"
 952                                        "glibc-versioned-locpath.patch"
 953                                        "glibc-allow-kernel-2.6.32.patch"
 954                                        "glibc-reinstate-prlimit64-fallback.patch"
 955                                        "glibc-2.29-supported-locales.patch"))))))
 956
 957 (define-public glibc-2.29
 958   (package
 959     (inherit glibc)
 960     (version "2.29")
 961     (source (origin
 962               (inherit (package-source glibc))
 963               (uri (string-append "mirror://gnu/glibc/glibc-" version ".tar.xz"))
 964               (sha256
 965                (base32
 966                 "0jzh58728flfh939a8k9pi1zdyalfzlxmwra7k0rzji5gvavivpk"))
 967               (patches (search-patches "glibc-ldd-x86_64.patch"
 968                                        "glibc-CVE-2019-7309.patch"
 969                                        "glibc-CVE-2019-9169.patch"
 970                                        "glibc-2.29-git-updates.patch"
 971                                        "glibc-hidden-visibility-ldconfig.patch"
 972                                        "glibc-versioned-locpath.patch"
 973                                        "glibc-allow-kernel-2.6.32.patch"
 974                                        "glibc-reinstate-prlimit64-fallback.patch"
 975                                        "glibc-2.29-supported-locales.patch"))))))
 976
 977 (define-public glibc-2.28
 978   (package
 979     (inherit glibc)
 980     (version "2.28")
 981     (source (origin
 982               (inherit (package-source glibc))
 983               (uri (string-append "mirror://gnu/glibc/glibc-" version ".tar.xz"))
 984               (sha256
 985                (base32
 986                 "10iha5ynvdj5m62vgpgqbq4cwvc2yhyl2w9yyyjgfxmdmx8h145i"))
 987               (patches (search-patches "glibc-ldd-x86_64.patch"
 988                                        "glibc-2.28-git-fixes.patch"
 989                                        "glibc-hidden-visibility-ldconfig.patch"
 990                                        "glibc-versioned-locpath.patch"
 991                                        "glibc-allow-kernel-2.6.32.patch"
 992                                        "glibc-reinstate-prlimit64-fallback.patch"
 993                                        "glibc-hurd-magic-pid.patch"
 994                                        "glibc-2.28-supported-locales.patch"))))))
 995
 996 (define-public glibc-2.27
 997   (package
 998     (inherit glibc)
 999     (version "2.27")
1000     (source (origin
1001               (inherit (package-source glibc))
1002               (uri (string-append "mirror://gnu/glibc/glibc-" version ".tar.xz"))
1003               (sha256
1004                (base32
1005                 "0wpwq7gsm7sd6ysidv0z575ckqdg13cr2njyfgrbgh4f65adwwji"))
1006               (patches (search-patches "glibc-ldd-x86_64.patch"
1007                                        "glibc-2.27-git-fixes.patch"
1008                                        "glibc-hidden-visibility-ldconfig.patch"
1009                                        "glibc-versioned-locpath.patch"
1010                                        "glibc-allow-kernel-2.6.32.patch"
1011                                        "glibc-reinstate-prlimit64-fallback.patch"
1012                                        "glibc-2.27-supported-locales.patch"
1013                                        "glibc-CVE-2018-11236.patch"
1014                                        "glibc-CVE-2018-11237.patch"))))
1015     (properties `((lint-hidden-cve . ("CVE-2017-18269")))))) ; glibc-2.27-git-fixes
1016
1017 (define-public glibc-2.26
1018   (package
1019     (inherit glibc)
1020     ;; This version number corresponds to the output of `git describe` and the
1021     ;; archive can be generated by checking out the commit ID and running:
1022     ;;  git archive --prefix=$(git describe)/ HEAD | xz > $(git describe).tar.xz
1023     ;; See <https://bugs.gnu.org/29406> for why this was necessary.
1024     (version "2.26.105-g0890d5379c")
1025     (source (origin
1026               (inherit (package-source glibc))
1027               (uri (string-append "https://alpha.gnu.org/gnu/guix/mirror/"
1028                                   "glibc-" (version-major+minor version) "-"
1029                                   (caddr (string-split version #\.)) ".tar.xz"))
1030               (sha256
1031                (base32
1032                 "1jck0c1i248sn02rvsfjykk77qncma34bjq89dyy2irwm50d7s3g"))
1033               (patches (search-patches "glibc-ldd-x86_64.patch"
1034                                        "glibc-versioned-locpath.patch"
1035                                        "glibc-allow-kernel-2.6.32.patch"))))))
1036
1037 (define-public glibc-2.25
1038   (package
1039     (inherit glibc)
1040     (version "2.25")
1041     (source (origin
1042               (inherit (package-source glibc))
1043               (uri (string-append "mirror://gnu/glibc/glibc-"
1044                                   version ".tar.xz"))
1045               (sha256
1046                (base32
1047                 "1813dzkgw6v8q8q1m4v96yfis7vjqc9pslqib6j9mrwh6fxxjyq6"))
1048               (patches (search-patches "glibc-ldd-x86_64.patch"
1049                                        "glibc-versioned-locpath.patch"
1050                                        "glibc-vectorized-strcspn-guards.patch"
1051                                        "glibc-CVE-2017-1000366-pt1.patch"
1052                                        "glibc-CVE-2017-1000366-pt2.patch"
1053                                        "glibc-CVE-2017-1000366-pt3.patch"))))))
1054
1055 (define-public glibc-2.24
1056   (package
1057     (inherit glibc)
1058     (version "2.24")
1059     (source (origin
1060               (inherit (package-source glibc))
1061               (uri (string-append "mirror://gnu/glibc/glibc-"
1062                                   version ".tar.xz"))
1063               (sha256
1064                (base32
1065                 "1lxmprg9gm73gvafxd503x70z32phwjzcy74i0adfi6ixzla7m4r"))
1066               (patches (search-patches "glibc-ldd-x86_64.patch"
1067                                        "glibc-versioned-locpath.patch"
1068                                        "glibc-vectorized-strcspn-guards.patch"
1069                                        "glibc-CVE-2015-5180.patch"
1070                                        "glibc-CVE-2017-1000366-pt1.patch"
1071                                        "glibc-CVE-2017-1000366-pt2.patch"
1072                                        "glibc-CVE-2017-1000366-pt3.patch"))))))
1073
1074 (define-public glibc-2.23
1075   (package
1076     (inherit glibc)
1077     (version "2.23")
1078     (source (origin
1079               (inherit (package-source glibc))
1080               (uri (string-append "mirror://gnu/glibc/glibc-"
1081                                   version ".tar.xz"))
1082               (sha256
1083                (base32
1084                 "1s8krs3y2n6pzav7ic59dz41alqalphv7vww4138ag30wh0fpvwl"))
1085               (patches (search-patches "glibc-ldd-x86_64.patch"
1086                                        "glibc-versioned-locpath.patch"
1087                                        "glibc-vectorized-strcspn-guards.patch"
1088                                        "glibc-CVE-2015-5180.patch"
1089                                        "glibc-CVE-2016-3075.patch"
1090                                        "glibc-CVE-2016-3706.patch"
1091                                        "glibc-CVE-2016-4429.patch"
1092                                        "glibc-CVE-2017-1000366-pt1.patch"
1093                                        "glibc-CVE-2017-1000366-pt2.patch"
1094                                        "glibc-CVE-2017-1000366-pt3.patch"))))))
1095
1096 (define-public glibc-2.22
1097   (package
1098     (inherit glibc)
1099     (version "2.22")
1100     (source (origin
1101               (inherit (package-source glibc))
1102               (uri (string-append "mirror://gnu/glibc/glibc-"
1103                                   version ".tar.xz"))
1104               (sha256
1105                (base32
1106                 "0j49682pm2nh4qbdw35bas82p1pgfnz4d2l7iwfyzvrvj0318wzb"))
1107               (patches (search-patches "glibc-ldd-x86_64.patch"
1108                                        "glibc-o-largefile.patch"
1109                                        "glibc-vectorized-strcspn-guards.patch"
1110                                        "glibc-CVE-2015-5180.patch"
1111                                        "glibc-CVE-2015-7547.patch"
1112                                        "glibc-CVE-2016-3075.patch"
1113                                        "glibc-CVE-2016-3706.patch"
1114                                        "glibc-CVE-2016-4429.patch"
1115                                        "glibc-CVE-2017-1000366-pt1.patch"
1116                                        "glibc-CVE-2017-1000366-pt2.patch"
1117                                        "glibc-CVE-2017-1000366-pt3.patch"))))
1118     (arguments
1119       (substitute-keyword-arguments (package-arguments glibc)
1120         ((#:phases phases)
1121          `(modify-phases ,phases
1122             (add-before 'configure 'fix-pwd
1123               (lambda _
1124                 ;; Use `pwd' instead of `/bin/pwd' for glibc-2.22.
1125                 (substitute* "configure"
1126                   (("/bin/pwd") "pwd"))
1127                 #t))))))))
1128
1129 (define-public (make-gcc-libc base-gcc libc)
1130   "Return a GCC that targets LIBC."
1131   (package (inherit base-gcc)
1132            (name (string-append (package-name base-gcc) "-"
1133                                 (package-name libc) "-"
1134                                 (package-version libc)))
1135            (arguments
1136             (ensure-keyword-arguments (package-arguments base-gcc)
1137                                       '(#:implicit-inputs? #f)))
1138            (native-inputs
1139             `(,@(package-native-inputs base-gcc)
1140               ,@(append (fold alist-delete (%final-inputs) '("libc" "libc:static")))
1141               ("libc" ,libc)
1142               ("libc:static" ,libc "static")))))
1143
1144 (define-public (make-glibc-locales glibc)
1145   (package
1146     (inherit glibc)
1147     (name "glibc-locales")
1148     (source (origin (inherit (package-source glibc))
1149                     ;; The patch for glibc 2.28 and earlier replaces the same
1150                     ;; content, but the context in the patch is different
1151                     ;; enough to fail to merge.
1152                     (patches (cons (search-patch
1153                                     (if (version>=? (package-version glibc)
1154                                                     "2.29")
1155                                         "glibc-locales.patch"
1156                                         "glibc-locales-2.28.patch"))
1157                                    (origin-patches (package-source glibc))))))
1158     (synopsis "All the locales supported by the GNU C Library")
1159     (description
1160      "This package provides all the locales supported by the GNU C Library,
1161 more than 400 in total.  To use them set the @code{LOCPATH} environment variable
1162 to the @code{share/locale} sub-directory of this package.")
1163     (outputs '("out"))                            ;110+ MiB
1164     (native-search-paths '())
1165     (arguments
1166      (let ((args `(#:tests? #f #:strip-binaries? #f
1167                    ,@(package-arguments glibc))))
1168        (substitute-keyword-arguments args
1169          ((#:modules modules '((guix build utils)
1170                                (guix build gnu-build-system)))
1171           `((srfi srfi-11)
1172             (gnu build locale)
1173             ,@modules))
1174          ((#:imported-modules modules '())
1175           `((gnu build locale)
1176             ,@%gnu-build-system-modules))
1177          ((#:phases phases)
1178           `(modify-phases ,phases
1179              (replace 'build
1180                (lambda _
1181                  (invoke "make" "localedata/install-locales"
1182                          "-j" (number->string (parallel-job-count)))))
1183              (add-after 'build 'symlink-normalized-codesets
1184                (lambda* (#:key outputs #:allow-other-keys)
1185                  ;; The above phase does not install locales with names using
1186                  ;; the "normalized codeset."  Thus, create symlinks like:
1187                  ;;   en_US.utf8 -> en_US.UTF-8
1188                  (define (locale-directory? file stat)
1189                    (and (file-is-directory? file)
1190                         (string-index (basename file) #\_)
1191                         (string-rindex (basename file) #\.)))
1192
1193                  (let* ((out (assoc-ref outputs "out"))
1194                         (locales (find-files out locale-directory?
1195                                              #:directories? #t)))
1196                    (for-each (lambda (directory)
1197                                (let*-values (((base)
1198                                               (basename directory))
1199                                              ((name codeset)
1200                                               (locale->name+codeset base))
1201                                              ((normalized)
1202                                               (normalize-codeset codeset)))
1203                                  (unless (string=? codeset normalized)
1204                                    (symlink base
1205                                             (string-append (dirname directory)
1206                                                            "/" name "."
1207                                                            normalized)))))
1208                              locales)
1209                    #t)))
1210              (delete 'install)
1211              (delete 'move-static-libs)))
1212          ((#:configure-flags flags)
1213           `(append ,flags
1214                    ;; Use $(libdir)/locale/X.Y as is the case by default.
1215                    (list (string-append "libc_cv_complocaledir="
1216                                         (assoc-ref %outputs "out")
1217                                         "/lib/locale/"
1218                                         ,(version-major+minor
1219                                           (package-version glibc)))))))))))
1220
1221 (define-public (make-glibc-utf8-locales glibc)
1222   (package
1223     (name "glibc-utf8-locales")
1224     (version (package-version glibc))
1225     (source #f)
1226     (build-system trivial-build-system)
1227     (arguments
1228      `(#:modules ((guix build utils))
1229        #:builder (begin
1230                    (use-modules (guix build utils))
1231
1232                    (let* ((libc      (assoc-ref %build-inputs "glibc"))
1233                           (gzip      (assoc-ref %build-inputs "gzip"))
1234                           (out       (assoc-ref %outputs "out"))
1235                           (localedir (string-append out "/lib/locale/"
1236                                                     ,(version-major+minor version))))
1237                      ;; 'localedef' needs 'gzip'.
1238                      (setenv "PATH" (string-append libc "/bin:" gzip "/bin"))
1239
1240                      (mkdir-p localedir)
1241                      (for-each (lambda (locale)
1242                                  (define file
1243                                    ;; Use the "normalized codeset" by
1244                                    ;; default--e.g., "en_US.utf8".
1245                                    (string-append localedir "/" locale ".utf8"))
1246
1247                                  (invoke "localedef" "--no-archive"
1248                                          "--prefix" localedir
1249                                          "-i" locale
1250                                          "-f" "UTF-8" file)
1251
1252                                  ;; For backward compatibility with Guix
1253                                  ;; <= 0.8.3, add "xx_YY.UTF-8".
1254                                  (symlink (string-append locale ".utf8")
1255                                           (string-append localedir "/"
1256                                                          locale ".UTF-8")))
1257
1258                                ;; These are the locales commonly used for
1259                                ;; tests---e.g., in Guile's i18n tests.
1260                                '("de_DE" "el_GR" "en_US" "fr_FR" "tr_TR"))
1261                      #t))))
1262     (native-inputs `(("glibc" ,glibc)
1263                      ("gzip" ,gzip)))
1264     (synopsis "Small sample of UTF-8 locales")
1265     (description
1266      "This package provides a small sample of UTF-8 locales mostly useful in
1267 test environments.")
1268     (home-page (package-home-page glibc))
1269     (license (package-license glibc))))
1270
1271 (define-public glibc-locales
1272   (make-glibc-locales glibc))
1273 (define-public glibc-utf8-locales
1274   (make-glibc-utf8-locales glibc))
1275
1276 ;; Packages provided to ease use of binaries linked against the previous libc.
1277 (define-public glibc-locales-2.29
1278   (package (inherit (make-glibc-locales glibc-2.29))
1279            (name "glibc-locales-2.29")))
1280 (define-public glibc-utf8-locales-2.29
1281   (package (inherit (make-glibc-utf8-locales glibc-2.29))
1282            (name "glibc-utf8-locales-2.29")))
1283
1284 (define-public which
1285   (package
1286     (name "which")
1287     (version "2.21")
1288     (source (origin
1289               (method url-fetch)
1290               (uri (string-append "mirror://gnu/which/which-"
1291                                   version ".tar.gz"))
1292               (sha256
1293                (base32
1294                 "1bgafvy3ypbhhfznwjv1lxmd6mci3x1byilnnkc7gcr486wlb8pl"))))
1295     (build-system gnu-build-system)
1296     (home-page "https://gnu.org/software/which/")
1297     (synopsis "Find full path of shell commands")
1298     (description
1299      "The which program finds the location of executables in PATH, with a
1300 variety of options.  It is an alternative to the shell \"type\" built-in
1301 command.")
1302     (license gpl3+))) ; some files are under GPLv2+
1303
1304 (define-public glibc/hurd-headers
1305   (package (inherit glibc)
1306     (name "glibc-hurd-headers")
1307     (outputs '("out"))
1308     (propagated-inputs `(("gnumach-headers" ,gnumach-headers)
1309                          ("hurd-headers" ,hurd-headers)))
1310     (native-inputs
1311      `(("mig" ,(if (%current-target-system)
1312                    ;; XXX: When targeting i586-pc-gnu, we need a 32-bit MiG,
1313                    ;; hence this hack.
1314                    (package
1315                      (inherit mig)
1316                      (arguments `(#:system "i686-linux")))
1317                    mig))
1318        ,@(package-native-inputs glibc)))
1319     (arguments
1320      (substitute-keyword-arguments (package-arguments glibc)
1321        ;; We just pass the flags really needed to build the headers.
1322        ((#:configure-flags _)
1323         `(list "--enable-add-ons"
1324                "--host=i586-pc-gnu"))
1325        ((#:phases _)
1326         '(modify-phases %standard-phases
1327            (replace 'install
1328              (lambda* (#:key outputs #:allow-other-keys)
1329                (invoke "make" "install-headers")
1330
1331                ;; Make an empty stubs.h to work around not being able to
1332                ;; produce a valid stubs.h and causing the build to fail. See
1333                ;; <http://lists.gnu.org/archive/html/guix-devel/2014-04/msg00233.html>.
1334                (let ((out (assoc-ref outputs "out")))
1335                  (close-port
1336                   (open-output-file
1337                    (string-append out "/include/gnu/stubs.h"))))
1338                #t))
1339            (delete 'build)))))))                  ; nothing to build
1340
1341 (define-public tzdata
1342   (package
1343     (name "tzdata")
1344     (version "2020a")
1345     (source (origin
1346              (method url-fetch)
1347              (uri (string-append
1348                    "https://data.iana.org/time-zones/releases/tzdata"
1349                    version ".tar.gz"))
1350              (sha256
1351               (base32
1352                "18lrp0zh8m931jjlrv8lvjas4ka5dfkzdbwnbw5lwd2dlbn62wal"))))
1353     (build-system gnu-build-system)
1354     (arguments
1355      '(#:tests? #f
1356        #:make-flags (let ((out (assoc-ref %outputs "out"))
1357                           (tmp (getenv "TMPDIR")))
1358                       (list (string-append "TOPDIR=" out)
1359                             (string-append "TZDIR=" out "/share/zoneinfo")
1360                             (string-append "TZDEFAULT=" out
1361                                            "/share/zoneinfo/localtime")
1362
1363                             ;; Likewise for the C library routines.
1364                             (string-append "LIBDIR=" tmp "/lib")
1365                             (string-append "MANDIR=" tmp "/man")
1366
1367                             "AWK=awk"
1368                             "CC=gcc"))
1369        #:modules ((guix build utils)
1370                   (guix build gnu-build-system)
1371                   (srfi srfi-1))
1372        #:phases
1373        (modify-phases %standard-phases
1374          (replace 'unpack
1375            (lambda* (#:key source inputs #:allow-other-keys)
1376              (invoke "tar" "xvf" source)
1377              (invoke "tar" "xvf" (assoc-ref inputs "tzcode"))))
1378          (add-after 'install 'post-install
1379            (lambda* (#:key outputs #:allow-other-keys)
1380              ;; Move data in the right place.
1381              (let ((out (assoc-ref outputs "out")))
1382                ;; Discard zic, dump, and tzselect, already
1383                ;; provided by glibc.
1384                (delete-file-recursively (string-append out "/usr"))
1385                (symlink (string-append out "/share/zoneinfo")
1386                         (string-append out "/share/zoneinfo/posix"))
1387                (delete-file-recursively
1388                 (string-append out "/share/zoneinfo-posix"))
1389                (copy-recursively (string-append out "/share/zoneinfo-leaps")
1390                                  (string-append out "/share/zoneinfo/right"))
1391                (delete-file-recursively
1392                 (string-append out "/share/zoneinfo-leaps"))
1393                #t)))
1394          (delete 'configure))))
1395     (inputs `(("tzcode" ,(origin
1396                           (method url-fetch)
1397                           (uri (string-append
1398                                 "https://data.iana.org/time-zones/releases/tzcode"
1399                                 version ".tar.gz"))
1400                           (sha256
1401                            (base32
1402                             "0sfnlqw1p93r7klny69rwr94fh22mz632h52phgzfgg01q9gfakx"))))))
1403     (home-page "https://www.iana.org/time-zones")
1404     (synopsis "Database of current and historical time zones")
1405     (description "The Time Zone Database (often called tz or zoneinfo)
1406 contains code and data that represent the history of local time for many
1407 representative locations around the globe.  It is updated periodically to
1408 reflect changes made by political bodies to time zone boundaries, UTC offsets,
1409 and daylight-saving rules.")
1410     (license public-domain)))
1411
1412 ;;; A "fixed" version of tzdata, which is used in the test suites of glib and R
1413 ;;; and a few other places. We can update this whenever we are able to rebuild
1414 ;;; thousands of packages (for example, in a core-updates rebuild). This package
1415 ;;; will typically be obsolete and should never be referred to by a built
1416 ;;; package.
1417 (define-public tzdata-for-tests
1418   (hidden-package
1419    (package
1420      (inherit tzdata)
1421      (version "2019c")
1422      (source (origin
1423                (method url-fetch)
1424                (uri (string-append
1425                      "https://data.iana.org/time-zones/releases/tzdata"
1426                      version ".tar.gz"))
1427                (sha256
1428                 (base32
1429                  "0z7w1yv37cfk8yhix2cillam091vgp1j4g8fv84261q9mdnq1ivr"))))
1430      (inputs
1431       `(("tzcode" ,(origin
1432                      (method url-fetch)
1433                      (uri (string-append
1434                            "https://data.iana.org/time-zones/releases/tzcode"
1435                            version ".tar.gz"))
1436                      (sha256
1437                       (base32
1438                        "1m3y2rnf1nggxxhxplab5zdd5whvar3ijyrv7lifvm82irkd7szn")))))))))
1439
1440 (define-public libiconv
1441   (package
1442     (name "libiconv")
1443     (version "1.15")
1444     (source (origin
1445               (method url-fetch)
1446               (uri (string-append "mirror://gnu/libiconv/libiconv-"
1447                                   version ".tar.gz"))
1448               (sha256
1449                (base32
1450                 "0y1ij745r4p48mxq84rax40p10ln7fc7m243p8k8sia519i3dxfc"))
1451               (modules '((guix build utils)))
1452               (snippet
1453                ;; Work around "declared gets" error on glibc systems (fixed by
1454                ;; Gnulib commit 66712c23388e93e5c518ebc8515140fa0c807348.)
1455                '(begin
1456                   (substitute* "srclib/stdio.in.h"
1457                     (("^#undef gets") "")
1458                     (("^_GL_WARN_ON_USE \\(gets.*") ""))
1459                   #t))))
1460     (build-system gnu-build-system)
1461     (synopsis "Character set conversion library")
1462     (description
1463      "libiconv provides an implementation of the iconv function for systems
1464 that lack it.  iconv is used to convert between character encodings in a
1465 program.  It supports a wide variety of different encodings.")
1466     (home-page "https://www.gnu.org/software/libiconv/")
1467     (license lgpl3+)))
1468
1469 (define* (libiconv-if-needed #:optional (target (%current-target-system)))
1470   "Return either a libiconv package specification to include in a dependency
1471 list for platforms that have an incomplete libc, or the empty list.  If a
1472 package needs iconv ,@(libiconv-if-needed) should be added."
1473   ;; POSIX C libraries provide iconv.  Platforms with an incomplete libc
1474   ;; without iconv, such as MinGW, must return the then clause.
1475   (if (target-mingw? target)
1476       `(("libiconv" ,libiconv))
1477       '()))
1478
1479 (define-public (canonical-package package)
1480   ;; Avoid circular dependency by lazily resolving 'commencement'.
1481   (let* ((iface (resolve-interface '(gnu packages commencement)))
1482          (proc  (module-ref iface 'canonical-package)))
1483     (proc package)))
1484
1485 (define-public (%final-inputs)
1486   "Return the list of \"final inputs\"."
1487   ;; Avoid circular dependency by lazily resolving 'commencement'.
1488   (let ((iface (resolve-interface '(gnu packages commencement))))
1489     (module-ref iface '%final-inputs)))
1490
1491 ;;; base.scm ends here