tengine_support 0.3.0 → 0.3.3

data/.travis.yml

@@ -0,0 +1,10 @@
+rvm:
+  - 1.8.7
+  - 1.9.2
+  - 1.9.3
+  - ruby-head
+  - jruby
+  - ree
+gemfile:
+  - gemfiles/Gemfile.activesupport-3.0.10
+  - gemfiles/Gemfile.activesupport-3.1.1

data/Gemfile

@@ -3,6 +3,8 @@ source "http://rubygems.org"
 # Example:
 #   gem "activesupport", ">= 2.3.5"
 
+gem "activesupport", ">= 3.0.0"
+
 # Add dependencies to develop your gem here.
 # Include everything needed to run rake, tests, features, etc.
 group :development do

data/README.md

@@ -14,7 +14,7 @@ It doesn't depend on other tengine gems.
 * Please try not to mess with the Rakefile, version, or history. If you want to have your own version, or is otherwise necessary, that is fine, but please isolate to its own commit so I can cherry-pick around it.
 
 ## License
-tengine_event is distributed under the LGPL and MPL
+tengine_support is distributed under the LGPL and MPL
 
 ## Copyright
 

data/VERSION

@@ -1 +1 @@
-0.3.0
+0.3.3

data/gemfiles/Gemfile.activesupport-3.0.10

@@ -0,0 +1,20 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+gem "activesupport", "= 3.0.10"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "rspec", "~> 2.6.0"
+  gem "yard", "~> 0.7.2"
+  gem "bundler", "~> 1.0.18"
+  gem "jeweler", "~> 1.6.4"
+  # gem "rcov", ">= 0"
+  gem "simplecov", "~> 0.5.3"
+  gem "autotest"
+
+  gem 'rdiscount'
+end

data/gemfiles/Gemfile.activesupport-3.1.1

@@ -0,0 +1,20 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+gem "activesupport", "= 3.1.1"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "rspec", "~> 2.6.0"
+  gem "yard", "~> 0.7.2"
+  gem "bundler", "~> 1.0.18"
+  gem "jeweler", "~> 1.6.4"
+  # gem "rcov", ">= 0"
+  gem "simplecov", "~> 0.5.3"
+  gem "autotest"
+
+  gem 'rdiscount'
+end

data/lib/tengine/support.rb

@@ -2,4 +2,5 @@ require 'tengine_support'
 
 module Tengine::Support
   autoload :YamlWithErb, 'tengine/support/yaml_with_erb'
+  autoload :Config, 'tengine/support/config'
 end

data/lib/tengine/support/config.rb

@@ -0,0 +1,17 @@
+require 'tengine/support'
+
+module Tengine::Support::Config
+  autoload :Definition, 'tengine/support/config/definition'
+
+  autoload :Mongoid, 'tengine/support/config/mongoid'
+  autoload :Amqp   , 'tengine/support/config/amqp'
+  autoload :Logger , 'tengine/support/config/logger'
+
+  class << self
+    def suite(options = {}, &block)
+      result = Tengine::Support::Config::Definition::Suite.new
+      result.instance_eval(&block)
+      result
+    end
+  end
+end

data/lib/tengine/support/config/amqp.rb

@@ -0,0 +1,26 @@
+require 'tengine/support/config'
+
+module Tengine::Support::Config::Amqp
+  class Connection
+    include Tengine::Support::Config::Definition
+    field :host , 'hostname to connect queue.', :default => 'localhost', :type => :string
+    field :port , "port to connect queue.", :default => 5672, :type => :integer
+    field :vhost, "vhost to connect queue.", :type => :string
+    field :user , "username to connect queue.", :type => :string
+    field :pass , "password to connect queue.", :type => :string
+  end
+
+  class Exchange
+    include Tengine::Support::Config::Definition
+    field :name   , "exchange name.", :type => :string
+    field :type   , "exchange type.", :type => :string, :default => 'direct'
+    field :durable, "exchange durable.", :type => :boolean, :default => true
+  end
+
+  class Queue
+    include Tengine::Support::Config::Definition
+    field :name   , "queue name.", :type => :string
+    field :durable, "queue durable.", :type => :boolean, :default => true
+  end
+
+end

data/lib/tengine/support/config/definition.rb

@@ -0,0 +1,146 @@
+require 'tengine/support/config'
+
+require 'active_support/core_ext/class/attribute'
+
+module Tengine::Support::Config::Definition
+  autoload :Field, 'tengine/support/config/definition/field'
+  autoload :Group, 'tengine/support/config/definition/group'
+  autoload :Suite, 'tengine/support/config/definition/suite'
+  autoload :HasManyChildren, 'tengine/support/config/definition/has_many_children'
+  autoload :OptparseVisitor, 'tengine/support/config/definition/optparse_visitor'
+
+  class << self
+    def included(klass)
+      klass.extend(ClassMethods)
+      klass.class_eval do
+        self.class_attribute :children, :instance_writer => false, :instance_reader => false
+        self.children = []
+
+        self.class_attribute :definition_reference_names, :instance_writer => false
+        self.definition_reference_names = []
+      end
+    end
+  end
+
+  module ClassMethods
+    def field(__name__, *args)
+      attrs = args.last.is_a?(Hash) ? args.pop : {}
+      attrs[:description] = args.first unless args.empty?
+      attrs[:__name__] = __name__
+      attrs[:__parent__] = self
+
+      if (superclass < Tengine::Support::Config::Definition) &&
+          (self.children == self.superclass.children)
+        self.children = self.superclass.children.dup
+      end
+      if field = children.detect{|child| child.__name__ == __name__}
+        new_field = field.dup
+        new_field.update(attrs)
+        idx = self.children.index(field)
+        self.children[idx] = new_field
+        field = new_field
+      else
+        field = Field.new(attrs)
+        self.children << field
+      end
+      (class << self; self; end).module_eval do
+        define_method(field.__name__){ field }
+      end
+      self.class_eval do
+        field_name = field.__name__
+        ivar_name = :"@#{field_name}"
+
+        define_method(field_name) do
+          if result = instance_variable_get(ivar_name)
+            result
+          else
+            field = child_by_name(field_name)
+            result = field ? field.default_value : nil
+            instance_variable_set(ivar_name, result)
+            result
+          end
+        end
+        attr_writer field_name
+      end
+    end
+
+    def parameters
+      @parameters ||= []
+    end
+
+    def parameter(parameter_name)
+      parameters << parameter_name
+      self.class_eval do
+        attr_accessor parameter_name
+      end
+    end
+
+    def depends(*definition_reference_names)
+      if superclass.is_a?(Tengine::Support::Config::Definition) &&
+          (self.definition_reference_names == self.superclass.definition_reference_names)
+        self.definition_reference_names = self.superclass.definition_reference_names.dup
+      end
+      self.class_eval do
+        definition_reference_names.each do |ref_name|
+          attr_accessor ref_name
+        end
+      end
+      self.definition_reference_names += definition_reference_names
+    end
+
+  end
+
+  attr_accessor :__name__, :__parent__, :children
+
+  def instantiate_children
+    @children = self.class.children.map do |class_child|
+      child = class_child.dup
+      child.__parent__ = self
+      child
+    end
+  end
+
+  def child_by_name(__name__)
+    (children || []).detect{|child| child.__name__ == __name__}
+  end
+
+  def to_hash
+    children.inject({}) do |dest, child|
+      dest[child.__name__] = child.to_hash
+      dest
+    end
+  end
+
+  def load(hash)
+    hash.each{|__name__, value| send("#{__name__}=", value)}
+  end
+
+  def accept_visitor(visitor)
+    visitor.visit(self)
+  end
+
+  def root
+    __parent__ ? __parent__.root : nil
+  end
+
+  def name_array
+    (__parent__ ? __parent__.name_array : []) + [__name__]
+  end
+
+  def get_value(obj)
+    obj.is_a?(Proc) ? self.instance_eval(&obj) : obj
+  end
+
+  def short_opt
+    r = root.mapping[ name_array ]
+    r ? "-#{r}" : nil
+  end
+
+  def long_opt
+    '--' << name_array.join('-').gsub(%r{_}, '-')
+  end
+
+  def action?; false; end
+  def separator?; false; end
+
+end

data/lib/tengine/support/config/definition/field.rb

@@ -0,0 +1,54 @@
+require 'tengine/support/config/definition'
+
+class Tengine::Support::Config::Definition::Field
+  attr_accessor :__name__, :__parent__, :__block__, :__type__
+  attr_accessor :type, :default_description, :default, :description
+  def initialize(attrs = {})
+    attrs.each{|k, v| send("#{k}=", v)}
+  end
+
+  def field?; @__type__ == :field; end
+  def action?; @__type__ == :action; end
+  def separator?; @__type__ == :separator; end
+
+  def update(attrs)
+    attrs.each{|k, v| send("#{k}=", v)}
+  end
+
+  def description_value
+    [
+      __parent__.get_value(description),
+      __parent__.get_value(default_description)
+    ].join(' ')
+  end
+
+  def default_value
+    default.respond_to?(:to_proc) ? __parent__.instance_eval(&default) : default
+  end
+
+  def to_hash
+    default_value
+  end
+
+  def accept_visitor(visitor)
+    visitor.visit(self)
+  end
+
+  def name_array
+    (__parent__ ? __parent__.name_array : []) + [__name__]
+  end
+
+  def root
+    __parent__ ? __parent__.root : nil
+  end
+
+  def short_opt
+    r = root.mapping[ name_array ]
+    r ? "-#{r}" : nil
+  end
+
+  def long_opt
+    '--' << name_array.join('-').gsub(%r{_}, '-')
+  end
+
+end

data/lib/tengine/support/config/definition/group.rb

@@ -0,0 +1,18 @@
+require 'tengine/support/config/definition'
+
+class Tengine::Support::Config::Definition::Group
+  include Tengine::Support::Config::Definition::HasManyChildren
+
+  attr_reader :__name__
+  attr_accessor :__parent__
+
+  def initialize(__name__, options)
+    @__name__ = __name__
+    @options = options
+  end
+
+  def root
+    __parent__.root
+  end
+
+end

data/lib/tengine/support/config/definition/has_many_children.rb

@@ -0,0 +1,152 @@
+require 'tengine/support/config/definition'
+
+module Tengine::Support::Config::Definition::HasManyChildren
+
+  def children
+    @children ||= []
+  end
+
+  def child_by_name(__name__)
+    __name__= __name__.to_sym if __name__.respond_to?(:to_sym)
+    children.detect{|child| child.__name__ == __name__}
+  end
+
+  def find(name_array)
+    name_array = Array(name_array)
+    head = name_array.shift
+    if child = child_by_name(head)
+      name_array.empty? ? child : child.find(name_array)
+    else
+      nil
+    end
+  end
+
+  def add(__name__, klass, options = {}, &block)
+    result = klass.new
+    result.__parent__ = self
+    result.__name__ = __name__
+    result.instantiate_children
+    dependencies = options[:dependencies] || {}
+    klass.definition_reference_names.each do |res_name|
+      name_array = dependencies[res_name]
+      raise "missing dependency of #{__name__.inspect} in :dependencies options to add(#{__name__.inspect}, #{klass.name}...)" unless name_array
+      obj = root.find(Array(name_array))
+      raise "#{name_array.inspect} not found" unless obj
+      result.send("#{res_name}=", obj)
+    end
+
+    defaults = options[:defaults] || {}
+    defaults.each do |key, value|
+      child = result.child_by_name(key)
+      raise "child not found for #{key.inspct} in #{result.__name__}" unless child
+      child.default = value if value
+    end
+
+    children << result
+    result.instance_eval(&block) if block
+    (class << self; self; end).class_eval{ define_method(__name__){ result } }
+    result
+  end
+
+  def group(__name__, options = {}, &block)
+    result = Tengine::Support::Config::Definition::Group.new(__name__, options)
+    result.__parent__ = self
+    (class << self; self; end).class_eval{ define_method(__name__){ result } }
+    children << result
+    result.instance_eval(&block) if block
+    result
+  end
+
+  def field(__name__, *args, &block)
+    attrs = args.last.is_a?(Hash) ? args.pop : {}
+    attrs[:description] = args.first unless args.empty?
+    attrs.update({
+        :__name__ => __name__,
+        :__parent__ => self,
+        :__block__ => block,
+        :__type__ => attrs[:__type__] || :field,
+      })
+    if field = children.detect{|child| child.__name__ == __name__}
+      new_field = field.dup
+      new_field.update(attrs)
+      idx = self.children.index(field)
+      self.children[idx] = new_field
+      field = new_field
+    else
+      field = Tengine::Support::Config::Definition::Field.new(attrs)
+      self.children << field
+    end
+    (class << self; self; end).module_eval do
+      attr_accessor field.__name__
+    end
+  end
+
+  def action(__name__, *args, &block)
+    attrs = args.last.is_a?(Hash) ? args.pop : {}
+    attrs.update({
+        :__name__ => __name__,
+        :__parent__ => self,
+        :__block__ => block,
+        :__type__ => :action,
+      })
+    attrs[:description] = args.first unless args.empty?
+    field = Tengine::Support::Config::Definition::Field.new(attrs)
+    self.children << field
+  end
+  alias_method :__action__, :action
+
+  def action?; false; end
+
+  def separator(description)
+    attrs = {
+      :description => description,
+      :__name__ => :"separator#{children.count + 1}",
+      :__parent__ => self,
+      :__type__ => :separator,
+    }
+    field = Tengine::Support::Config::Definition::Field.new(attrs)
+    self.children << field
+  end
+
+  def separator?; false; end
+
+  def load_config(name, *args)
+    options = args.last.is_a?(Hash) ? args.pop : {}
+    options[:type] = :load_config
+    args << options
+    field(name, *args)
+  end
+
+  def to_hash
+    children.inject({}) do |dest, child|
+      unless child.action? || child.separator?
+        value = child.to_hash
+        unless value.is_a?(Hash) && value.empty?
+          dest[child.__name__] = child.to_hash
+        end
+      end
+      dest
+    end
+  end
+
+  def load(hash)
+    hash.each do |__name__, value|
+      child = child_by_name(__name__)
+      raise "child not found for #{__name__.inspect} on #{__name__}" unless child
+      child.load(value)
+    end
+  end
+
+  def accept_visitor(visitor)
+    visitor.visit(self)
+  end
+
+  def name_array
+    (__parent__ ? __parent__.name_array : []) + [__name__]
+  end
+
+  def get_value(obj)
+    obj.is_a?(Proc) ? self.instance_eval(&obj) : obj
+  end
+
+end