Changeset 14168
- Timestamp:
- 10/08/12 18:06:53 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/contrib/abcl-asdf/maven-embedder.lisp
r14166 r14168 6 6 # Implementation 7 7 8 Not multi-threaded safe, and unclear how much work that would be. 8 Not necessarily multi-threaded safe, and unclear how much work that 9 would be, as it is unknown how the Maven implementation behaves. 9 10 10 11 ## Installing Maven … … 23 24 |# 24 25 25 ;;; N.b. evaluated *after* we load the ABCL specific modifications of ASDF in abcl-asdf.lisp 26 ;;; N.b. evaluated *after* we load the ABCL specific modifications of 27 ;;; ASDF in abcl-asdf.lisp 26 28 27 29 (in-package :abcl-asdf) … … 158 160 "A list of possible candidate implementations that provide access to http and https resources. 159 161 160 Supposedly configurable with the java.net.protocols (c.f. reference maso2000 in the Manual. ")162 Supposedly configurable with the java.net.protocols (c.f. reference maso2000 in the Manual.)") 161 163 162 164 (defun make-wagon-provider () … … 185 187 (unless *init* (init)) 186 188 (let ((locator 187 (java:jnew "org.apache.maven.repository.internal.DefaultServiceLocator")) 189 (java:jnew "org.apache.maven.repository.internal.MavenServiceLocator")) 190 (wagon-provider-class 191 (java:jclass "org.sonatype.aether.connector.wagon.WagonProvider")) 192 (wagon-repository-connector-factory-class 193 (java:jclass "org.sonatype.aether.connector.wagon.WagonRepositoryConnectorFactory")) 188 194 (repository-connector-factory-class 189 195 (java:jclass "org.sonatype.aether.spi.connector.RepositoryConnectorFactory")) 190 (wagon-repository-connector-factory-class191 (java:jclass "org.sonatype.aether.connector.wagon.WagonRepositoryConnectorFactory"))192 (wagon-provider-class193 (java:jclass "org.sonatype.aether.connector.wagon.WagonProvider"))194 196 (repository-system-class 195 197 (java:jclass "org.sonatype.aether.RepositorySystem"))) 196 (#"addService" locator197 repository-connector-factory-class198 wagon-repository-connector-factory-class)199 198 (#"setServices" locator 200 199 wagon-provider-class 201 (java:jnew-array-from-list 202 "org.sonatype.aether.connector.wagon.WagonProvider" 203 (list 204 (make-wagon-provider)))) 205 (#"getService" locator 206 repository-system-class))) 200 (java:jarray-from-list 201 (list (make-wagon-provider)))) 202 (#"addService" locator 203 repository-connector-factory-class 204 wagon-repository-connector-factory-class) 205 (values (#"getService" locator 206 repository-system-class) 207 locator))) 207 208 208 209 (defun make-session (repository-system) … … 216 217 (#"setLocalRepositoryManager" 217 218 session 218 (#"newLocalRepositoryManager" repository-system local-repository)))) 219 (#"newLocalRepositoryManager" repository-system 220 local-repository)))) 219 221 220 222 (defparameter *maven-http-proxy* nil … … 241 243 (defparameter *repository-system* nil 242 244 "The org.sonatype.aether.RepositorySystem used by the Maeven Aether connector.") 243 (defun ensure-repository-system ( )244 ( unless *repository-system*245 (defun ensure-repository-system (&key (force nil)) 246 (when (or force (not *repository-system*)) 245 247 (setf *repository-system* (make-repository-system))) 246 248 *repository-system*) … … 248 250 (defparameter *session* nil 249 251 "Reference to the Maven RepositorySystemSession") 250 (defun ensure-session ( )252 (defun ensure-session (&key (force nil)) 251 253 "Ensure that the RepositorySystemSession has been created. 252 254 253 255 If *MAVEN-HTTP-PROXY* is non-nil, parse its value as the http proxy." 254 ( unless *session*255 (ensure-repository-system )256 (when (or force (not *session*)) 257 (ensure-repository-system :force force) 256 258 (setf *session* (make-session *repository-system*)) 257 259 (#"setRepositoryListener" *session* (make-repository-listener)) … … 298 300 (defparameter *maven-remote-repository* nil 299 301 "The remote repository used by the Maven Aether embedder.") 300 (defun ensure-remote-repository (&key repository *default-repository* repository-p) 302 (defun ensure-remote-repository (&key 303 (force nil) 304 (repository *default-repository* repository-p)) 301 305 (unless *init* (init)) 302 (unless (or repository-p 303 *maven-remote-repository*) 306 (when (or force 307 repository-p 308 (not *maven-remote-repository*)) 304 309 (let ((r (make-remote-repository "central" "default" repository))) 305 310 (when *maven-http-proxy*
Note: See TracChangeset
for help on using the changeset viewer.