[PATCH] gnu: Add Icedtea 3.0.0pre09

[Ricardo Wurmus]

Hi Guix,

the latest icedtea-ified JDK has not yet been released, but this doesn’t
mean we can’t package it.

Attached is a patch to add “icedtea-8” (because it provides the JDK for
Java version 1.8).  It uses the upstream tarball for version 3.0.0pre09,
which I had to mirror on my own server because the Guile HTTP client
doesn’t like an invalid header in the response from
http://icedtea.classpath.org.

The version is declared as “2.99.99-pre09” so that version “3.0.0” (when
it is finally released) will be considered an update.

~~ Ricardo

>From 3b04fd84c64263cac33172b1e60aa19df968a55b Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <address@hidden>
Date: Thu, 10 Mar 2016 16:35:28 +0100
Subject: [PATCH] gnu: Add icedtea-8.

* gnu/packages/java.scm (icedtea-8): New variable.
---
 gnu/packages/java.scm | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 89 insertions(+)

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 9b6a647..3143787 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -741,4 +741,93 @@ build process and its dependencies, whereas Make uses 
Makefile format.")
          ,@(fold alist-delete (package-native-inputs icedtea-6)
                  '("openjdk6-src")))))))
 
+(define-public icedtea-8
+  (let* ((version "3.0.0")
+         (drop (lambda (name hash)
+                 (origin
+                   (method url-fetch)
+                   (uri (string-append
+                         "http://icedtea.classpath.org/download/drops/";
+                         "/icedtea8/" version "/" name ".tar.xz"))
+                   (sha256 (base32 hash))))))
+    (package (inherit icedtea-7)
+      ;; Officially, this version is called "3.0.0pre09", but we cannot use
+      ;; that as it leads up to version "3.0.0", which would not be recognized
+      ;; as an update.
+      (version "2.99.99-pre09")
+      (source (origin
+                (method url-fetch)
+                ;; TODO: downloading the tarball from
+                ;; 
http://icedtea.classpath.org/hg/icedtea/archive/icedtea-3.0.0pre09.tar.gz
+                ;; fails because the Guile HTTP rejects an invalid header.
+                (uri (string-append "http://elephly.net/downies/icedtea-";
+                                    "3.0.0pre09" ".tar.gz"))
+                (sha256
+                 (base32
+                  "1lh13j9v2xmigp06w2qni6ddddi7yk6xa641vk5j2r8ba31j2b1p"))
+                (modules '((guix build utils)))
+                (snippet
+                 '(substitute* "Makefile.am"
+                    ;; do not leak information about the build host
+                    (("DISTRIBUTION_ID=\"\\$\\(DIST_ID\\)\"")
+                     "DISTRIBUTION_ID=\"\\\"guix\\\"\"")))))
+      (arguments
+       (substitute-keyword-arguments (package-arguments icedtea-7)
+         ((#:configure-flags flags)
+          `(let ((jdk (assoc-ref %build-inputs "jdk")))
+             `(;;"--disable-bootstrap"
+               "--enable-bootstrap"
+               "--enable-nss"
+               "--disable-downloading"
+               "--disable-tests"      ;they are run in the check phase instead
+               "--with-openjdk-src-dir=./openjdk.src"
+               ,(string-append "--with-jdk-home=" jdk))))
+         ((#:phases phases)
+          `(modify-phases ,phases
+             (delete 'fix-x11-extension-include-path)
+             (delete 'patch-paths)
+             (delete 'set-additional-paths)
+             (delete 'patch-patches)
+             (add-before 'configure 'autogen
+               (lambda _ (zero? (system* "bash" "./autogen.sh"))))
+             (replace 'install
+               (lambda* (#:key outputs #:allow-other-keys)
+                 (let ((doc (string-append (assoc-ref outputs "doc")
+                                           "/share/doc/icedtea"))
+                       (jre (assoc-ref outputs "out"))
+                       (jdk (assoc-ref outputs "jdk")))
+                   (copy-recursively "openjdk.build/docs" doc)
+                   (copy-recursively "openjdk.build/images/j2re-image" jre)
+                   (copy-recursively "openjdk.build/images/j2sdk-image" jdk)
+                   #t)))))))
+      (native-inputs
+       `(("jdk" ,icedtea-7 "jdk")
+         ("openjdk-src"
+          ,(drop "openjdk"
+                 "1x55l6bbfi1nqf1qnkv3pd10ixpcckny9i2185902zxjsa0n9h7s"))
+         ("corba-drop"
+          ,(drop "corba"
+                 "1dsir6x9ah0cp1b7mjx67ycwzjfxbzxy2icbrbypwn6r67k4qfl8"))
+         ("jaxp-drop"
+          ,(drop "jaxp"
+                 "0k2iy6gcqmfavii9vh0qg1hwj26pmfgw2cvm3q4gvl6cb0n19psr"))
+         ("jaxws-drop"
+          ,(drop "jaxws"
+                 "0xxrhwi6xj7cw1ac49g6v7csvwaafd4d1hsydffspyijsbk0zbgk"))
+         ("jdk-drop"
+          ,(drop "jdk"
+                 "0scq1fslwffzqdrrgcrffjwq8z1y9ws3sybn6fl9240lfvnw4qab"))
+         ("langtools-drop"
+          ,(drop "langtools"
+                 "0vqyx8zpkx3ylf9q8v8zn8jh4m1cixkphq9wmwjbjdjmz2azxrf1"))
+         ("hotspot-drop"
+          ,(drop "hotspot"
+                 "1sjbiy2dalj50c17fb5df1jhhlhia9lc4wq15231n4s1rnh76ipq"))
+         ("nashorn-drop"
+          ,(drop "nashorn"
+                 "0ccqb8m0v7wlm5yq97mxy1spp6khjylfa6a0jc8nk8c29qih0dvm"))
+         ,@(fold alist-delete (package-native-inputs icedtea-7)
+                 '("gcj" "openjdk-src" "corba-drop" "jaxp-drop" "jaxws-drop"
+                   "jdk-drop" "langtools-drop" "hotspot-drop")))))))
+
 (define-public icedtea icedtea-7)
-- 
2.1.0