deltacloud-core 0.0.1

data/lib/deltacloud/hardware_profile.rb

@@ -0,0 +1,131 @@
+
+module Deltacloud
+  class HardwareProfile
+
+    UNITS = {
+      :memory => "MB",
+      :storage => "GB",
+      :architecture => "label",
+      :cpu => "count"
+    }
+
+    def self.unit(name)
+      UNITS[name]
+    end
+
+    class Property
+      attr_reader :name, :kind, :default
+      # kind == :range
+      attr_reader :first, :last
+      # kind == :enum
+      attr_reader :values
+      # kind == :fixed
+      attr_reader :value
+
+      def initialize(name, values, opts = {})
+        @name = name
+        if values.is_a?(Range)
+          @kind = :range
+          @first = values.first
+          @last = values.last
+          @default = values.first
+        elsif values.is_a?(Array)
+          @kind = :enum
+          @values = values
+          @default = values.first
+        else
+          @kind = :fixed
+          @value = values
+          @default = @value
+        end
+        @default = opts[:default] if opts[:default]
+      end
+
+      def unit
+        HardwareProfile.unit(name)
+      end
+
+      def param
+        "hwp_#{name}"
+      end
+
+      def fixed?
+        kind == :fixed
+      end
+
+      def to_param
+        return nil if kind == :fixed
+        if kind == :range
+          # FIXME: We can't validate ranges currently
+          args = [param, :string, :optional]
+        else
+          args = [param, :string, :optional, values.collect { |v| v.to_s} ]
+        end
+        Validation::Param.new(args)
+      end
+
+      def include?(v)
+        if kind == :fixed
+          return v == value
+        elsif kind == :range
+          return v >= first && v <= last
+        else
+          return values.include?(v)
+        end
+      end
+    end
+
+    class << self
+      def property(prop)
+        define_method(prop) do |*args|
+          values, opts, *ignored = *args
+          instvar = :"@#{prop}"
+          unless values.nil?
+            @properties[prop] = Property.new(prop, values, opts || {})
+          end
+          @properties[prop]
+        end
+      end
+    end
+
+    attr_reader :name
+    property :cpu
+    property :architecture
+    property :memory
+    property :storage
+
+    def initialize(name,&block)
+      @properties   = {}
+      @name         = name
+      instance_eval &block if block_given?
+    end
+
+    def each_property(&block)
+      @properties.each_value { |prop| yield prop }
+    end
+
+    def properties
+      @properties.values
+    end
+
+    def property(name)
+      @properties[name.to_sym]
+    end
+
+    def default?(prop, v)
+      p = @properties[prop.to_sym]
+      p && p.default.to_s == v
+    end
+
+    def include?(prop, v)
+      p = @properties[prop]
+      p.nil? || p.include?(v)
+    end
+
+    def params
+      @properties.values.inject([]) { |m, prop|
+        m << prop.to_param
+      }.compact
+    end
+  end
+end

data/lib/deltacloud/helpers.rb

@@ -0,0 +1,5 @@
+require 'deltacloud/helpers/application_helper'
+require 'deltacloud/helpers/conversion_helper'
+require 'deltacloud/helpers/hardware_profiles_helper'
+
+helpers ApplicationHelper, ConversionHelper, HardwareProfilesHelper

data/lib/deltacloud/helpers/application_helper.rb

@@ -0,0 +1,38 @@
+#
+# Copyright (C) 2009  Red Hat, Inc.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+# Methods added to this helper will be available to all templates in the application.
+module ApplicationHelper
+
+  def bread_crumb
+    s = "<ul class='breadcrumb'><li class='first'><a href='/'>&#948</a></li>"
+    url = request.path.split('?')  #remove extra query string parameters
+    levels = url[0].split('/') #break up url into different levels
+    levels.each_with_index do |level, index|
+      unless level.blank?
+        if index == levels.size-1 ||
+           (level == levels[levels.size-2] && levels[levels.size-1].to_i > 0)
+          s += "<li class='subsequent'>#{level.gsub(/_/, ' ')}</li>\n" unless level.to_i > 0
+        else
+            link = levels.slice(0, index+1).join("/")
+            s += "<li class='subsequent'><a href=\"#{link}\">#{level.gsub(/_/, ' ')}</a></li>\n"
+        end
+      end
+    end
+    s+="</ul>"
+  end
+end

data/lib/deltacloud/helpers/conversion_helper.rb

@@ -0,0 +1,39 @@
+#
+# Copyright (C) 2009  Red Hat, Inc.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+
+require 'deltacloud/base_driver'
+require 'converters/xml_converter'
+
+module ConversionHelper
+
+  def convert_to_json(type, obj)
+    if ( [ :flavor, :account, :image, :realm, :instance, :storage_volume, :storage_snapshot ].include?( type ) )
+      if Array.eql?(obj.class)
+        data = obj.collect do |o|
+          o.to_hash.merge({ :href => self.send(:"#{type}_url", o.id ) })
+        end
+        type = type.to_s.pluralize
+      else
+        data = obj.to_hash
+        data.merge!({ :href => self.send(:"#{type}_url", data[:id]) })
+      end
+      return { :"#{type}" => data }.to_json
+    end
+  end
+
+end

data/lib/deltacloud/helpers/hardware_profiles_helper.rb

@@ -0,0 +1,35 @@
+module HardwareProfilesHelper
+
+  def format_hardware_property(prop)
+    return "∅" unless prop
+    u = hardware_property_unit(prop)
+    case prop.kind
+      when :range
+      "#{prop.first} #{u} - #{prop.last} #{u} (default: #{prop.default} #{u})"
+      when :enum
+      prop.values.collect{ |v| "#{v} #{u}"}.join(', ') + " (default: #{prop.default} #{u})"
+      else
+      "#{prop.value} #{u}"
+    end
+  end
+
+  def format_instance_profile(ip)
+    o = ip.overrides.collect do |p, v|
+      u = hardware_property_unit(p)
+      "#{p} = #{v} #{u}"
+    end
+    if o.empty?
+      ""
+    else
+      "with #{o.join(", ")}"
+    end
+  end
+
+  private
+  def hardware_property_unit(prop)
+    u = ::Deltacloud::HardwareProfile::unit(prop)
+    u = "" if ["label", "count"].include?(u)
+    u = "vcpus" if prop == :cpu
+    u
+  end
+end

data/lib/deltacloud/models/base_model.rb

@@ -0,0 +1,58 @@
+#
+# Copyright (C) 2009  Red Hat, Inc.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+
+class BaseModel
+
+  def initialize(init=nil)
+    if ( init )
+      @id=init[:id]
+      init.each{|k,v|
+        self.send( "#{k}=", v ) if ( self.respond_to?( "#{k}=" ) )
+      }
+    end
+  end
+
+  def self.attr_accessor(*vars)
+    @attributes ||= [:id]
+    @attributes.concat vars
+    super
+  end
+
+  def self.attributes
+    @attributes
+  end
+
+  def attributes
+    self.class.attributes
+  end
+
+  def id
+    @id
+  end
+
+  def to_hash
+    out = {}
+    self.attributes.each { |attribute| out.merge!({ attribute => self.send(:"#{attribute}") } ) }
+    out
+  end
+
+  def to_json
+    self.to_hash.to_json
+  end
+
+end

data/lib/deltacloud/models/image.rb

@@ -0,0 +1,26 @@
+#
+# Copyright (C) 2009  Red Hat, Inc.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+
+class Image < BaseModel
+
+  attr_accessor :name
+  attr_accessor :owner_id
+  attr_accessor :description
+  attr_accessor :architecture
+
+end

data/lib/deltacloud/models/instance.rb

@@ -0,0 +1,37 @@
+#
+# Copyright (C) 2009  Red Hat, Inc.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+
+class Instance < BaseModel
+
+  attr_accessor :owner_id
+  attr_accessor :image_id
+  attr_accessor :name
+  attr_accessor :realm_id
+  attr_accessor :state
+  attr_accessor :actions
+  attr_accessor :public_addresses
+  attr_accessor :private_addresses
+  attr_accessor :instance_profile
+
+ def initialize(init=nil)
+   super(init)
+   self.actions = [] if self.actions.nil?
+   self.public_addresses = [] if self.public_addresses.nil?
+   self.private_addresses = [] if self.private_addresses.nil?
+  end
+end

data/lib/deltacloud/models/instance_profile.rb

@@ -0,0 +1,47 @@
+#
+# Copyright (C) 2009  Red Hat, Inc.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+# Model to store the hardware profile applied to an instance together with
+# any instance-specific overrides
+class InstanceProfile < BaseModel
+  attr_accessor :memory
+  attr_accessor :storage
+  attr_accessor :architecture
+  attr_accessor :cpu
+
+  def initialize(hwp_name, args = {})
+    opts = args.inject({ :id => hwp_name.to_s }) do |m, e|
+      k, v = e
+      m[$1] = v if k.to_s =~ /^hwp_(.*)$/
+      m
+    end
+    super(opts)
+  end
+
+  def name
+    id
+  end
+
+  def overrides
+    [:memory, :storage, :architecture, :cpu].inject({}) do |h, p|
+      if v = instance_variable_get("@#{p}")
+        h[p] = v
+      end
+      h
+    end
+  end
+end

data/lib/deltacloud/models/realm.rb

@@ -0,0 +1,25 @@
+#
+# Copyright (C) 2009  Red Hat, Inc.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+
+class Realm < BaseModel
+
+  attr_accessor :name
+  attr_accessor :limit
+  attr_accessor :state
+
+end