gnu: Add cl-ana.statistical-learning.

[jackhill/guix/guix.git] / gnu / packages / batik.scm

diff --git a/gnu/packages/batik.scm b/gnu/packages/batik.scm
index d45600f..cd77c9a 100644 (file)
--- a/gnu/packages/batik.scm
+++ b/gnu/packages/batik.scm
@@ -26,7 +26,8 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages java)
-  #:use-module (gnu packages textutils))
+  #:use-module (gnu packages textutils)
+  #:use-module (gnu packages xml))
 
 (define-public java-w3c-smil-3.0
   (package
@@ -138,8 +139,8 @@ public interface EventListenerInitializer {
     (native-inputs
      `(("unzip" ,unzip)))
     (home-page "https://www.w3.org/Style/CSS/SAC/")
-    (synopsis "W3C SVG interface")
-    (description "This package provides a SVG interface.")
+    (synopsis "W3C SVG 1.0 interface")
+    (description "This package provides a SVG 1.0 interface.")
     (license license:w3c)))
 
 (define-public java-w3c-svg
@@ -154,8 +155,15 @@ public interface EventListenerInitializer {
         (sha256
          (base32
           "0jicqcrxav8ggs37amgvvwgc2f0qp1c5wns4rb2i3si83s2m09ns"))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments java-w3c-svg-1.0)
+       ((#:phases phases)
+       `(modify-phases ,phases
+          (delete 'patch-interface)))))
     (propagated-inputs
-     `())))
+     `())
+    (synopsis "W3C SVG interface")
+    (description "This package provides a SVG interface.")))
 
 (define-public java-w3c-sac
   (package
@@ -199,14 +207,16 @@ SAC is an interface for CSS parsers.")
               version "-src.tar.gz"))
         (sha256
          (base32
-          "0a432a4ca3vgnbada5cy9mlmfzmq6hi4i176drfxrp17q2d43w23"))))
+          "0a432a4ca3vgnbada5cy9mlmfzmq6hi4i176drfxrp17q2d43w23"))
+        (modules '((guix build utils)))
+        (snippet
+         `(begin
+            (delete-file-recursively "lib")
+            #t))))
     (build-system ant-build-system)
     (arguments
      `(#:build-target "jar-main"
-       ;; TODO: More detailed tests are available--but they need
-       ;; commons-xml-resolver.
-       ;; TODO: Provide commons-xml-resolver.
-       #:test-target "junit-basic"
+       #:test-target "junit"
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'make-reproducible
@@ -215,6 +225,11 @@ SAC is an interface for CSS parsers.")
               (("<attribute name=\"Build-Id\" value=\"[^\"]*\"")
                "<attribute name=\"Build-Id\" value=\"\""))
              #t))
+         (add-before 'build 'prepare-build-directories
+           (lambda _
+             (mkdir "lib")
+             (mkdir "lib/build")
+             #t))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -225,7 +240,16 @@ SAC is an interface for CSS parsers.")
                                      "xmlgraphics-commons.*\\.jar$"))
                #t))))))
     (native-inputs
-     `(("java-junit" ,java-junit)))
+     `(("java-apache-xml-commons-resolver" ,java-apache-xml-commons-resolver)
+       ("java-asm" ,java-asm)
+       ("java-cglib" ,java-cglib)
+       ("java-hamcrest" ,java-hamcrest-core)
+       ("java-junit" ,java-junit)
+       ("java-mockito" ,java-mockito-1)
+       ("java-objenesis" ,java-objenesis)))
+    (propagated-inputs
+     `(("java-commons-io" ,java-commons-io)
+       ("java-commons-logging-minimal" ,java-commons-logging-minimal)))
     (home-page "https://xmlgraphics.apache.org/commons/")
     (synopsis "XMLGraphics constants")
     (description "This package provides XMLGraphics constants (originally