@@ -17,7 +17,16 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages rust)
- #:use-module (guix download))
+ #: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 trivial)
+ #:use-module (guix download)
+ #:use-module (guix packages)
+ #:use-module ((guix licenses) #:prefix license:))
(define rust-bootstrap-x86_64-1.12.0
(origin
@@ -28,3 +37,59 @@
(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")))
+ (symlink (string-append toolchain "/bin/gcc")
+ (string-append out "/bin/cc"))))))))
+ (home-page "https://www.rust-lang.org")
+ (synopsis "Rustc bootstrap")
+ (description "Rustc bootstrap.")
+ (license license:asl2.0)))