gnu: Add groovy-swing.

* gnu/packages/groovy.scm (groovy-swing): New variable.
This commit is contained in:
Julien Lepiller 2018-03-16 14:32:03 +01:00
parent 5b46d3f61d
commit b221e8e2a7
No known key found for this signature in database
GPG key ID: 43111F4520086A0C

View file

@ -491,3 +491,54 @@ (define groovy-bsf
(synopsis "Groovy BSF engine")
(description "This package defines the BSF engine for using Groovy inside
any @dfn{Bean Scripting Framework} (BSF) application.")))
(define groovy-swing
(package
(inherit groovy-bootstrap)
(name "groovy-swing")
(arguments
`(#:jar-name "groovy-swing.jar"
#:jdk ,icedtea-8
;; FIXME: tests are not run
#:test-dir "src/test"
#:phases
(modify-phases %standard-phases
(add-before 'configure 'chdir
(lambda _
(chdir "subprojects/groovy-swing")
#t))
(replace 'build
(lambda _
(mkdir-p "build/classes")
(mkdir-p "build/jar")
(apply invoke "java" "-cp" (getenv "CLASSPATH")
"org.codehaus.groovy.tools.FileSystemCompiler"
"-d" "build/classes" "-j"; joint compilation
(find-files "src/main" ".*\\.(groovy|java)$"))
(invoke "jar" "-cf" "build/jar/groovy-swing.jar"
"-C" "build/classes" ".")
#t))
(replace 'check
(lambda _
(mkdir-p "build/test-classes")
(substitute* "src/test/groovy/groovy/util/GroovySwingTestCase.groovy"
(("HeadlessTestSupport.headless") "isHeadless()"))
(substitute* "build.xml"
(("depends=\"compile-tests\"") "depends=\"\"")
(("}/java") "}/groovy"))
(apply invoke "java" "-cp"
(string-append (getenv "CLASSPATH") ":build/classes")
"org.codehaus.groovy.tools.FileSystemCompiler"
"-d" "build/test-classes" "-j"
(find-files "src/test" ".*\\.(groovy|java)$"))
(invoke "ant" "check")
#t)))))
(native-inputs
`(("groovy-bootstrap" ,groovy-bootstrap)
("groovy-test" ,groovy-test)
("groovy-tests-bootstrap" ,groovy-tests-bootstrap)
("java-commons-logging-minimal" ,java-commons-logging-minimal)
,@(package-native-inputs java-groovy-bootstrap)))
(synopsis "Groovy graphical library")
(description "This package contains the groovy bindings to Java Swing, a
library used to build graphical interfaces.")))