Changeset 14233

Timestamp:

11/09/12 14:42:42 (9 years ago)

Author:

Mark Evenson

Message:

Re #262 in abcl-asdf: use first matching line if the first line doesn't work out.

Further work needed as something more meaningful should be returned
other than "The value NIL is not of type REAL" when abcl-asdf can't
parse the Maven version string.

Initial patch by Christoph.

Location:

trunk/abcl/contrib/abcl-asdf

Files:

• abcl-asdf.asd (modified) (2 diffs)
• maven-embedder.lisp (modified) (1 diff)

trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd

@@ -3 +3 @@
 (asdf:defsystem :abcl-asdf
   :author "Mark Evenson"
-  :version "0.9.0"
+  :version "0.9.1"
   :depends-on (jss)
   :components 
@@ -20 +20 @@
 (asdf:defsystem :abcl-asdf-test
   :author "Mark Evenson"
-  :defsystem-depends-on (abcl-asdf)
-  :components
-  ((:module tests :serial t :components
-            ((:file "example")
-             (:file "maven")
-             (:file "test")))))
+  :defsystem-depends-on (abcl abcl-test-lisp abcl-asdf)
+  :components ((:module tests :serial t 
+                        :components ((:file "example")
+                                     (:file "maven")
+                                     (:file "test")))))
 
 #|

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

@@ -115 +115 @@
 (defun mvn-version ()
   "Return the Maven version used by the Aether connector."
-  (let* ((line
-         (read-line (sys::process-output 
-                     (sys::run-program 
-                      (namestring (find-mvn)) '("-version")))))
-         (pattern (#"compile" 
-                   'regex.Pattern
-                   "Apache Maven ([0-9]+)\\.([0-9]+)\\.([0-9]+)"))
-         (matcher (#"matcher" pattern line))
-         (found (#"find" matcher)))
-    (unless found 
-      (return-from mvn-version nil))
-    (mapcar #'parse-integer
-            `(,(#"group" matcher 1)
-              ,(#"group" matcher 2)
-              ,(#"group" matcher 3)))))
+  (let ((stream (sys::process-output
+                 (sys::run-program (truename (find-mvn)) '("-version"))))
+        (pattern (#"compile"
+                  'regex.Pattern
+                  "Apache Maven ([0-9]+)\\.([0-9]+)\\.([0-9]+)")))
+    (do ((line (read-line stream nil :eof) 
+              (read-line stream nil :eof)))
+        ((or (not line) (eq line :eof)) nil)
+      (let ((matcher (#"matcher" pattern line)))
+        (when (#"find" matcher)
+          (return-from mvn-version
+            (handler-case 
+                (mapcar #'parse-integer 
+                        `(,(#"group" matcher 1) 
+                           ,(#"group" matcher 2) 
+                           ,(#"group" matcher 3)))
+              (t (e) 
+                (error "Failed to parse Maven version from ~A because~&~A." line e)))))))))
 
 (defun ensure-mvn-version ()