Changeset 13345

Timestamp:

06/17/11 13:10:13 (12 years ago)

Author:

Mark Evenson

Message:

Fix all compilation warnings.

Still not expected that ABCL-ASDF works, esp. in the use of
RUN-PROGRAM.

File:

• trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp (modified) (5 diffs)

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

@@ -3 +3 @@
   (:export #:package))
 
+
 (defpackage #:mvn
   (:use :cl)
-  (:export #:satisfy))
-
-(in-package :abcl-asdf)
+  (:export #:satisfy
+           #:as-classpath))
 
 (in-package :asdf)
@@ -15 +15 @@
 
 ;;; We interpret compilation to ensure that load-op will succeed
-(defmethod perform ((operation compile-op) (component mvn))
-    (let ((version (component-version mvn)))
-      (mvn:satisfy (component-name mvn) 
+(defmethod perform ((op compile-op) (c mvn))
+    (let ((version (component-version c)))
+      (mvn:satisfy (component-name c) 
                    :version (if version version :latest))))
 
-(defmethod perform ((operation load-op) (component mvn))
-    (let ((version (component-version mvn)))
+(defmethod perform ((operation load-op) (c mvn))
+    (let ((version (component-version c)))
       (java:add-to-classpath 
-       (as-classpath (mvn:satisfy (component-name mvn)
-                                  :version (if version version :latest))))))
+       (mvn:as-classpath 
+        (mvn:satisfy (component-name c)
+                     :version (if version version :latest))))))
+
+(in-package :abcl-asdf)
 
 (defun decompose (iri) 
+  (declare (ignore iri))
   ;;; XXX test 
   `((:scheme :jvm)
@@ -33 +37 @@
     (:version "1.4.10")))
 
-(defun mvn:satisfy (name &key (version :latest))
-  (let ((build.xml (make-temp-file)))
-    (with-open-file (s build.xml :direction :output)
-      (write-string *ant-build-template* s ))
-    (run-program 
-     (format nil "ant -find ~A" build.xml))))
+(in-package :mvn)
+
+(defparameter *maven-ant-tasks.jar*
+  "/export/home/evenson/src/apache-maven-3.0.3/maven-ant-tasks-2.1.1.jar")
 
 #|
@@ -53 +55 @@
   "<?xml version='1.0' encoding='UTF-8'?>
 <project xmlns='antlib:org.apache.tools.ant'
+         xmlns:artifact='antlib:org.apache.maven.artifact.ant'
          name='abcl-mvn-~A' default='install'>
 
@@ -72 +75 @@
 " (symbol-name (gensym)) "junit" "junit" "3.8.2"))
 
+(defun satisfy (name &key (version :latest))
+  (declare (ignore name version))
+  (let ((build.xml (ext:make-temp-file)))
+    (with-open-file (s build.xml :direction :output)
+      (write-string *ant-build-template* s ))
+    (ext:run-program 
+     (format nil "ant -find ~A -lib ~A" 
+             build.xml
+             *maven-ant-tasks.jar*))))
+
+(defun as-classpath (mvn)
+  "For a given MVN entry, return a list of loadable archives 
+ suitable for addition to the classpath."
+  (declare (ignore mvn))
+  (error "unimplemented"))
+                       
 
 
 
-  
-