abcl-asdf: make 'com.sun.jna:jna' a synonym for a known, good jna mvn URI.

parent 1112187b
......@@ -103,17 +103,16 @@
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)))
(with-slots (name group-id artifact-id version) 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
(resolve-dependencies group-id artifact-id 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))))))
(error "Failed to resolve MVN component name ~A." name)))))
(defun as-classpath (classpath)
"Break apart the JVM CLASSPATH string into a list of its consituents."
......
......@@ -413,6 +413,8 @@ artifact and all of its transitive dependencies."
(cond
((= (length result) 3)
(resolve-dependencies (first result) (second result) (third result)))
((string= string "com.sun.jna:jna")
(resolve-dependencies "net.java.dev.jna" "jna" "3.4.0"))
(t
(apply #'resolve-dependencies result)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment