gnu/packages/base.scm

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