source: trunk/abcl/contrib/mvn/jna.asd @ 14225

Last change on this file since 14225 was 14225, checked in by Mark Evenson, 8 years ago

jna: Update to jna-3.5.1.

File size: 1.4 KB
1;;;; -*- Mode: LISP -*-
3;;;; Need to have jna.jar present for CFFI to have a chance of working.
4(asdf:defsystem :jna
5    :version "3.5.1"
6    :defsystem-depends-on (jss abcl-asdf)
7;; FIXME: always seems to be resolving the LATEST maven artifact.
8    :components ((:mvn "")))
10(in-package :asdf)
11(defmethod perform :after ((o load-op) (c (eql (find-system :jna))))
12  (when (jss:find-java-class "com.sun.jna.Native")
13    (provide :jna)))
15;;; After ASDF performs COMPILE-OP, one expects that the JNA Java
16;;; classes can be instantiated.  If not, execute various loading strategies.
17(defmethod perform ((o compile-op) (c (eql (find-system :jna))))
18  ;; Theoretically this should be the same thing as the MVN component.
19  (format *debug-io* "~&Attemping to locate jvm binary artifacts for JNA...~&")
20  (handler-case
21      (jss:find-java-class "com.sun.jna.Native")
22    (java:java-exception (e)
23      (unless
24          (java:add-to-classpath (abcl-asdf:resolve ""))
25        (unless
26            ;; Might want to download to local filesystem, then place in classpath
27            (java:add-to-classpath #p"")
28          (error "Failed to load jna-3.5.0.jar from the network via URI."))
29        (error "Failed to load jna.jar via ABCL-ASDF.")))
30    (t (e)
31      (error "Failed to resolve 'jna.jar' because~&~A.~&" e))))
Note: See TracBrowser for help on using the repository browser.