cloulu 0.0.0 → 0.1.1

data/lib/cfoundry/v1/model.rb

@@ -0,0 +1,178 @@
+require "multi_json"
+
+require "cfoundry/v1/model_magic"
+
+
+module CFoundry::V1
+  class Model
+    @@objects = {}
+
+    extend ModelMagic
+
+    class << self
+      attr_writer :object_name, :base_object_name
+
+      def object_name
+        @object_name ||=
+          name.split("::").last.gsub(
+            /([a-z])([A-Z])/,
+            '\1_\2').downcase.to_sym
+      end
+
+      def base_object_name
+        @base_object_name ||= object_name
+      end
+
+      def plural_object_name
+        "#{object_name}s"
+      end
+
+      def plural_base_object_name
+        "#{base_object_name}s"
+      end
+
+      def objects
+        @@objects
+      end
+
+      def inherited(klass)
+        @@objects[klass.object_name] = klass
+        super
+      end
+    end
+
+    attr_accessor :guid, :changes
+
+    def initialize(guid, client, manifest = nil)
+      @guid = guid
+      @client = client
+      @manifest = manifest
+      @changes = {}
+    end
+
+    def manifest
+      @manifest ||= @client.base.send(base_object_name, @guid)
+    end
+
+    def changed?
+      !@changes.empty?
+    end
+
+    def inspect
+      "\#<#{self.class.name} '#@guid'>"
+    end
+
+    def object_name
+      @object_name ||= self.class.object_name
+    end
+
+    def base_object_name
+      @base_object_name ||= self.class.base_object_name
+    end
+
+    def guid_name
+      self.class.guid_name
+    end
+
+    def invalidate!
+      @manifest = nil
+      @changes = {}
+    end
+
+    def create!
+      @manifest = @client.base.send(:"create_#{base_object_name}", write_manifest)
+
+      @guid = read_manifest[guid_name]
+
+      true
+    end
+
+    def update!
+      @client.base.send(:"update_#{base_object_name}", @guid, write_manifest)
+
+      true
+    end
+
+    def delete!
+      @client.base.send(:"delete_#{base_object_name}", @guid)
+
+      @guid = nil
+
+      true
+    end
+
+    def exists?
+      invalidate!
+      manifest
+      true
+    rescue CFoundry::NotFound
+      false
+    end
+
+    def read_manifest
+      read = {}
+
+      self.class.read_locations.each do |name, where|
+        found, val = find_path(manifest, where)
+        read[name] = val if found
+      end
+
+      self.class.write_locations.each do |name, where|
+        next if self.class.read_only_attributes.include? name
+
+        found, val = find_path(manifest, where)
+        read[name] = val if found
+      end
+
+      read[guid_name] = @guid
+
+      read
+    end
+
+    def find_path(hash, path)
+      return [false, nil] unless hash
+
+      first, *rest = path
+      return [false, nil] unless hash.key?(first)
+
+      here = hash[first]
+
+      if rest.empty?
+        [true, here]
+      else
+        find_path(here, rest)
+      end
+    end
+
+    def write_manifest(body = read_manifest, onto = {})
+      onto[guid_name] = @guid if guid_name
+
+      self.class.write_locations.each do |name, where|
+        next if self.class.read_only_attributes.include? name
+        put(body[name], onto, where) if body.key?(name)
+      end
+
+      onto
+    end
+
+    def put(what, where, path)
+      if path.size == 1
+        where[path.last] = what
+      elsif name = path.first
+        where[name] ||= {}
+        put(what, where[name], path[1..-1])
+      end
+
+      nil
+    end
+
+    def eql?(other)
+      other.is_a?(self.class) && @guid == other.guid
+    end
+    alias :== :eql?
+
+    def hash
+      @guid.hash
+    end
+  end
+end

data/lib/cfoundry/v1/model_magic.rb

@@ -0,0 +1,129 @@
+require "cfoundry/validator"
+
+module CFoundry::V1
+  module BaseClientMethods
+  end
+
+  module ClientMethods
+  end
+
+  module ModelMagic
+    attr_accessor :guid_name
+
+    def read_locations
+      @read_locations ||= {}
+    end
+
+    def write_locations
+      @write_locations ||= {}
+    end
+
+    def read_only_attributes
+      @read_only_attributes ||= []
+    end
+
+    def on_client(&blk)
+      ClientMethods.module_eval(&blk)
+    end
+
+    def on_base_client(&blk)
+      BaseClientMethods.module_eval(&blk)
+    end
+
+    def define_client_methods(klass = self)
+      singular = klass.object_name
+      plural = klass.plural_object_name
+
+      base_singular = klass.base_object_name
+      base_plural = klass.plural_base_object_name
+
+      on_base_client do
+        define_method(base_singular) do |guid|
+          get(base_plural, guid, :accept => :json)
+        end
+
+        define_method(:"create_#{base_singular}") do |payload|
+          post(base_plural, :content => :json, :accept => :json, :payload => payload)
+        end
+
+        define_method(:"delete_#{base_singular}") do |guid|
+          delete(base_plural, guid)
+          true
+        end
+
+        define_method(:"update_#{base_singular}") do |guid, payload|
+          put(base_plural, guid, :content => :json, :payload => payload)
+        end
+
+        define_method(base_plural) do |*args|
+          get(base_plural, :accept => :json)
+        end
+      end
+
+      on_client do
+        if klass.guid_name
+          define_method(:"#{singular}_by_#{klass.guid_name}") do |guid|
+            obj = send(singular, guid)
+            obj if obj.exists?
+          end
+        end
+
+        define_method(singular) do |*args|
+          guid, _ = args
+          klass.new(guid, self)
+        end
+
+        define_method(plural) do |*args|
+          options, _ = args
+          options ||= {}
+
+          @base.send(base_plural).collect do |json|
+            klass.new(json[klass.guid_name], self, json)
+          end
+        end
+      end
+    end
+
+    def attribute(name, type, opts = {})
+      default = opts[:default]
+      is_guid = opts[:guid]
+      read_only = opts[:read_only]
+      write_only = opts[:write_only]
+      has_default = opts.key?(:default)
+
+      read_locations[name] = Array(opts[:read] || opts[:at] || name) unless write_only
+      write_locations[name] = Array(opts[:write] || opts[:at] || name) unless read_only
+
+      read_only_attributes << name if read_only
+
+      self.guid_name = name if is_guid
+
+      define_method(name) do
+        return @guid if @guid && is_guid
+
+        read = read_manifest
+        read.key?(name) ? read[name] : default
+      end
+
+      define_method(:"#{name}=") do |val|
+        unless has_default && val == default
+          CFoundry::Validator.validate_type(val, type)
+        end
+
+        @guid = val if is_guid
+
+        @manifest ||= {}
+
+        old = read_manifest[name]
+        @changes[name] = [old, val] if old != val
+
+        write_to = read_only ? self.class.read_locations : self.class.write_locations
+
+        put(val, @manifest, write_to[name])
+      end
+
+      private name if write_only
+      private :"#{name}=" if read_only
+    end
+  end
+end

data/lib/cfoundry/v1/runtime.rb

@@ -0,0 +1,24 @@
+module CFoundry::V1
+  class Runtime
+    attr_accessor :name, :description, :debug_modes
+
+    def initialize(name, description = nil, debug_modes = nil)
+      @name = name
+      @description = description
+      @debug_modes = debug_modes
+    end
+
+    def eql?(other)
+      other.is_a?(self.class) && other.name == @name
+    end
+    alias :== :eql?
+
+    def apps
+      [] # not supported by v1
+    end
+
+    def debug_modes
+      @debug_modes || []
+    end
+  end
+end

data/lib/cfoundry/v1/service.rb

@@ -0,0 +1,39 @@
+module CFoundry::V1
+  class Service
+    attr_accessor :label, :version, :description, :type, :provider, :state, :service_plans
+
+    def initialize(label, version = nil, description = nil,
+                   type = nil, provider = "core", state = nil,
+                   service_plans = [])
+      @label = label
+      @description = description
+      @version = version
+      @type = type
+      @provider = provider
+      @state = state
+      @service_plans = service_plans
+    end
+
+    def eql?(other)
+      other.is_a?(self.class) && other.label == @label
+    end
+    alias :== :eql?
+
+    def active
+      true
+    end
+
+    def deprecated?
+      @state == :deprecated
+    end
+
+    def current?
+      @state == :current
+    end
+
+    def default_service_plan
+      service_plans.find(&:default?)
+    end
+
+  end
+end

data/lib/cfoundry/v1/service_instance.rb

@@ -0,0 +1,32 @@
+require "cfoundry/v1/model"
+
+module CFoundry::V1
+  class ServiceInstance < Model
+    self.base_object_name = :service
+
+    attribute :name,       :string,   :guid => true
+    attribute :created,    :integer,  :at => [:meta, :created]
+    attribute :updated,    :integer,  :at => [:meta, :updated]
+    attribute :tags,       [:string], :at => [:meta, :tags]
+    attribute :type,       :string
+    attribute :vendor,     :string
+    attribute :version,    :string
+    attribute :tier,       :string
+    attribute :properties, :hash
+
+    define_client_methods
+
+    alias_method :created_unix, :created
+    alias_method :updated_unix, :updated
+
+    # Timestamp of when the service was created.
+    def created
+      Time.at(created_unix)
+    end
+
+    # Timestamp of when the service was last updated.
+    def updated
+      Time.at(updated_unix)
+    end
+  end
+end

data/lib/cfoundry/v1/service_plan.rb

@@ -0,0 +1,19 @@
+module CFoundry::V1
+
+  class ServicePlan
+
+    attr_accessor :name, :description
+
+    def initialize(name, description, is_default)
+      @name = name
+      @description = description
+      @is_default = is_default
+    end
+
+    def default?
+      @is_default
+    end
+
+  end
+
+end

data/lib/cfoundry/v1/user.rb

@@ -0,0 +1,22 @@
+require "cfoundry/v1/model"
+
+module CFoundry::V1
+  class User < Model
+    attribute :email,    :string, :guid => true
+    attribute :password, :string, :write_only => true
+    attribute :admin,    :boolean
+
+    define_client_methods
+
+    alias_method :admin?, :admin
+
+    def change_password!(new, old)
+      if @client.base.uaa
+        @client.base.uaa.change_password(guid, new, old)
+      else
+        self.password = new
+        update!
+      end
+    end
+  end
+end