gnu: libbluray: Build BD-J for Blu-ray menu support.

Note that this augments the closure of ffmpeg from 958.4 Mio to 1295.2 Mio, or
26%; it seems justified by the fact that a library called `libbluray' should
provide complete support for handling Blu-ray discs.

* gnu/packages/video.scm (libbluray)
[#:disallowed-references]: New.
[#:phases] {set-java-home}: New.
{patch-dlopen-calls}: Patch JDK_HOME macro/string.
[native-inputs]: Add ant, openjdk11:jdk.
[inputs]: Add openjdk11.

Change-Id: Ifd40f85034b0d843414827464554b558af20d29c

1 files changed, 24 insertions, 2 deletions

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index d5da0c6571a..c81680737cf 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -177,6 +177,7 @@
   #:use-module (gnu packages image-processing)
   #:use-module (gnu packages imagemagick)
   #:use-module (gnu packages iso-codes)
+  #:use-module (gnu packages java)
   #:use-module (gnu packages kde-frameworks)
   #:use-module (gnu packages libbsd)
   #:use-module (gnu packages libcanberra)
@@ -3753,8 +3754,18 @@ soon as it starts.")
     (build-system meson-build-system)
     (arguments
      (list
+      #:disallowed-references
+      (list (gexp-input (this-package-native-input "openjdk") "jdk"))
       #:phases
       #~(modify-phases %standard-phases
+          (add-before 'build 'set-java-home
+            (lambda* (#:key inputs #:allow-other-keys)
+              ;; There is a jdk_home build option, but it conflates build-time
+              ;; (openjdk:jdk) and runtime (openjdk), so use JAVA_HOME
+              ;; instead.
+              (setenv "JAVA_HOME"
+                      #$(gexp-input (this-package-native-input "openjdk")
+                                    "jdk"))))
           (add-after 'unpack 'fix-dlopen-paths
             (lambda* (#:key inputs #:allow-other-keys)
               (define (lib/no.so library)
@@ -3764,6 +3775,14 @@ soon as it starts.")
               (substitute* "src/libbluray/disc/aacs.c"
                 (("\"libaacs\"")
                  (string-append "\"" (lib/no.so "lib/libaacs.so") "\"")))
+              (substitute* "src/libbluray/bdj/bdj.c"
+                ;; Manually fix the JDK_HOME macro that is set by Meson for
+                ;; the `jdk_home' option and embedded in the binaries for use
+                ;; at runtime.  The Meson option is not used because we need
+                ;; to build with the 'jdk' output but don't want to retain a
+                ;; reference to it.
+                (("JDK_HOME")
+                 (format #f "~s" #$(this-package-input "openjdk"))))
               (substitute* "src/libbluray/disc/bdplus.c"
                 (("\"libbdplus\"")
                  (string-append "\"" (lib/no.so "lib/libbdplus.so") "\"")))))
@@ -3784,8 +3803,11 @@ soon as it starts.")
                                 " -L" (search-input-vicinity "freetype")
                                 " -L" (search-input-vicinity "fontconfig")
                                 " -lxml2 -lfreetype -lfontconfig"))))))))
-    (native-inputs (list pkg-config))
-    (inputs (list fontconfig freetype libaacs libbdplus libudfread libxml2))
+    ;; The latest OpenJDK 25 is not yet supported, so we use an older version
+    ;; that is a bit smaller and produces less warnings at runtime.
+    (native-inputs (list ant `(,openjdk11 "jdk") pkg-config))
+    (inputs (list fontconfig freetype libaacs libbdplus libudfread libxml2
+                  openjdk11))
     (home-page "https://www.videolan.org/developers/libbluray.html")
     (synopsis "Blu-Ray Disc playback library")
     (description