From 6bf7467b077d419443d275581d6935852d1af434 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Mon, 26 Sep 2022 16:56:35 -0400
Subject: gnu: opendjk11: Reduce size by removing extraneous files.

By removing the *.diz and src.zip files, the size of the main output of
OpenJDK 11 is reduced from 345 MiB to 116 MiB for OpenJDK 11, while the 'jdk'
output is reduced from 805 MiB to 353 MiB.

* gnu/packages/java.scm (openjdk11)[modules]: New field.
[phases]{remove-diz-files}: New phase.
{strip-character-data-timestamps}: Order after remove-diz-files.
---
 gnu/packages/java.scm | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

(limited to 'gnu')

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 424ccc5862..d603cc8b36 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -1788,7 +1788,11 @@ (define-public openjdk11
      (list
       #:imported-modules `((guix build syscalls)
                            ,@%gnu-build-system-modules)
-
+      #:modules `((guix build gnu-build-system)
+                  (guix build utils)
+                  (ice-9 match)
+                  (srfi srfi-1)
+                  (srfi srfi-26))
       #:disallowed-references (list (gexp-input openjdk10)
                                     (gexp-input openjdk10 "jdk"))
 
@@ -1934,7 +1938,19 @@ (define (icedtea-or-openjdk? path)
                 (with-directory-excursion dir
                   (let ((files (find-files "." ".*" #:directories? #t)))
                     (apply invoke "zip" "-0" "-X" archive files))))))
-          (add-after 'strip-character-data-timestamps 'strip-archive-timestamps
+          (add-after 'strip-character-data-timestamps 'remove-extraneous-files
+            (lambda* (#:key outputs #:allow-other-keys)
+              ;; Remove the *.diz and src.zip files for space considerations.
+              ;; The former are compressed debuginfo files not typically
+              ;; shipped with Java distributions, while the later corresponds
+              ;; to Java core API source files.
+              (for-each delete-file
+                        (append-map (cut find-files <> "(^src\\.zip|\\.diz)$")
+                                    (map (match-lambda
+                                           ((name . dir)
+                                            dir))
+                                         outputs)))))
+          (add-after 'remove-diz-file 'strip-archive-timestamps
             (lambda _
               (use-modules (guix build syscalls)
                            (ice-9 binary-ports)
@@ -1961,7 +1977,7 @@ (define (icedtea-or-openjdk? path)
                 (for-each repack-archive
                           (find-files #$output:doc "\\.zip$"))
                 (for-each repack-archive
-                          (find-files #$output:jdk "\\.(zip|jar|diz)$"))
+                          (find-files #$output:jdk "\\.(zip|jar)$"))
                 (repack-archive (string-append #$output:jdk "/lib/ct.sym"))
                 (let ((repack-jmod
                        (lambda (file-name)
-- 
cgit v1.2.3