2012-06-27 23:24:34 +00:00
|
|
|
|
;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*-
|
|
|
|
|
;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
|
2012-10-16 23:24:58 +00:00
|
|
|
|
;;; Copyright (C) 2012 Nikita Karetnikov <nikita@karetnikov.org>
|
2012-06-27 23:24:34 +00:00
|
|
|
|
;;;
|
|
|
|
|
;;; This file is part of Guix.
|
|
|
|
|
;;;
|
|
|
|
|
;;; Guix is free software; you can redistribute it and/or modify it
|
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
|
;;; your option) any later version.
|
|
|
|
|
;;;
|
|
|
|
|
;;; Guix is distributed in the hope that it will be useful, but
|
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
|
;;;
|
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
|
|
|
|
;;; along with Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
2012-09-26 19:58:48 +00:00
|
|
|
|
(define-module (distro packages base)
|
2012-08-22 15:24:38 +00:00
|
|
|
|
#:use-module (distro)
|
distro: Split (distro packages base) into several files.
* distro/packages/base.scm (libsigsegv, gawk, perl, m4, gmp, mpfr, mpc,
ncurses, readline, bash, libtool, libunistring, libffi, pkg-config,
libgc): Move to modules of their own.
(guile-1.8, guile-2.0): Move to...
* distro/packages/guile.scm: ... here.
* distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/gawk.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/perl.scm, distro/packages/pkg-config.scm,
distro/packages/readline.scm: New files.
2012-11-04 21:37:22 +00:00
|
|
|
|
#:use-module (distro packages bash)
|
distro: Move bootstrap packages to (distro packages bootstrap).
* distro/packages/base.scm (glibc-dynamic-linker, %bootstrap-guile,
bootstrap-origin, package-from-tarball, %bootstrap-base-url,
%bootstrap-coreutils&co, %bootstrap-binutils, %bootstrap-glibc,
%bootstrap-gcc, %bootstrap-inputs, package-with-bootstrap-guile): Move
to ...
* distro/packages/bootstrap.scm: ... here. New file.
* Makefile.am (MODULES): Add it.
* tests/builders.scm: Use (distro packages bootstrap).
(%bootstrap-guile): Remove.
* tests/packages.scm: Likewise.
* tests/union.scm: Likewise, and remove @@ to access %bootstrap-inputs.
* tests/derivations.scm: Use (distro packages bootstrap) and remove @@
to access %bootstrap-coreutils&co.
* HACKING (When the platform is supported by Nixpkgs): Update
accordingly.
2012-11-04 21:04:41 +00:00
|
|
|
|
#:use-module (distro packages bootstrap)
|
2012-11-04 22:16:58 +00:00
|
|
|
|
#:use-module (distro packages compression)
|
distro: Split (distro packages base) into several files.
* distro/packages/base.scm (libsigsegv, gawk, perl, m4, gmp, mpfr, mpc,
ncurses, readline, bash, libtool, libunistring, libffi, pkg-config,
libgc): Move to modules of their own.
(guile-1.8, guile-2.0): Move to...
* distro/packages/guile.scm: ... here.
* distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/gawk.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/perl.scm, distro/packages/pkg-config.scm,
distro/packages/readline.scm: New files.
2012-11-04 21:37:22 +00:00
|
|
|
|
#:use-module (distro packages gawk)
|
|
|
|
|
#:use-module (distro packages guile)
|
|
|
|
|
#:use-module (distro packages multiprecision)
|
|
|
|
|
#:use-module (distro packages perl)
|
2012-11-27 21:04:57 +00:00
|
|
|
|
#:use-module (distro packages linux)
|
2012-06-27 23:24:34 +00:00
|
|
|
|
#:use-module (guix packages)
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
#:use-module (guix download)
|
2012-06-27 23:24:34 +00:00
|
|
|
|
#:use-module (guix build-system gnu)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
#:use-module (guix build-system trivial)
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
#:use-module (guix utils)
|
|
|
|
|
#:use-module (srfi srfi-1)
|
|
|
|
|
#:use-module (srfi srfi-26)
|
|
|
|
|
#:use-module (ice-9 match))
|
2012-06-27 23:24:34 +00:00
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
;;;
|
distro: Add the `guile', `typesetting', and `databases' package modules.
* distro.scm (package-files): Adjust PREFIX-LEN to use the top-level
directory, not %DISTRO-MODULE-DIRECTORY.
* distro/packages/base.scm (guile-reader, guile-reader/guile-1.8,
guile-reader/guile-2.0, lout, recutils): Move to...
* distro/packages/guile.scm, distro/packages/typesetting.scm,
distro/packages/databases.scm: ... here. New files.
* Makefile.am (MODULES): Add them.
(EXTRA_DIST): Add `.dir-locals.el'.
* .dir-locals.el: New file, with settings formerly in `base.scm'.
2012-09-26 20:17:41 +00:00
|
|
|
|
;;; Base packages of the Guix-based GNU user-land software distribution.
|
2012-06-27 23:24:34 +00:00
|
|
|
|
;;;
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(define-public hello
|
|
|
|
|
(package
|
|
|
|
|
(name "hello")
|
|
|
|
|
(version "2.8")
|
2012-07-01 15:32:03 +00:00
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/hello/hello-" version
|
2012-07-01 15:32:03 +00:00
|
|
|
|
".tar.gz"))
|
2012-06-27 23:24:34 +00:00
|
|
|
|
(sha256
|
2012-07-01 15:32:03 +00:00
|
|
|
|
(base32 "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))))
|
2012-06-27 23:24:34 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments '(#:configure-flags
|
|
|
|
|
`("--disable-dependency-tracking"
|
|
|
|
|
,(string-append "--with-gawk=" ; for illustration purposes
|
|
|
|
|
(assoc-ref %build-inputs "gawk")))))
|
2012-06-28 22:28:57 +00:00
|
|
|
|
(inputs `(("gawk" ,gawk)))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "GNU Hello")
|
|
|
|
|
(description "Yeah...")
|
2012-06-28 21:44:43 +00:00
|
|
|
|
(home-page "http://www.gnu.org/software/hello/")
|
2012-06-27 23:24:34 +00:00
|
|
|
|
(license "GPLv3+")))
|
2012-07-05 22:55:07 +00:00
|
|
|
|
|
2012-08-22 13:22:38 +00:00
|
|
|
|
(define-public grep
|
|
|
|
|
(package
|
|
|
|
|
(name "grep")
|
|
|
|
|
(version "2.14")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/grep/grep-"
|
2012-08-22 13:22:38 +00:00
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1qbjb1l7f9blckc5pqy8jlf6482hpx4awn2acmhyf5mv9wfq03p7"))))
|
|
|
|
|
(build-system gnu-build-system)
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "GNU implementation of the Unix grep command")
|
|
|
|
|
(description
|
2012-08-22 13:22:38 +00:00
|
|
|
|
"The grep command searches one or more input files for lines containing a
|
|
|
|
|
match to a specified pattern. By default, grep prints the matching
|
|
|
|
|
lines.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/grep/")))
|
|
|
|
|
|
2012-08-22 13:11:12 +00:00
|
|
|
|
(define-public sed
|
|
|
|
|
(package
|
|
|
|
|
(name "sed")
|
|
|
|
|
(version "4.2.1")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/sed/sed-" version
|
2012-08-22 13:11:12 +00:00
|
|
|
|
".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"13wlsb4sf5d5a82xjhxqmdvrrn36rmw5f0pl9qyb9zkvldnb7hra"))))
|
|
|
|
|
(build-system gnu-build-system)
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "GNU sed, a batch stream editor")
|
|
|
|
|
(description
|
2012-08-22 13:11:12 +00:00
|
|
|
|
"Sed (stream editor) isn't really a true text editor or text processor.
|
|
|
|
|
Instead, it is used to filter text, i.e., it takes text input and performs
|
|
|
|
|
some operation (or set of operations) on it and outputs the modified text.
|
|
|
|
|
Sed is typically used for extracting part of a file using pattern matching or
|
|
|
|
|
substituting multiple occurrences of a string within a file.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/sed/")))
|
|
|
|
|
|
2012-08-22 13:21:50 +00:00
|
|
|
|
(define-public tar
|
|
|
|
|
(package
|
|
|
|
|
(name "tar")
|
|
|
|
|
(version "1.26")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/tar/tar-"
|
2012-08-22 13:21:50 +00:00
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0hbdkzmchq9ycr2x1pxqdcgdbaxksh8c6ac0jf75jajhcks6jlss"))))
|
|
|
|
|
(build-system gnu-build-system)
|
2012-09-01 17:21:06 +00:00
|
|
|
|
(inputs `(("patch/gets" ,(search-patch "tar-gets-undeclared.patch"))))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:patches (list (assoc-ref %build-inputs "patch/gets"))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "GNU implementation of the `tar' archiver")
|
|
|
|
|
(description
|
2012-08-22 13:21:50 +00:00
|
|
|
|
"The Tar program provides the ability to create tar archives, as well as
|
|
|
|
|
various other kinds of manipulation. For example, you can use Tar on
|
|
|
|
|
previously created archives to extract files, to store additional files, or
|
|
|
|
|
to update or list files which were already stored.
|
|
|
|
|
|
|
|
|
|
Initially, tar archives were used to store files conveniently on magnetic
|
|
|
|
|
tape. The name \"Tar\" comes from this use; it stands for tape archiver.
|
|
|
|
|
Despite the utility's name, Tar can direct its output to available devices,
|
|
|
|
|
files, or other programs (using pipes), it can even access remote devices or
|
|
|
|
|
files (as archives).")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/tar/")))
|
|
|
|
|
|
2012-08-22 15:24:38 +00:00
|
|
|
|
(define-public patch
|
|
|
|
|
(package
|
|
|
|
|
(name "patch")
|
|
|
|
|
(version "2.6.1")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/patch/patch-"
|
2012-08-22 15:24:38 +00:00
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"18012gxs9wc96izskp1q7bclrwns6rdmkn4jj31c8jbyfz6l5npq"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs '()) ; FIXME: needs `ed' for the tests
|
|
|
|
|
(arguments
|
|
|
|
|
(case-lambda
|
|
|
|
|
((system) '(#:tests? #f))
|
|
|
|
|
((system cross-system)
|
|
|
|
|
'(#:configure-flags '("ac_cv_func_strnlen_working=yes")))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "GNU Patch, a program to apply differences to files")
|
|
|
|
|
(description
|
2012-08-22 15:24:38 +00:00
|
|
|
|
"GNU Patch takes a patch file containing a difference listing produced by
|
|
|
|
|
the diff program and applies those differences to one or more original files,
|
|
|
|
|
producing patched versions.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://savannah.gnu.org/projects/patch/")))
|
|
|
|
|
|
2012-08-22 15:24:38 +00:00
|
|
|
|
(define-public diffutils
|
|
|
|
|
(package
|
|
|
|
|
(name "diffutils")
|
|
|
|
|
(version "3.2")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/diffutils/diffutils-"
|
2012-08-22 15:24:38 +00:00
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0jci0wv68025xd0s0rq4s5qxpx56dd9d730lka63qpzk1rfvfkxb"))))
|
|
|
|
|
(build-system gnu-build-system)
|
2012-09-01 17:21:06 +00:00
|
|
|
|
(inputs `(("patch/gets"
|
|
|
|
|
,(search-patch "diffutils-gets-undeclared.patch"))))
|
|
|
|
|
(arguments `(#:patches (list (assoc-ref %build-inputs "patch/gets"))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "Programs to find differences among text files")
|
|
|
|
|
(description
|
2012-08-22 15:24:38 +00:00
|
|
|
|
"GNU Diffutils is a package of several programs related to finding
|
|
|
|
|
differences between files.
|
|
|
|
|
|
|
|
|
|
Computer users often find occasion to ask how two files differ. Perhaps one
|
|
|
|
|
file is a newer version of the other file. Or maybe the two files started out
|
|
|
|
|
as identical copies but were changed by different people.
|
|
|
|
|
|
|
|
|
|
You can use the diff command to show differences between two files, or each
|
|
|
|
|
corresponding file in two directories. diff outputs differences between files
|
|
|
|
|
line by line in any of several formats, selectable by command line
|
|
|
|
|
options. This set of differences is often called a ‘diff’ or ‘patch’. For
|
|
|
|
|
files that are identical, diff normally produces no output; for
|
|
|
|
|
binary (non-text) files, diff normally reports only that they are different.
|
|
|
|
|
|
|
|
|
|
You can use the cmp command to show the offsets and line numbers where two
|
|
|
|
|
files differ. cmp can also show all the characters that differ between the
|
|
|
|
|
two files, side by side.
|
|
|
|
|
|
|
|
|
|
You can use the diff3 command to show differences among three files. When two
|
|
|
|
|
people have made independent changes to a common original, diff3 can report
|
|
|
|
|
the differences between the original and the two changed versions, and can
|
|
|
|
|
produce a merged file that contains both persons' changes together with
|
|
|
|
|
warnings about conflicts.
|
|
|
|
|
|
|
|
|
|
You can use the sdiff command to merge two files interactively.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/diffutils/")))
|
|
|
|
|
|
2012-08-22 13:51:17 +00:00
|
|
|
|
(define-public findutils
|
|
|
|
|
(package
|
|
|
|
|
(name "findutils")
|
|
|
|
|
(version "4.4.2")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/findutils/findutils-"
|
2012-08-22 13:51:17 +00:00
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0amn0bbwqvsvvsh6drfwz20ydc2czk374lzw5kksbh6bf78k4ks3"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("patch/absolute-paths"
|
2012-08-22 15:24:38 +00:00
|
|
|
|
,(search-patch "findutils-absolute-paths.patch"))))
|
2012-08-22 13:51:17 +00:00
|
|
|
|
(arguments
|
|
|
|
|
(case-lambda
|
|
|
|
|
((system)
|
|
|
|
|
`(#:patches (list (assoc-ref %build-inputs "patch/absolute-paths"))))
|
|
|
|
|
((system cross-system)
|
|
|
|
|
;; Work around cross-compilation failure.
|
|
|
|
|
;; See <http://savannah.gnu.org/bugs/?27299#comment1>.
|
|
|
|
|
`(#:configure-flags '("gl_cv_func_wcwidth_works=yes")
|
|
|
|
|
,@(arguments cross-system)))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "Basic directory searching utilities of the GNU operating
|
2012-08-22 13:51:17 +00:00
|
|
|
|
system")
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(description
|
2012-08-22 13:51:17 +00:00
|
|
|
|
"The GNU Find Utilities are the basic directory searching utilities of
|
|
|
|
|
the GNU operating system. These programs are typically used in conjunction
|
|
|
|
|
with other programs to provide modular and powerful directory search and file
|
|
|
|
|
locating capabilities to other commands.
|
|
|
|
|
|
|
|
|
|
The tools supplied with this package are:
|
|
|
|
|
|
|
|
|
|
* find - search for files in a directory hierarchy;
|
|
|
|
|
* locate - list files in databases that match a pattern;
|
|
|
|
|
* updatedb - update a file name database;
|
|
|
|
|
* xargs - build and execute command lines from standard input.
|
|
|
|
|
")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/findutils/")))
|
2012-08-22 15:24:38 +00:00
|
|
|
|
|
|
|
|
|
(define-public coreutils
|
|
|
|
|
(package
|
|
|
|
|
(name "coreutils")
|
|
|
|
|
(version "8.19")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/coreutils/coreutils-"
|
2012-08-22 15:24:38 +00:00
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1rx9x3fp848w4nny7irdkcpkan9fcx24d99v5dkwgkyq7wc76f5d"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `()) ; TODO: optional deps: SELinux, ACL, GMP
|
|
|
|
|
(arguments
|
2012-08-22 15:24:38 +00:00
|
|
|
|
'(;; Perl is missing, and some tests are failing.
|
2012-08-22 15:24:38 +00:00
|
|
|
|
#:tests? #f))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis
|
2012-08-22 15:24:38 +00:00
|
|
|
|
"The basic file, shell and text manipulation utilities of the GNU
|
|
|
|
|
operating system")
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(description
|
2012-08-22 15:24:38 +00:00
|
|
|
|
"The GNU Core Utilities are the basic file, shell and text manipulation
|
|
|
|
|
utilities of the GNU operating system. These are the core utilities which
|
|
|
|
|
are expected to exist on every operating system.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/coreutils/")))
|
2012-08-22 13:51:17 +00:00
|
|
|
|
|
2012-08-21 16:14:57 +00:00
|
|
|
|
(define-public gnu-make
|
|
|
|
|
(package
|
|
|
|
|
(name "make")
|
|
|
|
|
(version "3.82")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/make/make-" version
|
2012-08-21 16:14:57 +00:00
|
|
|
|
".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0ri98385hsd7li6rh4l5afcq92v8l2lgiaz85wgcfh4w2wzsghg2"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
2012-08-22 15:24:38 +00:00
|
|
|
|
`(("patch/impure-dirs" ,(search-patch "make-impure-dirs.patch"))))
|
2012-08-21 16:14:57 +00:00
|
|
|
|
(arguments `(#:patches (list (assoc-ref %build-inputs
|
|
|
|
|
"patch/impure-dirs"))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "GNU Make, a program controlling the generation of non-source
|
2012-08-21 16:14:57 +00:00
|
|
|
|
files from sources")
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(description
|
2012-08-21 16:14:57 +00:00
|
|
|
|
"Make is a tool which controls the generation of executables and other
|
|
|
|
|
non-source files of a program from the program's source files.
|
|
|
|
|
|
|
|
|
|
Make gets its knowledge of how to build your program from a file called the
|
|
|
|
|
makefile, which lists each of the non-source files and how to compute it from
|
|
|
|
|
other files. When you write a program, you should write a makefile for it, so
|
|
|
|
|
that it is possible to use Make to build and install the program.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/make/")))
|
|
|
|
|
|
2012-08-25 11:11:13 +00:00
|
|
|
|
(define-public binutils
|
|
|
|
|
(package
|
|
|
|
|
(name "binutils")
|
|
|
|
|
(version "2.22")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/binutils/binutils-"
|
2012-08-25 11:11:13 +00:00
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1a9w66v5dwvbnawshjwqcgz7km6kw6ihkzp6sswv9ycc3knzhykc"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
|
|
|
|
|
;; TODO: Add dependency on zlib + those for Gold.
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("patch/new-dtags" ,(search-patch "binutils-ld-new-dtags.patch"))))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:patches (list (assoc-ref %build-inputs "patch/new-dtags"))
|
2012-11-15 23:23:06 +00:00
|
|
|
|
#:configure-flags '(;; Add `-static-libgcc' to not retain a dependency
|
|
|
|
|
;; on GCC when bootstrapping.
|
|
|
|
|
"LDFLAGS=-static-libgcc"
|
2012-08-25 11:11:13 +00:00
|
|
|
|
|
2012-11-15 23:23:06 +00:00
|
|
|
|
;; Don't search under /usr/lib & co.
|
|
|
|
|
"--with-lib-path=/no-ld-lib-path")))
|
2012-08-25 11:11:13 +00:00
|
|
|
|
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "GNU Binutils, tools for manipulating binaries (linker,
|
2012-08-25 11:11:13 +00:00
|
|
|
|
assembler, etc.)")
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(description
|
2012-08-25 11:11:13 +00:00
|
|
|
|
"The GNU Binutils are a collection of binary tools. The main ones are
|
|
|
|
|
`ld' (the GNU linker) and `as' (the GNU assembler). They also include the
|
|
|
|
|
BFD (Binary File Descriptor) library, `gprof', `nm', `strip', etc.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/binutils/")))
|
|
|
|
|
|
2012-08-24 11:55:54 +00:00
|
|
|
|
(define-public gcc-4.7
|
|
|
|
|
(let ((stripped? #t)) ; TODO: make this a parameter
|
|
|
|
|
(package
|
|
|
|
|
(name "gcc")
|
2012-09-26 19:48:22 +00:00
|
|
|
|
(version "4.7.2")
|
2012-08-24 11:55:54 +00:00
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/gcc/gcc-"
|
2012-08-24 11:55:54 +00:00
|
|
|
|
version "/gcc-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2012-09-26 19:48:22 +00:00
|
|
|
|
"115h03hil99ljig8lkrq4qk426awmzh0g99wrrggxf8g07bq74la"))))
|
2012-08-24 11:55:54 +00:00
|
|
|
|
(build-system gnu-build-system)
|
2012-09-11 22:07:12 +00:00
|
|
|
|
(inputs `(("gmp" ,gmp)
|
2012-08-24 11:55:54 +00:00
|
|
|
|
("mpfr" ,mpfr)
|
|
|
|
|
("mpc" ,mpc))) ; TODO: libelf, ppl, cloog, zlib, etc.
|
|
|
|
|
(arguments
|
2012-10-16 23:24:58 +00:00
|
|
|
|
(lambda (system)
|
|
|
|
|
`(#:out-of-source? #t
|
|
|
|
|
#:strip-binaries? ,stripped?
|
|
|
|
|
#:configure-flags
|
|
|
|
|
`("--enable-plugin"
|
|
|
|
|
"--enable-languages=c,c++"
|
|
|
|
|
"--disable-multilib"
|
2012-11-15 23:23:06 +00:00
|
|
|
|
|
|
|
|
|
"--with-local-prefix=/no-gcc-local-prefix"
|
|
|
|
|
|
2012-10-16 23:24:58 +00:00
|
|
|
|
,(let ((libc (assoc-ref %build-inputs "libc")))
|
|
|
|
|
(if libc
|
|
|
|
|
(string-append "--with-native-system-header-dir=" libc
|
|
|
|
|
"/include")
|
|
|
|
|
"--without-headers")))
|
|
|
|
|
#:make-flags
|
|
|
|
|
(let ((libc (assoc-ref %build-inputs "libc")))
|
|
|
|
|
`(,@(if libc
|
|
|
|
|
(list (string-append "LDFLAGS_FOR_BUILD="
|
|
|
|
|
"-L" libc "/lib "
|
|
|
|
|
"-Wl,-dynamic-linker "
|
|
|
|
|
"-Wl," libc
|
|
|
|
|
,(glibc-dynamic-linker system)))
|
|
|
|
|
'())
|
|
|
|
|
,(string-append "BOOT_CFLAGS=-O2 "
|
|
|
|
|
,(if stripped? "-g0" "-g"))))
|
|
|
|
|
|
|
|
|
|
#:tests? #f
|
|
|
|
|
#:phases
|
|
|
|
|
(alist-cons-before
|
|
|
|
|
'configure 'pre-configure
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(libc (assoc-ref inputs "libc")))
|
|
|
|
|
(when libc
|
|
|
|
|
;; The following is not performed for `--without-headers'
|
|
|
|
|
;; cross-compiler builds.
|
|
|
|
|
|
|
|
|
|
;; Fix the dynamic linker's file name.
|
2012-10-26 16:51:22 +00:00
|
|
|
|
(substitute* (find-files "gcc/config"
|
|
|
|
|
"^linux(64|-elf)?\\.h$")
|
2012-10-16 23:24:58 +00:00
|
|
|
|
(("#define GLIBC_DYNAMIC_LINKER([^ ]*).*$" _ suffix)
|
|
|
|
|
(format #f "#define GLIBC_DYNAMIC_LINKER~a \"~a\"~%"
|
|
|
|
|
suffix
|
|
|
|
|
(string-append libc ,(glibc-dynamic-linker system)))))
|
|
|
|
|
|
|
|
|
|
;; Tell where to find libstdc++, libc, and `?crt*.o', except
|
|
|
|
|
;; `crt{begin,end}.o', which come with GCC.
|
2012-10-26 16:51:22 +00:00
|
|
|
|
(substitute* (find-files "gcc/config"
|
|
|
|
|
"^(gnu-user(64)?|linux-elf)\\.h$")
|
2012-10-16 23:24:58 +00:00
|
|
|
|
(("#define LIB_SPEC (.*)$" _ suffix)
|
2012-11-05 21:25:52 +00:00
|
|
|
|
;; Note that with this "lib" spec, we may still add a
|
|
|
|
|
;; RUNPATH to GCC even when `libgcc_s' is not NEEDED.
|
|
|
|
|
;; There's not much that can be done to avoid it, though.
|
|
|
|
|
(format #f "#define LIB_SPEC \"-L~a/lib %{!static:-rpath=~a/lib \
|
|
|
|
|
%{!static-libgcc:-rpath=~a/lib64 -rpath=~a/lib}} \" ~a~%"
|
2012-10-16 23:24:58 +00:00
|
|
|
|
libc libc out out suffix))
|
2012-10-23 21:38:02 +00:00
|
|
|
|
(("#define STARTFILE_SPEC.*$" line)
|
|
|
|
|
(format #f "#define STANDARD_STARTFILE_PREFIX_1 \"~a/lib\"
|
|
|
|
|
#define STANDARD_STARTFILE_PREFIX_2 \"\"
|
|
|
|
|
~a~%"
|
|
|
|
|
libc line))))
|
2012-10-16 23:24:58 +00:00
|
|
|
|
|
|
|
|
|
;; Don't retain a dependency on the build-time sed.
|
|
|
|
|
(substitute* "fixincludes/fixincl.x"
|
|
|
|
|
(("static char const sed_cmd_z\\[\\] =.*;")
|
|
|
|
|
"static char const sed_cmd_z[] = \"sed\";"))))
|
|
|
|
|
|
|
|
|
|
(alist-cons-after
|
|
|
|
|
'configure 'post-configure
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Don't store configure flags, to avoid retaining references to
|
|
|
|
|
;; build-time dependencies---e.g., `--with-ppl=/nix/store/xxx'.
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("^TOPLEVEL_CONFIGURE_ARGUMENTS=(.*)$" _ rest)
|
|
|
|
|
"TOPLEVEL_CONFIGURE_ARGUMENTS=\n")))
|
|
|
|
|
(alist-replace 'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(zero?
|
|
|
|
|
(system* "make"
|
|
|
|
|
,(if stripped?
|
|
|
|
|
"install-strip"
|
|
|
|
|
"install"))))
|
|
|
|
|
%standard-phases))))))
|
2012-08-24 11:55:54 +00:00
|
|
|
|
|
|
|
|
|
(properties `((gcc-libc . ,(assoc-ref inputs "libc"))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "The GNU Compiler Collection")
|
|
|
|
|
(description
|
2012-08-24 11:55:54 +00:00
|
|
|
|
"The GNU Compiler Collection includes compiler front ends for C, C++,
|
|
|
|
|
Objective-C, Fortran, OpenMP for C/C++/Fortran, Java, and Ada, as well as
|
|
|
|
|
libraries for these languages (libstdc++, libgcj, libgomp,...).
|
|
|
|
|
|
|
|
|
|
GCC development is a part of the GNU Project, aiming to improve the compiler
|
|
|
|
|
used in the GNU system including the GNU/Linux variant.")
|
|
|
|
|
(license "GPLv3+")
|
|
|
|
|
(home-page "http://gcc.gnu.org/"))))
|
|
|
|
|
|
2012-08-28 21:15:13 +00:00
|
|
|
|
(define-public glibc
|
|
|
|
|
(package
|
|
|
|
|
(name "glibc")
|
|
|
|
|
(version "2.16.0")
|
|
|
|
|
(source (origin
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-12 23:22:44 +00:00
|
|
|
|
(method url-fetch)
|
distro: Use `mirror://' URLs.
* distro/packages/base.scm, distro/packages/bash.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gperf.scm, distro/packages/guile.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/m4.scm,
distro/packages/multiprecision.scm, distro/packages/ncurses.scm,
distro/packages/pth.scm, distro/packages/readline.scm,
distro/packages/recutils.scm: Use `mirror://gnu' URLs.
* distro/packages/gnupg.scm: Use `mirror://gnupg' URLs.
2012-11-12 22:34:03 +00:00
|
|
|
|
(uri (string-append "mirror://gnu/glibc/glibc-"
|
2012-08-28 21:15:13 +00:00
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"092rdm49zh6l1pqkxbcpcaawgsgzxhpf1s7wf5wi5dvc5am3dp0y"))))
|
|
|
|
|
(build-system gnu-build-system)
|
2012-09-01 17:21:06 +00:00
|
|
|
|
|
|
|
|
|
;; Glibc's <limits.h> refers to <linux/limit.h>, for instance, so glibc
|
|
|
|
|
;; users should automatically pull Linux headers as well.
|
2012-10-17 20:17:03 +00:00
|
|
|
|
(propagated-inputs `(("linux-headers" ,linux-libre-headers)))
|
2012-09-01 17:21:06 +00:00
|
|
|
|
|
2012-08-28 21:15:13 +00:00
|
|
|
|
(arguments
|
2012-09-01 17:21:06 +00:00
|
|
|
|
`(#:out-of-source? #t
|
2012-11-12 22:58:01 +00:00
|
|
|
|
#:patches (list (assoc-ref %build-inputs "patch/ld.so.cache"))
|
2012-08-28 21:15:13 +00:00
|
|
|
|
#:configure-flags
|
|
|
|
|
(list "--enable-add-ons"
|
|
|
|
|
"--sysconfdir=/etc"
|
|
|
|
|
"--localedir=/var/run/current-system/sw/lib/locale" ; XXX
|
|
|
|
|
(string-append "--with-headers="
|
|
|
|
|
(assoc-ref %build-inputs "linux-headers")
|
|
|
|
|
"/include")
|
2012-09-05 22:00:34 +00:00
|
|
|
|
|
|
|
|
|
;; The default is to assume a 2.4 Linux interface, but we'll
|
|
|
|
|
;; always use something newer. See "kernel-features.h" in the
|
|
|
|
|
;; GNU libc for details.
|
|
|
|
|
"--enable-kernel=2.6.30"
|
|
|
|
|
|
2012-08-28 21:15:13 +00:00
|
|
|
|
;; XXX: Work around "undefined reference to `__stack_chk_guard'".
|
|
|
|
|
"libc_cv_ssp=no")
|
|
|
|
|
#:tests? #f ; XXX
|
|
|
|
|
#:phases (alist-cons-before
|
|
|
|
|
'configure 'pre-configure
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
;; Use `pwd', not `/bin/pwd'.
|
|
|
|
|
(substitute* "configure"
|
2012-09-01 17:21:06 +00:00
|
|
|
|
(("/bin/pwd") "pwd"))
|
2012-08-28 21:15:13 +00:00
|
|
|
|
|
|
|
|
|
;; Install the rpc data base file under `$out/etc/rpc'.
|
2012-09-01 17:21:06 +00:00
|
|
|
|
;; FIXME: Use installFlags = [ "sysconfdir=$(out)/etc" ];
|
2012-08-28 21:15:13 +00:00
|
|
|
|
(substitute* "sunrpc/Makefile"
|
|
|
|
|
(("^\\$\\(inst_sysconfdir\\)/rpc(.*)$" _ suffix)
|
|
|
|
|
(string-append out "/etc/rpc" suffix "\n"))
|
|
|
|
|
(("^install-others =.*$")
|
2012-09-11 15:36:21 +00:00
|
|
|
|
(string-append "install-others = " out "/etc/rpc\n")))
|
|
|
|
|
|
|
|
|
|
(substitute* "Makeconfig"
|
|
|
|
|
;; According to
|
|
|
|
|
;; <http://www.linuxfromscratch.org/lfs/view/stable/chapter05/glibc.html>,
|
|
|
|
|
;; linking against libgcc_s is not needed with GCC
|
|
|
|
|
;; 4.7.1.
|
|
|
|
|
((" -lgcc_s") ""))))
|
2012-08-28 21:15:13 +00:00
|
|
|
|
%standard-phases)))
|
2012-11-12 22:58:01 +00:00
|
|
|
|
(inputs `(("patch/ld.so.cache"
|
|
|
|
|
,(search-patch "glibc-no-ld-so-cache.patch"))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "The GNU C Library")
|
|
|
|
|
(description
|
2012-08-28 21:15:13 +00:00
|
|
|
|
"Any Unix-like operating system needs a C library: the library which
|
|
|
|
|
defines the \"system calls\" and other basic facilities such as open, malloc,
|
|
|
|
|
printf, exit...
|
|
|
|
|
|
|
|
|
|
The GNU C library is used as the C library in the GNU system and most systems
|
|
|
|
|
with the Linux kernel.")
|
|
|
|
|
(license "LGPLv2+")
|
|
|
|
|
(home-page "http://www.gnu.org/software/libc/")))
|
|
|
|
|
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
|
|
|
|
;;;
|
|
|
|
|
;;; Bootstrap packages.
|
|
|
|
|
;;;
|
|
|
|
|
|
2012-09-07 13:49:48 +00:00
|
|
|
|
(define gnu-make-boot0
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package (inherit gnu-make)
|
|
|
|
|
(name "make-boot0")
|
|
|
|
|
(location (source-properties->location (current-source-location)))
|
|
|
|
|
(arguments `(#:guile ,%bootstrap-guile
|
|
|
|
|
#:implicit-inputs? #f
|
|
|
|
|
#:tests? #f ; cannot run "make check"
|
|
|
|
|
#:phases
|
2012-09-07 13:49:48 +00:00
|
|
|
|
(alist-replace
|
2012-10-17 21:55:38 +00:00
|
|
|
|
'build (lambda _
|
|
|
|
|
(zero? (system* "./build.sh")))
|
|
|
|
|
(alist-replace
|
|
|
|
|
'install (lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(mkdir-p bin)
|
|
|
|
|
(copy-file "make"
|
|
|
|
|
(string-append bin "/make"))))
|
|
|
|
|
%standard-phases))))
|
|
|
|
|
(inputs %bootstrap-inputs))))
|
2012-09-07 13:49:48 +00:00
|
|
|
|
|
|
|
|
|
(define diffutils-boot0
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(let ((p (package-with-explicit-inputs diffutils
|
|
|
|
|
`(("make" ,gnu-make-boot0)
|
|
|
|
|
,@%bootstrap-inputs)
|
|
|
|
|
#:guile %bootstrap-guile)))
|
|
|
|
|
(package (inherit p)
|
|
|
|
|
(location (source-properties->location (current-source-location)))
|
|
|
|
|
(arguments `(#:tests? #f ; the test suite needs diffutils
|
|
|
|
|
,@(package-arguments p)))))))
|
2012-09-07 13:49:48 +00:00
|
|
|
|
|
|
|
|
|
(define findutils-boot0
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package-with-explicit-inputs findutils
|
|
|
|
|
`(("make" ,gnu-make-boot0)
|
|
|
|
|
("diffutils" ,diffutils-boot0) ; for tests
|
|
|
|
|
,@%bootstrap-inputs)
|
|
|
|
|
(current-source-location)
|
|
|
|
|
#:guile %bootstrap-guile)))
|
2012-09-07 13:49:48 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define %boot0-inputs
|
|
|
|
|
`(("make" ,gnu-make-boot0)
|
|
|
|
|
("diffutils" ,diffutils-boot0)
|
|
|
|
|
("findutils" ,findutils-boot0)
|
|
|
|
|
,@%bootstrap-inputs))
|
|
|
|
|
|
2012-09-11 15:36:21 +00:00
|
|
|
|
(define* (nix-system->gnu-triplet system #:optional (vendor "unknown"))
|
|
|
|
|
"Return an a guess of the GNU triplet corresponding to Nix system
|
|
|
|
|
identifier SYSTEM."
|
|
|
|
|
(let* ((dash (string-index system #\-))
|
|
|
|
|
(arch (substring system 0 dash))
|
|
|
|
|
(os (substring system (+ 1 dash))))
|
|
|
|
|
(string-append arch
|
|
|
|
|
"-" vendor "-"
|
|
|
|
|
(if (string=? os "linux")
|
|
|
|
|
"linux-gnu"
|
|
|
|
|
os))))
|
|
|
|
|
|
|
|
|
|
(define boot-triplet
|
|
|
|
|
;; Return the triplet used to create the cross toolchain needed in the
|
|
|
|
|
;; first bootstrapping stage.
|
|
|
|
|
(cut nix-system->gnu-triplet <> "guix"))
|
|
|
|
|
|
|
|
|
|
;; Following Linux From Scratch, build a cross-toolchain in stage 0. That
|
|
|
|
|
;; toolchain actually targets the same OS and arch, but it has the advantage
|
|
|
|
|
;; of being independent of the libc and tools in %BOOTSTRAP-INPUTS, since
|
|
|
|
|
;; GCC-BOOT0 (below) is built without any reference to the target libc.
|
|
|
|
|
|
|
|
|
|
(define binutils-boot0
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package (inherit binutils)
|
|
|
|
|
(name "binutils-cross-boot0")
|
|
|
|
|
(arguments
|
|
|
|
|
(lambda (system)
|
|
|
|
|
`(#:guile ,%bootstrap-guile
|
|
|
|
|
#:implicit-inputs? #f
|
|
|
|
|
,@(substitute-keyword-arguments (package-arguments binutils)
|
|
|
|
|
((#:configure-flags cf)
|
|
|
|
|
`(list ,(string-append "--target=" (boot-triplet system))))))))
|
|
|
|
|
(inputs %boot0-inputs))))
|
2012-09-11 15:36:21 +00:00
|
|
|
|
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
(define gcc-boot0
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package (inherit gcc-4.7)
|
|
|
|
|
(name "gcc-cross-boot0")
|
|
|
|
|
(arguments
|
|
|
|
|
(lambda (system)
|
|
|
|
|
`(#:guile ,%bootstrap-guile
|
|
|
|
|
#:implicit-inputs? #f
|
|
|
|
|
#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(ice-9 regex)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
,@(substitute-keyword-arguments ((package-arguments gcc-4.7) system)
|
|
|
|
|
((#:configure-flags flags)
|
|
|
|
|
`(append (list ,(string-append "--target="
|
|
|
|
|
(boot-triplet system))
|
|
|
|
|
|
|
|
|
|
;; No libc yet.
|
|
|
|
|
"--without-headers"
|
|
|
|
|
|
|
|
|
|
;; Disable features not needed at this stage.
|
|
|
|
|
"--disable-shared"
|
|
|
|
|
"--enable-languages=c"
|
|
|
|
|
"--disable-libmudflap"
|
|
|
|
|
"--disable-libgomp"
|
|
|
|
|
"--disable-libssp"
|
|
|
|
|
"--disable-libquadmath"
|
|
|
|
|
"--disable-decimal-float")
|
|
|
|
|
(remove (cut string-match "--enable-languages.*" <>)
|
|
|
|
|
,flags)))
|
|
|
|
|
((#:phases phases)
|
|
|
|
|
`(alist-cons-after
|
|
|
|
|
'unpack 'unpack-gmp&co
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(let ((gmp (assoc-ref %build-inputs "gmp-source"))
|
|
|
|
|
(mpfr (assoc-ref %build-inputs "mpfr-source"))
|
|
|
|
|
(mpc (assoc-ref %build-inputs "mpc-source")))
|
|
|
|
|
|
|
|
|
|
;; To reduce the set of pre-built bootstrap inputs, build
|
|
|
|
|
;; GMP & co. from GCC.
|
|
|
|
|
(for-each (lambda (source)
|
|
|
|
|
(or (zero? (system* "tar" "xvf" source))
|
|
|
|
|
(error "failed to unpack tarball"
|
|
|
|
|
source)))
|
|
|
|
|
(list gmp mpfr mpc))
|
|
|
|
|
|
|
|
|
|
;; Create symlinks like `gmp' -> `gmp-5.0.5'.
|
|
|
|
|
,@(map (lambda (lib)
|
|
|
|
|
`(symlink ,(package-full-name lib)
|
|
|
|
|
,(package-name lib)))
|
|
|
|
|
(list gmp mpfr mpc))
|
|
|
|
|
|
|
|
|
|
;; MPFR headers/lib are found under $(MPFR)/src, but
|
|
|
|
|
;; `configure' wrongfully tells MPC too look under
|
|
|
|
|
;; $(MPFR), so fix that.
|
|
|
|
|
(substitute* "configure"
|
|
|
|
|
(("extra_mpc_mpfr_configure_flags(.+)--with-mpfr-include=([^/]+)/mpfr(.*)--with-mpfr-lib=([^ ]+)/mpfr"
|
|
|
|
|
_ equals include middle lib)
|
|
|
|
|
(string-append "extra_mpc_mpfr_configure_flags" equals
|
|
|
|
|
"--with-mpfr-include=" include
|
|
|
|
|
"/mpfr/src" middle
|
|
|
|
|
"--with-mpfr-lib=" lib
|
|
|
|
|
"/mpfr/src"))
|
|
|
|
|
(("gmpinc='-I([^ ]+)/mpfr -I([^ ]+)/mpfr" _ a b)
|
|
|
|
|
(string-append "gmpinc='-I" a "/mpfr/src "
|
|
|
|
|
"-I" b "/mpfr/src"))
|
|
|
|
|
(("gmplibs='-L([^ ]+)/mpfr" _ a)
|
|
|
|
|
(string-append "gmplibs='-L" a "/mpfr/src")))))
|
|
|
|
|
(alist-cons-after
|
|
|
|
|
'install 'symlink-libgcc_eh
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
;; Glibc wants to link against libgcc_eh, so provide
|
|
|
|
|
;; it.
|
|
|
|
|
(with-directory-excursion
|
|
|
|
|
(string-append out "/lib/gcc/"
|
|
|
|
|
,(boot-triplet system)
|
|
|
|
|
"/" ,(package-version gcc-4.7))
|
|
|
|
|
(symlink "libgcc.a" "libgcc_eh.a"))))
|
|
|
|
|
,phases)))))))
|
|
|
|
|
|
|
|
|
|
(inputs `(("gmp-source" ,(package-source gmp))
|
|
|
|
|
("mpfr-source" ,(package-source mpfr))
|
|
|
|
|
("mpc-source" ,(package-source mpc))
|
|
|
|
|
("binutils-cross" ,binutils-boot0)
|
|
|
|
|
|
|
|
|
|
;; Call it differently so that the builder can check whether
|
|
|
|
|
;; the "libc" input is #f.
|
|
|
|
|
("libc-native" ,@(assoc-ref %boot0-inputs "libc"))
|
|
|
|
|
,@(alist-delete "libc" %boot0-inputs))))))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
2012-10-17 20:17:03 +00:00
|
|
|
|
(define linux-libre-headers-boot0
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package (inherit linux-libre-headers)
|
|
|
|
|
(arguments `(#:guile ,%bootstrap-guile
|
|
|
|
|
#:implicit-inputs? #f
|
|
|
|
|
,@(package-arguments linux-libre-headers)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
(let ((perl (package-with-explicit-inputs perl
|
|
|
|
|
%boot0-inputs
|
|
|
|
|
(current-source-location)
|
|
|
|
|
#:guile %bootstrap-guile)))
|
|
|
|
|
`(("perl" ,perl)
|
|
|
|
|
,@%boot0-inputs))))))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
|
|
|
|
(define %boot1-inputs
|
|
|
|
|
;; 2nd stage inputs.
|
|
|
|
|
`(("gcc" ,gcc-boot0)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
("binutils-cross" ,binutils-boot0)
|
|
|
|
|
|
|
|
|
|
;; Keep "binutils" here because the cross-gcc invokes `as', not the
|
|
|
|
|
;; cross-`as'.
|
|
|
|
|
,@%boot0-inputs))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
|
|
|
|
(define-public glibc-final
|
2012-09-11 15:36:21 +00:00
|
|
|
|
;; The final libc, "cross-built". If everything went well, the resulting
|
|
|
|
|
;; store path has no dependencies.
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package (inherit glibc)
|
|
|
|
|
(arguments
|
|
|
|
|
(lambda (system)
|
|
|
|
|
`(#:guile ,%bootstrap-guile
|
|
|
|
|
#:implicit-inputs? #f
|
|
|
|
|
|
|
|
|
|
;; Leave /bin/sh as the interpreter for `ldd', `sotruss', etc. to
|
|
|
|
|
;; avoid keeping a reference to the bootstrap Bash.
|
|
|
|
|
#:patch-shebangs? #f
|
|
|
|
|
,@(substitute-keyword-arguments (package-arguments glibc)
|
|
|
|
|
((#:configure-flags flags)
|
|
|
|
|
`(append (list ,(string-append "--host=" (boot-triplet system))
|
|
|
|
|
,(string-append "--build="
|
|
|
|
|
(nix-system->gnu-triplet system))
|
|
|
|
|
"BASH_SHELL=/bin/sh"
|
|
|
|
|
|
2012-10-25 15:36:46 +00:00
|
|
|
|
;; Build Sun/ONC RPC support. In particular,
|
|
|
|
|
;; install rpc/*.h.
|
|
|
|
|
"--enable-obsolete-rpc")
|
2012-10-17 21:55:38 +00:00
|
|
|
|
,flags))))))
|
|
|
|
|
(propagated-inputs `(("linux-headers" ,linux-libre-headers-boot0)))
|
|
|
|
|
(inputs `( ;; A native GCC is needed to build `cross-rpcgen'.
|
|
|
|
|
("native-gcc" ,@(assoc-ref %boot0-inputs "gcc"))
|
2012-11-12 22:58:01 +00:00
|
|
|
|
,@%boot1-inputs
|
|
|
|
|
,@(package-inputs glibc)))))) ; patches
|
2012-09-11 15:36:21 +00:00
|
|
|
|
|
|
|
|
|
(define gcc-boot0-wrapped
|
|
|
|
|
;; Make the cross-tools GCC-BOOT0 and BINUTILS-BOOT0 available under the
|
|
|
|
|
;; non-cross names.
|
|
|
|
|
(package (inherit gcc-4.7)
|
|
|
|
|
(name (string-append (package-name gcc-boot0) "-wrapped"))
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(source #f)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
(lambda (system)
|
distro: Specify use of the bootstrap Guile for the initial derivations.
* distro/packages/base.scm (%bootstrap-guile): New variable.
(gnu-make-boot0, diffutils-boot0, findutils-boot0, binutils-boot0,
gcc-boot0, linux-headers-boot0, glibc-final, gcc-boot0-wrapped,
gcc-final, ld-wrapper-boot3, bash-final, guile-final): Add
`#:guile %bootstrap-guile' to the builder's arguments.
2012-10-05 23:10:21 +00:00
|
|
|
|
`(#:guile ,%bootstrap-guile
|
|
|
|
|
#:modules ((guix build utils))
|
2012-09-11 15:36:21 +00:00
|
|
|
|
#:builder (begin
|
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
|
|
|
|
|
|
(let* ((binutils (assoc-ref %build-inputs "binutils"))
|
|
|
|
|
(gcc (assoc-ref %build-inputs "gcc"))
|
|
|
|
|
(libc (assoc-ref %build-inputs "libc"))
|
|
|
|
|
(out (assoc-ref %outputs "out"))
|
|
|
|
|
(bindir (string-append out "/bin"))
|
|
|
|
|
(triplet ,(boot-triplet system)))
|
2012-10-17 20:51:08 +00:00
|
|
|
|
(mkdir-p bindir)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
(with-directory-excursion bindir
|
|
|
|
|
(for-each (lambda (tool)
|
|
|
|
|
(symlink (string-append binutils "/bin/"
|
|
|
|
|
triplet "-" tool)
|
|
|
|
|
tool))
|
|
|
|
|
'("ar" "ranlib"))
|
|
|
|
|
|
|
|
|
|
;; GCC-BOOT0 is a libc-less cross-compiler, so it
|
|
|
|
|
;; needs to be told where to find the crt files and
|
|
|
|
|
;; the dynamic linker.
|
|
|
|
|
(call-with-output-file "gcc"
|
|
|
|
|
(lambda (p)
|
|
|
|
|
(format p "#!/bin/sh
|
2012-10-18 09:41:12 +00:00
|
|
|
|
exec ~a/bin/~a-gcc -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
|
2012-09-11 15:36:21 +00:00
|
|
|
|
gcc triplet
|
|
|
|
|
libc libc
|
|
|
|
|
,(glibc-dynamic-linker system))))
|
|
|
|
|
|
|
|
|
|
(chmod "gcc" #o555)))))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("binutils" ,binutils-boot0)
|
|
|
|
|
("gcc" ,gcc-boot0)
|
|
|
|
|
("libc" ,glibc-final)))
|
|
|
|
|
(inputs '())))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
|
|
|
|
(define %boot2-inputs
|
|
|
|
|
;; 3rd stage inputs.
|
|
|
|
|
`(("libc" ,glibc-final)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
("gcc" ,gcc-boot0-wrapped)
|
|
|
|
|
,@(fold alist-delete %boot1-inputs '("libc" "gcc"))))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
distro: Move bootstrap tarball packages to (distro packages make-bootstrap).
* distro/packages/base.scm (binutils-final): Make public.
(static-package, %bash-static, %static-inputs, %static-binaries,
%binutils-static, %binutils-static-stripped, %glibc-stripped,
%gcc-static, %gcc-stripped, %guile-static, %guile-static-stripped,
tarball-package, %bootstrap-binaries-tarball,
%binutils-bootstrap-tarball, %glibc-bootstrap-tarball,
%guile-bootstrap-tarball): Move to...
* distro/packages/make-bootstrap.scm: ... here. New file.
* Makefile.am (MODULES): Add it.
2012-11-06 21:55:44 +00:00
|
|
|
|
(define-public binutils-final
|
2012-11-04 23:16:30 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package (inherit binutils)
|
|
|
|
|
(arguments
|
|
|
|
|
(lambda (system)
|
|
|
|
|
`(#:guile ,%bootstrap-guile
|
|
|
|
|
#:implicit-inputs? #f
|
|
|
|
|
,@(package-arguments binutils))))
|
|
|
|
|
(inputs %boot2-inputs))))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
2012-09-11 15:36:21 +00:00
|
|
|
|
(define-public gcc-final
|
|
|
|
|
;; The final GCC.
|
|
|
|
|
(package (inherit gcc-boot0)
|
|
|
|
|
(name "gcc")
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
(arguments
|
2012-09-11 15:36:21 +00:00
|
|
|
|
(lambda (system)
|
distro: Specify use of the bootstrap Guile for the initial derivations.
* distro/packages/base.scm (%bootstrap-guile): New variable.
(gnu-make-boot0, diffutils-boot0, findutils-boot0, binutils-boot0,
gcc-boot0, linux-headers-boot0, glibc-final, gcc-boot0-wrapped,
gcc-final, ld-wrapper-boot3, bash-final, guile-final): Add
`#:guile %bootstrap-guile' to the builder's arguments.
2012-10-05 23:10:21 +00:00
|
|
|
|
`(#:guile ,%bootstrap-guile
|
|
|
|
|
#:implicit-inputs? #f
|
2012-09-11 15:36:21 +00:00
|
|
|
|
|
|
|
|
|
;; Build again GMP & co. within GCC's build process, because it's hard
|
|
|
|
|
;; to do outside (because GCC-BOOT0 is a cross-compiler, and thus
|
|
|
|
|
;; doesn't honor $LIBRARY_PATH, which breaks `gnu-build-system'.)
|
|
|
|
|
,@(substitute-keyword-arguments ((package-arguments gcc-boot0) system)
|
|
|
|
|
((#:configure-flags boot-flags)
|
2012-10-16 23:24:58 +00:00
|
|
|
|
(let loop ((args ((package-arguments gcc-4.7) system)))
|
2012-09-11 15:36:21 +00:00
|
|
|
|
(match args
|
|
|
|
|
((#:configure-flags normal-flags _ ...)
|
|
|
|
|
normal-flags)
|
|
|
|
|
((_ rest ...)
|
|
|
|
|
(loop rest)))))
|
|
|
|
|
((#:phases phases)
|
|
|
|
|
`(alist-delete 'symlink-libgcc_eh ,phases))))))
|
|
|
|
|
|
|
|
|
|
(inputs `(("gmp-source" ,(package-source gmp))
|
|
|
|
|
("mpfr-source" ,(package-source mpfr))
|
|
|
|
|
("mpc-source" ,(package-source mpc))
|
|
|
|
|
("binutils" ,binutils-final)
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
,@%boot2-inputs))))
|
|
|
|
|
|
2012-09-26 16:27:04 +00:00
|
|
|
|
(define ld-wrapper-boot3
|
|
|
|
|
;; A linker wrapper that uses the bootstrap Guile.
|
|
|
|
|
(package
|
|
|
|
|
(name "ld-wrapper-boot3")
|
|
|
|
|
(version "0")
|
|
|
|
|
(source #f)
|
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(inputs `(("binutils" ,binutils-final)
|
distro: Specify use of the bootstrap Guile for the initial derivations.
* distro/packages/base.scm (%bootstrap-guile): New variable.
(gnu-make-boot0, diffutils-boot0, findutils-boot0, binutils-boot0,
gcc-boot0, linux-headers-boot0, glibc-final, gcc-boot0-wrapped,
gcc-final, ld-wrapper-boot3, bash-final, guile-final): Add
`#:guile %bootstrap-guile' to the builder's arguments.
2012-10-05 23:10:21 +00:00
|
|
|
|
("guile" ,%bootstrap-guile)
|
2012-09-26 19:58:48 +00:00
|
|
|
|
("wrapper" ,(search-path %load-path
|
|
|
|
|
"distro/packages/ld-wrapper.scm"))))
|
2012-09-26 16:27:04 +00:00
|
|
|
|
(arguments
|
distro: Specify use of the bootstrap Guile for the initial derivations.
* distro/packages/base.scm (%bootstrap-guile): New variable.
(gnu-make-boot0, diffutils-boot0, findutils-boot0, binutils-boot0,
gcc-boot0, linux-headers-boot0, glibc-final, gcc-boot0-wrapped,
gcc-final, ld-wrapper-boot3, bash-final, guile-final): Add
`#:guile %bootstrap-guile' to the builder's arguments.
2012-10-05 23:10:21 +00:00
|
|
|
|
`(#:guile ,%bootstrap-guile
|
|
|
|
|
#:modules ((guix build utils))
|
2012-09-26 16:27:04 +00:00
|
|
|
|
#:builder (begin
|
|
|
|
|
(use-modules (guix build utils)
|
|
|
|
|
(system base compile))
|
|
|
|
|
|
|
|
|
|
(let* ((out (assoc-ref %outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin"))
|
|
|
|
|
(ld (string-append bin "/ld"))
|
|
|
|
|
(go (string-append bin "/ld.go")))
|
|
|
|
|
|
|
|
|
|
(setvbuf (current-output-port) _IOLBF)
|
|
|
|
|
(format #t "building ~s/bin/ld wrapper in ~s~%"
|
|
|
|
|
(assoc-ref %build-inputs "binutils")
|
|
|
|
|
out)
|
|
|
|
|
|
2012-10-17 20:51:08 +00:00
|
|
|
|
(mkdir-p bin)
|
2012-09-26 16:27:04 +00:00
|
|
|
|
(copy-file (assoc-ref %build-inputs "wrapper") ld)
|
|
|
|
|
(substitute* ld
|
|
|
|
|
(("@GUILE@")
|
|
|
|
|
(string-append (assoc-ref %build-inputs "guile")
|
|
|
|
|
"/bin/guile"))
|
|
|
|
|
(("@LD@")
|
|
|
|
|
(string-append (assoc-ref %build-inputs "binutils")
|
|
|
|
|
"/bin/ld")))
|
|
|
|
|
(chmod ld #o555)
|
|
|
|
|
(compile-file ld #:output-file go)))))
|
2012-11-04 12:41:34 +00:00
|
|
|
|
(synopsis "The linker wrapper")
|
|
|
|
|
(description
|
2012-09-26 16:27:04 +00:00
|
|
|
|
"The linker wrapper (or `ld-wrapper') wraps the linker to add any
|
|
|
|
|
missing `-rpath' flags, and to detect any misuse of libraries outside of the
|
|
|
|
|
store.")
|
|
|
|
|
(home-page #f)
|
|
|
|
|
(license "GPLv3+")))
|
|
|
|
|
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
(define %boot3-inputs
|
|
|
|
|
;; 4th stage inputs.
|
|
|
|
|
`(("gcc" ,gcc-final)
|
2012-09-26 16:27:04 +00:00
|
|
|
|
("ld-wrapper" ,ld-wrapper-boot3)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
,@(alist-delete "gcc" %boot2-inputs)))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
2012-09-26 16:27:04 +00:00
|
|
|
|
(define-public bash-final
|
2012-11-05 22:50:34 +00:00
|
|
|
|
;; Link with `-static-libgcc' to make sure we don't retain a reference
|
|
|
|
|
;; to the bootstrap GCC.
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
2012-11-05 22:50:34 +00:00
|
|
|
|
(package-with-explicit-inputs (static-libgcc-package bash)
|
|
|
|
|
%boot3-inputs
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(current-source-location)
|
|
|
|
|
#:guile %bootstrap-guile)))
|
2012-09-26 16:27:04 +00:00
|
|
|
|
|
2012-10-25 15:55:45 +00:00
|
|
|
|
(define %boot4-inputs
|
|
|
|
|
;; Now use the final Bash.
|
|
|
|
|
`(("bash" ,bash-final)
|
|
|
|
|
,@(alist-delete "bash" %boot3-inputs)))
|
|
|
|
|
|
2012-09-26 16:27:04 +00:00
|
|
|
|
(define-public guile-final
|
2012-10-25 15:55:45 +00:00
|
|
|
|
;; FIXME: The Libtool used here, specifically its `bin/libtool' script,
|
|
|
|
|
;; holds a dependency on the bootstrap Binutils. Use multiple outputs for
|
|
|
|
|
;; Libtool, so that that dependency is isolated in the "bin" output.
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(package-with-bootstrap-guile
|
|
|
|
|
(package-with-explicit-inputs guile-2.0
|
2012-10-25 15:55:45 +00:00
|
|
|
|
%boot4-inputs
|
2012-10-17 21:55:38 +00:00
|
|
|
|
(current-source-location)
|
|
|
|
|
#:guile %bootstrap-guile)))
|
2012-09-26 16:27:04 +00:00
|
|
|
|
|
|
|
|
|
(define-public ld-wrapper
|
|
|
|
|
;; The final `ld' wrapper, which uses the final Guile.
|
|
|
|
|
(package (inherit ld-wrapper-boot3)
|
|
|
|
|
(name "ld-wrapper")
|
|
|
|
|
(inputs `(("guile" ,guile-final)
|
|
|
|
|
,@(alist-delete "guile" (package-inputs ld-wrapper-boot3))))))
|
|
|
|
|
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
(define-public %final-inputs
|
|
|
|
|
;; Final derivations used as implicit inputs by `gnu-build-system'.
|
2012-10-25 15:55:45 +00:00
|
|
|
|
(let ((finalize (cut package-with-explicit-inputs <> %boot4-inputs
|
2012-09-07 13:49:48 +00:00
|
|
|
|
(current-source-location))))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
`(,@(map (match-lambda
|
|
|
|
|
((name package)
|
|
|
|
|
(list name (finalize package))))
|
|
|
|
|
`(("tar" ,tar)
|
|
|
|
|
("gzip" ,gzip)
|
2012-09-01 17:21:06 +00:00
|
|
|
|
("bzip2" ,bzip2)
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
("xz" ,xz)
|
|
|
|
|
("diffutils" ,diffutils)
|
|
|
|
|
("patch" ,patch)
|
|
|
|
|
("coreutils" ,coreutils)
|
|
|
|
|
("sed" ,sed)
|
|
|
|
|
("grep" ,grep)
|
|
|
|
|
("findutils" ,findutils)
|
|
|
|
|
("gawk" ,gawk)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
("make" ,gnu-make)))
|
2012-09-26 16:27:04 +00:00
|
|
|
|
("bash" ,bash-final)
|
|
|
|
|
("ld-wrapper" ,ld-wrapper)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
("binutils" ,binutils-final)
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
("gcc" ,gcc-final)
|
2012-09-11 15:36:21 +00:00
|
|
|
|
("libc" ,glibc-final))))
|
distro: Bootstrap standard inputs from Nixpkgs.
This is a first step towards bootstrapping from a set of pre-built,
statically-linked binaries.
* guix/build-system/gnu.scm (package-with-explicit-inputs,
standard-inputs): New procedure.
(%store): New variable.
(%standard-inputs): Remove.
(gnu-build): New `implicit-inputs?' keyword parameter. Use it to
choose whether to use `(standard-inputs SYSTEM)' or the empty list.
* distro/base.scm (guile-2.0): Remove dependency on XZ, which is now
implicit.
(%bootstrap-inputs, gcc-boot0, binutils-boot0, linux-headers-boot0,
%boot1-inputs, glibc-final, %boot2-inputs, m4-boot2, gmp-boot2,
mpfr-boot2, mpc-boot2, %boot3-inputs, gcc-final, %boot4-inputs,
%final-inputs): New variables.
2012-09-01 17:21:06 +00:00
|
|
|
|
|
distro: Add the `guile', `typesetting', and `databases' package modules.
* distro.scm (package-files): Adjust PREFIX-LEN to use the top-level
directory, not %DISTRO-MODULE-DIRECTORY.
* distro/packages/base.scm (guile-reader, guile-reader/guile-1.8,
guile-reader/guile-2.0, lout, recutils): Move to...
* distro/packages/guile.scm, distro/packages/typesetting.scm,
distro/packages/databases.scm: ... here. New files.
* Makefile.am (MODULES): Add them.
(EXTRA_DIST): Add `.dir-locals.el'.
* .dir-locals.el: New file, with settings formerly in `base.scm'.
2012-09-26 20:17:41 +00:00
|
|
|
|
;;; base.scm ends here
|