Changeset 14192 for trunk/abcl/contrib/mvn/jna.asd
- Timestamp:
- 10/13/12 09:12:36 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/contrib/mvn/jna.asd
r14191 r14192 4 4 (asdf:defsystem :jna 5 5 :version "3.4.0" 6 :defsystem-depends-on (jss abcl-asdf)) 7 ;; FIXME: install a better handler in abcl-asdf :components ((:mvn "net.java.dev.jna/jna/3.4.0"))) 6 :defsystem-depends-on (jss abcl-asdf) 7 ;; FIXME: 8 :components ((:mvn "net.java.dev.jna/jna/3.4.0"))) 8 9 9 (defmethod asdf:perform :after ((o asdf:load-op) (c (eql (asdf:find-system :jna)))) 10 (in-package :asdf) 11 (defmethod perform :after ((o load-op) (c (eql (find-system :jna)))) 10 12 (when (jss:find-java-class "com.sun.jna.Native") 11 13 (provide :jna))) 12 14 13 (defmethod asdf:perform :before ((o asdf:load-op) (c (eql (asdf:find-system :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)))) 14 18 ;; Theoretically this should be the same thing as the MVN component. 19 (format *debug-io* "~&Attemping to locate jvm binary artifacts for JNA...~&") 15 20 (handler-case 16 (unless (jss:find-java-class "com.sun.jna.Native") 17 (unless (java:add-to-classpath (abcl-asdf:resolve "net.java.dev.jna:jna:3.4.0")) 18 (java:add-to-classpath "http://repo1.maven.org/maven2/net/java/dev/jna/jna/3.4.0/jna-3.4.0.jar"))) 21 (jss:find-java-class "com.sun.jna.Native") 22 (java:java-exception (e) 23 (unless 24 (java:add-to-classpath (abcl-asdf:resolve "net.java.dev.jna:jna:3.4.0")) 25 (unless 26 (java:add-to-classpath #p"http://repo1.maven.org/maven2/net/java/dev/jna/jna/3.4.0/jna-3.4.0.jar") 27 (error "Failed to load jna-3.4.0.jar from the network via URI.")) 28 (error "Failed to load jna.jar via ABCL-ASDF."))) 19 29 (t (e) 20 (error "Failed to resolve 'jna.jar' because~&~A. " e))))30 (error "Failed to resolve 'jna.jar' because~&~A.~&" e)))) 21 31 22 32
Note: See TracChangeset
for help on using the changeset viewer.