me
/
guix
Archived
1
0
Fork 0
Code

gnu: Add java-native-access-platform. 

* gnu/packages/java.scm (java-native-access-platform): New variable.
master
Julien Lepiller 2018-03-14 18:22:04 +01:00
parent a970288c8e
commit cfb55cfc4a
No known key found for this signature in database
GPG Key ID: 43111F4520086A0C
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
gnu/packages/java.scm
View File

@ -9525,3 +9525,39 @@ Java method invocation.")
(license (list
license:asl2.0
license:lgpl2.1+))))
(define-public java-native-access-platform
(package
(inherit java-native-access)
(name "java-native-access-platform")
(arguments
`(#:test-target "test"
#:tests? #f; require jna-test.jar
#:phases
(modify-phases %standard-phases
(add-before 'build 'chdir
(lambda _
(chdir "contrib/platform")
#t))
(add-after 'chdir 'fix-ant
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "nbproject/project.properties"
(("../../build/jna.jar")
(string-append (assoc-ref inputs "java-native-access")
"/share/java/jna.jar"))
(("../../lib/hamcrest-core-.*.jar")
(string-append (assoc-ref inputs "java-hamcrest-core")
"/share/java/hamcrest-core.jar"))
(("../../lib/junit.jar")
(string-append (assoc-ref inputs "java-junit")
"/share/java/junit.jar")))
#t))
(replace 'install
(install-jars "dist")))))
(inputs
`(("java-native-access" ,java-native-access)))
(synopsis "Cross-platform mappings for jna")
(description "java-native-access-platfrom has cross-platform mappings
and mappings for a number of commonly used platform functions, including a
large number of Win32 mappings as well as a set of utility classes that
simplify native access.")))