ccls-common_lib 1.4.0

data/lib/common_lib/active_model.rb

@@ -0,0 +1,4 @@
+require 'common_lib/active_model/validations/absence'
+require 'common_lib/active_model/validations/complete_date'
+require 'common_lib/active_model/validations/past_date'
+require 'common_lib/active_model/errors'

data/lib/common_lib/active_model/errors.rb

@@ -0,0 +1,16 @@
+class ActiveModel::Errors
+
+	def matching?(attribute,message)
+#>> a.errors.messages[:cbc_report_found]
+#=> ["is not included in the list"]
+#>> a.errors.messages[:cbc_report_found].any?{|m| m.match(/include/)}
+#=> true
+#>> a.errors.messages[:cbc_report_found].any?{|m| m.match(/inclue/)}
+#=> false
+		#	all keys seem to be converted to symbols? NOT indifferent.
+		self.include?(attribute.to_sym) &&
+			self.messages[attribute.to_sym].any?{|m| m.match(/#{message.to_s}/) }
+#			@messages[attribute.to_sym].any?{|m| m.match(/#{message.to_s}/) }
+	end
+
+end	#	ActiveModel::Errors

data/lib/common_lib/active_model/validations/absence.rb

@@ -0,0 +1,78 @@
+#	don't think that this is necessary here, but ...
+require 'active_support/core_ext/object/blank'
+
+#
+#	This is just a modified version of validates_presence_of
+#
+
+module ActiveModel
+
+	# == Active Model Absence Validator
+	module Validations
+		class AbsenceValidator < EachValidator
+
+			def validate(record)
+				[attributes].flatten.each do |attribute|
+					value = record.send(:read_attribute_for_validation, attribute)
+					#	associated default error message is in config/locales/en.yml
+					record.errors.add(attribute, :absent, options) unless value.blank?
+				end
+			end
+
+#			def validate(record)
+#				[attributes].flatten.each do |attribute|
+#					value = record.send(:read_attribute_for_validation, attribute)
+#
+##	same thing since :read_attribute_for_validation is an alias for :send
+##	which is technically record.send(:send,attribute) which is the same as ...
+#
+#
+##	TODO
+##	custom validation messages don't seem to be making it through.
+##	i think I need to add something in the locales and pass a symbol that finds the default.
+##	Still not sure
+#
+#
+##					value = record.send(attribute)
+##					record.errors.add(attribute, "is present and must be absent.", options) unless value.blank?
+#					#	associated default error message is in config/locales/en.yml
+#					record.errors.add(attribute, :absent, options) unless value.blank?
+#				end
+#			end
+
+		end
+
+		module HelperMethods
+			# Validates that the specified attributes are  blank (as defined by Object#blank?). Happens by default on save. Example:
+			#
+			#	 class Person < ActiveRecord::Base
+			#		 validates_absence_of :first_name
+			#	 end
+			#
+			# The first_name attribute must be in the object and it cannot be blank.
+			#
+			# If you want to validate the absence of a boolean field (where the real values are true and false),
+			# you will want to use <tt>validates_inclusion_of :field_name, :in => [true, false]</tt>.
+			#
+			# This is due to the way Object#blank? handles boolean values: <tt>false.blank? # => true</tt>.
+			#
+			# Configuration options:
+			# * <tt>:message</tt> - A custom error message (default is: "can't be blank").
+			# * <tt>:on</tt> - Specifies when this validation is active. Runs in all
+			#	 validation contexts by default (+nil+), other options are <tt>:create</tt>
+			#	 and <tt>:update</tt>.
+			# * <tt>:if</tt> - Specifies a method, proc or string to call to determine if the validation should
+			#	 occur (e.g. <tt>:if => :allow_validation</tt>, or <tt>:if => Proc.new { |user| user.signup_step > 2 }</tt>).
+			#	 The method, proc or string should return or evaluate to a true or false value.
+			# * <tt>:unless</tt> - Specifies a method, proc or string to call to determine if the validation should
+			#	 not occur (e.g. <tt>:unless => :skip_validation</tt>, or <tt>:unless => Proc.new { |user| user.signup_step <= 2 }</tt>).
+			#	 The method, proc or string should return or evaluate to a true or false value.
+			# * <tt>:strict</tt> - Specifies whether validation should be strict. 
+			#	 See <tt>ActiveModel::Validation#validates!</tt> for more information
+			#
+			def validates_absence_of(*attr_names)
+				validates_with AbsenceValidator, _merge_attributes(attr_names)
+			end
+		end
+	end
+end

data/lib/common_lib/active_model/validations/complete_date.rb

@@ -0,0 +1,138 @@
+#	don't think that this is necessary here, but ...
+require 'active_support/core_ext/object/blank'
+
+#
+#	This is just a modified version of validates_presence_of
+#
+#	I think that this validation inherently is allow_blank => true
+#
+
+module ActiveModel
+
+	# == Active Model Complete Date Validator
+	module Validations
+		class CompleteDateValidator < EachValidator
+			def validate(record)
+				[attributes].flatten.each do |attribute|
+					value = record.send("#{attribute}_before_type_cast")
+					if( value.is_a?(String) and !value.blank? )
+						date_hash = Date._parse(value)
+						#	>> Date._parse( '1/10/2011')
+						#	=> {:mon=>1, :year=>2011, :mday=>10}
+						unless date_hash.has_key?(:year) &&
+								date_hash.has_key?(:mon) &&
+								date_hash.has_key?(:mday)
+							#	associated default error message is in config/locales/en.yml
+							record.errors.add(attribute, :incomplete_date, options)
+						end
+					end
+				end
+			end
+
+#			def validate(record)
+#				[attributes].flatten.each do |attribute|
+#
+##
+##	This doesn't work correctly for DateTimes
+##
+##	Apparently, DateTimes are immediately typecast.
+##	It either is valid or isn't.  PERIOD.
+##
+##	I can raise an error that the given datetime was incomplete,
+##	but when it is re-presented to the user, it will be complete.
+##
+##	for datetime
+##BEFORE TC:03/2012
+##AFTER TC:2012-03-01 00:00:00 -0800
+##
+##	for date
+##BEFORE TC:03/2012
+##AFTER TC:
+#
+##	partial datetimes will actually have the attribute set to a full datetime
+##		with the defaults of 0s or 1s filled in.
+##	partial dates will NOT.  Why the difference?  ERRRRRR
+##
+##	for both, however, the text field in view will correctly retain the 
+##		before_type_cast partial input?  Yay, I guess.  Confused, definitely.
+##	
+#
+#
+##	my fake attributes don't have _before_type_cast, because that's what they are
+#
+#
+#
+##					value = record.send(:read_attribute_for_validation, attribute)
+#					#	I really want the before_type_cast
+#					value = record.send("#{attribute}_before_type_cast")
+#
+#
+#
+##					value = if record.methods.include?("#{attribute}_before_type_cast")
+##						record.send("#{attribute}_before_type_cast")
+##					else
+##						record.send("#{attribute}")
+##					end
+#
+#
+##
+##	shouldn't the allow_nil and allow_blank features actually
+##	be dealt with already? actually no, that's in the add method
+##		but we can't get that far as will fail if nil
+##
+##					unless( options[:allow_nil] && value.nil? ) ||
+##						( options[:allow_blank] && value.blank? ) ||
+##						( !value.is_a?(String) )
+#
+#
+##					unless( !value.is_a?(String) )
+#					if( value.is_a?(String) and !valid.blank? )
+#						date_hash = Date._parse(value)
+#						#	>> Date._parse( '1/10/2011')
+#						#	=> {:mon=>1, :year=>2011, :mday=>10}
+#						unless date_hash.has_key?(:year) &&
+#							date_hash.has_key?(:mon) &&
+#							date_hash.has_key?(:mday)
+#							#	associated default error message is in config/locales/en.yml
+#							record.errors.add(attribute, :incomplete_date, options)
+#						end
+#					end
+#				end
+#			end
+		end
+
+
+		module HelperMethods
+			# Validates that the specified attributes contain a complete date. Happens by default on save. Example:
+			#
+			#	 class Person < ActiveRecord::Base
+			#		 validates_complete_date_for :dob
+			#	 end
+			#
+			# The first_name attribute must be in the object and it cannot be blank.
+			#
+			# If you want to validate the absence of a boolean field (where the real values are true and false),
+			# you will want to use <tt>validates_inclusion_of :field_name, :in => [true, false]</tt>.
+			#
+			# This is due to the way Object#blank? handles boolean values: <tt>false.blank? # => true</tt>.
+			#
+			# Configuration options:
+			# * <tt>:message</tt> - A custom error message (default is: "can't be blank").
+			# * <tt>:on</tt> - Specifies when this validation is active. Runs in all
+			#	 validation contexts by default (+nil+), other options are <tt>:create</tt>
+			#	 and <tt>:update</tt>.
+			# * <tt>:if</tt> - Specifies a method, proc or string to call to determine if the validation should
+			#	 occur (e.g. <tt>:if => :allow_validation</tt>, or <tt>:if => Proc.new { |user| user.signup_step > 2 }</tt>).
+			#	 The method, proc or string should return or evaluate to a true or false value.
+			# * <tt>:unless</tt> - Specifies a method, proc or string to call to determine if the validation should
+			#	 not occur (e.g. <tt>:unless => :skip_validation</tt>, or <tt>:unless => Proc.new { |user| user.signup_step <= 2 }</tt>).
+			#	 The method, proc or string should return or evaluate to a true or false value.
+			# * <tt>:strict</tt> - Specifies whether validation should be strict. 
+			#	 See <tt>ActiveModel::Validation#validates!</tt> for more information
+			#
+			def validates_complete_date_for(*attr_names)
+				validates_with CompleteDateValidator, _merge_attributes(attr_names)
+			end
+		end
+	end
+end

data/lib/common_lib/active_model/validations/past_date.rb

@@ -0,0 +1,121 @@
+#	don't think that this is necessary here, but ...
+require 'active_support/core_ext/object/blank'
+
+#
+#	This is just a modified version of validates_presence_of
+#
+#	I think that this validation inherently is allow_blank => true
+#
+
+module ActiveModel
+
+	# == Active Model Past Date Validator
+	module Validations
+		class PastDateValidator < EachValidator
+			def validate(record)
+				[attributes].flatten.each do |attribute|
+#					value = record.send(attribute)
+					value = record.send(:read_attribute_for_validation, attribute)
+
+					allow_today = ( options.has_key?(:allow_today) ) ? options[:allow_today] : true
+
+					base_date = if value.is_a?(ActiveSupport::TimeWithZone)
+#						puts "Comparing #{attribute} as ActiveSupport::TimeWithZone"
+						( allow_today ) ? Time.zone.now : ( Time.zone.now - 1.day )
+					elsif value.is_a?(DateTime)
+#						puts "Comparing #{attribute} as DateTime"
+						( allow_today ) ? Time.now : ( Time.now - 1.day )
+					else
+#						puts "Comparing #{attribute} as Date"
+						( allow_today ) ? Date.current : Date.yesterday
+					end
+					if !value.blank? && value > base_date
+						#	associated default error message is in config/locales/en.yml
+						record.errors.add(attribute, :future_date, options)
+					end
+				end
+			end
+
+#			def validate(record)
+#				[attributes].flatten.each do |attribute|
+##					value = record.send(attribute)
+#					value = record.send(:read_attribute_for_validation, attribute)
+#
+##
+##	Do this differenly for Dates and DateTimes?
+##	How to know what it is when the value is blank?
+##
+#					allow_today = ( options.has_key?(:allow_today) ) ? options[:allow_today] : true
+#
+#					base_date = if value.is_a?(ActiveSupport::TimeWithZone)
+##puts "Comparing as ActiveSupport::TimeWithZone"
+#						( allow_today ) ? Time.zone.now : ( Time.zone.now - 1.day )
+#					elsif value.is_a?(DateTime)
+##puts "Comparing as DateTime"
+#						( allow_today ) ? Time.now : ( Time.now - 1.day )
+#					else
+##puts "Comparing as Date"
+#						( allow_today ) ? Date.current : Date.yesterday
+#					end
+##	usually dates
+##Sample @@ should allow collected_at to be today: Comparing as Date
+##Comparing as Date
+##Comparing as Date
+##Comparing as Date
+##Comparing as ActiveSupport::TimeWithZone
+##Comparing as Date
+##Comparing as Date
+##Comparing as Date
+##Comparing as Date
+##Comparing as Date
+#
+#
+##
+##	if base_date is a date and value is a DateTime
+##	ArgumentError: comparison of Date with ActiveSupport::TimeWithZone failed
+##
+#
+##					if !value.blank? && base_date < value
+#					if !value.blank? && value > base_date
+##						record.errors.add(attribute, "is in the future and must be in the past.", options)
+#						#	associated default error message is in config/locales/en.yml
+#						record.errors.add(attribute, :future_date, options)
+#					end
+#				end
+#			end
+		end
+
+		module HelperMethods
+			# Validates that the specified attributes contain a date in the past. Happens by default on save. Example:
+			#
+			#	 class Person < ActiveRecord::Base
+			#		 validates_past_date_for :dob
+			#	 end
+			#
+			# The first_name attribute must be in the object and it cannot be blank.
+			#
+			# If you want to validate the absence of a boolean field (where the real values are true and false),
+			# you will want to use <tt>validates_inclusion_of :field_name, :in => [true, false]</tt>.
+			#
+			# This is due to the way Object#blank? handles boolean values: <tt>false.blank? # => true</tt>.
+			#
+			# Configuration options:
+			# * <tt>:message</tt> - A custom error message (default is: "can't be blank").
+			# * <tt>:on</tt> - Specifies when this validation is active. Runs in all
+			#	 validation contexts by default (+nil+), other options are <tt>:create</tt>
+			#	 and <tt>:update</tt>.
+			# * <tt>:if</tt> - Specifies a method, proc or string to call to determine if the validation should
+			#	 occur (e.g. <tt>:if => :allow_validation</tt>, or <tt>:if => Proc.new { |user| user.signup_step > 2 }</tt>).
+			#	 The method, proc or string should return or evaluate to a true or false value.
+			# * <tt>:unless</tt> - Specifies a method, proc or string to call to determine if the validation should
+			#	 not occur (e.g. <tt>:unless => :skip_validation</tt>, or <tt>:unless => Proc.new { |user| user.signup_step <= 2 }</tt>).
+			#	 The method, proc or string should return or evaluate to a true or false value.
+			# * <tt>:strict</tt> - Specifies whether validation should be strict. 
+			#	 See <tt>ActiveModel::Validation#validates!</tt> for more information
+			#
+			def validates_past_date_for(*attr_names)
+				validates_with PastDateValidator, _merge_attributes(attr_names)
+			end
+		end
+	end
+end

data/lib/common_lib/active_record.rb

@@ -0,0 +1 @@
+require 'common_lib/active_record/base'

data/lib/common_lib/active_record/base.rb

@@ -0,0 +1,129 @@
+class ActiveRecord::Base
+
+	#
+	#	I have found that the validations are really cluttering up the models.
+	#	Moving them into a yml file and pulling them in like so seems to 
+	#	be working well.
+	#
+	#	Not all validations are going to work, but so far so good.
+	#	
+	#	http://codereview.stackexchange.com/questions/159/use-of-a-regex-stored-inside-yaml-file
+	#		email_regex: !ruby/regexp /^([\w\.%\+\-]+)@([\w\-]+\.)+([\w]{2,})$/i
+	#	http://stackoverflow.com/questions/3337020/how-to-specify-ranges-in-yaml
+	#		:in: !ruby/range 5..250
+	#	http://www.opensource.apple.com/source/ruby/ruby-14/ruby/lib/yaml/rubytypes.rb
+	#	http://yaml4r.sourceforge.net/doc/page/objects_in_yaml.htm
+	#
+	#	/opt/local/lib/ruby1.9/1.9.1/syck/rubytypes.rb
+	#	/opt/local/lib/ruby1.9/1.9.1/psych/visitors/to_ruby.rb
+	#
+	#	I really like this and I may very well make it a default at some point.
+	#
+	def self.validations_from_yaml_file
+		validation_file = File.join(Rails.root,"config/validations/#{self.to_s.underscore}.yml")
+		if File.exists?(validation_file)
+			h = YAML::load( ERB.new( IO.read( validation_file )).result)
+
+			#	if the yml file is empty, h is false ( added "if h" condition )
+			h.each do |validation|
+				attributes=[validation.delete(:attributes), validation.delete(:attribute)
+					].compact.flatten
+				self.validates *attributes, validation
+			end if h
+#		else
+#			puts "YAML validations file not found so not using."
+		end
+	end
+
+	def self.validates_uniqueness_of_with_nilification(*args)
+		#	NOTE ANY field that has a unique index in the database NEEDS
+		#	to NOT be blank.  Multiple nils are acceptable in index, 
+		#	but multiple blanks are NOT.  Nilify ALL fields with
+		#	unique indexes in the database. At least those that
+		#	would appear on a form, as an empty text box is sent
+		#	as '' and not nil, hence the initial problem.
+		#	The first one will work, but will fail after.
+
+		#	ONLY IF THE FIELD IS A STRING!
+		class_eval do
+			validates_uniqueness_of args, :allow_blank => true
+			args.each do |arg|
+				before_validation {
+					self.send("#{arg}=", nil) if self.send(arg).blank?
+				}
+			end
+		end
+	end
+
+	def self.nilify_if_blank(*args)
+		#	ONLY IF THE FIELD IS A STRING!
+		class_eval do
+			args.each do |arg|
+				before_save {
+					self.send("#{arg}=", nil) if self.send(arg).blank?
+				}
+			end
+		end
+	end
+
+	def self.acts_like_a_hash(*args)
+		options = {
+			:key   => :key,
+			:value => :description
+		}.update(args.extract_options!)
+
+		cattr_accessor :acts_like_a_hash_options
+		cattr_accessor :acts_like_a_hash_memory
+
+		class_eval do
+
+			self.acts_like_a_hash_options = options
+			self.acts_like_a_hash_memory = {}
+	
+			validates_presence_of   options[:key], options[:value]
+			validates_uniqueness_of options[:key], options[:value]
+			validates_length_of     options[:key], options[:value],
+				:maximum => 250, :allow_blank => true
+
+			# Treats the class a bit like a Hash and
+			# searches for a record with a matching key.
+			def self.[](key)
+				self.acts_like_a_hash_memory[key.downcase.to_s] ||=
+					where(self.arel_table[self.acts_like_a_hash_options[:key]].matches(key)).first
+			end
+
+		end	#	class_eval do
+	end	#	def acts_like_a_hash(*args)
+
+	def self.random
+		count = count()
+		if count > 0
+			offset(rand(count)).limit(1).first
+		else
+			nil
+		end
+	end
+
+
+	#	for those classes that don't use the feature, just add the method.
+	def self.aliased_attributes
+		{}
+	end
+
+	#	cattr_accessor here would create a class variable for ActiveRecord::Base
+	#	What I want is the subclass to have one so just wait until its used the first time
+	#	and create the class variable them
+	#		cattr_accessor :aliased_attributes
+	def self.alias_attribute_with_memory(new_name, old_name)
+		unless self.class_variable_defined? '@@aliased_attributes'
+			cattr_accessor :aliased_attributes
+			self.aliased_attributes = {}.with_indifferent_access
+		end
+		self.aliased_attributes[new_name] = old_name
+		alias_attribute_without_memory(new_name, old_name)
+	end
+	class << self
+		alias_method_chain :alias_attribute, :memory
+	end
+
+end	#	class ActiveRecord::Base