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 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                  (add-before
 685                   'configure 'pre-configure
 686                   (lambda* (#:key inputs native-inputs outputs
 687                                   #:allow-other-keys)
 688                     (let* ((out  (assoc-ref outputs "out"))
 689                            (bin  (string-append out "/bin"))
 690                            ;; FIXME: Normally we would look it up only in INPUTS
 691                            ;; but cross-base uses it as a native input.
 692                            (bash (or (assoc-ref inputs "static-bash")
 693                                      (assoc-ref native-inputs "static-bash"))))
 694                       ;; Install the rpc data base file under `$out/etc/rpc'.
 695                       ;; FIXME: Use installFlags = [ "sysconfdir=$(out)/etc" ];
 696                       (substitute* "sunrpc/Makefile"
 697                         (("^\\$\\(inst_sysconfdir\\)/rpc(.*)$" _ suffix)
 698                          (string-append out "/etc/rpc" suffix "\n"))
 699                         (("^install-others =.*$")
 700                          (string-append "install-others = " out "/etc/rpc\n")))
 701
 702                       (substitute* "Makeconfig"
 703                         ;; According to
 704                         ;; <http://www.linuxfromscratch.org/lfs/view/stable/chapter05/glibc.html>,
 705                         ;; linking against libgcc_s is not needed with GCC
 706                         ;; 4.7.1.
 707                         ((" -lgcc_s") ""))
 708
 709                       ;; Have `system' use that Bash.
 710                       (substitute* "sysdeps/posix/system.c"
 711                         (("#define[[:blank:]]+SHELL_PATH.*$")
 712                          (format #f "#define SHELL_PATH \"~a/bin/bash\"\n"
 713                                  bash)))
 714
 715                       ;; Same for `popen'.
 716                       (substitute* "libio/iopopen.c"
 717                         (("/bin/sh")
 718                          (string-append bash "/bin/sh")))
 719
 720                       ;; Same for the shell used by the 'exec' functions for
 721                       ;; scripts that lack a shebang.
 722                       (substitute* (find-files "." "^paths\\.h$")
 723                         (("#define[[:blank:]]+_PATH_BSHELL[[:blank:]].*$")
 724                          (string-append "#define _PATH_BSHELL \""
 725                                         bash "/bin/sh\"\n")))
 726
 727                       ;; Nscd uses __DATE__ and __TIME__ to create a string to
 728                       ;; make sure the client and server come from the same
 729                       ;; libc.  Use something deterministic instead.
 730                       (substitute* "nscd/nscd_stat.c"
 731                         (("static const char compilation\\[21\\] =.*$")
 732                          (string-append
 733                           "static const char compilation[21] = \""
 734                           (string-take (basename out) 20) "\";\n")))
 735
 736                       ;; Make sure we don't retain a reference to the
 737                       ;; bootstrap Perl.
 738                       (substitute* "malloc/mtrace.pl"
 739                         (("^#!.*")
 740                          ;; The shebang can be omitted, because there's the
 741                          ;; "bilingual" eval/exec magic at the top of the file.
 742                          "")
 743                         (("exec @PERL@")
 744                          "exec perl"))
 745
 746                       #t)))
 747
 748                  (add-after 'install 'move-static-libs
 749                    (lambda* (#:key outputs #:allow-other-keys)
 750                      ;; Move static libraries to the "static" output.
 751                      (define (static-library? file)
 752                        ;; Return true if FILE is a static library.  The
 753                        ;; "_nonshared.a" files are referred to by libc.so,
 754                        ;; libpthread.so, etc., which are in fact linker
 755                        ;; scripts.
 756                        (and (string-suffix? ".a" file)
 757                             (not (string-contains file "_nonshared"))))
 758
 759                      (define (linker-script? file)
 760                        ;; Guess whether FILE, a ".a" file, is actually a
 761                        ;; linker script.
 762                        (and (not (ar-file? file))
 763                             (not (elf-file? file))))
 764
 765                      (let* ((out    (assoc-ref outputs "out"))
 766                             (lib    (string-append out "/lib"))
 767                             (files  (scandir lib static-library?))
 768                             (static (assoc-ref outputs "static"))
 769                             (slib   (string-append static "/lib")))
 770                        (mkdir-p slib)
 771                        (for-each (lambda (base)
 772                                    (rename-file (string-append lib "/" base)
 773                                                 (string-append slib "/" base)))
 774                                  files)
 775
 776                        ;; Usually libm.a is a linker script so we need to
 777                        ;; change the file names in there to refer to STATIC
 778                        ;; instead of OUT.
 779                        (for-each (lambda (ld-script)
 780                                    (substitute* ld-script
 781                                      ((out) static)))
 782                                  (filter linker-script?
 783                                          (map (cut string-append slib "/" <>)
 784                                               files)))
 785                        #t)))
 786
 787                  ,@(if (hurd-target?)
 788                        '((add-after 'install 'augment-libc.so
 789                            (lambda* (#:key outputs #:allow-other-keys)
 790                              (let* ((out (assoc-ref outputs "out")))
 791                                (substitute* (string-append out "/lib/libc.so")
 792                                  (("/[^ ]+/lib/libc.so.0.3")
 793                                   (string-append out "/lib/libc.so.0.3"
 794                                                  " libmachuser.so libhurduser.so"))))
 795                              #t)))
 796                        '()))))
 797
 798    (inputs `(("static-bash" ,static-bash)))
 799
 800    ;; To build the manual, we need Texinfo and Perl.  Gettext is needed to
 801    ;; install the message catalogs, with 'msgfmt'.
 802    (native-inputs `(("texinfo" ,texinfo)
 803                     ("perl" ,perl)
 804                     ("bison" ,bison)
 805                     ("gettext" ,gettext-minimal)
 806
 807                     ,@(if (hurd-target?)
 808                           `(("mig" ,mig)
 809                             ("perl" ,perl))
 810                           '())))
 811
 812    (native-search-paths
 813     ;; Search path for packages that provide locale data.  This is useful
 814     ;; primarily in build environments.  Use 'GUIX_LOCPATH' rather than
 815     ;; 'LOCPATH' to avoid interference with the host system's libc on foreign
 816     ;; distros.
 817     (list (search-path-specification
 818            (variable "GUIX_LOCPATH")
 819            (files '("lib/locale")))))
 820
 821    (synopsis "The GNU C Library")
 822    (description
 823     "Any Unix-like operating system needs a C library: the library which
 824 defines the \"system calls\" and other basic facilities such as open, malloc,
 825 printf, exit...
 826
 827 The GNU C library is used as the C library in the GNU system and most systems
 828 with the Linux kernel.")
 829    (license lgpl2.0+)
 830    (home-page "https://www.gnu.org/software/libc/")))
 831
 832 ;; Below are old libc versions, which we use mostly to build locale data in
 833 ;; the old format (which the new libc cannot cope with.)
 834
 835 (define-public glibc-2.27
 836   (package
 837     (inherit glibc)
 838     (version "2.27")
 839     (source (origin
 840               (inherit (package-source glibc))
 841               (uri (string-append "mirror://gnu/glibc/glibc-" version ".tar.xz"))
 842               (sha256
 843                (base32
 844                 "0wpwq7gsm7sd6ysidv0z575ckqdg13cr2njyfgrbgh4f65adwwji"))
 845               (patches (search-patches "glibc-ldd-x86_64.patch"
 846                                        "glibc-2.27-git-fixes.patch"
 847                                        "glibc-hidden-visibility-ldconfig.patch"
 848                                        "glibc-versioned-locpath.patch"
 849                                        "glibc-allow-kernel-2.6.32.patch"
 850                                        "glibc-reinstate-prlimit64-fallback.patch"))))))
 851
 852 (define-public glibc-2.26
 853   (package
 854     (inherit glibc)
 855     ;; This version number corresponds to the output of `git describe` and the
 856     ;; archive can be generated by checking out the commit ID and running:
 857     ;;  git archive --prefix=$(git describe)/ HEAD | xz > $(git describe).tar.xz
 858     ;; See <https://bugs.gnu.org/29406> for why this was necessary.
 859     (version "2.26.105-g0890d5379c")
 860     (source (origin
 861               (inherit (package-source glibc))
 862               (uri (string-append "https://alpha.gnu.org/gnu/guix/mirror/"
 863                                   "glibc-" (version-major+minor version) "-"
 864                                   (caddr (string-split version #\.)) ".tar.xz"))
 865               (sha256
 866                (base32
 867                 "1jck0c1i248sn02rvsfjykk77qncma34bjq89dyy2irwm50d7s3g"))
 868               (patches (search-patches "glibc-ldd-x86_64.patch"
 869                                        "glibc-versioned-locpath.patch"
 870                                        "glibc-allow-kernel-2.6.32.patch"))))))
 871
 872 (define-public glibc-2.25
 873   (package
 874     (inherit glibc)
 875     (version "2.25")
 876     (source (origin
 877               (inherit (package-source glibc))
 878               (uri (string-append "mirror://gnu/glibc/glibc-"
 879                                   version ".tar.xz"))
 880               (sha256
 881                (base32
 882                 "1813dzkgw6v8q8q1m4v96yfis7vjqc9pslqib6j9mrwh6fxxjyq6"))
 883               (patches (search-patches "glibc-ldd-x86_64.patch"
 884                                        "glibc-versioned-locpath.patch"
 885                                        "glibc-vectorized-strcspn-guards.patch"
 886                                        "glibc-CVE-2017-1000366-pt1.patch"
 887                                        "glibc-CVE-2017-1000366-pt2.patch"
 888                                        "glibc-CVE-2017-1000366-pt3.patch"))))))
 889
 890 (define-public glibc-2.24
 891   (package
 892     (inherit glibc)
 893     (version "2.24")
 894     (source (origin
 895               (inherit (package-source glibc))
 896               (uri (string-append "mirror://gnu/glibc/glibc-"
 897                                   version ".tar.xz"))
 898               (sha256
 899                (base32
 900                 "1lxmprg9gm73gvafxd503x70z32phwjzcy74i0adfi6ixzla7m4r"))
 901               (patches (search-patches "glibc-ldd-x86_64.patch"
 902                                        "glibc-versioned-locpath.patch"
 903                                        "glibc-vectorized-strcspn-guards.patch"
 904                                        "glibc-CVE-2015-5180.patch"
 905                                        "glibc-CVE-2017-1000366-pt1.patch"
 906                                        "glibc-CVE-2017-1000366-pt2.patch"
 907                                        "glibc-CVE-2017-1000366-pt3.patch"))))))
 908
 909 (define-public glibc-2.23
 910   (package
 911     (inherit glibc)
 912     (version "2.23")
 913     (source (origin
 914               (inherit (package-source glibc))
 915               (uri (string-append "mirror://gnu/glibc/glibc-"
 916                                   version ".tar.xz"))
 917               (sha256
 918                (base32
 919                 "1s8krs3y2n6pzav7ic59dz41alqalphv7vww4138ag30wh0fpvwl"))
 920               (patches (search-patches "glibc-ldd-x86_64.patch"
 921                                        "glibc-versioned-locpath.patch"
 922                                        "glibc-vectorized-strcspn-guards.patch"
 923                                        "glibc-CVE-2015-5180.patch"
 924                                        "glibc-CVE-2016-3075.patch"
 925                                        "glibc-CVE-2016-3706.patch"
 926                                        "glibc-CVE-2016-4429.patch"
 927                                        "glibc-CVE-2017-1000366-pt1.patch"
 928                                        "glibc-CVE-2017-1000366-pt2.patch"
 929                                        "glibc-CVE-2017-1000366-pt3.patch"))))))
 930
 931 (define-public glibc-2.22
 932   (package
 933     (inherit glibc)
 934     (version "2.22")
 935     (source (origin
 936               (inherit (package-source glibc))
 937               (uri (string-append "mirror://gnu/glibc/glibc-"
 938                                   version ".tar.xz"))
 939               (sha256
 940                (base32
 941                 "0j49682pm2nh4qbdw35bas82p1pgfnz4d2l7iwfyzvrvj0318wzb"))
 942               (patches (search-patches "glibc-ldd-x86_64.patch"
 943                                        "glibc-o-largefile.patch"
 944                                        "glibc-vectorized-strcspn-guards.patch"
 945                                        "glibc-CVE-2015-5180.patch"
 946                                        "glibc-CVE-2015-7547.patch"
 947                                        "glibc-CVE-2016-3075.patch"
 948                                        "glibc-CVE-2016-3706.patch"
 949                                        "glibc-CVE-2016-4429.patch"
 950                                        "glibc-CVE-2017-1000366-pt1.patch"
 951                                        "glibc-CVE-2017-1000366-pt2.patch"
 952                                        "glibc-CVE-2017-1000366-pt3.patch"))))
 953     (arguments
 954       (substitute-keyword-arguments (package-arguments glibc)
 955         ((#:phases phases)
 956          `(modify-phases ,phases
 957             (add-before 'configure 'fix-pwd
 958               (lambda _
 959                 ;; Use `pwd' instead of `/bin/pwd' for glibc-2.22.
 960                 (substitute* "configure"
 961                   (("/bin/pwd") "pwd"))
 962                 #t))))))))
 963
 964 (define-public glibc-locales
 965   (package
 966     (inherit glibc)
 967     (name "glibc-locales")
 968     (source (origin (inherit (package-source glibc))
 969                     (patches (cons (search-patch "glibc-locales.patch")
 970                                    (origin-patches (package-source glibc))))))
 971     (synopsis "All the locales supported by the GNU C Library")
 972     (description
 973      "This package provides all the locales supported by the GNU C Library,
 974 more than 400 in total.  To use them set the 'LOCPATH' environment variable to
 975 the 'share/locale' sub-directory of this package.")
 976     (outputs '("out"))                            ;110+ MiB
 977     (native-search-paths '())
 978     (arguments
 979      (let ((args `(#:tests? #f #:strip-binaries? #f
 980                    ,@(package-arguments glibc))))
 981        (substitute-keyword-arguments args
 982          ((#:phases phases)
 983           `(modify-phases ,phases
 984              (replace 'build
 985                (lambda _
 986                  (invoke "make" "localedata/install-locales"
 987                          "-j" (number->string (parallel-job-count)))))
 988              (delete 'install)
 989              (delete 'move-static-libs)))
 990          ((#:configure-flags flags)
 991           `(append ,flags
 992                    ;; Use $(libdir)/locale/X.Y as is the case by default.
 993                    (list (string-append "libc_cv_complocaledir="
 994                                         (assoc-ref %outputs "out")
 995                                         "/lib/locale/"
 996                                         ,(version-major+minor
 997                                           (package-version glibc)))))))))))
 998
 999 (define-public glibc-utf8-locales
1000   (package
1001     (name "glibc-utf8-locales")
1002     (version (package-version glibc))
1003     (source #f)
1004     (build-system trivial-build-system)
1005     (arguments
1006      `(#:modules ((guix build utils))
1007        #:builder (begin
1008                    (use-modules (guix build utils))
1009
1010                    (let* ((libc      (assoc-ref %build-inputs "glibc"))
1011                           (gzip      (assoc-ref %build-inputs "gzip"))
1012                           (out       (assoc-ref %outputs "out"))
1013                           (localedir (string-append out "/lib/locale/"
1014                                                     ,(version-major+minor version))))
1015                      ;; 'localedef' needs 'gzip'.
1016                      (setenv "PATH" (string-append libc "/bin:" gzip "/bin"))
1017
1018                      (mkdir-p localedir)
1019                      (for-each (lambda (locale)
1020                                  (define file
1021                                    ;; Use the "normalized codeset" by
1022                                    ;; default--e.g., "en_US.utf8".
1023                                    (string-append localedir "/" locale ".utf8"))
1024
1025                                  (invoke "localedef" "--no-archive"
1026                                          "--prefix" localedir
1027                                          "-i" locale
1028                                          "-f" "UTF-8" file)
1029
1030                                  ;; For backward compatibility with Guix
1031                                  ;; <= 0.8.3, add "xx_YY.UTF-8".
1032                                  (symlink (string-append locale ".utf8")
1033                                           (string-append localedir "/"
1034                                                          locale ".UTF-8")))
1035
1036                                ;; These are the locales commonly used for
1037                                ;; tests---e.g., in Guile's i18n tests.
1038                                '("de_DE" "el_GR" "en_US" "fr_FR" "tr_TR"))
1039                      #t))))
1040     (inputs `(("glibc" ,glibc)
1041               ("gzip" ,gzip)))
1042     (synopsis "Small sample of UTF-8 locales")
1043     (description
1044      "This package provides a small sample of UTF-8 locales mostly useful in
1045 test environments.")
1046     (home-page (package-home-page glibc))
1047     (license (package-license glibc))))
1048
1049 (define-public which
1050   (package
1051     (name "which")
1052     (version "2.21")
1053     (source (origin
1054               (method url-fetch)
1055               (uri (string-append "mirror://gnu/which/which-"
1056                                   version ".tar.gz"))
1057               (sha256
1058                (base32
1059                 "1bgafvy3ypbhhfznwjv1lxmd6mci3x1byilnnkc7gcr486wlb8pl"))))
1060     (build-system gnu-build-system)
1061     (home-page "https://gnu.org/software/which/")
1062     (synopsis "Find full path of shell commands")
1063     (description
1064      "The which program finds the location of executables in PATH, with a
1065 variety of options.  It is an alternative to the shell \"type\" built-in
1066 command.")
1067     (license gpl3+))) ; some files are under GPLv2+
1068
1069 (define-public glibc/hurd-headers
1070   (package (inherit glibc)
1071     (name "glibc-hurd-headers")
1072     (outputs '("out"))
1073     (propagated-inputs `(("gnumach-headers" ,gnumach-headers)
1074                          ("hurd-headers" ,hurd-headers)))
1075     (arguments
1076      (substitute-keyword-arguments (package-arguments glibc)
1077        ;; We just pass the flags really needed to build the headers.
1078        ((#:configure-flags _)
1079         `(list "--enable-add-ons"
1080                "--host=i586-pc-gnu"))
1081        ((#:phases _)
1082         '(modify-phases %standard-phases
1083            (replace 'install
1084              (lambda* (#:key outputs #:allow-other-keys)
1085                (invoke "make" "install-headers")
1086
1087                ;; Make an empty stubs.h to work around not being able to
1088                ;; produce a valid stubs.h and causing the build to fail. See
1089                ;; <http://lists.gnu.org/archive/html/guix-devel/2014-04/msg00233.html>.
1090                (let ((out (assoc-ref outputs "out")))
1091                  (close-port
1092                   (open-output-file
1093                    (string-append out "/include/gnu/stubs.h"))))
1094                #t))
1095            (delete 'build)))))))                  ; nothing to build
1096
1097 (define-public tzdata
1098   (package
1099     (name "tzdata")
1100     (version "2018e")
1101     (source (origin
1102              (method url-fetch)
1103              (uri (string-append
1104                    "https://www.iana.org/time-zones/repository/releases/tzdata"
1105                    version ".tar.gz"))
1106              (sha256
1107               (base32
1108                "0bk97fv2i5ns42prpmlaadsswdjwv0ifi7whj2s4q6l44rcqwa3b"))))
1109     (build-system gnu-build-system)
1110     (arguments
1111      '(#:tests? #f
1112        #:make-flags (let ((out (assoc-ref %outputs "out"))
1113                           (tmp (getenv "TMPDIR")))
1114                       (list (string-append "TOPDIR=" out)
1115                             (string-append "TZDIR=" out "/share/zoneinfo")
1116                             (string-append "TZDEFAULT=" out
1117                                            "/share/zoneinfo/localtime")
1118
1119                             ;; Likewise for the C library routines.
1120                             (string-append "LIBDIR=" tmp "/lib")
1121                             (string-append "MANDIR=" tmp "/man")
1122
1123                             "AWK=awk"
1124                             "CC=gcc"))
1125        #:modules ((guix build utils)
1126                   (guix build gnu-build-system)
1127                   (srfi srfi-1))
1128        #:phases
1129        (modify-phases %standard-phases
1130          (replace 'unpack
1131            (lambda* (#:key source inputs #:allow-other-keys)
1132              (invoke "tar" "xvf" source)
1133              (invoke "tar" "xvf" (assoc-ref inputs "tzcode"))))
1134          (add-after 'install 'post-install
1135            (lambda* (#:key outputs #:allow-other-keys)
1136              ;; Move data in the right place.
1137              (let ((out (assoc-ref outputs "out")))
1138                ;; Discard zic, dump, and tzselect, already
1139                ;; provided by glibc.
1140                (delete-file-recursively (string-append out "/usr"))
1141                (symlink (string-append out "/share/zoneinfo")
1142                         (string-append out "/share/zoneinfo/posix"))
1143                (delete-file-recursively
1144                 (string-append out "/share/zoneinfo-posix"))
1145                (copy-recursively (string-append out "/share/zoneinfo-leaps")
1146                                  (string-append out "/share/zoneinfo/right"))
1147                (delete-file-recursively
1148                 (string-append out "/share/zoneinfo-leaps"))
1149                #t)))
1150          (delete 'configure))))
1151     (inputs `(("tzcode" ,(origin
1152                           (method url-fetch)
1153                           (uri (string-append
1154                                 "http://www.iana.org/time-zones/repository/releases/tzcode"
1155                                 version ".tar.gz"))
1156                           (sha256
1157                            (base32
1158                             "1kpb02631s58i068mwq63xlamcv1ffj4p6y4wpb9kdl01vr0qd6a"))))))
1159     (home-page "https://www.iana.org/time-zones")
1160     (synopsis "Database of current and historical time zones")
1161     (description "The Time Zone Database (often called tz or zoneinfo)
1162 contains code and data that represent the history of local time for many
1163 representative locations around the globe.  It is updated periodically to
1164 reflect changes made by political bodies to time zone boundaries, UTC offsets,
1165 and daylight-saving rules.")
1166     (license public-domain)))
1167
1168 ;;; A "fixed" version of tzdata, which is used in the test suites of glib and R
1169 ;;; and a few other places. We can update this whenever we are able to rebuild
1170 ;;; thousands of packages (for example, in a core-updates rebuild). This package
1171 ;;; will typically be obsolete and should never be referred to by a built
1172 ;;; package.
1173 (define-public tzdata-for-tests
1174   (hidden-package
1175    (package
1176      (inherit tzdata)
1177      (version "2018d")
1178      (source (origin
1179                (method url-fetch)
1180                (uri (string-append "https://www.iana.org/time-zones/repository"
1181                                    "/releases/tzdata" version ".tar.gz"))
1182                (sha256
1183                 (base32
1184                  "0m6020dnk9r40z7k36jp13fa06xip3hn0fdx3nly66jzxgffs1ji"))))
1185      (inputs `(("tzcode" ,(origin
1186                             (method url-fetch)
1187                             (uri (string-append
1188                                   "http://www.iana.org/time-zones/repository/releases/tzcode"
1189                                   version ".tar.gz"))
1190                             (sha256
1191                              (base32
1192                               "1nd882yhsazmcfqmcqyfig3axycryl30gmizgqhqsx5dpa2lxr3x")))))))))
1193
1194 (define-public libiconv
1195   (package
1196     (name "libiconv")
1197     (version "1.15")
1198     (source (origin
1199               (method url-fetch)
1200               (uri (string-append "mirror://gnu/libiconv/libiconv-"
1201                                   version ".tar.gz"))
1202               (sha256
1203                (base32
1204                 "0y1ij745r4p48mxq84rax40p10ln7fc7m243p8k8sia519i3dxfc"))
1205               (modules '((guix build utils)))
1206               (snippet
1207                ;; Work around "declared gets" error on glibc systems (fixed by
1208                ;; Gnulib commit 66712c23388e93e5c518ebc8515140fa0c807348.)
1209                '(begin
1210                   (substitute* "srclib/stdio.in.h"
1211                     (("^#undef gets") "")
1212                     (("^_GL_WARN_ON_USE \\(gets.*") ""))
1213                   #t))))
1214     (build-system gnu-build-system)
1215     (synopsis "Character set conversion library")
1216     (description
1217      "libiconv provides an implementation of the iconv function for systems
1218 that lack it.  iconv is used to convert between character encodings in a
1219 program.  It supports a wide variety of different encodings.")
1220     (home-page "https://www.gnu.org/software/libiconv/")
1221     (license lgpl3+)))
1222
1223 (define* (libiconv-if-needed #:optional (target (%current-target-system)))
1224   "Return either a libiconv package specification to include in a dependency
1225 list for platforms that have an incomplete libc, or the empty list.  If a
1226 package needs iconv ,@(libiconv-if-needed) should be added."
1227   ;; POSIX C libraries provide iconv.  Platforms with an incomplete libc
1228   ;; without iconv, such as MinGW, must return the then clause.
1229   (if (target-mingw? target)
1230       `(("libiconv" ,libiconv))
1231       '()))
1232
1233 (define-public (canonical-package package)
1234   ;; Avoid circular dependency by lazily resolving 'commencement'.
1235   (let* ((iface (resolve-interface '(gnu packages commencement)))
1236          (proc  (module-ref iface 'canonical-package)))
1237     (proc package)))
1238
1239 (define-public (%final-inputs)
1240   "Return the list of \"final inputs\"."
1241   ;; Avoid circular dependency by lazily resolving 'commencement'.
1242   (let ((iface (resolve-interface '(gnu packages commencement))))
1243     (module-ref iface '%final-inputs)))
1244
1245 ;;; base.scm ends here