;; FIXME: Needs to be parsed from url not package name.

(define (package-name->crate-name name)

  "Return the crate name of NAME."

  (match (string-split name #\-)

    (("rust" rest ...)

     (string-join rest "-"))

    (_ #f)))

(define* (replace-cargo-toml #:key inputs cargo-toml #:allow-other-keys)

  "Replace Cargo.toml [dependencies] section with guix inputs."

  ;; Make sure Cargo.toml is writeable when the crate uses git-fetch.

  (chmod cargo-toml #o644)

  (substitute* cargo-toml

    ((".*32-sys.*") "

")

    ((".*winapi.*") "

")

    ((".*core-foundation.*") "

"))

  ;; Prepare one new directory with all the required dependencies.

  ;; It's necessary to do this (instead of just using /gnu/store as the

  ;; directory) because we want to hide the libraries in subdirectories

  ;;   share/rust-source/... instead of polluting the user's profile root.

  (mkdir "vendor")

  (for-each

    (match-lambda

      ((name . path)

       (let ((crate (package-name->crate-name name)))

         (when (and crate path)

           (match (string-split (basename path) #\-)

             ((_ ... version)

              (symlink (string-append path "/share/rust-source")

                       (string-append "vendor/" (basename path)))))))))

    inputs)

  ;; Configure cargo to actually use this new directory.

  (mkdir-p ".cargo")

  (let ((port (open-file ".cargo/config" "w" #:encoding "utf-8")))

    (display "

[scrates-io]

re = 'https://github.com/rust-lang/crates.io-index'

rewith = 'vendored-sources'

[svendored-sources]

diy = '" port)

    (display (getcwd) port)

    (display "/vendor" port)

    (display "'

" 

    (close-port port)))

  (setenv "CC" (string-append (assoc-ref inputs "gcc") "/bin/gcc"))

  ;(setenv "CARGO_HOME" "/gnu/store")

  ; (setenv "CMAKE_C_COMPILER" cc)

  #t)

(define-public rust-for-mozilla

  (package

    (inherit rustc)

    (arguments

     (substitute-keyword-arguments (package-arguments rustc)

       ((#:phases phases)

        `(modify-phases ,phases

           (replace 'check

             (lambda _

               #t))))))))

(define-public cargo-for-mozilla

  (package

    (inherit cargo)

    (arguments

     `(#:rustc ,rust-for-mozilla

       ,@(package-arguments cargo)))))

(define-public rustc-1.17

  (package

    (inherit rust-for-mozilla)

    (version "1.17.0")

    (source (origin

              (method url-fetch)

              (uri (string-append

                    "https://static.rust-lang.org/dist/"

                    "rustc-" version "-src.tar.gz"))

              (sha256

               (base32

                "11sg2y38x2psvc1gvhcd10fcszih2sljhnnfyqnlkwkmbf4s7asb"))

            (modules '((guix build utils)))

            (snippet

             `(begin

                (delete-file-recursively "src/llvm")

                #t))))

    (native-inputs

     `(("bison" ,bison) ; For the tests

       ("cmake" ,cmake)

       ("flex" ,flex) ; For the tests

       ("git" ,git)

       ("procps" ,procps) ; For the tests

       ("python-2" ,python-2)

       ("rustc-bootstrap" ,rust-for-mozilla)

       ("cargo" ,cargo-for-mozilla)

       ("curl" ,curl)

       ("which" ,which)))

    (arguments

     (substitute-keyword-arguments (package-arguments rustc)

       ((#:phases phases)

        `(modify-phases ,phases

           (replace 'configure

             (lambda* (#:key inputs outputs #:allow-other-keys)

               (let* ((out (assoc-ref outputs "out"))

                      (gcc (assoc-ref inputs "gcc"))

                      (binutils (assoc-ref inputs "binutils"))

                      (python (assoc-ref inputs "python-2"))

                      (rustc (assoc-ref inputs "rustc-bootstrap"))

                      (llvm (assoc-ref inputs "llvm"))

                      (jemalloc (assoc-ref inputs "jemalloc"))

                      (flags (list

                              (string-append "--prefix=" out)

                              (string-append "--datadir=" out "/share")

                              (string-append "--infodir=" out "/share/info")

                              (string-append "--default-linker=" gcc "/bin/gcc")

                              (string-append "--default-ar=" binutils "/bin/ar")

                              (string-append "--python=" python "/bin/python2")

                              (string-append "--local-rust-root=" rustc)

                              (string-append "--llvm-root=" llvm)

                              (string-append "--jemalloc-root=" jemalloc "/lib")

                              "--release-channel=stable"

                              "--enable-rpath"

                              "--enable-local-rust"

                              "--disable-manage-submodules")))

                 (substitute* "src/bootstrap/bootstrap.py"

                   (("self.get_toml\\('cargo'\\)") 

                    (string-append "\"" (assoc-ref inputs "cargo") "/bin/cargo\"")))

                 ;; Rust uses a custom configure script (no autoconf).

                 (zero? (apply system* "./configure" flags)))))

           (delete 'patch-configure)))))))

(define-public rustc-1.18

  (package

    (inherit rustc-1.17)

    (version "1.18.0")

    (source (origin

              (method url-fetch)

              (uri (string-append

                    "https://static.rust-lang.org/dist/"

                    "rustc-" version "-src.tar.gz"))

              (sha256

               (base32

                "11sg2y38x2psvc1gvhcd10fcszih2sljhnnfyqnlkwkmbf4s7asb"))

            (modules '((guix build utils)))

            (snippet

             `(begin

                (delete-file-recursively "src/llvm")

                #t))))

    (native-inputs

     `(("bison" ,bison) ; For the tests

       ("cmake" ,cmake)

       ("flex" ,flex) ; For the tests

       ("git" ,git)

       ("procps" ,procps) ; For the tests

       ("python-2" ,python-2)

       ("rustc-bootstrap" ,rustc-1.17)

       ("which" ,which)))))

(define-public rustc-1.19

  (package

    (inherit rustc-1.18)

    (version "1.19.0")

    (source (origin

              (method url-fetch)

              (uri (string-append

                    "https://static.rust-lang.org/dist/"

                    "rustc-" version "-src.tar.gz"))

              (sha256

               (base32

                "11sg2y38x2psvc1gvhcd10fcszih2sljhnnfyqnlkwkmbf4s7asb"))

            (modules '((guix build utils)))

            (snippet

             `(begin

                (delete-file-recursively "src/llvm")

                #t))))

    (native-inputs

     `(("bison" ,bison) ; For the tests

       ("cmake" ,cmake)

       ("flex" ,flex) ; For the tests

       ("git" ,git)

       ("procps" ,procps) ; For the tests

       ("python-2" ,python-2)

       ("rust-bootstrap" ,rustc-1.18)

       ("which" ,which)))))

(define-public rustc-1.20

  (package

    (inherit rustc-1.19)

    (version "1.20.0")

    (source (origin

              (method url-fetch)

              (uri (string-append

                    "https://static.rust-lang.org/dist/"

                    "rustc-" version "-src.tar.gz"))

              (sha256

               (base32

                "11sg2y38x2psvc1gvhcd10fcszih2sljhnnfyqnlkwkmbf4s7asb"))

            (modules '((guix build utils)))

            (snippet

             `(begin

                (delete-file-recursively "src/llvm")

                #t))))

    (native-inputs

     `(("bison" ,bison) ; For the tests

       ("cmake" ,cmake)

       ("flex" ,flex) ; For the tests

       ("git" ,git)

       ("procps" ,procps) ; For the tests

       ("python-2" ,python-2)

       ("rustc-bootstrap" ,rustc-1.19)

       ("which" ,which)))))

(define-public rustc-1.21

  (package

    (inherit rustc-1.20)

    (version "1.21.0")

    (source (origin

              (method url-fetch)

              (uri (string-append

                    "https://static.rust-lang.org/dist/"

                    "rustc-" version "-src.tar.gz"))

              (sha256

               (base32

                "11sg2y38x2psvc1gvhcd10fcszih2sljhnnfyqnlkwkmbf4s7asb"))

            (modules '((guix build utils)))

            (snippet

             `(begin

                (delete-file-recursively "src/llvm")

                #t))))

    (native-inputs

     `(("bison" ,bison) ; For the tests

       ("cmake" ,cmake)

       ("flex" ,flex) ; For the tests

       ("git" ,git)

       ("procps" ,procps) ; For the tests

       ("python-2" ,python-2)

       ("rustc-bootstrap" ,rustc-1.20)

       ("which" ,which)))))

       ("rust" ,rustc-1.21)))