Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added properties to compute-service

This commit is contained in:
Hugo Duncan 2010-04-05 16:24:42 -04:00
parent 190c768d02
commit 6fa99d92a7
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compute/src/main/clojure/org/jclouds/compute.clj
View File

@ -38,6 +38,7 @@ See http://code.google.com/p/jclouds for details."
[clojure.contrib.str-utils2 :only [capitalize lower-case map-str]]
[clojure.contrib.java-utils :only [wall-hack-field]])
(:import java.io.File
java.util.Properties
[org.jclouds.domain Location]
[org.jclouds.compute
ComputeService ComputeServiceContext ComputeServiceContextFactory]
@ -50,11 +51,16 @@ See http://code.google.com/p/jclouds for details."
(defn compute-service
"Create a logged in context."
([#^String service #^String account #^String key & options]
(let [module-keys (set (keys module-lookup))
ext-modules (filter #(module-keys %) options)
opts (apply hash-map (filter #(not (module-keys %)) options))]
(.. (ComputeServiceContextFactory.)
(createContext
service account key
(apply modules (filter #(not (#{:sync :async} %)) options)))
(getComputeService))))
(apply modules (concat ext-modules (opts :extensions)))
(reduce #(do (.put %1 (name (first %2)) (second %2)) %1)
(Properties.) (dissoc opts :extensions)))
(getComputeService)))))
(defn compute-context
"Returns a compute context from a compute service."