(define-public java-zstd

  (package

    (name "java-zstd")

    (version "1.3.0-1")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/luben/zstd-jni/archive/v"

                                  version ".tar.gz"))

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

              (sha256

               (base32

                "1an6gqps3n1ddxdz8vyzdrq7xz2p6nvwdwpmwf52mfia0w71xl9a"))))

    (build-system ant-build-system)

    (arguments

     `(#:jar-name "java-zstd.jar"

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

       #:tests? #f)); Require scala

    (inputs

     `(("zstd" ,zstd)))

    (home-page "https://github.com/luben/zstd-jni")

    (synopsis "")

    (description "")

    (license license:bsd-2)))

    (version "13878")

                    (commit "1771fe8e7386f9e9a1fbf90837a6dda4371c5670")))

                "0mkbaijlzxq828si3f46avvi4vj8c88gg7g72bq95n75lj8i0saa"))

                   (delete-file-recursively "test/lib")

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

       ("java-zstd" ,java-zstd)))

             (delete-file "build.xml")

             #t))

                                  "</commit></entry></info>"))))

             #t))

               (invoke "javacc" "-DEBUG_PARSER=false"

                       "-DEBUG_TOKEN_MANAGER=false" "-JDK_VERSION=1.8"

                       "-GRAMMAR_ENCODING=UTF-8"

                       (string-append "-OUTPUT_DIRECTORY=" out)

                       file))

             #t))

             (invoke "java" "-cp" "build/classes:scripts:."

                     "BuildProjectionDefinitions" ".")

             #t))

             (rename-file "data" "build/classes/data")

             #t))

             (invoke "jar" "-cf" "build/jar/josm.jar" "-C"

                     "build/classes" ".")

             #t))

             (rename-file "styles" "build/classes/styles")

             #t))

             (rename-file "images" "build/classes/images")

             #t))

                                  "Build-Date: 1970-01-01 00:00:00 +0000\n"))))

             #t))

               (chmod (string-append bin "/josm") #o755))

             #t)))))

       ((guix build syscalls)

       ("gcc6" ,gcc-6)

       ("unzip" ,unzip)

       ("which" ,which)

       ("zip" ,zip)))

    (home-page "http://openjdk.java.net/projects/jdk9/")

    (synopsis "")

    (description "")

    (license license:gpl2)))

(define-public openjdk10

  (package

    (name "openjdk")

    (version "10+46")

    (source (origin

              (method url-fetch)

              (uri "http://hg.openjdk.java.net/jdk/jdk/archive/6fa770f9f8ab.tar.bz2")

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

              (sha256

               (base32

                "0zywq2203b4hx4jms9vbwvjcj1d3k2v3qpx4s33729fkpmid97r4"))))

    (build-system gnu-build-system)

    (outputs '("out" "jdk" "doc"))

    (arguments

     `(#:tests? #f; require jtreg

       #:imported-modules

       ((guix build syscalls)

        ,@%gnu-build-system-modules)

       #:phases

       (modify-phases %standard-phases

         (delete 'patch-source-shebangs)

         (replace 'configure

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

             (invoke "bash" "./configure"

                     (string-append "--with-freetype=" (assoc-ref inputs "freetype"))

                     "--disable-freetype-bundling"

                     "--disable-warnings-as-errors"

                     "--disable-hotspot-gtest"

                     (string-append "--prefix=" (assoc-ref outputs "out")))

             #t))

         (replace 'build

           (lambda _

             (with-output-to-file ".src-rev"

               (lambda _

                 (display ,version)))

             (setenv "GUIX_LD_WRAPPER_ALLOW_IMPURITIES" "yes")

             (invoke "make" "all")

             #t))

         ;; Some of the libraries in the lib/ folder link to libjvm.so.

         ;; But that shared object is located in the server/ folder, so it

         ;; cannot be found.  This phase creates a symbolic link in the

         ;; lib/ folder so that the other libraries can find it.

         ;;

         ;; See:

         ;; https://lists.gnu.org/archive/html/guix-devel/2017-10/msg00169.html

         ;;

         ;; FIXME: Find the bug in the build system, so that this symlink is

         ;; not needed.

         (add-after 'install 'install-libjvm

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

             (let* ((lib-out (string-append (assoc-ref outputs "out")

                                             "/lib"))

                    (lib-jdk (string-append (assoc-ref outputs "jdk")

                                             "/lib")))

               (symlink (string-append lib-jdk "/server/libjvm.so")

                        (string-append lib-jdk "/libjvm.so"))

               (symlink (string-append lib-out "/server/libjvm.so")

                        (string-append lib-out "/libjvm.so")))

             #t))

         (replace 'install

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

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

                   (jdk (assoc-ref outputs "jdk"))

                   (doc (assoc-ref outputs "doc"))

                   (images (car (find-files "build" ".*-server-release"

                                            #:directories? #t))))

               (copy-recursively (string-append images "/images/jdk") jdk)

               (copy-recursively (string-append images "/images/jre") out)

               (copy-recursively (string-append images "/images/docs") doc))

             #t))

         (add-after 'install 'strip-zip-timestamps

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

             (use-modules (guix build syscalls))

             (for-each (lambda (zip)

                         (let ((dir (mkdtemp! "zip-contents.XXXXXX")))

                           (with-directory-excursion dir

                             (invoke "unzip" zip))

                           (delete-file zip)

                           (for-each (lambda (file)

                                       (let ((s (lstat file)))

                                         (unless (eq? (stat:type s) 'symlink)

                                           (format #t "reset ~a~%" file)

                                           (utime file 0 0 0 0))))

                             (find-files dir #:directories? #t))

                           (with-directory-excursion dir

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

                               (apply invoke "zip" "-0" "-X" zip files)))))

               (find-files (assoc-ref outputs "doc") ".*.zip$"))

             #t)))))

    (inputs

     `(("alsa-lib" ,alsa-lib)

       ("cups" ,cups)

       ("fontconfig" ,fontconfig)

       ("freetype" ,freetype)

       ("libelf" ,libelf)

       ("libice" ,libice)

       ("libx11" ,libx11)

       ("libxcomposite" ,libxcomposite)

       ("libxi" ,libxi)

       ("libxinerama" ,libxinerama)

       ("libxrender" ,libxrender)

       ("libxt" ,libxt)

       ("libxtst" ,libxtst)))

    (native-inputs

     `(("openjdk9" ,openjdk9)

       ("openjdk9:jdk" ,openjdk9 "jdk")