org.jclouds.modules.clj Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of jclouds-compute Show documentation
jclouds components to access compute providers
The newest version!
;
; Licensed to the Apache Software Foundation (ASF) under one or more
; contributor license agreements.  See the NOTICE file distributed with
; this work for additional information regarding copyright ownership.
; The ASF licenses this file to You under the Apache License, Version 2.0
; (the "License"); you may not use this file except in compliance with
; the License.  You may obtain a copy of the License at
;
;     http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;

(defn compute-module
  []
  (org.jclouds.compute.config.JCloudsNativeComputeServiceAdapterContextModule 
    (class ComputeService)
    (class ComputeService)
    (defrecord ClojureComputeServiceAdapter []
          org.jclouds.compute.JCloudsNativeComputeServiceAdapter
          (^NodeMetadata createNodeWithGroupEncodedIntoNameThenStoreCredentials [this ^String group ^String name ^Template template ^Map credentialStore]
            ())
          (^Iterable listNodes [this ]
            ())
          (^Iterable listImages [this ]
            ())
          (^Iterable listHardwareProfiles [this ]
            ())
          (^Iterable listLocations [this ]
            ())
          (^NodeMetadata getNode [this ^String id]
            ())
          (^void destroyNode [this ^String id]
            ())
          (^void rebootNode  [this ^String id]
            ())
          (^void suspendNode [this ^String id]
            ())
          (^void resumeNode [this ^String id]
            ()))))

(defn compute-context [^RestContextSpec spec] 
  (.createContext (ComputeServiceContextFactory.)  spec))

(^RestContextSpec defn context-spec [^StandaloneComputeServiceContextModule module]
  (StandaloneComputeServiceContextSpec. "servermanager", "http://host", "1", "", "identity", "credential", module, (ImmutableSet/of)))

(defrecord NodeListComputeService
    [node-list]
    org.jclouds.compute.ComputeService
    (listNodes [_] node-list)
    (getNodeMetadata
     [_ id]
     (some #(= (.getId %) id) node-list))
    (listNodesDetailsMatching
     [_ predicate]
     (filter #(.apply predicate %) node-list)))

(defn ssh-client-factory
  "Pass in a function that reifies org.jclouds.ssh.SshClient"
  [ctor]
  (reify
   org.jclouds.ssh.SshClient$Factory
   (^org.jclouds.ssh.SshClient create
    [_ ^IPSocket socket ^Credentials credentials]
    (ctor socket credentials))
   (^org.jclouds.ssh.SshClient create
    [_ ^IPSocket socket ^String username ^String password-or-key]
    (ctor socket username password-or-key))
   (^org.jclouds.ssh.SshClient create
    [_ ^IPSocket socket ^String username ^bytes password-or-key]
    (ctor socket username password-or-key))))

(defn ssh-module
  "Create a module that specifies the factory for creating an ssh service"
  [^org.jclouds.ssh.SshClient$Factory factory]
  (let [binder (atom nil)]
    (reify
     com.google.inject.Module
     (configure
      [this abinder]
      (reset! binder abinder)
      (.. @binder (bind org.jclouds.ssh.SshClient$Factory)
          (toInstance factory))))))