Changeset 14192 for trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp

Timestamp:

10/13/12 09:12:36 (8 years ago)

Author:

Mark Evenson

Message:

abcl-asdf: special case handling for finding com.sun.jna.Native et. al.

Fallback to finding 'jna.jar' via Maven is to download it ourselves.

Undefined what having a URI in your classpath means to your local JVM
implementation.

File:

• trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp (modified) (1 diff)

trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp

@@ -101 +101 @@
   "Resolve all runtime dependencies of MVN-COMPONENT.
 
-Returns a string in JVM CLASSPATH format as entries delimited by classpath separator string."
-  
-  (with-slots (asdf::group-id asdf::artifact-id asdf::version) mvn-component
-    (resolve-dependencies asdf::group-id asdf::artifact-id asdf::version)))
+Returns a string in JVM CLASSPATH format as entries delimited by
+classpath separator string.  Can possibly be a single entry denoting a
+remote binary artifact."
+  (let ((name (asdf::component-name mvn-component)))
+    (if (find-mvn)
+        (with-slots (asdf::group-id asdf::artifact-id asdf::version) mvn-component
+          (resolve-dependencies asdf::group-id asdf::artifact-id asdf::version))
+        (cond 
+          ((string= name
+                    "net.java.dev.jna/jna/3.4.0"
+                    (let ((uri #p"http://repo1.maven.org/maven2/net/java/dev/jna/jna/3.4.0/jna-3.4.0.jar"))
+                      (values (namestring uri) uri))))
+          (t 
+           (error "Failed to resolve MVN component name ~A." name))))))
 
 (defun as-classpath (classpath)