50/110: gnu: java-bsh: Unbundle third-party libraries.

[guix-commits]

roptat pushed a commit to branch master
in repository guix.

commit b8d977b1545a957523eb00cbd475c8a1944f8ac4
Author: Julien Lepiller <julien@lepiller.eu>
AuthorDate: Sun May 17 17:57:41 2020 +0200

    gnu: java-bsh: Unbundle third-party libraries.
    
    * gnu/packages/java.scm (java-bsh)[source]: Remove bundled jar files.
---
 gnu/packages/java.scm | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index f3c8abe..884c10a 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -9422,19 +9422,38 @@ annotations.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0kz3f0xjack6c9syssi4qjw1rbd3q5963sk5pmr143hiibxa9csw"))))
+                "0kz3f0xjack6c9syssi4qjw1rbd3q5963sk5pmr143hiibxa9csw"))
+              (modules '((guix build utils)))
+              (snippet
+               '(begin
+                  ;; Delete bundled third-party jar archives.
+                  (for-each delete-file (find-files "." ".*.jar$"))
+                  (for-each (lambda (file) (chmod file #o644))
+                            (find-files "." "."))
+                  #t))))
     (build-system ant-build-system)
     (arguments
      `(#:build-target "jarall"
        #:test-target "junit-tests-all"
        #:phases
        (modify-phases %standard-phases
+         (add-before 'install 'fix-pom
+           (lambda _
+             (substitute* "pom.xml"
+               (("org.apache-extras.beanshell") "org.beanshell"))
+             #t))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((share (string-append (assoc-ref outputs "out") 
"/share/java")))
                (mkdir-p share)
                (copy-file "dist/bsh-2.0b6.jar" (string-append share 
"/bsh-2.0b6.jar"))
                #t))))))
+    (inputs
+     `(("java-classpathx-servletapi" ,java-classpathx-servletapi)
+       ("java-commons-bsf" ,java-commons-bsf)))
+    (native-inputs
+     `(("java-junit" ,java-junit)
+       ("javacc" ,javacc-3)))
     (home-page "http://beanshell.org/";)
     (synopsis "Lightweight Scripting for Java")
     (description "BeanShell is a small, free, embeddable Java source