;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 David Craven <david@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)))