;;; GNU Guix --- Functional package management for GNU

;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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 (more packages scala)

  #:use-module ((guix licenses) #:prefix license:)

  #:use-module (gnu packages)

  #:use-module (guix packages)

  #:use-module (guix download)

  #:use-module (guix git-download)

  #:use-module (guix utils)

  #:use-module (guix build-system ant)

  #:use-module (guix build-system gnu)

  #:use-module (guix build-system trivial)

  #:use-module (gnu packages base)

  #:use-module (gnu packages bash)

  #:use-module (gnu packages compression)

  #:use-module (gnu packages java)

  #:use-module (gnu packages protobuf)

  #:use-module (more packages java))

;; This package downloads the so-called official version of scala, a pre-built

;; binary by the scala developers.

;; This binary should never be made part of Guix itself, because we have

;; ways to bootstrap it properly. The bootstrap project of scala takes time,

;; so in the meantime... here you are :(

(define-public scala-official

  (package

    (name "scala-official")

    (version "2.12.8")

    (source

      (origin

        (method url-fetch)

        (uri (string-append "https://downloads.lightbend.com/scala/"

                            version "/scala-" version ".tgz"))

        (sha256

         (base32

          "18w0vdbsp0q5rxglgalwlgkggld926bqi1fxc598rn4gh46a03j4"))))

    (build-system trivial-build-system)

    (arguments

     `(#:modules ((guix build utils))

       #:builder (begin

                   (use-modules (guix build utils))

                   (let* ((source (assoc-ref %build-inputs "source"))

                          (java (assoc-ref %build-inputs "icedtea-8"))

                          (bash (assoc-ref %build-inputs "bash"))

                          (tar (string-append

                                 (assoc-ref %build-inputs "tar")

                                 "/bin/tar"))

                          (gzip (assoc-ref %build-inputs "gzip"))

                          (output (assoc-ref %outputs "out"))

                          (bindir (string-append output "/bin")))

                     (mkdir-p output)

                     (setenv "PATH" (string-append (getenv "PATH") ":" gzip "/bin"))

                     (invoke tar "xf" source)

                     (copy-recursively "scala-2.12.8" output)

                     (chdir output)

                     (for-each delete-file (find-files "bin" "bat$"))

                     (substitute* (find-files "bin" ".*")

                       (("^#!.*")

                        (string-append "#!" bash "/bin/bash\n" "JAVA_HOME=" java)))))))

    (inputs

     `(("bash" ,bash)

       ("gzip" ,gzip)

       ("icedtea-8" ,icedtea-8)

       ("tar" ,tar)))

    (home-page "https://scala-lang.org/")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

;; TODO: put it in guix/build/java-utils.scm

;; TODO: remove contraband-* directories and regenerate them from contraband/

(define* (sbt-building-phase subprojects #:optional (kind-projector? #f))

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

     (define (build-subproject prefix name)

       (let ((build-directory (string-append "build/" name))

             (kind-projector (assoc-ref inputs "scala-kind-projector"))

             (jar-name (string-append

                         (if (> (string-length prefix) 0)

                           (string-replace prefix "-" (- (string-length prefix) 1))

                           "")

                         name ".jar"))

             (java-files

                (append

                  (find-files (string-append prefix name "/src/main/contraband-java")

                              ".*.java$")

                  (find-files (string-append prefix name "/src/main/java")

                              ".*.java$")))

             (scala-files

                (append

                  (find-files (string-append prefix name "/src/main/contraband-scala")

                              ".*.scala$")

                  (find-files (string-append prefix name "/src/main/scala")

                              ".*.scala$"))))

         (mkdir-p build-directory)

         (format #t "Building project ~a...~%" jar-name)

         (unless (eq? scala-files '())

           (apply invoke "scalac" "-classpath"

                  (string-append

                    (getenv "CLASSPATH") ":"

                    ;; Add any top-level directory in build that may contain

                    ;; .class files, but don't actually add build/ iteself or

                    ;; any individual class file.

                    (string-join

                      (filter (lambda (s) (eq? (string-count s #\/) 1))

                              (find-files "build" "." #:directories? #t))

                      ":"))

                  "-d" build-directory "-language:experimental.macros"

                  (if ,kind-projector?

                    (string-append "-Xplugin:" kind-projector

                                   "/share/java/kind-projector.jar")

                    "")

                  (append scala-files java-files)))

         (unless (eq? java-files '())

           (apply invoke "javac" "-classpath"

                  (string-append

                    (getenv "CLASSPATH") ":"

                    (string-join

                      (filter (lambda (s) (eq? (string-count s #\/) 1))

                              (find-files "build" "." #:directories? #t))

                      ":"))

                  "-d" build-directory java-files))

         (invoke "jar" "cf" (string-append "build/jar/" jar-name)

                 "-C" build-directory ".")))

     (mkdir-p "build/jar")

     (for-each (lambda (project)

                   (build-subproject (car project) (cadr project)))

       '(,@subprojects))

     #t))

(define-public sbt-boilerplate-standalone

  (package

    (name "sbt-boilerplate-standalone")

    (version "0.6.1")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/sbt/sbt-boilerplate/archive/v"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "1xzh7qrsl2nmnbyzlmrshzfsf8b4qgf6yaqm1hn3qnzk6761p2jy"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-before 'build 'add-standalone

           (lambda _

             (substitute* "src/main/scala/spray/boilerplate/Generator.scala"

               (("object Generator \\{")

                "object Generator {

def main(args: Array[String]): Unit = {

    val num = args(2).toInt

    val file = scala.io.Source.fromFile(args(0))

    val content = file.mkString

    val result = new java.io.PrintWriter(new java.io.File(args(1)))

    file.close

    result.write(generateFromTemplate(content, num))

    result.close()

}"))

             #t))

         (replace 'build

           (lambda _

             (mkdir-p "build/classes")

             (mkdir-p "build/jar")

             (invoke "scalac" "-classpath" (getenv "CLASSPATH")

                     "-d" "build/classes"

                     "src/main/scala/spray/boilerplate/Generator.scala"

                     "src/main/scala/spray/boilerplate/TemplateParser.scala")

             (invoke "jar" "-cf" "build/jar/boilerplate.jar"

                     "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars "build")))))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "https://github.com/sbt/sbt-boilerplate")

    (synopsis "")

    (description "")

    (license license:bsd-2)))

(define-public scala-sjsonnew

  (package

    (name "scala-sjsonnew")

    (version "0.8.2")

    (source

      (origin

        (method url-fetch)

        (uri (string-append "https://github.com/eed3si9n/sjson-new/archive/v"

                            version ".tar.gz"))

        (file-name (string-append name "-" version ".tar.gz"))

        (sha256

         (base32

          "1rv0c50af5kn27x51g650wl2ig94z52fhs0rn8ykahpz4jhg1p7p"))))

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-before 'build 'generate-boilerplate

           (lambda _

             ; CaseClassFormats.scala.template  FlatUnionFormats.scala.template  TupleFormats.scala.template  UnionFormats.scala.template

             (invoke "java" "-cp" (getenv "CLASSPATH") "spray.boilerplate.Generator"

                     "core/src/main/boilerplate/sjsonnew/CaseClassFormats.scala.template"

                     "core/src/main/scala/sjsonnew/CaseClassFormats.scala" "22")

             (invoke "java" "-cp" (getenv "CLASSPATH") "spray.boilerplate.Generator"

                     "core/src/main/boilerplate/sjsonnew/FlatUnionFormats.scala.template"

                     "core/src/main/scala/sjsonnew/FlatUnionFormats.scala" "22")

             (invoke "java" "-cp" (getenv "CLASSPATH") "spray.boilerplate.Generator"

                     "core/src/main/boilerplate/sjsonnew/TupleFormats.scala.template"

                     "core/src/main/scala/sjsonnew/TupleFormats.scala" "22")

             (invoke "java" "-cp" (getenv "CLASSPATH") "spray.boilerplate.Generator"

                     "core/src/main/boilerplate/sjsonnew/UnionFormats.scala.template"

                     "core/src/main/scala/sjsonnew/UnionFormats.scala" "22")

             #t))

         (replace 'build

           (lambda _

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "core/src/main/scala" ".*.scala$"))

             (mkdir-p "build/jar")

             (invoke "jar" "-cf" "build/jar/sjsonnew.jar"

                     "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars "build")))))

    (build-system ant-build-system)

    (native-inputs

     `(("scala" ,scala-official)

       ("sbt-boilerplate-standalone" ,sbt-boilerplate-standalone)))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:asl2.0)))

(define-public scala-scalajson

  (package

    (name "scala-scalajson")

    (version "1.0.0-M4")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/mdedetrich/scalajson/archive/v" version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "0k4dj2zm7zilhshdnvqi9n17qr4szc5s9ymsm9imgqpr8r5hm2vj"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

           (lambda _

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "shared/src/main/scala" ".*.scala$"))

             (mkdir-p "build/jar")

             (invoke "jar" "-cf" "build/jar/scalajson-shared.jar"

                     "-C" "build/classes" ".")

             (delete-file-recursively "build/classes")

             (setenv "CLASSPATH" (string-append (getenv "CLASSPATH") ":build/jar/scalajson-shared.jar"))

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "jvm/src/main/scala" ".*.scala$"))

             (mkdir-p "build/jar")

             (invoke "jar" "-cf" "build/jar/scalajson-jvm.jar"

                     "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars "build")))))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

;; Latest is 0.13.0, but this version is required for scala-jsonnew

(define-public scala-jawn

  (package

    (name "scala-jawn")

    (version "0.10.4")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/non/jawn/archive/v"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "1iic1rp7w7vsy0xhi40rcp339vcq5b4b46f51qrkfpv433f7hafi"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

           (lambda _

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "util/src/main/scala" ".*.scala$"))

             (mkdir-p "build/jar")

             (invoke "jar" "-cf" "build/jar/jawn-util.jar"

                     "-C" "build/classes" ".")

             (delete-file-recursively "build/classes")

             (setenv "CLASSPATH" (string-append (getenv "CLASSPATH") ":build/jar/scalajson-shared.jar"))

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "parser/src/main/scala" ".*.scala$"))

             (mkdir-p "build/jar")

             (invoke "jar" "-cf" "build/jar/jawn-parser.jar"

                     "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars "build")))))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public scala-sjsonnew-support-scalajson

  (package

    (inherit scala-sjsonnew)

    (name "scala-sjsonnew-support-scalajson")

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

           (lambda _

             (substitute* (find-files "." ".*.scala")

               (("shaded.scalajson") "scalajson"))

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "support/scalajson/src/main/scala" ".*.scala$"))

             (mkdir-p "build/jar")

             (invoke "jar" "-cf" "build/jar/sjsonnew-support-scalajson.jar"

                     "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars "build")))))

    (inputs

     `(("scala-sjsonnew" ,scala-sjsonnew)

       ("scala-scalajson" ,scala-scalajson)

       ("scala-jawn" ,scala-jawn)))))

(define-public scala-sjsonnew-support-murmurhash

  (package

    (inherit scala-sjsonnew)

    (name "scala-sjsonnew-support-murmurhash")

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

           (lambda _

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "support/murmurhash/src/main/scala" ".*.scala$"))

             (mkdir-p "build/jar")

             (invoke "jar" "-cf" "build/jar/sjsonnew-support-murmurhash.jar"

                     "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars "build")))))

    (inputs

     `(("scala-sjsonnew" ,scala-sjsonnew)))))

(define-public scala-kind-projector

  (package

    (name "scala-kind-projector")

    (version "0.9.9")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/non/kind-projector/archive/v"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "125amrhy7ri0z4bk2jzghg7341fm88a0p6gw3qg5diminlpaida3"))))

    (build-system ant-build-system)

    (arguments

     `(#:phases

       (modify-phases %standard-phases

         (replace 'build

           (lambda _

             (mkdir-p "build/classes")

             (mkdir-p "build/jar")

             (copy-recursively "src/main/resources" "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "src/main/scala" ".*.scala$"))

             (invoke "jar" "-cf" "build/jar/kind-projector.jar"

                     "-C" "build/classes" ".")

             #t))

         (replace 'check

           (lambda _

             (mkdir-p "build/test-classes")

             (copy-recursively "src/test/resources" "build/test-classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-Xplugin:build/jar/kind-projector.jar"

                    "-d" "build/test-classes"

                    (find-files "src/test/scala" ".*.scala$"))

             ;; TODO: actually run the tests... :D

             #t))

         (replace 'install

           (install-jars "build")))))

    (native-inputs

     `(("scala-official" ,scala-official)

       ("java-junit" ,java-junit)))

    (home-page "https://github.com/non/kind-projector")

    (synopsis "Scala compiler plugin for type lambda")

    (description "Kind projector is a Scala compiler plugin for making type

lambdas (type projections) easier to write.")

    (license license:expat)))

(define-public sbt-util

  (package

    (name "sbt-util")

    (version "1.2.4")

    (source

      (origin

        (method url-fetch)

        (uri (string-append "https://github.com/sbt/util/archive/v"

                            version ".tar.gz"))

        (file-name (string-append "sbt-util-" version ".tar.gz"))

        (sha256

         (base32

          "04ss1q4rl272ryxys05zmd4j2gm3aanaiqn6dmqbh6jii934pyxg"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-before 'build 'fix-sjsonnew

           (lambda _

             (substitute* (find-files "." ".*.scala")

               (("sjsonnew.shaded.") ""))

             #t))

         (replace 'build

           ,(sbt-building-phase

              '(("internal/" "util-position")

                ("internal/" "util-control")

                ("internal/" "util-interface")

                ("internal/" "util-logging")

                ("internal/" "util-relation")

                ("internal/" "util-scripted")

                ("" "util-cache")

                ("" "util-tracking"))))

         (replace 'install

           (install-jars ".")))))

    (inputs

     `(("java-log4j-api" ,java-log4j-api-for-sbt)

       ("java-log4j-core" ,java-log4j-core-for-sbt)

       ("sbt-io" ,sbt-io)

       ("scala-jawn" ,scala-jawn)

       ("scala-scalajson" ,scala-scalajson)

       ("scala-sjsonnew" ,scala-sjsonnew)

       ("scala-sjsonnew-support-murmurhash" ,scala-sjsonnew-support-murmurhash)

       ("scala-sjsonnew-support-scalajson" ,scala-sjsonnew-support-scalajson)))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "https://www.scala-sbt.org/")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public java-log4j-api-for-sbt

  (package

    (inherit java-log4j-api)

    (version "2.8.1")

    ;(version "2.11.1")

    (arguments

     (ensure-keyword-arguments (package-arguments java-log4j-api)

       `(#:source-dir "src/main/java"

         #:phases

         (modify-phases %standard-phases

           (add-after 'unpack 'chdir

             (lambda _

               (chdir "log4j-api")

               #t))

           (add-before 'build 'fix-ambiguous

             (lambda _

               (substitute* "src/main/java/org/apache/logging/log4j/message/MapMessage.java"

                 (("append\\(data") "append((CharSequence)data"))

               #t))))))

    (source (origin

              (method url-fetch)

              (uri (string-append "mirror://apache/logging/log4j/" version

                                  "/apache-log4j-" version "-src.tar.gz"))

              (sha256

               (base32

                "0x5gksgh0jkvd7k70rqrs2hy3glms0pkj6lhl26m6f83x1b6kvdm"))))))

                ;"1dhxnd0348is21w93m1rv2sbfwyx83rv63adnbd0bgjq01gzbvic"))))))

;; More dependencies needed

(define-public java-log4j-core-for-sbt

  (package

    (inherit java-log4j-api-for-sbt)

    (name "java-log4j-core")

    (inputs

     `(("java-osgi-core" ,java-osgi-core)

       ("java-hamcrest-core" ,java-hamcrest-core)

       ("java-log4j-api" ,java-log4j-api-for-sbt)

       ("java-mail" ,java-mail)

       ("java-jansi" ,java-jansi)

       ("java-jboss-jms-api-spec" ,java-jboss-jms-api-spec)

       ("java-jctools-core" ,java-jctools-core)

       ("java-lmax-disruptor" ,java-lmax-disruptor)

       ("java-kafka" ,java-kafka-clients)

       ("java-datanucleus-javax-persistence" ,java-datanucleus-javax-persistence)

       ("java-fasterxml-jackson-annotations" ,java-fasterxml-jackson-annotations)

       ("java-fasterxml-jackson-core" ,java-fasterxml-jackson-core)

       ("java-fasterxml-jackson-databind" ,java-fasterxml-jackson-databind)

       ("java-fasterxml-jackson-dataformat-xml" ,java-fasterxml-jackson-dataformat-xml)

       ("java-fasterxml-jackson-dataformat-yaml" ,java-fasterxml-jackson-dataformat-yaml)

       ("java-commons-compress" ,java-commons-compress)

       ("java-commons-csv" ,java-commons-csv)

       ("java-conversantmedia-disruptor" ,java-conversantmedia-disruptor)

       ("java-jcommander" ,java-jcommander)

       ("java-stax2-api" ,java-stax2-api)

       ("java-jeromq" ,java-jeromq)

       ("java-junit" ,java-junit)))

    (native-inputs

     `(("hamcrest" ,java-hamcrest-all)

       ("java-commons-io" ,java-commons-io)

       ("java-commons-lang3" ,java-commons-lang3)

       ("slf4j" ,java-slf4j-api)))

    (arguments

     `(#:tests? #f ; tests require more dependencies

       #:test-dir "src/test"

       #:source-dir "src/main/java"

       #:jar-name "log4j-core.jar"

       #:make-flags

       (list (string-append "-Ddist.dir=" (assoc-ref %outputs "out")

                            "/share/java"))

       #:phases

       (modify-phases %standard-phases

         (add-after 'unpack 'enter-dir

           (lambda _ (chdir "log4j-core") #t))

         (add-before 'build 'fix-ambiguous

           (lambda _

             (substitute* "src/main/java/org/apache/logging/log4j/core/pattern/MapPatternConverter.java"

               (("append\\(sortedMap") "append((CharSequence)sortedMap"))

             #t)))))

    (synopsis "Core component of the Log4j framework")

    (description "This package provides the core component of the Log4j

logging framework for Java.")))

;; TODO: Update to 2.0.6?

(define-public java-swoval-apple-file-events

  (package

    (name "java-swoval-apple-file-events")

    (version "1.3.2")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/swoval/swoval/archive/v"

                                  version ".tar.gz"))

              (file-name (string-append "scala-swoval-" version ".tar.gz"))

              (sha256

               (base32

                "0ivrc4lcali84xp8frkjb2zi1l3lw8pim9xbkfah5iyj120gw6mq"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f; no tests

       #:jar-name "apple-file-events.jar"

       #:source-dir "apple-file-events/jvm/src/main/java"))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:expat)))

(define-public sbt-io

  (package

    (name "sbt-io")

    (version "1.2.2")

    (source

      (origin

        (method url-fetch)

        (uri (string-append "https://github.com/sbt/io/archive/v"

                            version ".tar.gz"))

        (file-name (string-append name "-" version ".tar.gz"))

        (sha256

         (base32

          "0f9yjrrcr15kx2fn7w8f8swpx2dsx5zn95yg744l9gi2ri2qpyj5"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

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

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath"

                    (string-append (getenv "CLASSPATH") ":build/util-interface")

                    "-d" "build/classes"

                    (append

                      (find-files "io/src/main/java" ".*.java$")

                      (find-files "io/src/main/scala" ".*.scala$")

                      (find-files "io/src/main/contraband-scala" ".*.scala$")))

             (invoke "jar" "cf" "sbt-io.jar" "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars ".")))))

    (inputs

     `(("java-native-access" ,java-native-access)

       ("java-native-access-platform" ,java-native-access-platform)

       ("java-swoval-apple-file-events" ,java-swoval-apple-file-events)

       ("scala" ,scala-official)))

    (home-page "https://www.scala-sbt.org/")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public scala-ssl-config

  (package

    (name "scala-ssl-config")

    (version "0.3.7")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/lightbend/ssl-config/archive/v"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "0sg477705flhcdnhjyl8v9jkhx1xfsnc73md8iva1agylpj5546f"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

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

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (find-files "ssl-config-core/src/main/scala" ".*.scala$"))

             (invoke "jar" "cf" "okhttp.jar" "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars ".")))))

    (inputs

     `(("java-config" ,java-config)))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:asl2.0)))

(define-public scala-okhttp

  (package

    (name "scala-okhttp")

    (version "0.3.1")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/eed3si9n/gigahorse/archive/v"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "06ac03vr0cyr63zw0ibdwmswa03crm6i8mb00y69zpkm2jxqq2mb"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

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

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (append

                      (find-files "core/src/main/scala" ".*.scala$")

                      (find-files "okhttp/src/main/scala" ".*.scala$")

                      (find-files "core/src/main/contraband-scala" ".*.scala$")))

             (invoke "jar" "cf" "okhttp.jar" "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars ".")))))

    (inputs

     `(("java-config" ,java-config)

       ("java-reactive-streams" ,java-reactive-streams)

       ("java-slf4j-api" ,java-slf4j-api)

       ("java-okhttp" ,java-okhttp)

       ("java-okio" ,java-okio)

       ("scala-ssl-config" ,scala-ssl-config)))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:asl2.0)))

(define-public sbt-launcher

  (package

    (name "sbt-launcher")

    (version "1.0.4")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/sbt/launcher/archive/v" version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "1a9dfqm47fn2nbqvjl723s0h16jf71cgnilg1i7gz6h4a7i0snak"))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

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

             (define (split n str)

               (if (<= (string-length str) n)

                 (list str)

                 (cons (substring str 0 n) (split n (substring str n)))))

             (substitute* "launcher-implementation/src/main/input_sources/CrossVersionUtil.scala"

               (("\\$\\{\\{cross.package0\\}\\}") "xsbt")

               (("\\$\\{\\{cross.package1\\}\\}") "boot"))

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"

                    (append

                      (find-files "launcher-interface/src/main/java" ".*.java$")

                      (find-files "launcher-implementation/src/main/input_sources" ".*.scala$")

                      (find-files "launcher-implementation/src/main/scala" ".*.scala$")))

             (apply invoke "javac" "-cp" (string-append (getenv "CLASSPATH") ":build/classes")

                    "-d" "build/classes"

                    (find-files "launcher-interface/src/main/java" ".*.java$"))

             (mkdir-p "build/classes/META-INF")

             (with-output-to-file "build/classes/META-INF/MANIFEST.MF"

               (lambda _

                 (format #t "Manifest-Version: 1.0\n")

                 (format #t "Class-Path: ~a\n"

                         (string-join

                           (split

                             58

                             (string-join

                               (map

                                 (lambda (jar)

                                   ;; We can't use absolute paths with java 8 :/

                                   (string-append "../../../../../../../../.." jar))

                                 (string-split (getenv "CLASSPATH") #\:))

                               " "))

                            "\n "))

                 (format #t "Main-Class: xsbt.boot.Boot\n\n")))

             (invoke "jar" "cfm" "sbt-launcher.jar" "build/classes/META-INF/MANIFEST.MF"

                     "-C" "build/classes" ".")

             #t))

         (replace 'install

           (install-jars ".")))))

    (inputs

     `(("java-apache-ivy" ,java-apache-ivy)))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:bsd-3)))

(define-public sbt-librarymanagement

  (package

    (name "sbt-librarymanagement")

    (version "1.2.4")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/sbt/librarymanagement/archive/v" version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "0g37agv3xkq1fjl9a25ybcdk4d5aq1m81rz5d2a8zvny135m73gl"))

              (modules '((guix build utils)))

              (snippet

                `(begin

                   (for-each delete-file (find-files "." ".*.jar"))

                   #t))))

    (build-system ant-build-system)

    (arguments

     `(#:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-before 'build 'fix-sjsonnew

           (lambda _

             (substitute* (find-files "." ".*.scala")

               (("sjsonnew.shaded.") ""))

             #t))

         (replace 'build

           ,(sbt-building-phase

              `(("" "core")

                ("" "ivy"))))

         (replace 'install

           (install-jars ".")))))

    (inputs

     `(("java-apache-ivy" ,java-apache-ivy)

       ("java-okhttp" ,java-okhttp)

       ("java-okhttp-urlconnection" ,java-okhttp-urlconnection)

       ("java-okio" ,java-okio)

       ("sbt-launcher" ,sbt-launcher)

       ("sbt-util" ,sbt-util)

       ("sbt-io" ,sbt-io)

       ("scala-jawn" ,scala-jawn)

       ("scala-okhttp" ,scala-okhttp)

       ("scala-scalajson" ,scala-scalajson)

       ("scala-sjsonnew" ,scala-sjsonnew)

       ("scala-sjsonnew-support-murmurhash" ,scala-sjsonnew-support-murmurhash)

       ("scala-sjsonnew-support-scalajson" ,scala-sjsonnew-support-scalajson)))

    (native-inputs

     `(("scala" ,scala-official)))

    (home-page "")

    (synopsis "")

    (description "")

    ;; From core/NOTICE

    ;; XXX: WARNING: no license in ivy/

    (license license:bsd-2)))

;; LICENSE?

(define-public scala-protoc-bridge

  (package

    (name "scala-protoc-bridge")

    (version "0.7.3")

    (source

      (origin

        (method url-fetch)

        (uri (string-append "https://github.com/scalapb/protoc-bridge/archive/v"

                            version ".tar.gz"))

        (file-name (string-append name "-" version ".tar.gz"))

        (sha256

         (base32

          "17xjsa70h0w80rhps00kj42fmghk98c789aaa19g4bii2j1ckry8"))))

    (build-system ant-build-system)

    (arguments

     `(#:phases

       (modify-phases %standard-phases

         (add-before 'build 'fix-script

           (lambda _

             (substitute* "src/main/scala/protocbridge/frontend/PosixPluginFrontend.scala"

               (("/usr/bin/env sh") (which "sh")))

             #t))

         (replace 'build

           (lambda _

             (mkdir-p "build/classes")

             (apply invoke "scalac" "-classpath" (getenv "CLASSPATH")

                    "-d" "build/classes"