* gnu/packages/rust.scm (rustc-bootstrap, rust-bootstrap-x86_64-1.12.0): New variables. --- gnu/packages/rust.scm | 99 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 99 insertions(+) create mode 100644 gnu/packages/rust.scm
diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm new file mode 100644 index 0000000..2726348 --- /dev/null +++ b/gnu/packages/rust.scm @@ -0,0 +1,99 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2016 David Craven <da...@craven.ch> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU 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. +;;; +;;; GNU 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 GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages rust) + #:use-module (gnu packages base) + #:use-module (gnu packages bootstrap) + #:use-module (gnu packages commencement) + #:use-module (gnu packages compression) + #:use-module (gnu packages elf) + #:use-module (gnu packages gcc) + #:use-module (guix build-system gnu) + #:use-module (guix download) + #:use-module (guix packages) + #:use-module ((guix licenses) #:prefix license:)) + +(define rust-bootstrap-x86_64-1.12.0 + (origin + (method url-fetch) + (uri (string-append + "https://static.rust-lang.org/dist/"; + "rust-beta-x86_64-unknown-linux-gnu.tar.gz")) + (sha256 + (base32 + "1is1k93zarvxx0h7b57ga8vr9gj34b36l9la6zkph41x33gfgpvl")))) + +(define-public rustc-bootstrap + (package + (name "rustc-bootstrap") + (version "1.12.0") + (source rust-bootstrap-x86_64-1.12.0) + (build-system gnu-build-system) + (native-inputs + `(("patchelf" ,patchelf))) + (inputs + `(("gcc-lib" ,gcc "lib") + ("gcc-toolchain-6" ,gcc-toolchain-6) + ("zlib" ,zlib))) + (arguments + `(#:tests? #f + #:strip-binaries? #f + #:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'build) + (replace 'install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (gcc-lib (assoc-ref inputs "gcc-lib")) + (toolchain (assoc-ref inputs "gcc-toolchain-6")) + (zlib (assoc-ref inputs "zlib")) + (platform ,(system->rust-platform (%current-system))) + (ld-so (string-append (assoc-ref inputs "libc") + ,(glibc-dynamic-linker)))) + (system* "bash" "install.sh" + (string-append "--prefix=" out) + (string-append "--components=rustc," + "rust-std-" platform)) + (for-each + (lambda (file) + (system* "patchelf" + "--set-rpath" + (string-append out "/lib:" zlib "/lib:" + gcc-lib "/lib:" toolchain "/lib") + file)) + (cons* (string-append out "/bin/rustc") + (string-append out "/bin/rustdoc") + (find-files out "\\.so$"))) + (for-each + (lambda (file) + (system* "patchelf" + "--set-interpreter" ld-so + file)) + (list (string-append out "/bin/rustc") + (string-append out "/bin/rustdoc"))) + ;; Rust requires a gcc toolchain for linking. It + ;; looks for a compiler named cc in it's path. This + ;; can probably be configured during the build. + (symlink (string-append toolchain "/bin/gcc") + (string-append out "/bin/cc")))))))) + (home-page "https://www.rust-lang.org";) + (synopsis "Rustc bootstrap") + (description "This package prepares the rustc binary for bootstrapping +the rustc package.") + (license license:asl2.0))) -- 2.9.0
