+ #:use-module (guix build-system copy)

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

+ #:use-module (gnu packages ninja)

+ openjdk24 "25.0.1"

+ "10v7pr0aplv7qjpnqbgh27lcm89ixhg5g62ydg0dvcj0d24r95xp"

+ (outputs '("out" "jdk" "doc" "graal-builder-jdk"))

+ (arguments

+ (substitute-keyword-arguments (package-arguments base)

+ ;; Set version string to "25.0.1+8" instead of "25.0.1+-adhoc...".

+ ;; GraalVM's JVMCIVersionCheck requires java.vm.version to be parseable

+ ;; as a release version (pre() empty or "ea"), not an adhoc build.

+ ;; Build number 8 comes from the jdk-25.0.1+8 tag which points to the

+ ;; same commit as jdk-25.0.1-ga (78770bfaefd23ae77ec4f8ddd769c1c2d9c282df).

+ ((#:configure-flags flags #~'())

+ #~(append #$flags

+ '("--with-version-opt="

+ "--with-version-build=8")))

+ ((#:phases phases)

+ #~(modify-phases #$phases

+ ;; Build graal-builder-image after the regular images.

+ (add-after 'build 'build-graal-builder-image

+ (lambda* (#:key parallel-build? make-flags #:allow-other-keys)

+ (apply invoke "make" "graal-builder-image"

+ `(,@(if parallel-build?

+ (list (string-append "JOBS="

+ (number->string (parallel-job-count))))

+ '("JOBS=1"))

+ ,@make-flags))))

+ ;; Install the graal-builder-jdk to the extra output.

+ (add-after 'install 'install-graal-builder-jdk

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

+ (let ((images (car (find-files "build" "-server-release"

+ #:directories? #t))))

+ (copy-recursively (string-append images "/images/graal-builder-jdk")

+ (assoc-ref outputs "graal-builder-jdk")))))

+ ;; Create libjvm.so symlink for graal-builder-jdk output.

+ (add-after 'install-graal-builder-jdk 'install-libjvm-graal-builder-jdk

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

+ (let ((lib-graal (string-append (assoc-ref outputs "graal-builder-jdk")

+ "/lib")))

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

+ (string-append lib-graal "/libjvm.so")))))))))))

+

+ (version "7.0.13")

+ (commit (string-append "javacc-" version))))

+ (base32 "0mwbgqk41471iqsa9q2zydyw7l76xnmndyzrpp9nswy9hql6yclw"))

+(define-public java-qdox-2

+ (name "java-qdox-2")

+ (version "2.2.0")

+ "1j3xdbh590x2yiqqrrbf0bb43djyzjzjibqxfnj80341fgfhcj31"))))

+ `(#:jar-name "qdox.jar"

+ #:jdk ,openjdk11

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'install 'create-pom

+ (generate-pom.xml "pom.xml" "com.thoughtworks.qdox" "qdox" ,version

+ #:name "QDox"))

+ (replace 'install

+ (install-from-pom "pom.xml")))))))

+;; JUnit BOM (Bill of Materials) for dependency version management

+(define (make-junit-bom version hash)

+ (package

+ (name "junit-bom")

+ (version version)

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "https://repo1.maven.org/maven2/org/junit/junit-bom/"

+ version "/junit-bom-" version ".pom"))

+ (sha256 (base32 hash))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (delete 'configure)

+ (delete 'build)

+ (replace 'install

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

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

+ (pom-dir (string-append out "/lib/m2/org/junit/junit-bom/"

+ ,version)))

+ (mkdir-p pom-dir)

+ (copy-file source (string-append pom-dir "/junit-bom-" ,version ".pom"))))))))

+ (home-page "https://junit.org/junit5/")

+ (synopsis "JUnit 5 Bill of Materials")

+ (description "This package provides a Maven BOM (Bill of Materials) for

+JUnit 5, used for dependency version management.")

+ (license license:epl2.0)))

+

+(define-public junit-bom-5.11

+ (make-junit-bom "5.11.4" "05a1br7lqpisb5gcphaag8kn4rcqdwlm6i9knqjm7004n93vgm0r"))

+

+(define-public junit-bom-5.11.0

+ (make-junit-bom "5.11.0" "0kb4whmjm4xyh0n0gfj0nd38ks52yk4b23glfiisq914i3a5jx76"))

+

+ (version "3.5.1")

+ "0zm0svaffdkjqkj778zicxvij87hkbi9hhidx0343dqalikdsmqq"))))

+ ;; 3.5.x has multi-release JAR structure with java9/java10/java11 dirs

+ ;; under src/main/ containing duplicate classes for newer JVMs.

+ ;; Use src/main/java to compile only the base implementation.

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

+ (list plexus-parent-pom-10))

+(define-public java-plexus-xml

+ (package

+ (name "java-plexus-xml")

+ (version "3.0.1")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/codehaus-plexus/plexus-xml")

+ (commit (string-append "plexus-xml-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "0agwjmzqay7zg4wf2g7lf3gryl9hivr2cb89k0wvjx49r4rdrnhr"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "plexus-xml.jar"

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

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (replace 'install (install-from-pom "pom.xml")))))

+ (propagated-inputs

+ (list plexus-parent-pom-20))

+ (home-page "https://codehaus-plexus.github.io/plexus-xml/")

+ (synopsis "Plexus XML utilities")

+ (description "Plexus XML provides XML parsing and writing utilities.")

+ (license license:asl2.0)))

+

+(define-public java-plexus-utils-4

+ (package

+ (inherit java-plexus-utils)

+ (version "4.0.1")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/codehaus-plexus/plexus-utils")

+ (commit (string-append "plexus-utils-" version))))

+ (file-name (git-file-name "java-plexus-utils" version))

+ (sha256

+ (base32

+ "1prhjyrj985zgis89il5s91jgd3dr980dihl7zam1nda2ibl0mi9"))))

+ (arguments

+ (substitute-keyword-arguments (package-arguments java-plexus-utils)

+ ;; Tests require JUnit 5 (Jupiter) which is not yet available.

+ ((#:tests? _ #f)

+ #f)))

+ ;; In 4.x, the XML utilities (XmlStreamReader, XmlStreamWriter) were split

+ ;; out into the separate plexus-xml package.

+ (inputs

+ (list java-plexus-xml))))

+

+(define-public java-jtidy

+ (package

+ (name "java-jtidy")

+ (version "1.0.5")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/jtidy/jtidy")

+ (commit (string-append "jtidy-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "1i4jcg0ps2wmssk1p6yp9cd6di49pw2j30kplakvy1bnp3x7j4pp"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "jtidy.jar"

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

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'install 'generate-pom

+ (generate-pom.xml "pom.xml" "net.sf.jtidy" "jtidy" ,version))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ (home-page "https://jtidy.sourceforge.net/")

+ (synopsis "Java port of HTML Tidy")

+ (description "JTidy is a Java port of HTML Tidy, a HTML syntax checker

+and pretty printer. Like its non-Java cousin, JTidy can be used as a tool

+for cleaning up malformed and faulty HTML. In addition, JTidy provides a

+DOM interface to the document that is being processed, which effectively

+makes you able to use JTidy as a DOM parser for real-world HTML.")

+ (license license:bsd-3)))

+

+(define-public java-aircompressor

+ (package

+ (name "java-aircompressor")

+ (version "0.27")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/airlift/aircompressor")

+ (commit version)))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "061v9mfazig0350j8326mn0awgzfyk9dcg6jprqah9ajjfps9dry"))

+ (patches

+ (search-patches "java-aircompressor-remove-hadoop.patch"))

+ (modules '((guix build utils)))

+ (snippet

+ '(begin

+ ;; Remove Hadoop-related Java files

+ (delete-file-recursively

+ "src/main/java/io/airlift/compress/hadoop")

+ (for-each delete-file

+ (find-files "src/main/java" ".*Hadoop.*\\.java$"))

+ (for-each delete-file

+ (find-files "src/main/java" ".*Codec\\.java$"))))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "aircompressor.jar"

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

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'install 'generate-simple-pom

+ (lambda _

+ ;; Generate a simple pom without parent, since airbase:112 is not available.

+ (with-output-to-file "pom.xml"

+ (lambda ()

+ (display "<?xml version=\"1.0\" encoding=\"UTF-8\"?>

+<project>

+ <modelVersion>4.0.0</modelVersion>

+ <groupId>io.airlift</groupId>

+ <artifactId>aircompressor</artifactId>

+ <version>0.27</version>

+ <packaging>jar</packaging>

+ <name>aircompressor</name>

+</project>

+")))))

+ (replace 'install (install-from-pom "pom.xml")))))

+ (home-page "https://github.com/airlift/aircompressor")

+ (synopsis "Java compression library")

+ (description "Aircompressor is a Java library with ports of LZ4, Snappy,

+LZO, and Zstandard compression algorithms.")

+ (license license:asl2.0)))

+

+ (version "3.6.0")

+ "0ln51s9a6wjvkkh4q05g69422856qng467fyvbh39x27i0vhcyb0"))))

+ #:tests? #f

+ (list java-plexus-utils java-commons-io java-slf4j-api java-javax-inject))

+ (version "4.10.4")

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/codehaus-plexus/plexus-archiver")

+ (commit (string-append "plexus-archiver-" version))))

+ (file-name (git-file-name name version))

+ "0azdfcp5fbah8wqxdgs2rmyn0v8a5jciikw5ai4m9d2s92w0ypz4"))

+ (patches

+ (search-patches "java-plexus-archiver-add-components-xml.patch"))))

+ #:tests? #f

+ (add-after 'copy-resources 'create-sisu-index

+ ;; The sisu index file is normally generated by the sisu-maven-plugin

+ ;; during the Maven build. Since we use ant-build-system, we need to

+ ;; create it manually. This index is required for Plexus/Sisu to

+ ;; discover and inject the archiver components.

+ (lambda _

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

+ (call-with-output-file "build/classes/META-INF/sisu/javax.inject.Named"

+ (lambda (port)

+ (display "org.codehaus.plexus.archiver.bzip2.BZip2Archiver

+org.codehaus.plexus.archiver.bzip2.BZip2UnArchiver

+org.codehaus.plexus.archiver.bzip2.PlexusIoBz2ResourceCollection

+org.codehaus.plexus.archiver.bzip2.PlexusIoBzip2ResourceCollection

+org.codehaus.plexus.archiver.car.CarUnArchiver

+org.codehaus.plexus.archiver.car.PlexusIoCarFileResourceCollection

+org.codehaus.plexus.archiver.dir.DirectoryArchiver

+org.codehaus.plexus.archiver.ear.EarArchiver

+org.codehaus.plexus.archiver.ear.EarUnArchiver

+org.codehaus.plexus.archiver.ear.PlexusIoEarFileResourceCollection

+org.codehaus.plexus.archiver.esb.EsbUnArchiver

+org.codehaus.plexus.archiver.esb.PlexusIoEsbFileResourceCollection

+org.codehaus.plexus.archiver.filters.JarSecurityFileSelector

+org.codehaus.plexus.archiver.gzip.GZipArchiver

+org.codehaus.plexus.archiver.gzip.GZipUnArchiver

+org.codehaus.plexus.archiver.gzip.PlexusIoGzResourceCollection

+org.codehaus.plexus.archiver.gzip.PlexusIoGzipResourceCollection

+org.codehaus.plexus.archiver.jar.JarArchiver

+org.codehaus.plexus.archiver.jar.JarToolModularJarArchiver

+org.codehaus.plexus.archiver.jar.JarUnArchiver

+org.codehaus.plexus.archiver.jar.PlexusIoJarFileResourceCollection

+org.codehaus.plexus.archiver.manager.DefaultArchiverManager

+org.codehaus.plexus.archiver.nar.NarUnArchiver

+org.codehaus.plexus.archiver.nar.PlexusIoNarFileResourceCollection

+org.codehaus.plexus.archiver.par.ParUnArchiver

+org.codehaus.plexus.archiver.par.PlexusIoJarFileResourceCollection

+org.codehaus.plexus.archiver.rar.PlexusIoRarFileResourceCollection

+org.codehaus.plexus.archiver.rar.RarArchiver

+org.codehaus.plexus.archiver.rar.RarUnArchiver

+org.codehaus.plexus.archiver.sar.PlexusIoSarFileResourceCollection

+org.codehaus.plexus.archiver.sar.SarUnArchiver

+org.codehaus.plexus.archiver.snappy.PlexusIoSnappyResourceCollection

+org.codehaus.plexus.archiver.snappy.SnappyArchiver

+org.codehaus.plexus.archiver.snappy.SnappyUnArchiver

+org.codehaus.plexus.archiver.swc.PlexusIoSwcFileResourceCollection

+org.codehaus.plexus.archiver.swc.SwcUnArchiver

+org.codehaus.plexus.archiver.tar.PlexusIoTBZ2FileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTGZFileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTXZFileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTZstdFileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTarBZip2FileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTarFileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTarGZipFileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTarSnappyFileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTarXZFileResourceCollection

+org.codehaus.plexus.archiver.tar.PlexusIoTarZstdFileResourceCollection

+org.codehaus.plexus.archiver.tar.TBZ2Archiver

+org.codehaus.plexus.archiver.tar.TBZ2UnArchiver

+org.codehaus.plexus.archiver.tar.TGZArchiver

+org.codehaus.plexus.archiver.tar.TGZUnArchiver

+org.codehaus.plexus.archiver.tar.TXZArchiver

+org.codehaus.plexus.archiver.tar.TXZUnArchiver

+org.codehaus.plexus.archiver.tar.TZstdArchiver

+org.codehaus.plexus.archiver.tar.TZstdUnArchiver

+org.codehaus.plexus.archiver.tar.TarArchiver

+org.codehaus.plexus.archiver.tar.TarBZip2Archiver

+org.codehaus.plexus.archiver.tar.TarBZip2UnArchiver

+org.codehaus.plexus.archiver.tar.TarGZipArchiver

+org.codehaus.plexus.archiver.tar.TarGZipUnArchiver

+org.codehaus.plexus.archiver.tar.TarSnappyArchiver

+org.codehaus.plexus.archiver.tar.TarSnappyUnArchiver

+org.codehaus.plexus.archiver.tar.TarUnArchiver

+org.codehaus.plexus.archiver.tar.TarXZArchiver

+org.codehaus.plexus.archiver.tar.TarXZUnArchiver

+org.codehaus.plexus.archiver.tar.TarZstdArchiver

+org.codehaus.plexus.archiver.tar.TarZstdUnArchiver

+org.codehaus.plexus.archiver.war.PlexusIoWarFileResourceCollection

+org.codehaus.plexus.archiver.war.WarArchiver

+org.codehaus.plexus.archiver.war.WarUnArchiver

+org.codehaus.plexus.archiver.xz.PlexusIoXZResourceCollection

+org.codehaus.plexus.archiver.xz.XZArchiver

+org.codehaus.plexus.archiver.xz.XZUnArchiver

+org.codehaus.plexus.archiver.zip.PlexusArchiverZipFileResourceCollection

+org.codehaus.plexus.archiver.zip.ZipArchiver

+org.codehaus.plexus.archiver.zip.ZipUnArchiver

+org.codehaus.plexus.archiver.zstd.PlexusIoZstdResourceCollection

+org.codehaus.plexus.archiver.zstd.ZstdArchiver

+org.codehaus.plexus.archiver.zstd.ZstdUnArchiver

+" port)))))

+ (list java-plexus-utils

+ java-plexus-io

+ java-commons-compress

+ java-aircompressor

+ java-slf4j-api

+ java-xz

+ java-javax-inject))

+ (list java-jsr305))

+ #:tests? #f ;tests use ArchiverManager.ROLE removed in java-plexus-archiver 4.10

+ // Call System.exit() with execute()'s return code so errors

+ // actually cause the process to exit with non-zero status.

+ System.exit(new PlexusMetadataGeneratorCli().execute( args ));

+ (list java-plexus-container-default

+ java-plexus-component-annotations

+ java-plexus-utils

+ java-plexus-cli

+ java-plexus-classworlds

+ java-commons-cli

+ java-qdox

+ java-jdom2

+ java-asm-8

+ maven-plugin-api

+ maven-plugin-annotations

+ maven-model))

+ (list maven-core-bootstrap

+ java-junit

+ java-guava

+ java-geronimo-xbean-reflect))

+ "1316hrp5vqfv0aw7miq2fp0wwy833h66h502h29vnh5sxj27x228"))))

+ (arguments

+ (substitute-keyword-arguments

+ (package-arguments java-plexus-container-default)

+ ((#:tests? _ #t) #f)))))

+ ;; FIXME: Liar.

+ (("provided")

+ "test"))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ #:jdk ,openjdk11

+ (list java-asm java-qdox-2 java-javax-inject

+(define-public java-plexus-java-1

+ (package

+ (inherit java-plexus-java)

+ (version "1.4.0")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/codehaus-plexus/plexus-languages")

+ (commit (string-append "plexus-languages-" version))))

+ (file-name (git-file-name "java-plexus-java" version))

+ (sha256

+ (base32 "0xlhg4bz3dzakv8indfgl1k5dl5xll9h190rlyk9v1ghdzzz1iw2"))

+ (modules '((guix build utils)))

+ (snippet

+ '(for-each delete-file (find-files "." "\\.jar$")))))

+ (arguments

+ (substitute-keyword-arguments (package-arguments java-plexus-java)

+ ((#:phases phases)

+ `(modify-phases ,phases

+ ;; Replace the plexus metadata generation with Sisu index generation

+ (replace 'generate-metadata

+ (lambda _

+ ;; Generate Sisu index for @Named components

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

+ (with-output-to-file "build/classes/META-INF/sisu/javax.inject.Named"

+ (lambda _

+ (display "org.codehaus.plexus.languages.java.jpms.LocationManager\n")))

+ (invoke "ant" "jar")))))))

+ (propagated-inputs

+ (list java-asm-9 java-qdox-2 java-javax-inject

+ plexus-parent-pom-15))

+ (native-inputs

+ (modify-inputs (package-native-inputs java-plexus-java)

+ (append java-eclipse-sisu-inject)))))

+

+(define-public plexus-components-pom-6.6

+ (package

+ (name "plexus-components-pom")

+ (version "6.6")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/codehaus-plexus/plexus-components")

+ (commit (string-append "plexus-components-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "0vfx6kvvf96zb79y3b6xhm6kppxlmv2i8nz563bymn5jmp0b9d4w"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (delete 'configure)

+ (delete 'build)

+ (replace 'install

+ (install-pom-file "pom.xml")))))

+ (propagated-inputs

+ (list plexus-parent-pom-8))

+ (home-page "https://github.com/codehaus-plexus/plexus-components")

+ (synopsis "Maven parent pom for plexus packages")

+ (description "This package contains the parent pom for plexus component

+packages.")

+ (license license:asl2.0)))

+

+ #:test-dir "src/test"

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'fix-error-swallowing

+ (lambda _

+ ;; AbstractCli.execute() catches exceptions and calls showFatalError()

+ ;; or showError(), but ignores any return value and always returns 0.

+ ;; This silently swallows errors. Fix by returning 1 after errors.

+ ;; showFatalError returns int, so we can return its value directly.

+ ;; showError returns void, so we call it then return 1.

+ (substitute* "src/main/java/org/codehaus/plexus/tools/cli/AbstractCli.java"

+ (("^([ \t]+)showFatalError\\(" all indent)

+ (string-append indent "return showFatalError("))

+ (("^([ \t]+)(showError\\( .* \\);)" all indent call)

+ (string-append indent call " return 1;"))))))))

+ (version "9.7.1")

+ "0q1i01al9mpggf3256iwmhx9yj9pg52v4vi1gdni2x9jcikq65lf"))))

+ `(#:jar-name "asm.jar"

+ #:jdk ,openjdk11

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ ;; ASM 9.x uses Gradle, not Maven - generate synthetic pom.xml

+ (add-before 'install 'generate-pom

+ (generate-pom.xml "pom.xml" "org.ow2.asm" "asm" ,version))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ #:jdk ,openjdk11

+ #:jdk ,openjdk11

+ `(#:jar-name "asm-util.jar"

+ #:jdk ,openjdk11

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'install 'generate-pom

+ (generate-pom.xml "pom.xml" "org.ow2.asm" "asm-util"

+ ,(package-version java-asm-9)))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ #:jdk openjdk11

+;;; Java packages for GraalVM Truffle (specific versions required)

+

+(define-public java-asm-for-graal-truffle

+ (inherit java-asm-9)

+ (name "java-asm-for-graal-truffle")

+ (version "9.7.1")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://gitlab.ow2.org/asm/asm")

+ (commit "ASM_9_7_1")))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "0q1i01al9mpggf3256iwmhx9yj9pg52v4vi1gdni2x9jcikq65lf"))))

+ (arguments

+ `(#:jar-name "asm9.jar"

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

+ #:test-dir "asm/src/test"

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "build/jar/asm9-sources.jar"

+ "-C" "asm/src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out") "/share/java")))

+ (install-file "build/jar/asm9-sources.jar" share)))))))))

+

+(define-public java-asm-tree-for-graal-truffle

+ (package

+ (inherit java-asm-tree-9)

+ (name "java-asm-tree-for-graal-truffle")

+ (version "9.7.1")

+ (source (package-source java-asm-for-graal-truffle))

+ (arguments

+ `(#:jar-name "asm-tree.jar"

+ #:source-dir "asm-tree/src/main/java"

+ #:test-dir "asm-tree/src/test"

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "build/jar/asm-tree-sources.jar"

+ "-C" "asm-tree/src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out") "/share/java")))

+ (install-file "build/jar/asm-tree-sources.jar" share)))))))

+ (inputs (list java-asm-for-graal-truffle))))

+

+(define-public java-asm-analysis-for-graal-truffle

+ (package

+ (inherit java-asm-analysis-9)

+ (name "java-asm-analysis-for-graal-truffle")

+ (version "9.7.1")

+ (source (package-source java-asm-for-graal-truffle))

+ (inputs (list java-asm-for-graal-truffle java-asm-tree-for-graal-truffle))))

+

+(define-public java-asm-util-for-graal-truffle

+ (package

+ (inherit java-asm-util-9)

+ (name "java-asm-util-for-graal-truffle")

+ (version "9.7.1")

+ (source (package-source java-asm-for-graal-truffle))

+ (arguments

+ `(#:jar-name "asm-util8.jar"

+ #:source-dir "asm-util/src/main/java"

+ #:test-dir "asm-util/src/test"

+ #:jdk ,openjdk11

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "build/jar/asm-util-sources.jar"

+ "-C" "asm-util/src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out") "/share/java")))

+ (install-file "build/jar/asm-util-sources.jar" share)))))))

+ (inputs (list java-asm-for-graal-truffle java-asm-analysis-for-graal-truffle java-asm-tree-for-graal-truffle))))

+

+(define-public java-asm-commons-for-graal-truffle

+ (package

+ (inherit java-asm-commons-9)

+ (name "java-asm-commons-for-graal-truffle")

+ (version "9.7.1")

+ (source (package-source java-asm-for-graal-truffle))

+ (arguments

+ `(#:jar-name "asm-commons8.jar"

+ #:source-dir "asm-commons/src/main/java"

+ #:test-dir "asm-commons/src/test"

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "build/jar/asm-commons-sources.jar"

+ "-C" "asm-commons/src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out") "/share/java")))

+ (install-file "build/jar/asm-commons-sources.jar" share)))))))

+ (inputs (list java-asm-for-graal-truffle java-asm-analysis-for-graal-truffle java-asm-tree-for-graal-truffle))))

+

+;; Truffle needs hamcrest-core 1.3, which is the exact version in Guix.

+;; We create a separate package to keep graal-truffle dependencies explicit.

+(define-public java-hamcrest-core-for-graal-truffle

+ (package

+ (inherit java-hamcrest-core)

+ (name "java-hamcrest-core-for-graal-truffle")))

+

+;; mx expects NINJA as a zip file containing a ninja binary.

+;; We create a zip from Guix's ninja package.

+(define-public ninja-for-graal-truffle

+ (package

+ (name "ninja-for-graal-truffle")

+ (version "1.10.2") ; Version mx expects

+ (source #f)

+ (build-system trivial-build-system)

+ (arguments

+ (list

+ #:modules '((guix build utils))

+ #:builder

+ #~(begin

+ (use-modules (guix build utils))

+ (let* ((ninja-bin (string-append #$(this-package-input "ninja") "/bin/ninja"))

+ (out #$output)

+ (share (string-append out "/share/ninja"))

+ (zip-file (string-append share "/ninja.zip")))

+ (mkdir-p share)

+ ;; Create a zip file containing the ninja binary

+ (invoke #$(file-append (@ (gnu packages compression) zip) "/bin/zip")

+ "-j" zip-file ninja-bin)))))

+ (inputs (list (@ (gnu packages ninja) ninja)))

+ (home-page "https://ninja-build.org/")

+ (synopsis "Ninja build tool packaged for GraalVM mx")

+ (description "Ninja build system repackaged as a zip for GraalVM's mx build tool.")

+ (license license:asl2.0)))

+

+;;; TODO: VisualVM need to be built from source for GraalVM Truffle.

+

+;; ASM 9.8 - required by mx's internal tools (jacoco for code coverage)

+(define-public java-asm-for-graal-mx

+ (package

+ (inherit java-asm-9)

+ (name "java-asm-for-graal-mx")

+ (version "9.8")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://gitlab.ow2.org/asm/asm")

+ (commit "ASM_9_8")))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "0ky0vz83k0r0n477la0sjyvc44ffym8kf988rqzyxnb1kvwq4b92"))))

+ (arguments

+ `(#:jar-name "asm9.jar"

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

+ #:test-dir "asm/src/test"

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "build/jar/asm9-sources.jar"

+ "-C" "asm/src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out") "/share/java")))

+ (install-file "build/jar/asm9-sources.jar" share)))))))))

+

+(define-public java-asm-tree-for-graal-mx

+ (package

+ (inherit java-asm-tree-9)

+ (name "java-asm-tree-for-graal-mx")

+ (version "9.8")

+ (source (package-source java-asm-for-graal-mx))

+ (arguments

+ `(#:jar-name "asm-tree.jar"

+ #:source-dir "asm-tree/src/main/java"

+ #:test-dir "asm-tree/src/test"

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "build/jar/asm-tree-sources.jar"

+ "-C" "asm-tree/src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out") "/share/java")))

+ (install-file "build/jar/asm-tree-sources.jar" share)))))))

+ (inputs (list java-asm-for-graal-mx))))

+

+(define-public java-asm-analysis-for-graal-mx

+ (package

+ (inherit java-asm-analysis-9)

+ (name "java-asm-analysis-for-graal-mx")

+ (version "9.8")

+ (source (package-source java-asm-for-graal-mx))

+ (inputs (list java-asm-for-graal-mx java-asm-tree-for-graal-mx))))

+

+(define-public java-asm-commons-for-graal-mx

+ (package

+ (inherit java-asm-commons-9)

+ (name "java-asm-commons-for-graal-mx")

+ (version "9.8")

+ (source (package-source java-asm-for-graal-mx))

+ (arguments

+ `(#:jar-name "asm-commons.jar"

+ #:source-dir "asm-commons/src/main/java"

+ #:test-dir "asm-commons/src/test"

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "build/jar/asm-commons-sources.jar"

+ "-C" "asm-commons/src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out") "/share/java")))

+ (install-file "build/jar/asm-commons-sources.jar" share)))))))

+ (inputs (list java-asm-for-graal-mx java-asm-analysis-for-graal-mx java-asm-tree-for-graal-mx))))

+

+(define-public java-cglib

+ (package

+ (name "java-cglib")

+ (version "3.3.0")

+ (source

+ (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/cglib/cglib")

+ (commit (string-append

+ "RELEASE_"

+ (string-map (lambda (c) (if (char=? c #\.) #\_ c))

+ version)))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "1lnscamc6bnhh7jgij5garxagp3zn2jp4cbq0rsn4xr3l0cnd014"))))

+ (build-system ant-build-system)

+ (arguments

+ `(;; FIXME: tests fail because junit runs

+ ;; "net.sf.cglib.transform.AbstractTransformTest", which does not seem

+ ;; to describe a test at all.

+;; Commons Math 3.2 - required by JMH 1.21 (specified in jmh-parent-1.21.pom)

+(define-public java-commons-math3-for-graal-mx

+ (package

+ (inherit java-commons-math3)

+ (name "java-commons-math3-for-graal-mx")

+ (version "3.2")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://apache/commons/math/source/"

+ "commons-math3-" version "-src.tar.gz"))

+ (sha256

+ (base32

+ "041k90pfqqia2ikba1q5qdzqd6qhx07k6d0sqiryk85f6032z687"))))

+ (arguments

+ (substitute-keyword-arguments (package-arguments java-commons-math3)

+ ;; FastMathTest fails on JDK 8+: checks that FastMath implements all

+ ;; StrictMath methods, but Java 8 added addExact, floorDiv, etc.

+ ((#:tests? _ #f)

+ #f)))

+ (propagated-inputs

+ (list apache-commons-parent-pom-28))))

+

+ `(#:jdk ,openjdk11

+ #:exclude

+ "maven-site-plugin" "maven-javadoc-plugin" "maven-eclipse-plugin"

+ "maven-enforcer-plugin"))

+ (delete-file-recursively "jmh-archetypes")))

+ (add-after 'fix-pom-files 'fix-surefire-config

+ (lambda _

+ ;; Fix surefire fork crash with NullPointerException in

+ ;; ForkedBooter.setupBooter. Per Maven Surefire documentation at

+ ;; <https://maven.apache.org/surefire/maven-surefire-plugin/examples/class-loading.html>:

+ ;; "If you're having problems loading classes, try setting

+ ;; useSystemClassLoader=false to see if that helps."

+ (substitute* (find-files "." "pom\\.xml$")

+ (("<trimStackTrace>false</trimStackTrace>")

+ "<trimStackTrace>false</trimStackTrace>

+ <useSystemClassLoader>false</useSystemClassLoader>")))))))

+ (list java-junit java-hamcrest-core junit-bom-5.10 junit-bom-5.10.2

+ junit-bom-5.11 junit-bom-5.11.0 junit-bom-5.12 maven-parent-pom-44

+ apache-parent-pom-34 apache-commons-parent-pom-39

+ java-sisu-inject-parent-pom-0.9 java-eclipse-sisu-inject-0.9

+ java-eclipse-sisu-plexus-0.9 java-plexus-utils-4))

+;; JMH 1.21 - required by mx for compiler benchmarks

+(define-public java-jmh-for-graal-mx

+ (package

+ (inherit java-jmh)

+ (name "java-jmh-for-graal-mx")

+ (version "1.21")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/openjdk/jmh")

+ (commit version)))

+ (file-name (git-file-name "jmh" version))

+ (sha256

+ (base32

+ "1jrbrw7qbnhkzv5m1hh5mlhcxvzyivkqbr3vwnjlswhbrpswy552"))))

+ (propagated-inputs

+ (list java-jopt-simple-4 java-commons-math3-for-graal-mx))))

+

+;; JMH annotation processor - required by mx for compiler benchmarks

+(define-public java-jmh-generator-annprocess-for-graal-mx

+ (package

+ (name "java-jmh-generator-annprocess-for-graal-mx")

+ (version "1.21")

+ (source (package-source java-jmh-for-graal-mx))

+ (build-system maven-build-system)

+ (arguments

+ `(#:exclude

+ (("org.apache.maven.plugins" .

+ ("maven-source-plugin" "maven-archetype-plugin" "maven-shade-plugin"

+ "maven-site-plugin" "maven-javadoc-plugin" "maven-eclipse-plugin"))

+ ("com.mycila.maven-license-plugin" . ("maven-license-plugin"))

+ ("org.apache.maven.wagon" . ("wagon-ssh")))

+ #:maven-plugins

+ (("maven-enforcer-plugin" ,maven-enforcer-plugin)

+ ,@(default-maven-plugins))

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'chdir

+ (lambda _

+ (chdir "jmh-generator-annprocess")))

+ (add-after 'chdir 'remove-unnecessary

+ (lambda _

+ (delete-file-recursively "../jmh-archetypes")))

+ (add-after 'remove-unnecessary 'fix-pom

+ (lambda _

+ ;; Update maven plugin versions to match what Guix has

+ ;; and remove plugins we don't have packaged

+ (invoke "sed" "-i" "-e"

+ "s|<version>1.4.1</version>|<version>3.0.0</version>|"

+ "-e"

+ "s|<version>2.6</version>|<version>3.1.0</version>|"

+ ;; Remove maven-source-plugin block (lines 104-117)

+ "-e" "/<!-- Create source jar -->/,/<\\/plugin>/d"

+ ;; Remove maven-javadoc-plugin block (lines 119-135)

+ "-e" "/<!-- Create javadoc jar -->/,/<\\/plugin>/d"

+ ;; Remove maven-eclipse-plugin block (lines 137-145)

+ "-e" "/<!-- Add sources and javadoc/,/<\\/plugin>/d"

+ "../pom.xml"))))))

+ (propagated-inputs

+ (list java-jmh-for-graal-mx))

+ (native-inputs

+ (list java-junit java-hamcrest-core))

+ (home-page "https://openjdk.java.net/projects/code-tools/jmh/")

+ (synopsis "JMH annotation processor")

+ (description "JMH annotation processor for generating benchmark code.")

+ (license license:gpl2))); GPLv2 only, with classpath exception

+

+ (version "2.18.0")

+ "0cr9ryhdbk4gz6bbcdqdd28d80dik8csv2fx7h6mx7yfxgbjsrf4"))))

+ `(#:jar-name "commons-io.jar"

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

+ #:tests? #f

+ (add-before 'build 'generate-build-xml

+ (lambda _

+ (with-output-to-file "build.xml"

+ (lambda ()

+ (display

+ "<project><target name=\"jar\"/><target name=\"test\"/></project>\n")))))

+ (replace 'build

+ (lambda* (#:key source-dir jar-name #:allow-other-keys)

+ (mkdir-p "build/classes")

+ (apply invoke "javac" "-d" "build/classes"

+ (find-files source-dir "\\.java$"))

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

+ (replace 'install (install-from-pom "pom.xml")))))

+ (list apache-commons-parent-pom-52))

+ (version "3.17.0")

+ (base32 "0h9s5abbs41swfzdfg4dsk0gqr926avj9773j0did1az8ppn90v5"))))

+ #:tests? #f ; require junit5

+ (add-before 'install 'make-commons-text-optional

+ ;; commons-text is scope=provided (only for javadoc), but install-from-pom

+ ;; still requires it. Mark it optional to avoid cycle: lang3 -> text -> lang3.

+ (lambda _

+ (substitute* "pom.xml"

+ (("<artifactId>commons-text</artifactId>")

+ "<artifactId>commons-text</artifactId>\n <optional>true</optional>"))))

+ (list apache-commons-parent-pom-73))

+ ;; The listenablefuture:9999.0-empty-to-avoid-conflict-with-guava artifact

+ ;; is intentionally empty. It exists to solve a dependency conflict:

+ ;; ListenableFuture class lives in guava, but was also published separately

+ ;; as listenablefuture:1.0 for Android. When both are on classpath, there's

+ ;; a duplicate class conflict. By publishing an empty stub at version 9999.0,

+ ;; Maven's "highest version wins" resolution picks this empty jar over 1.0,

+ ;; and the actual class comes only from guava itself.

+ ;;

+ ;; The upstream source only contains pom.xml (no code to compile), but Maven

+ ;; requires a jar file to exist in the repository. We create a minimal valid

+ ;; jar containing only a manifest.

+ ;;

+ ;; The upstream pom references guava-parent:26.0-android, but we only have

+ ;; guava-parent:31.1. Since the stub doesn't need anything from the parent,

+ ;; we install a self-contained pom without the parent reference.

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

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

+ (version "9999.0-empty-to-avoid-conflict-with-guava")

+ (artifact "listenablefuture")

+ (group "com/google/guava")

+ (repository (string-append out "/lib/m2/" group "/"

+ artifact "/" version "/"))

+ (pom-name (string-append repository artifact "-" version ".pom"))

+ (jar-name (string-append repository artifact "-" version ".jar"))

+ (tmp-dir (mkdtemp "empty-jar.XXXXXX")))

+ (mkdir-p repository)

+ ;; Install a self-contained pom without the parent reference

+ (with-output-to-file pom-name

+ (lambda ()

+ (display "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n")

+ (display "<project xmlns=\"http://maven.apache.org/POM/4.0.0\">\n")

+ (display " <modelVersion>4.0.0</modelVersion>\n")

+ (display " <groupId>com.google.guava</groupId>\n")

+ (display " <artifactId>listenablefuture</artifactId>\n")

+ (display " <version>")

+ (display version)

+ (display "</version>\n")

+ (display " <name>Guava ListenableFuture only</name>\n")

+ (display "</project>\n")))

+ ;; Create a minimal valid jar with just a manifest

+ (mkdir-p (string-append tmp-dir "/META-INF"))

+ (with-output-to-file (string-append tmp-dir "/META-INF/MANIFEST.MF")

+ (lambda ()

+ (display "Manifest-Version: 1.0\n")))

+ (invoke "jar" "cf" jar-name "-C" tmp-dir "."))))

+(define java-guava-parent-pom

+ (name "java-guava-parent-pom")

+ `(#:tests? #f

+ (delete 'configure)

+ (delete 'build)

+ (install-pom-file "pom.xml")))))

+(define-public java-guava-futures-failureaccess

+ (name "java-guava-futures-failureaccess")

+ `(#:tests? #f; no tests

+ #:jar-name "guava-futures-failureaccess.jar"

+ #:source-dir "futures/failureaccess/src"

+ (install-from-pom "futures/failureaccess/pom.xml")))))

+ (list java-guava-parent-pom

+ java-sonatype-oss-parent-pom-7))))

+ #:jar-name "commons-logging.jar"

+ #t))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ (propagated-inputs

+ (list apache-commons-parent-pom-34))

+(define-public java-httpcomponents-parent-pom

+ (name "java-httpcomponents-parent-pom")

+ (version "11")

+ (uri (string-append "https://repo.maven.apache.org/maven2/"

+ "org/apache/httpcomponents/httpcomponents-parent/"

+ version "/httpcomponents-parent-" version ".pom"))

+ "1ank6bjz9w9b56p4695g60nv1rr07vvgygp4gq60fmaw25xzh0d9"))))

+ `(#:tests? #f

+ (delete 'configure)

+ (delete 'build)

+ (replace 'install

+ (install-pom-file "httpcomponents-parent-11.pom")))))

+ (propagated-inputs

+ (list apache-parent-pom-21))

+ (home-page "https://hc.apache.org/")

+ (synopsis "Parent POM for Apache HttpComponents")

+ (description "This package contains the parent POM for Apache HttpComponents

+projects.")

+(define-public java-httpcomponents-project-pom

+ (package

+ (name "java-httpcomponents-project-pom")

+ (version "7")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "https://repo.maven.apache.org/maven2/"

+ "org/apache/httpcomponents/project/"

+ version "/project-" version ".pom"))

+ (sha256

+ (base32

+ "1hs8m8cgyypd6vb882zjyns58nhzrkm7cpbb0kg5i9amhm1blvix"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (delete 'configure)

+ (delete 'build)

+ (replace 'install

+ (install-pom-file (string-append "project-" ,version ".pom"))))))

+ (propagated-inputs

+ (list apache-parent-pom-13))

+ (home-page "https://hc.apache.org/")

+ (synopsis "Parent POM for Apache HttpComponents (legacy)")

+ (description "This package contains the legacy parent POM for Apache

+HttpComponents projects.")

+ (license license:asl2.0)))

+

+(define-public java-httpcomponents-core-parent-pom

+ (package

+ (name "java-httpcomponents-core-parent-pom")

+ (version "4.4.6")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://apache//httpcomponents/httpcore/"

+ "source/httpcomponents-core-"

+ version "-src.tar.gz"))

+ (sha256

+ (base32

+ "02bwcf38y4vgwq7kj2s6q7qrmma641r5lacivm16kgxvb2j6h1vy"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (delete 'configure)

+ (delete 'build)

+ (replace 'install

+ (install-pom-file "pom.xml")))))

+ (propagated-inputs

+ (list java-httpcomponents-project-pom))

+ (home-page "https://hc.apache.org/httpcomponents-core-4.4.x/index.html")

+ (synopsis "Parent POM for Apache HttpComponents Core")

+ (description "This package contains the parent POM for Apache HttpComponents

+Core modules.")

+ (license license:asl2.0)))

+

+(define-public java-httpcomponents-httpcore

+ (package

+ (name "java-httpcomponents-httpcore")

+ (version "4.4.6")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://apache//httpcomponents/httpcore/"

+ "source/httpcomponents-core-"

+ version "-src.tar.gz"))

+ (sha256

+ (base32

+ "02bwcf38y4vgwq7kj2s6q7qrmma641r5lacivm16kgxvb2j6h1vy"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "httpcomponents-httpcore.jar"

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'chdir

+ (lambda _ (chdir "httpcore") #t))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ (propagated-inputs

+ (list java-httpcomponents-core-parent-pom

+ java-commons-logging-minimal

+ java-commons-lang3))

+ (native-inputs

+ (list java-junit java-mockito-1))

+ (home-page "https://hc.apache.org/httpcomponents-core-4.4.x/index.html")

+ (synopsis "Low level HTTP transport components")

+ (description "HttpCore is a set of low level HTTP transport components

+that can be used to build custom client and server side HTTP services with a

+minimal footprint. HttpCore supports two I/O models: blocking I/O model based

+on the classic Java I/O and non-blocking, event driven I/O model based on Java

+NIO.

+

+This package provides the blocking I/O model library.")

+ (license license:asl2.0)))

+

+(define-public java-httpcomponents-httpcore-nio

+ (package (inherit java-httpcomponents-httpcore)

+(define-public java-httpcomponents-client-parent-pom

+ (package

+ (name "java-httpcomponents-client-parent-pom")

+ (version "4.5.12")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "mirror://apache/httpcomponents/httpclient/"

+ "source/httpcomponents-client-"

+ version "-src.tar.gz"))

+ (sha256

+ (base32

+ "1va99m2zc2liv0v9vn72p5ja8yz4s5wq7zpahaai5nr966kvxzkb"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (delete 'configure)

+ (delete 'build)

+ (replace 'install

+ (install-pom-file "pom.xml")))))

+ (propagated-inputs

+ (list java-httpcomponents-parent-pom))

+ (home-page "https://hc.apache.org/httpcomponents-client-ga/")

+ (synopsis "Parent POM for Apache HttpComponents Client")

+ (description "This package contains the parent POM for Apache HttpComponents

+Client modules.")

+ (license license:asl2.0)))

+

+ (lambda _ (chdir "httpclient") #t))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ (propagated-inputs

+ (list java-httpcomponents-client-parent-pom

+ java-commons-logging-minimal

+ java-httpcomponents-httpcore))

+ (native-inputs

+ (list java-hamcrest-core

+ (version "1.28.0")

+ "0qkn70dfb1f9xihc34mbpbr5ag8qm4qq18hh3p4286r2ajj0z1sw"))))

+ (add-after 'unpack 'fix-encoding

+ (lambda _

+ ;; Fix non-UTF8 character in comment (ö -> o)

+ (use-modules (ice-9 textual-ports))

+ (let ((file "src/main/java/org/apache/commons/compress/archivers/tar/TarArchiveOutputStream.java"))

+ (with-fluids ((%default-port-encoding #f))

+ (let ((content (call-with-input-file file get-string-all)))

+ (call-with-output-file file

+ (lambda (port)

+ (display (string-map (lambda (c)

+ (if (char>? c #\~) #\o c))

+ content)

+ port))))))))

+ (list java-asm

+ java-zstd-1.5.7

+ java-commons-io

+ java-commons-lang3

+ java-commons-codec

+

+ (version "1.7.36")

+ "05kdsrvacvgdsqj812jhar813asgl2i2xlvh4i4p4i5cxg17bkq3"))

+ (version (package-version java-slf4j-api))

+ (version (package-version java-slf4j-api))

+(define-public java-antlr4-runtime-for-graal-truffle

+ (package

+ (inherit java-antlr4-runtime)

+ (name "java-antlr4-runtime-for-graal-truffle")

+ (version "4.13.2")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/antlr/antlr4")

+ (commit version)))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "1dpmqjq5z0r0543jfsbl9rwjrv459dxj378vs6qhy52hw4pm270g"))))))

+

+ (license license:asl2.0)))

+

+(define-public java-snakeyaml-2

+ (package

+ (inherit java-snakeyaml)

+ (version "2.3")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append

+ "https://bitbucket.org/snakeyaml/snakeyaml/get/snakeyaml-"

+ version ".tar.gz"))

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

+ (sha256

+ (base32

+ "1mszlr8yczf6m2cijcp8g35pbb7pggi2b2yr4avqmk4crzws947l"))))

+ (arguments

+ `(#:jar-name "snakeyaml.jar"

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

+ #:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'install 'create-pom

+ (generate-pom.xml "pom.xml" "org.yaml" "snakeyaml" ,version))

+ (replace 'install

+ (install-from-pom "pom.xml")))))

+ (home-page "https://bitbucket.org/snakeyaml/snakeyaml")))

+(define-public java-guice-5

+ (package

+ (name "java-guice")

+ (version "5.1.0")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/google/guice")

+ (commit version)))

+ (file-name (git-file-name name version))

+ (modules '((guix build utils)))

+ (snippet

+ `(begin

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

+ (sha256

+ (base32

+ "05w8g9lmj8623b6f6c2xyriyhf44vwvqg0i1dszhrsnhk5f1jv71"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "java-guice.jar"

+ #:jdk ,openjdk11

+ #:tests? #f ; FIXME: tests are not in a java sub directory

+ #:source-dir "core/src"

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'make-files-writable

+ (lambda _

+ (for-each make-file-writable (find-files "."))

+ #t))

+ (replace 'install

+ (install-from-pom "core/pom.xml")))))

+ (propagated-inputs

+ (list java-aopalliance

+ java-guava

+ java-javax-inject

+ java-asm-9

+ java-jsr305

+ java-error-prone-annotations

+ java-guice-5-parent-pom))

+ (home-page "https://github.com/google/guice")

+ (synopsis "Lightweight dependency injection framework")

+ (description "Guice is a lightweight dependency injection framework for

+Java 6 and above. This is version 5, with ASM 9 support for Java 11+.")

+ (license license:asl2.0)))

+

+(define java-guice-5-parent-pom

+ (package

+ (inherit java-guice-5)

+ (name "java-guice-parent-pom")

+ (arguments

+ `(#:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (delete 'configure)

+ (delete 'build)

+ (add-after 'install 'install-extensions

+ (install-pom-file "extensions/pom.xml"))

+ (replace 'install

+ (install-pom-file "pom.xml")))))

+ (propagated-inputs

+ `(("java-google-parent-pom" ,java-google-parent-pom-5)))))

+

+(define-public java-guice-5-servlet

+ (package

+ (inherit java-guice-5)

+ (name "java-guice-servlet")

+ (arguments

+ `(#:jar-name "guice-servlet.jar"

+ #:jdk ,openjdk11

+ #:source-dir "extensions/servlet/src/"

+ #:tests? #f ; FIXME: not in a java subdir

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'make-files-writable

+ (lambda _

+ (for-each make-file-writable (find-files "."))

+ #t))

+ (add-before 'install 'remove-provided-dependencies

+ ;; Remove provided/test scope dependencies from POM since

+ ;; install-from-pom can't find javax.servlet:servlet-api Maven coords.

+ (lambda _

+ (invoke "sed" "-i" "/<dependencies>/,/<\\/dependencies>/d"

+ "extensions/servlet/pom.xml")

+ #t))

+ (replace 'install

+ (install-from-pom "extensions/servlet/pom.xml")))))

+ (propagated-inputs

+ (list java-guice-5 java-guice-5-parent-pom))

+ (inputs

+ (list java-classpathx-servletapi))))

+

+ (("<class name=\"test.dataprovider.DataProviderTest\"/>") "")

+ ;; Flaky multi-threaded test

+ (("<class name=\"test.thread.MultiThreadedDependentTest\" />") ""))))

+;;; Bouncy Castle 1.78.1 components for GraalPy (needs jdk18on jars)

+

+(define bc-java-1.78.1-source

+ (origin

+ (method url-fetch)

+ (uri "https://codeload.github.com/bcgit/bc-java/tar.gz/refs/tags/r1rv78v1")

+ (file-name "bc-java-1.78.1.tar.gz")

+ (sha256

+ (base32 "09i973ypv1dhvp2m50jnr71wwqsxs64qdpinm62phib3hw4nhwvb"))))

+

+(define (bc-java-1.78.1-package name jar-name build-target synopsis description)

+ (package

+ (name name)

+ (version "1.78.1")

+ (source bc-java-1.78.1-source)

+ (build-system ant-build-system)

+ (arguments

+ (list

+ #:jar-name (string-append jar-name ".jar")

+ #:tests? #f

+ #:phases

+ #~(modify-phases %standard-phases

+ (replace 'build

+ (lambda _

+ (invoke "ant" "-f" "ant/jdk18+.xml" #$build-target)))

+ (replace 'install

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

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

+ (share (string-append out "/share/java"))

+ ;; bc-java appends version as 17801 (no dots)

+ (src-jar (string-append "build/artifacts/jdk1.8/jars/"

+ #$jar-name "-17801.jar"))

+ (src-dir (string-append "build/artifacts/jdk1.8/"

+ #$jar-name "-17801/src"))

+ ;; MX_URLREWRITES expects bcprov-jdk18on.jar (no version)

+ (dst-jar (string-append share "/" #$jar-name ".jar"))

+ (dst-sources-jar (string-append share "/" #$jar-name "-sources.jar")))

+ (mkdir-p share)

+ (copy-file src-jar dst-jar)

+ ;; Create sources JAR from the source directory

+ (invoke "jar" "cf" dst-sources-jar "-C" src-dir ".")))))))

+ (native-inputs (list unzip java-junit java-native-access java-native-access-platform))

+ (home-page "https://www.bouncycastle.org")

+ (synopsis synopsis)

+ (description description)

+ (license license:expat)))

+

+;;; These are separate packages because GraalPy's MX_URLREWRITES mechanism

+;;; rewrites Maven artifact URLs to local paths. Maven artifacts are per-JAR,

+;;; so each JAR needs its own Guix package to map to the expected path:

+;;; org/bouncycastle/bcprov-jdk18on/1.78.1/bcprov-jdk18on-1.78.1.jar

+;;; org/bouncycastle/bcutil-jdk18on/1.78.1/bcutil-jdk18on-1.78.1.jar

+;;; org/bouncycastle/bcpkix-jdk18on/1.78.1/bcpkix-jdk18on-1.78.1.jar

+;;; A single combined package would not satisfy these individual URL rewrites.

+

+(define-public java-bcprov-for-graalpy

+ (bc-java-1.78.1-package

+ "java-bcprov-for-graalpy"

+ "bcprov-jdk18on"

+ "build-provider"

+ "Bouncy Castle provider for GraalPy"

+ "Crypto provider from Bouncy Castle built for GraalPy."))

+

+(define-public java-bcutil-for-graalpy

+ (bc-java-1.78.1-package

+ "java-bcutil-for-graalpy"

+ "bcutil-jdk18on"

+ "build-util"

+ "Bouncy Castle utility classes for GraalPy"

+ "Utility support classes from Bouncy Castle for GraalPy."))

+

+(define-public java-bcpkix-for-graalpy

+ (bc-java-1.78.1-package

+ "java-bcpkix-for-graalpy"

+ "bcpkix-jdk18on"

+ "build-pkix"

+ "Bouncy Castle PKIX/CMS for GraalPy"

+ "PKIX and CMS support from Bouncy Castle for GraalPy."))

+

+ #:jdk ,openjdk11

+ #:test-dir "powermock-reflect/src/test"

+ #:jdk ,openjdk11))

+ #:jdk ,openjdk11

+ #:jdk ,openjdk11

+ #:jdk ,openjdk11

+ #:jdk ,openjdk11

+ #:jdk ,openjdk11

+ ;; Tests require powermock which uses ASM 9 compiled with Java 11,

+ ;; creating class version incompatibility with icedtea-8.

+ #:tests? #f))

+ ;; Tests require powermock which uses ASM 9 compiled with Java 11,

+ ;; creating class version incompatibility with icedtea-8.

+ #:tests? #f

+(define-public java-juniversalchardet

+ (name "java-juniversalchardet")

+ (version "2.5.0")

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/albfernandez/juniversalchardet")

+ (commit (string-append "v" version))))

+ (file-name (git-file-name name version))

+ "039v25hmaf89mc949jn3sg70gp68gn0vilq2v159aavyircza0w7"))))

+ `(#:jar-name "juniversalchardet.jar"

+ #:jdk ,openjdk11

+ #:tests? #f

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

+ (home-page "https://github.com/albfernandez/juniversalchardet")

+ (synopsis "Character encoding detection library for Java")

+ (description "JUniversalChardet is a Java port of universalchardet,

+a character encoding detection library.")

+ (license license:mpl2.0)))

+

+(define-public java-jline-native-for-graal-truffle

+ (package

+ (name "java-jline-native-for-graal-truffle")

+ (version "3.28.0")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/jline/jline3")

+ (commit (string-append "jline-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "06804s31zxxwbh8nnf2hd4w5kbzgpgfnp4mcr9bk5h3mkgrp6lkj"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "jline-native.jar"

+ #:tests? #f

+ #:jdk ,openjdk25

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

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'remove-build-file

+ (lambda _

+ (delete-file "build"))))))

+ (home-page "https://github.com/jline/jline3")

+ (synopsis "JLine native library support for GraalVM Truffle")

+ (description "JLine native library module for GraalVM Truffle.")

+ (license license:bsd-3)))

+

+(define-public java-jline-terminal-for-graal-truffle

+ (package

+ (inherit java-jline-terminal)

+ (name "java-jline-terminal-for-graal-truffle")

+ (version "3.28.0")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/jline/jline3")

+ (commit (string-append "jline-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "06804s31zxxwbh8nnf2hd4w5kbzgpgfnp4mcr9bk5h3mkgrp6lkj"))))

+ (arguments

+ `(#:jar-name "jline-terminal.jar"

+ #:tests? #f

+ #:jdk ,openjdk25

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

+ #:test-dir "terminal/src/test"

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'unpack 'remove-build-file

+ (lambda _

+ (delete-file "build")))

+ (add-after 'unpack 'patch-paths

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

+ (substitute* "terminal/src/main/java/org/jline/utils/OSUtils.java"

+ (("= \"infocmp\"")

+ (string-append "= \"" (assoc-ref inputs "ncurses")

+ "/bin/infocmp\""))

+ (("= \"(s?tty)\"" _ cmd)

+ (string-append "= \"" (assoc-ref inputs "coreutils")

+ "/bin/" cmd "\"")))))

+ (add-after 'build 'add-resources

+ (lambda* (#:key jar-name source-dir #:allow-other-keys)

+ (let ((build (string-append (getcwd) "/build")))

+ (with-directory-excursion

+ (string-append source-dir "/../resources")

+ (apply invoke "jar" "-uvf"

+ (string-append build "/jar/" jar-name)

+ (find-files "."))))))

+ (add-after 'add-resources 'create-sources-jar

+ (lambda* (#:key source-dir #:allow-other-keys)

+ ;; Create a sources JAR from the source files.

+ ;; mx shading needs .java source files, not .class files.

+ (let ((sources-jar (string-append (getcwd) "/build/jar/jline-terminal-sources.jar")))

+ (invoke "jar" "cf" sources-jar "-C" source-dir "org")

+ ;; Also add resources to the sources JAR.

+ (with-directory-excursion (string-append source-dir "/../resources")

+ (apply invoke "jar" "-uvf" sources-jar (find-files "."))))))

+ (add-after 'install 'install-sources-jar

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

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

+ (lib (string-append out "/share/java")))

+ (install-file "build/jar/jline-terminal-sources.jar" lib)))))))

+ (inputs

+ (list ncurses java-jline-native-for-graal-truffle))))

+

+(define-public java-jline-reader-for-graal-truffle

+ (package

+ (inherit java-jline-reader)

+ (name "java-jline-reader-for-graal-truffle")

+ (version "3.28.0")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/jline/jline3")

+ (commit (string-append "jline-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32

+ "06804s31zxxwbh8nnf2hd4w5kbzgpgfnp4mcr9bk5h3mkgrp6lkj"))))

+ (arguments

+ `(#:jar-name "jline-reader.jar"

+ #:tests? #f

+ #:jdk ,openjdk25

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

+ #:test-dir "reader/src/test"

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'build 'remove-build-file

+ (lambda _

+ (delete-file "build")))

+ (add-after 'build 'create-sources-jar

+ (lambda* (#:key source-dir #:allow-other-keys)

+ ;; Create a sources JAR from the source files.

+ (invoke "jar" "cf" "build/jar/jline-reader-sources.jar"

+ "-C" source-dir "org")))

+ (add-after 'install 'install-sources-jar

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

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

+ (lib (string-append out "/share/java")))

+ (install-file "build/jar/jline-reader-sources.jar" lib)))))))

+ (inputs

+ (list java-jline-terminal-for-graal-truffle))))

+

+(define-public java-jline-builtins-for-graal-truffle

+ (package

+ (inherit java-jline-reader-for-graal-truffle)

+ (name "java-jline-builtins-for-graal-truffle")

+ (arguments

+ `(#:jar-name "jline-builtins.jar"

+ #:tests? #f

+ #:jdk ,openjdk25

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

+ #:test-dir "builtins/src/test"

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'build 'remove-build-file

+ (lambda _

+ (delete-file "build")))

+ (add-after 'build 'create-sources-jar

+ (lambda* (#:key source-dir #:allow-other-keys)

+ ;; Create a sources JAR from the source files.

+ (invoke "jar" "cf" "build/jar/jline-builtins-sources.jar"

+ "-C" source-dir "org")))

+ (add-after 'install 'install-sources-jar

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

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

+ (lib (string-append out "/share/java")))

+ (install-file "build/jar/jline-builtins-sources.jar" lib)))))))

+ (inputs

+ (list java-jline-terminal-for-graal-truffle

+ java-jline-reader-for-graal-truffle

+ ;; Needed to compile Nano.java which imports UniversalDetector.

+ ;; GraalVM's mx build patches this out during shading (in

+ ;; org.graalvm.shadowed.org.jline) and adds a stub class, so mx

+ ;; itself does not need juniversalchardet--only this Guix build does.

+ java-juniversalchardet))

+ (synopsis "JLine builtins for GraalVM Truffle")

+ (description "JLine builtins module for GraalVM Truffle.")))

+

+(define-public java-jline-terminal-ffm-for-graal-truffle

+ (package

+ (inherit java-jline-reader-for-graal-truffle)

+ (name "java-jline-terminal-ffm-for-graal-truffle")

+ (arguments

+ `(#:jar-name "jline-terminal-ffm.jar"

+ #:tests? #f

+ #:jdk ,openjdk25

+ #:source-dir "terminal-ffm/src/main/java"

+ #:test-dir "terminal-ffm/src/test"

+ #:phases

+ (modify-phases %standard-phases

+ (add-before 'build 'remove-build-file

+ (lambda _

+ (delete-file "build")))

+ (add-after 'build 'create-sources-jar

+ (lambda* (#:key source-dir #:allow-other-keys)

+ ;; Create a sources JAR from the source files.

+ (invoke "jar" "cf" "build/jar/jline-terminal-ffm-sources.jar"

+ "-C" source-dir "org")))

+ (add-after 'install 'install-sources-jar

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

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

+ (lib (string-append out "/share/java")))

+ (install-file "build/jar/jline-terminal-ffm-sources.jar" lib)))))))

+ (inputs

+ (list java-jline-terminal-for-graal-truffle

+ java-jline-native-for-graal-truffle))

+ (synopsis "JLine terminal FFM for GraalVM Truffle")

+ (description "JLine terminal FFM (Foreign Function Memory) module for GraalVM Truffle.")))

+

+;; org.json JSON library for GraalVM Truffle

+;; GraalVM needs this for TRUFFLE_JSON which is used by TRUFFLE_PROFILER in tools.

+(define-public java-json-for-graal-truffle

+ (package

+ (name "java-json-for-graal-truffle")

+ (version "20250517")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "https://github.com/stleary/JSON-java/archive/refs/tags/"

+ version ".tar.gz"))

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

+ (sha256

+ (base32 "0291f9fkr9v8qh4vlxkv62vzs4dadpzhxrrcw5pbg69ml0pwq5wz"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "json.jar"

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

+ #:tests? #f ; No test source directory in release tarball

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ ;; Create a sources JAR from the source files.

+ ;; mx shading needs .java source files, not .class files.

+ (invoke "jar" "cf" "json-sources.jar"

+ "-C" "src/main/java" "org")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out")

+ "/share/java/")))

+ (install-file "json-sources.jar" share)))))))

+ (home-page "https://github.com/stleary/JSON-java")

+ (synopsis "JSON library for Java")

+ (description "Reference implementation of a JSON parser in Java, used by

+GraalVM's TRUFFLE_JSON distribution.")

+ (license license:public-domain)))

+

+;; JUnit 4.13.2 for GraalVM.

+(define-public java-junit-for-graal

+ (package

+ (inherit java-junit)

+ (name "java-junit-for-graal")

+ (version "4.13.2")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/junit-team/junit4")

+ (commit (string-append "r" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "1r7k4zzscc8019np3is3bzfigw8fxd6s3259cbhzzh02q6d5p9h3"))))

+ (arguments

+ (list #:jar-name "junit.jar"

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

+ #:tests? #f ; Skip tests to avoid circular dependencies

+ #:jdk openjdk17

+ #:phases

+ #~(modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "junit-sources.jar"

+ "-C" "src/main/java" ".")))

+ (add-after 'install 'install-sources-jar

+ (lambda _

+ (install-file "junit-sources.jar"

+ (string-append #$output "/share/java/")))))))

+ (propagated-inputs

+ (list java-hamcrest-core-for-graal-truffle))

+ (native-inputs '())

+ (description "JUnit is a simple framework to write repeatable tests for Java

+projects. This version (4.13.2) is required by the GraalVM mx build system.")))

+

+(define-public java-capnproto-runtime-for-graal-truffle

+ (package

+ (name "java-capnproto-runtime-for-graal-truffle")

+ (version "0.1.16")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/capnproto/capnproto-java")

+ (commit (string-append "v" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "0faq213kkrb2441k6bn7868yj5bdqvanq1xxsp2gc9mcf922vrpf"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "capnproto-runtime.jar"

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

+ #:test-dir "runtime/src/test"

+ #:jdk ,openjdk17

+ #:phases

+ (modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "capnproto-runtime-sources.jar"

+ "-C" "runtime/src/main/java" "org")))

+ (add-after 'install 'install-sources-jar

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

+ (let ((share (string-append (assoc-ref outputs "out")

+ "/share/java/")))

+ (install-file "capnproto-runtime-sources.jar" share)))))))

+ (native-inputs (list java-junit-for-graal))

+ (home-page "https://capnproto.org/")

+ (synopsis "Cap'n Proto runtime library for Java")

+ (description "Cap'n Proto is an extremely fast data interchange format

+and capability-based RPC system. This package provides the Java runtime

+library needed by GraalVM's SubstrateVM.")

+ (license license:expat)))

+

+;; JCodings for GraalVM Truffle (character encoding library)

+(define-public java-jcodings-for-graal-truffle

+ (package

+ (name "java-jcodings-for-graal-truffle")

+ (version "1.0.63")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/jruby/jcodings")

+ (commit (string-append "jcodings-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "1f0npcz93fsm4l7hik7gkxnf977jj660jyvgfkq1isr1aa6s90a8"))))

+ (build-system ant-build-system)

+ (arguments

+ (list #:jar-name "jcodings.jar"

+ #:source-dir "src"

+ #:tests? #f

+ #:jdk openjdk

+ #:phases

+ #~(modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "jcodings-sources.jar"

+ "-C" "src" "org")))

+ (add-after 'install 'install-sources-jar

+ (lambda _

+ (install-file "jcodings-sources.jar"

+ (string-append #$output "/share/java/")))))))

+ (home-page "https://github.com/jruby/jcodings")

+ (synopsis "Java character encoding library for JRuby")

+ (description "JCodings is a character encoding library used by JRuby.

+This version is built for GraalVM Truffle's string encoding support.")

+ (license license:expat)))

+

+;; Guava for GraalVM Truffle (Google core libraries for Java)

+;; GraalVM requires version 31.0.1 specifically

+(define-public java-guava-for-graal-truffle

+ (package

+ (inherit java-guava)

+ (name "java-guava-for-graal-truffle")

+ (version "31.0.1")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/google/guava")

+ (commit (string-append "v" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "1lc5hrrm8q3dkxgkwgvkjd0lhajklch9cb5xmggb2iys3qymvx50"))

+ (patches

+ (search-patches "java-guava-remove-annotation-deps.patch"))))))

+

+;; JIMFS for GraalVM Truffle (in-memory file system)

+(define-public java-jimfs-for-graal-truffle

+ (package

+ (name "java-jimfs-for-graal-truffle")

+ (version "1.2")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/google/jimfs")

+ (commit (string-append "v" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "1wxdl9ljllwyzcyqgrkh7i9zqjdssz4qn9zmvbahz62vq2m9wg88"))

+ (modules '((guix build utils)))

+ (snippet

+ '(for-each delete-file (find-files "." "\\.jar$")))))

+ (build-system ant-build-system)

+ (arguments

+ (list #:jar-name "jimfs.jar"

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

+ #:tests? #f

+ #:jdk openjdk

+ #:phases

+ #~(modify-phases %standard-phases

+ (add-before 'build 'strip-annotations

+ (lambda _

+ ;; Remove annotation imports and usages

+ (for-each delete-file

+ (find-files "jimfs/src/main/java" "package-info\\.java$"))

+ (substitute* (find-files "jimfs/src/main/java" "\\.java$")

+ (("import org\\.checkerframework\\..*;\n") "")

+ (("import javax\\.annotation\\..*;\n") "")

+ (("import com\\.google\\.auto\\..*;\n") "")

+ (("import com\\.ibm\\.icu\\..*;\n") "")

+ (("@AutoService.*\n") "")

+ (("@ParametersAreNonnullByDefault") "")

+ (("@NullableDecl") ""))

+ ;; Remove ICU dependency - use simple ASCII normalization

+ (substitute* "jimfs/src/main/java/com/google/common/jimfs/PathNormalization.java"

+ (("import com\\.ibm\\.icu\\.lang\\.UCharacter;") "")

+ (("UCharacter\\.foldCase\\(string, true\\)") "string.toLowerCase(java.util.Locale.ROOT)"))))

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "jimfs-sources.jar"

+ "-C" "jimfs/src/main/java" "com")))

+ (add-after 'install 'install-sources-jar

+ (lambda _

+ (install-file "jimfs-sources.jar"

+ (string-append #$output "/share/java/")))))))

+ (inputs (list java-guava-for-graal-truffle))

+ (home-page "https://github.com/google/jimfs")

+ (synopsis "In-memory file system for Java 7+")

+ (description "Jimfs is an in-memory file system for Java 7+ that

+implements the java.nio.file.FileSystem API. Used by GraalVM Truffle

+for testing file system operations.")

+ (license license:asl2.0)))

+

+;; VisualVM JFluid Heap for GraalVM Truffle (heap dump analysis)

+(define-public java-visualvm-jfluid-heap-for-graal-truffle

+ (package

+ (name "java-visualvm-jfluid-heap-for-graal-truffle")

+ (version "2.1.4")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/oracle/visualvm")

+ (commit version)))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "1s7h51vsbnn8kh7c58qgsmkw9ps29l4z07wk3pg80p7wf8kfl33z"))

+ (modules '((guix build utils)))

+ (snippet

+ '(for-each delete-file (find-files "." "\\.jar$")))))

+ (build-system ant-build-system)

+ (arguments

+ (list #:jar-name "visualvm-lib-jfluid-heap.jar"

+ #:source-dir "visualvm/libs.profiler/lib.profiler.heap/src"

+ #:tests? #f

+ #:jdk openjdk

+ #:phases

+ #~(modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "visualvm-lib-jfluid-heap-sources.jar"

+ "-C" "visualvm/libs.profiler/lib.profiler.heap/src" "org")))

+ (add-after 'install 'install-sources-jar

+ (lambda _

+ (install-file "visualvm-lib-jfluid-heap-sources.jar"

+ (string-append #$output "/share/java/")))))))

+ (home-page "https://visualvm.github.io/")

+ (synopsis "VisualVM JFluid Heap library")

+ (description "The JFluid Heap library from VisualVM provides heap dump

+analysis capabilities. Used by GraalVM Truffle for memory profiling.")

+ (license license:gpl2)))

+

+;; Java Allocation Instrumenter for GraalVM (allocation tracking)

+(define-public java-allocation-instrumenter-for-graal-truffle

+ (package

+ (name "java-allocation-instrumenter-for-graal-truffle")

+ (version "3.1.0")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/google/allocation-instrumenter")

+ (commit (string-append "java-allocation-instrumenter-" version))))

+ (file-name (git-file-name name version))

+ (sha256

+ (base32 "1z96w3ai41za5dji7dz2xbscv6v1y082ni94qp7wzind1np2gssh"))

+ (modules '((guix build utils)))

+ (snippet

+ '(for-each delete-file (find-files "." "\\.jar$")))))

+ (build-system ant-build-system)

+ (arguments

+ (list #:jar-name "java-allocation-instrumenter.jar"

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

+ #:tests? #f

+ #:jdk openjdk

+ #:phases

+ #~(modify-phases %standard-phases

+ (add-after 'build 'create-sources-jar

+ (lambda _

+ (invoke "jar" "cf" "java-allocation-instrumenter-sources.jar"

+ "-C" "src/main/java" "com")))

+ (add-after 'install 'install-sources-jar

+ (lambda _

+ (install-file "java-allocation-instrumenter-sources.jar"

+ (string-append #$output "/share/java/")))))))

+ (inputs (list java-asm-for-graal-truffle

+ java-asm-commons-for-graal-truffle

+ java-asm-analysis-for-graal-truffle

+ java-asm-tree-for-graal-truffle

+ java-guava-for-graal-truffle))

+ (home-page "https://github.com/google/allocation-instrumenter")

+ (synopsis "Java agent for tracking allocations")

+ (description "Java Allocation Instrumenter is a Java agent that rewrites

+bytecode to track object allocations. Used by the GraalVM compiler for

+allocation analysis during benchmarking.")

+ (license license:asl2.0)))

+

+(define-public java-xmlunit

+ (package

+ (name "java-xmlunit")

+ (version "2.5.1")

+ (source (origin

+ (method url-fetch)

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

+ version ".tar.gz"))

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

+ (sha256

+ (base32

+ "035rivlnmwhfqj0fzviciv0bkh1h95ps1iwnh2kjcvdbk5nccm4z"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:jar-name "java-xmlunit.jar"

+(define java-sisu-inject-parent-pom-0.9

+ (package

+ (name "java-sisu-inject-parent-pom")

+ (version "0.9.0.M3")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/eclipse/sisu.inject/")

+ (commit (string-append "milestones/" version))))

+ (file-name (git-file-name "java-eclipse-sisu-inject" version))

+ (sha256

+ (base32

+ "1ygq3k8h2c9gd7x1lhdk2wjvfb26p554f0rm29mqc7qd5w86v8n7"))))

+ (build-system ant-build-system)

+ (arguments

+ `(#:tests? #f

+ #:phases

+ (modify-phases %standard-phases

+ (delete 'configure)

+ (delete 'build)

+ (replace 'install

+ (install-pom-file "pom.xml")))))

+ (propagated-inputs

+ (list java-guice-5))

+ (home-page "https://eclipse.org/sisu")

+ (synopsis "Parent POM for Eclipse Sisu")

+ (description "Eclipse Sisu is a modular JSR330-based container that

+supports classpath scanning, auto-binding, and dynamic auto-wiring.")

+ (license license:epl1.0)))

+

+(define-public java-eclipse-sisu-inject-0.9

+ (package

+ (inherit java-eclipse-sisu-inject)

+ (version "0.9.0.M3")

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/eclipse/sisu.inject/")

+ (commit (string-append "milestones/" version))))

+ (file-name (git-file-name "java-eclipse-sisu-inject" version))

+ (sha256

+ (base32

+ "1ygq3k8h2c9gd7x1lhdk2wjvfb26p554f0rm29mqc7qd5w86v8n7"))

+ (modules '((guix build utils)))

+ (snippet

+ '(begin

+ ;; Delete test jar files to prevent them from ending up on

+ ;; the classpath (the ant-build-system scans all inputs for

+ ;; jar files, including the source checkout).

+ (for-each delete-file (find-files "." "\\.jar$"))))))

+ (arguments

+ (substitute-keyword-arguments (package-arguments java-eclipse-sisu-inject)

+ ((#:source-dir _)

+ "org.eclipse.sisu.inject/src/main/java")

+ ((#:jdk _ #f) openjdk11)

+ ((#:phases phases)

+ `(modify-phases ,phases

+ (add-after 'unpack 'delete-junit5-dependent-files

+ (lambda _

+ ;; InjectedTest.java is a test utility in main sources that

+ ;; requires JUnit 5, which we don't have.

+ (delete-file "org.eclipse.sisu.inject/src/main/java/org/eclipse/sisu/launch/InjectedTest.java")))))))

+ ;; Use Guice 5 which includes ASM9 for Java 11+ class file parsing

+ (propagated-inputs

+ (list java-guice-5 java-sisu-inject-parent-pom-0.9))))

+

+ "**/PlexusRequirementTest.*"

+ ;; FIXME: These tests fail with Java 11

+ "**/ComponentAnnotationTest.*"

+ "**/ConfigurationAnnotationTest.*"

+ "**/RequirementAnnotationTest.*")

+(define-public java-eclipse-sisu-plexus-0.9

+ (package

+ (inherit java-eclipse-sisu-plexus)

+ (version "0.9.0.M3")

+ ;; Starting with 0.9.x, sisu.plexus was merged into the sisu.inject repo.

+ (source (origin

+ (method git-fetch)

+ (uri (git-reference

+ (url "https://github.com/eclipse/sisu.inject")

+ (commit (string-append "milestones/" version))))

+ (file-name (git-file-name "java-eclipse-sisu-plexus" version))

+ (sha256

+ (base32

+ "1ygq3k8h2c9gd7x1lhdk2wjvfb26p554f0rm29mqc7qd5w86v8n7"))

+ (modules '((guix build utils)))

+ (snippet

+ '(begin

+ ;; Delete jar files to prevent them from ending up on

+ ;; the classpath.

+ (for-each delete-file (find-files "." "\\.jar$"))))))

+ (arguments

+ (substitute-keyword-arguments (package-arguments java-eclipse-sisu-plexus)

+ ((#:jdk _ #f)

+ openjdk11)

+ ((#:source-dir _ #f)

+ "org.eclipse.sisu.plexus/src/main/java")

+ ((#:test-dir _ #f)

+ "org.eclipse.sisu.plexus/src/test")

+ ;; Delete check phase - tests require additional dependencies not

+ ;; yet available in Guix.

+ ((#:tests? _ #f)

+ #f)

+ ((#:phases phases)

+ `(modify-phases ,phases

+ ;; Delete build-test-jar since we don't have JUnit 5 and the

+ ;; directory structure is different in 0.9.

+ (delete 'build-test-jar)

+ ;; In 0.9.0.M3, there's no components.xml in main sources.

+ ;; Instead, classes use @Named annotations. Generate Sisu index.

+ (replace 'copy-resources

+ (lambda _

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

+ (with-output-to-file "build/classes/META-INF/sisu/javax.inject.Named"

+ (lambda ()

+ (display "org.codehaus.plexus.component.configurator.BasicComponentConfigurator\n")

+ (display "org.codehaus.plexus.component.configurator.MapOrientedComponentConfigurator\n")))))))))

+ (propagated-inputs

+ (list java-jsr250

+ java-plexus-classworlds

+ java-plexus-utils

+ java-plexus-xml

+ java-plexus-component-annotations

+ java-cdi-api

+ java-eclipse-sisu-inject-0.9))))

+