glasner-couchrest 0.2.2

data/lib/couchrest/more/property.rb

@@ -0,0 +1,40 @@
+module CouchRest
+  
+  # Basic attribute support for adding getter/setter + validation
+  class Property
+    attr_reader :name, :type, :read_only, :alias, :default, :casted, :init_method, :options
+    
+    # attribute to define
+    def initialize(name, type = nil, options = {})
+      @name = name.to_s
+      parse_type(type)
+      parse_options(options)
+      self
+    end
+    
+    
+    private
+    
+      def parse_type(type)
+        if type.nil?
+          @type = 'String'
+        elsif type.is_a?(Array) && type.empty?
+          @type = 'Array'
+        else
+          @type = type.is_a?(Array) ? [type.first.to_s] : type.to_s
+        end
+      end
+      
+      def parse_options(options)
+        return if options.empty?
+        @validation_format  = options.delete(:format)     if options[:format]
+        @read_only          = options.delete(:read_only)  if options[:read_only]
+        @alias              = options.delete(:alias)      if options[:alias]
+        @default            = options.delete(:default)    if options[:default]
+        @casted             = options[:casted] ? true : false
+        @init_method        = options[:send] ? options.delete(:send) : 'new'
+        @options            = options
+      end
+    
+  end
+end

data/lib/couchrest/support/blank.rb

@@ -0,0 +1,42 @@
+# blank? methods for several different class types
+class Object
+  # Returns true if the object is nil or empty (if applicable)
+  def blank?
+    nil? || (respond_to?(:empty?) && empty?)
+  end
+end # class Object
+
+class Numeric
+  # Numerics can't be blank
+  def blank?
+    false
+  end
+end # class Numeric
+
+class NilClass
+  # Nils are always blank
+  def blank?
+    true
+  end
+end # class NilClass
+
+class TrueClass
+  # True is not blank.
+  def blank?
+    false
+  end
+end # class TrueClass
+
+class FalseClass
+  # False is always blank.
+  def blank?
+    true
+  end
+end # class FalseClass
+
+class String
+  # Strips out whitespace then tests if the string is empty.
+  def blank?
+    strip.empty?
+  end
+end # class String

data/lib/couchrest/support/class.rb

@@ -0,0 +1,191 @@
+# Copyright (c) 2004-2008 David Heinemeier Hansson
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ 
+# Allows attributes to be shared within an inheritance hierarchy, but where
+# each descendant gets a copy of their parents' attributes, instead of just a
+# pointer to the same. This means that the child can add elements to, for
+# example, an array without those additions being shared with either their
+# parent, siblings, or children, which is unlike the regular class-level
+# attributes that are shared across the entire hierarchy.
+module CouchRest
+  module ClassExtension
+    def self.included(base)
+      if CouchRest::ClassExtension::InstanceMethods.instance_methods.all? {|m| base.respond_to?(m)}
+        # do nothing
+      elsif CouchRest::ClassExtension::InstanceMethods.instance_methods.any? {|m| base.respond_to?(m)}
+        raise RuntimeError, "Conflicting extentions to Class, work it out"
+      else
+        base.send(:include, CouchRest::ClassExtension::InstanceMethods)
+      end
+    end
+    
+    module InstanceMethods
+      # Defines class-level and instance-level attribute reader.
+      #
+      # @param *syms<Array> Array of attributes to define reader for.
+      # @return <Array[#to_s]> List of attributes that were made into cattr_readers
+      #
+      # @api public
+      #
+      # @todo Is this inconsistent in that it does not allow you to prevent
+      # an instance_reader via :instance_reader => false
+      def cattr_reader(*syms)
+        syms.flatten.each do |sym|
+          next if sym.is_a?(Hash)
+          class_eval(<<-RUBY, __FILE__, __LINE__ + 1)
+    unless defined? @@#{sym}
+    @@#{sym} = nil
+    end
+ 
+    def self.#{sym}
+    @@#{sym}
+    end
+ 
+    def #{sym}
+    @@#{sym}
+    end
+    RUBY
+        end
+      end
+ 
+      # Defines class-level (and optionally instance-level) attribute writer.
+      #
+      # @param <Array[*#to_s, Hash{:instance_writer => Boolean}]> Array of attributes to define writer for.
+      # @option syms :instance_writer<Boolean> if true, instance-level attribute writer is defined.
+      # @return <Array[#to_s]> List of attributes that were made into cattr_writers
+      #
+      # @api public
+      def cattr_writer(*syms)
+        options = syms.last.is_a?(Hash) ? syms.pop : {}
+        syms.flatten.each do |sym|
+          class_eval(<<-RUBY, __FILE__, __LINE__ + 1)
+    unless defined? @@#{sym}
+    @@#{sym} = nil
+    end
+ 
+    def self.#{sym}=(obj)
+    @@#{sym} = obj
+    end
+    RUBY
+ 
+          unless options[:instance_writer] == false
+            class_eval(<<-RUBY, __FILE__, __LINE__ + 1)
+    def #{sym}=(obj)
+    @@#{sym} = obj
+    end
+    RUBY
+          end
+        end
+      end
+ 
+      # Defines class-level (and optionally instance-level) attribute accessor.
+      #
+      # @param *syms<Array[*#to_s, Hash{:instance_writer => Boolean}]> Array of attributes to define accessor for.
+      # @option syms :instance_writer<Boolean> if true, instance-level attribute writer is defined.
+      # @return <Array[#to_s]> List of attributes that were made into accessors
+      #
+      # @api public
+      def cattr_accessor(*syms)
+        cattr_reader(*syms)
+        cattr_writer(*syms)
+      end
+ 
+      # Defines class-level inheritable attribute reader. Attributes are available to subclasses,
+      # each subclass has a copy of parent's attribute.
+      #
+      # @param *syms<Array[#to_s]> Array of attributes to define inheritable reader for.
+      # @return <Array[#to_s]> Array of attributes converted into inheritable_readers.
+      #
+      # @api public
+      #
+      # @todo Do we want to block instance_reader via :instance_reader => false
+      # @todo It would be preferable that we do something with a Hash passed in
+      # (error out or do the same as other methods above) instead of silently
+      # moving on). In particular, this makes the return value of this function
+      # less useful.
+      def class_inheritable_reader(*ivars)
+        instance_reader = ivars.pop[:reader] if ivars.last.is_a?(Hash)
+ 
+        ivars.each do |ivar|
+          self.class_eval <<-RUBY, __FILE__, __LINE__ + 1
+    def self.#{ivar}
+    return @#{ivar} if self.object_id == #{self.object_id} || defined?(@#{ivar})
+    ivar = superclass.#{ivar}
+    return nil if ivar.nil? && !#{self}.instance_variable_defined?("@#{ivar}")
+    @#{ivar} = ivar && !ivar.is_a?(Module) && !ivar.is_a?(Numeric) && !ivar.is_a?(TrueClass) && !ivar.is_a?(FalseClass) && !ivar.is_a?(Symbol) ? ivar.dup : ivar
+    end
+    RUBY
+          unless instance_reader == false
+            self.class_eval <<-RUBY, __FILE__, __LINE__ + 1
+    def #{ivar}
+    self.class.#{ivar}
+    end
+    RUBY
+          end
+        end
+      end
+ 
+      # Defines class-level inheritable attribute writer. Attributes are available to subclasses,
+      # each subclass has a copy of parent's attribute.
+      #
+      # @param *syms<Array[*#to_s, Hash{:instance_writer => Boolean}]> Array of attributes to
+      # define inheritable writer for.
+      # @option syms :instance_writer<Boolean> if true, instance-level inheritable attribute writer is defined.
+      # @return <Array[#to_s]> An Array of the attributes that were made into inheritable writers.
+      #
+      # @api public
+      #
+      # @todo We need a style for class_eval <<-HEREDOC. I'd like to make it
+      # class_eval(<<-RUBY, __FILE__, __LINE__), but we should codify it somewhere.
+      def class_inheritable_writer(*ivars)
+        instance_writer = ivars.pop[:instance_writer] if ivars.last.is_a?(Hash)
+        ivars.each do |ivar|
+          self.class_eval <<-RUBY, __FILE__, __LINE__ + 1
+    def self.#{ivar}=(obj)
+    @#{ivar} = obj
+    end
+    RUBY
+          unless instance_writer == false
+            self.class_eval <<-RUBY, __FILE__, __LINE__ + 1
+    def #{ivar}=(obj) self.class.#{ivar} = obj end
+    RUBY
+          end
+        end
+      end
+ 
+      # Defines class-level inheritable attribute accessor. Attributes are available to subclasses,
+      # each subclass has a copy of parent's attribute.
+      #
+      # @param *syms<Array[*#to_s, Hash{:instance_writer => Boolean}]> Array of attributes to
+      # define inheritable accessor for.
+      # @option syms :instance_writer<Boolean> if true, instance-level inheritable attribute writer is defined.
+      # @return <Array[#to_s]> An Array of attributes turned into inheritable accessors.
+      #
+      # @api public
+      def class_inheritable_accessor(*syms)
+        class_inheritable_reader(*syms)
+        class_inheritable_writer(*syms)
+      end
+    end
+  end
+end
+
+Class.send(:include, CouchRest::ClassExtension)

data/lib/couchrest/validation/auto_validate.rb

@@ -0,0 +1,163 @@
+# Ported from dm-migrations
+require File.join(File.dirname(__FILE__), '..', 'support', 'class')
+
+module CouchRest
+  
+  class Property
+    # flag letting us know if we already checked the autovalidation settings
+    attr_accessor :autovalidation_check
+    @autovalidation_check = false
+  end
+
+  module Validation
+    module AutoValidate      
+      
+      # # Force the auto validation for the class properties
+      # # This feature is still not fully ported over,
+      # # test are lacking, so please use with caution
+      # def auto_validate!
+      #   require 'ruby-debug'
+      #   debugger
+      #   auto_validation = true
+      # end
+      
+      # adds message for validator
+      def options_with_message(base_options, property, validator_name)
+        options = base_options.clone
+        opts = property.options
+        options[:message] = if opts[:messages]
+          if opts[:messages].is_a?(Hash) and msg = opts[:messages][validator_name]
+            msg
+          else
+            nil
+          end
+        elsif opts[:message]
+          opts[:message]
+        else
+          nil
+        end
+        options
+      end
+
+      
+      ##
+      # Auto-generate validations for a given property. This will only occur
+      # if the option :auto_validation is either true or left undefined.
+      #
+      # @details [Triggers]
+      #   Triggers that generate validator creation
+      #
+      #   :nullable => false
+      #       Setting the option :nullable to false causes a
+      #       validates_presence_of validator to be automatically created on
+      #       the property
+      #
+      #   :size => 20 or :length => 20
+      #       Setting the option :size or :length causes a validates_length_of
+      #       validator to be automatically created on the property. If the
+      #       value is a Integer the validation will set :maximum => value if
+      #       the value is a Range the validation will set :within => value
+      #
+      #   :format => :predefined / lambda / Proc
+      #       Setting the :format option causes a validates_format_of
+      #       validator to be automatically created on the property
+      #
+      #   :set => ["foo", "bar", "baz"]
+      #       Setting the :set option causes a validates_within
+      #       validator to be automatically created on the property
+      #
+      #   Integer type
+      #       Using a Integer type causes a validates_is_number
+      #       validator to be created for the property.  integer_only
+      #       is set to true
+      #
+      #   Float type
+      #       Using a Integer type causes a validates_is_number
+      #       validator to be created for the property.  integer_only
+      #       is set to false, and precision/scale match the property
+      #
+      #
+      #   Messages
+      #
+      #   :messages => {..}
+      #       Setting :messages hash replaces standard error messages
+      #       with custom ones. For instance:
+      #       :messages => {:presence => "Field is required",
+      #                     :format => "Field has invalid format"}
+      #       Hash keys are: :presence, :format, :length, :is_unique,
+      #                      :is_number, :is_primitive
+      #
+      #   :message => "Some message"
+      #       It is just shortcut if only one validation option is set
+      #
+      def auto_generate_validations(property)
+        return unless ((property.autovalidation_check != true) && self.auto_validation)
+        return if (property.options && (property.options.has_key?(:auto_validation) && !property.options[:auto_validation]) || property.read_only)
+        # value is set by the storage system
+        opts = {}
+        opts[:context] = property.options[:validates] if property.options.has_key?(:validates)
+
+        # presence
+        if opts[:allow_nil] == false
+          # validates_present property.name, opts
+          validates_present property.name, options_with_message(opts, property, :presence)
+        end
+
+        # length
+        if property.type == "String"
+          # XXX: maybe length should always return a Range, with the min defaulting to 1
+          # 52 being the max set 
+          len = property.options.fetch(:length, property.options.fetch(:size, 52))
+          if len.is_a?(Range)
+            opts[:within] = len
+          else
+            opts[:maximum] = len
+          end
+          # validates_length property.name, opts
+          validates_length property.name, options_with_message(opts, property, :length)
+        end
+
+        # format
+        if property.options.has_key?(:format)
+          opts[:with] = property.options[:format]
+          # validates_format property.name, opts
+          validates_format property.name, options_with_message(opts, property, :format)
+        end
+
+        # uniqueness validator
+        if property.options.has_key?(:unique)
+          value = property.options[:unique]
+          if value.is_a?(Array) || value.is_a?(Symbol)
+            # validates_is_unique property.name, :scope => Array(value)
+            validates_is_unique property.name, options_with_message({:scope => Array(value)}, property, :is_unique)
+          elsif value.is_a?(TrueClass)
+            # validates_is_unique property.name
+            validates_is_unique property.name, options_with_message({}, property, :is_unique)
+          end
+        end
+
+        # within validator
+        if property.options.has_key?(:set)
+          validates_within property.name, options_with_message({:set => property.options[:set]}, property, :within)
+        end
+
+        # numeric validator
+        if "Integer" == property.type
+          opts[:integer_only] = true
+          # validates_is_number property.name, opts
+          validates_is_number property.name, options_with_message(opts, property, :is_number)
+        elsif Float == property.type
+          opts[:precision] = property.precision
+          opts[:scale]     = property.scale
+          # validates_is_number property.name, opts
+          validates_is_number property.name, options_with_message(opts, property, :is_number)
+        end
+        
+        # marked the property has checked
+        property.autovalidation_check = true
+        
+      end
+
+    end # module AutoValidate
+  end # module Validation
+end # module CouchRest

data/lib/couchrest/validation/contextual_validators.rb

@@ -0,0 +1,78 @@
+# Extracted from dm-validations 0.9.10
+#
+# Copyright (c) 2007 Guy van den Berg
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+module CouchRest
+  module Validation
+
+    ##
+    #
+    # @author Guy van den Berg
+    # @since  0.9
+    class ContextualValidators
+
+      def dump
+        contexts.each_pair do |key, context|
+          puts "Key=#{key} Context: #{context}"
+        end
+      end
+
+      # Get a hash of named context validators for the resource
+      #
+      # @return <Hash> a hash of validators <GenericValidator>
+      def contexts
+        @contexts ||= {}
+      end
+
+      # Return an array of validators for a named context
+      #
+      # @return <Array> An array of validators
+      def context(name)
+        contexts[name] ||= []
+      end
+
+      # Clear all named context validators off of the resource
+      #
+      def clear!
+        contexts.clear
+      end
+
+      # Execute all validators in the named context against the target
+      #
+      # @param <Symbol> named_context the context we are validating against
+      # @param <Object> target        the resource that we are validating
+      # @return <Boolean> true if all are valid, otherwise false
+      def execute(named_context, target)
+        raise(ArgumentError, 'invalid context specified') if !named_context || (contexts.length > 0 && !contexts[named_context])
+        target.errors.clear!
+        result = true
+        context(named_context).each do |validator|
+          next unless validator.execute?(target)
+          result = false unless validator.call(target)
+        end
+
+        result
+      end
+
+    end # module ContextualValidators
+  end # module Validation
+end # module CouchRest