aenea 0.2.0

data/app/models/concerns/model/has_one.rb

@@ -0,0 +1,77 @@
+module Model
+  module HasOne
+    extend ActiveSupport::Concern
+
+    class Association
+      attr_reader :target, :assoc
+
+      def initialize(target, assoc, options = {})
+        @target = target
+        @assoc = assoc.to_sym
+
+        class_name = options[:class_name] || assoc.to_s.camelize
+        klass = class_name.constantize
+
+        builder_method_name = "build_#{assoc}".to_sym
+        validate_method_name = "validate_associated_#{assoc}".to_sym
+
+        target.send :attr_accessor, assoc
+        define_builder builder_method_name, assoc, klass
+        define_attributes_writer builder_method_name
+        define_present_method assoc
+        define_nil_method assoc
+        define_validate_method validate_method_name, assoc
+
+        if validate_options = options[:validate]
+          target.validate validate_method_name, validate_options.is_a?(Hash) ? validate_options : {}
+        end
+      end
+
+      private
+
+      def define_builder(builder_method_name, assoc, klass)
+        # def build_thing(attrs = {})
+        target.send :define_method, builder_method_name do |attrs = {}|
+          send "#{assoc}=", klass.new(attrs)
+        end
+      end
+
+      def define_attributes_writer(builder_method_name)
+        # def thing_attributes=(params)
+        target.send :define_method, "#{assoc}_attributes=" do |params|
+          send builder_method_name, params
+        end
+      end
+
+      def define_present_method(assoc)
+        # def things_present?
+        target.send :define_method, "#{assoc}_present?" do
+          send(assoc).present?
+        end
+      end
+
+      def define_nil_method(assoc)
+        # def things_empty?
+        target.send :define_method, "#{assoc}_nil?" do
+          send(assoc).nil?
+        end
+      end
+
+      def define_validate_method(validate_method_name, assoc)
+        # def validate_associated_thing
+        target.send :define_method, validate_method_name do
+          return unless obj = send(assoc)
+          errors.add assoc, 'is invalid' unless obj.valid?
+        end
+      end
+    end
+
+    module ClassMethods
+      def has_one(name, options = {})
+        (self.associations_registry ||= {})[name] = :has_one
+
+        Association.new self, name, options
+      end
+    end
+  end
+end

data/app/models/concerns/sluggable.rb

@@ -0,0 +1,7 @@
+module Sluggable
+  extend ActiveSupport::Concern
+
+  def to_param
+    url
+  end
+end

data/app/models/countries.rb

@@ -0,0 +1,278 @@
+module Countries
+  # https://en.wikipedia.org/wiki/ISO_3166-1_alpha-3
+  VALUES = [
+    ['ABW', 'Aruba'],
+    ['AFG', 'Afghanistan'],
+    ['AGO', 'Angola'],
+    ['AIA', 'Anguilla'],
+    ['ALA', 'Åland Islands'],
+    ['ALB', 'Albania'],
+    ['AND', 'Andorra'],
+    ['ARE', 'United Arab Emirates'],
+    ['ARG', 'Argentina'],
+    ['ARM', 'Armenia'],
+    ['ASM', 'American Samoa'],
+    ['ATA', 'Antarctica'],
+    ['ATF', 'French Southern Territories'],
+    ['ATG', 'Antigua and Barbuda'],
+    ['AUS', 'Australia'],
+    ['AUT', 'Austria'],
+    ['AZE', 'Azerbaijan'],
+    ['BDI', 'Burundi'],
+    ['BEL', 'Belgium'],
+    ['BEN', 'Benin'],
+    ['BES', 'Bonaire, Sint Eustatius and Saba'],
+    ['BFA', 'Burkina Faso'],
+    ['BGD', 'Bangladesh'],
+    ['BGR', 'Bulgaria'],
+    ['BHR', 'Bahrain'],
+    ['BHS', 'Bahamas'],
+    ['BIH', 'Bosnia and Herzegovina'],
+    ['BLM', 'Saint Barthélemy'],
+    ['BLR', 'Belarus'],
+    ['BLZ', 'Belize'],
+    ['BMU', 'Bermuda'],
+    ['BOL', 'Bolivia, Plurinational State of'],
+    ['BRA', 'Brazil'],
+    ['BRB', 'Barbados'],
+    ['BRN', 'Brunei Darussalam'],
+    ['BTN', 'Bhutan'],
+    ['BVT', 'Bouvet Island'],
+    ['BWA', 'Botswana'],
+    ['CAF', 'Central African Republic'],
+    ['CAN', 'Canada'],
+    ['CCK', 'Cocos (Keeling) Islands'],
+    ['CHE', 'Switzerland'],
+    ['CHL', 'Chile'],
+    ['CHN', 'China'],
+    ['CIV', 'Côte d\'Ivoire'],
+    ['CMR', 'Cameroon'],
+    ['COD', 'Congo, the Democratic Republic of the'],
+    ['COG', 'Congo'],
+    ['COK', 'Cook Islands'],
+    ['COL', 'Colombia'],
+    ['COM', 'Comoros'],
+    ['CPV', 'Cabo Verde'],
+    ['CRI', 'Costa Rica'],
+    ['CUB', 'Cuba'],
+    ['CUW', 'Curaçao'],
+    ['CXR', 'Christmas Island'],
+    ['CYM', 'Cayman Islands'],
+    ['CYP', 'Cyprus'],
+    ['CZE', 'Czechia'],
+    ['DEU', 'Germany'],
+    ['DJI', 'Djibouti'],
+    ['DMA', 'Dominica'],
+    ['DNK', 'Denmark'],
+    ['DOM', 'Dominican Republic'],
+    ['DZA', 'Algeria'],
+    ['ECU', 'Ecuador'],
+    ['EGY', 'Egypt'],
+    ['ERI', 'Eritrea'],
+    ['ESH', 'Western Sahara'],
+    ['ESP', 'Spain'],
+    ['EST', 'Estonia'],
+    ['ETH', 'Ethiopia'],
+    ['FIN', 'Finland'],
+    ['FJI', 'Fiji'],
+    ['FLK', 'Falkland Islands (Malvinas)'],
+    ['FRA', 'France'],
+    ['FRO', 'Faroe Islands'],
+    ['FSM', 'Micronesia, Federated States of'],
+    ['GAB', 'Gabon'],
+    ['GBR', 'United Kingdom'],
+    ['GEO', 'Georgia'],
+    ['GGY', 'Guernsey'],
+    ['GHA', 'Ghana'],
+    ['GIB', 'Gibraltar'],
+    ['GIN', 'Guinea'],
+    ['GLP', 'Guadeloupe'],
+    ['GMB', 'Gambia'],
+    ['GNB', 'Guinea-Bissau'],
+    ['GNQ', 'Equatorial Guinea'],
+    ['GRC', 'Greece'],
+    ['GRD', 'Grenada'],
+    ['GRL', 'Greenland'],
+    ['GTM', 'Guatemala'],
+    ['GUF', 'French Guiana'],
+    ['GUM', 'Guam'],
+    ['GUY', 'Guyana'],
+    ['HKG', 'Hong Kong'],
+    ['HMD', 'Heard Island and McDonald Islands'],
+    ['HND', 'Honduras'],
+    ['HRV', 'Croatia'],
+    ['HTI', 'Haiti'],
+    ['HUN', 'Hungary'],
+    ['IDN', 'Indonesia'],
+    ['IMN', 'Isle of Man'],
+    ['IND', 'India'],
+    ['IOT', 'British Indian Ocean Territory'],
+    ['IRL', 'Ireland'],
+    ['IRN', 'Iran, Islamic Republic of'],
+    ['IRQ', 'Iraq'],
+    ['ISL', 'Iceland'],
+    ['ISR', 'Israel'],
+    ['ITA', 'Italy'],
+    ['JAM', 'Jamaica'],
+    ['JEY', 'Jersey'],
+    ['JOR', 'Jordan'],
+    ['JPN', 'Japan'],
+    ['KAZ', 'Kazakhstan'],
+    ['KEN', 'Kenya'],
+    ['KGZ', 'Kyrgyzstan'],
+    ['KHM', 'Cambodia'],
+    ['KIR', 'Kiribati'],
+    ['KNA', 'Saint Kitts and Nevis'],
+    ['KOR', 'Korea, Republic of'],
+    ['KWT', 'Kuwait'],
+    ['LAO', 'Lao People\'s Democratic Republic'],
+    ['LBN', 'Lebanon'],
+    ['LBR', 'Liberia'],
+    ['LBY', 'Libya'],
+    ['LCA', 'Saint Lucia'],
+    ['LIE', 'Liechtenstein'],
+    ['LKA', 'Sri Lanka'],
+    ['LSO', 'Lesotho'],
+    ['LTU', 'Lithuania'],
+    ['LUX', 'Luxembourg'],
+    ['LVA', 'Latvia'],
+    ['MAC', 'Macao'],
+    ['MAF', 'Saint Martin (French part)'],
+    ['MAR', 'Morocco'],
+    ['MCO', 'Monaco'],
+    ['MDA', 'Moldova, Republic of'],
+    ['MDG', 'Madagascar'],
+    ['MDV', 'Maldives'],
+    ['MEX', 'Mexico'],
+    ['MHL', 'Marshall Islands'],
+    ['MKD', 'Macedonia, the former Yugoslav Republic of'],
+    ['MLI', 'Mali'],
+    ['MLT', 'Malta'],
+    ['MMR', 'Myanmar'],
+    ['MNE', 'Montenegro'],
+    ['MNG', 'Mongolia'],
+    ['MNP', 'Northern Mariana Islands'],
+    ['MOZ', 'Mozambique'],
+    ['MRT', 'Mauritania'],
+    ['MSR', 'Montserrat'],
+    ['MTQ', 'Martinique'],
+    ['MUS', 'Mauritius'],
+    ['MWI', 'Malawi'],
+    ['MYS', 'Malaysia'],
+    ['MYT', 'Mayotte'],
+    ['NAM', 'Namibia'],
+    ['NCL', 'New Caledonia'],
+    ['NER', 'Niger'],
+    ['NFK', 'Norfolk Island'],
+    ['NGA', 'Nigeria'],
+    ['NIC', 'Nicaragua'],
+    ['NIU', 'Niue'],
+    ['NLD', 'Netherlands'],
+    ['NOR', 'Norway'],
+    ['NPL', 'Nepal'],
+    ['NRU', 'Nauru'],
+    ['NZL', 'New Zealand'],
+    ['OMN', 'Oman'],
+    ['PAK', 'Pakistan'],
+    ['PAN', 'Panama'],
+    ['PCN', 'Pitcairn'],
+    ['PER', 'Peru'],
+    ['PHL', 'Philippines'],
+    ['PLW', 'Palau'],
+    ['PNG', 'Papua New Guinea'],
+    ['POL', 'Poland'],
+    ['PRI', 'Puerto Rico'],
+    ['PRK', 'Korea, Democratic People\'s Republic of'],
+    ['PRT', 'Portugal'],
+    ['PRY', 'Paraguay'],
+    ['PSE', 'Palestine, State of'],
+    ['PYF', 'French Polynesia'],
+    ['QAT', 'Qatar'],
+    ['REU', 'Réunion'],
+    ['ROU', 'Romania'],
+    ['RUS', 'Russian Federation'],
+    ['RWA', 'Rwanda'],
+    ['SAU', 'Saudi Arabia'],
+    ['SDN', 'Sudan'],
+    ['SEN', 'Senegal'],
+    ['SGP', 'Singapore'],
+    ['SGS', 'South Georgia and the South Sandwich Islands'],
+    ['SHN', 'Saint Helena, Ascension and Tristan da Cunha'],
+    ['SJM', 'Svalbard and Jan Mayen'],
+    ['SLB', 'Solomon Islands'],
+    ['SLE', 'Sierra Leone'],
+    ['SLV', 'El Salvador'],
+    ['SMR', 'San Marino'],
+    ['SOM', 'Somalia'],
+    ['SPM', 'Saint Pierre and Miquelon'],
+    ['SRB', 'Serbia'],
+    ['SSD', 'South Sudan'],
+    ['STP', 'Sao Tome and Principe'],
+    ['SUR', 'Suriname'],
+    ['SVK', 'Slovakia'],
+    ['SVN', 'Slovenia'],
+    ['SWE', 'Sweden'],
+    ['SWZ', 'Swaziland'],
+    ['SXM', 'Sint Maarten (Dutch part)'],
+    ['SYC', 'Seychelles'],
+    ['SYR', 'Syrian Arab Republic'],
+    ['TCA', 'Turks and Caicos Islands'],
+    ['TCD', 'Chad'],
+    ['TGO', 'Togo'],
+    ['THA', 'Thailand'],
+    ['TJK', 'Tajikistan'],
+    ['TKL', 'Tokelau'],
+    ['TKM', 'Turkmenistan'],
+    ['TLS', 'Timor-Leste'],
+    ['TON', 'Tonga'],
+    ['TTO', 'Trinidad and Tobago'],
+    ['TUN', 'Tunisia'],
+    ['TUR', 'Turkey'],
+    ['TUV', 'Tuvalu'],
+    ['TWN', 'Taiwan, Province of China'],
+    ['TZA', 'Tanzania, United Republic of'],
+    ['UGA', 'Uganda'],
+    ['UKR', 'Ukraine'],
+    ['UMI', 'United States Minor Outlying Islands'],
+    ['URY', 'Uruguay'],
+    ['USA', 'United States of America'],
+    ['UZB', 'Uzbekistan'],
+    ['VAT', 'Holy See'],
+    ['VCT', 'Saint Vincent and the Grenadines'],
+    ['VEN', 'Venezuela, Bolivarian Republic of'],
+    ['VGB', 'Virgin Islands, British'],
+    ['VIR', 'Virgin Islands, U.S.'],
+    ['VNM', 'Viet Nam'],
+    ['VUT', 'Vanuatu'],
+    ['WLF', 'Wallis and Futuna'],
+    ['WSM', 'Samoa'],
+    ['YEM', 'Yemen'],
+    ['ZAF', 'South Africa'],
+    ['ZMB', 'Zambia'],
+    ['ZWE', 'Zimbabwe'],
+  ]
+
+  def self.select_values
+    @select_values ||= VALUES.map {|a| a.reverse }.sort_by(&:first)
+  end
+
+  def self.valid?(code)
+    (@codes ||= select_values.map(&:last)).include?(code)
+  end
+
+  def self.[](code)
+    (@values ||= Hash[VALUES])[code]
+  end
+
+  def self.usa
+    'USA'
+  end
+
+  def self.usa?(code)
+    usa == code
+  end
+
+  def self.non_usa_select_values
+    @non_us_select_values ||= select_values.reject {|name, code| usa?(code) }
+  end
+end

data/app/models/country_validator.rb

@@ -0,0 +1,10 @@
+class CountryValidator < ActiveModel::EachValidator
+  def validate_each(record, attribute, value)
+    if value.blank?
+      record.errors[attribute] << 'is required' unless options[:allow_blank] || options[:allow_nil]
+      return
+    end
+
+    record.errors[attribute] << (options[:message] || 'is not a valid country') unless Countries.valid?(value)
+  end
+end

data/app/models/database_function_helper.rb

@@ -0,0 +1,88 @@
+module DatabaseFunctionHelper
+  def self.select_function(*args)
+    obj = Object.new
+    obj.extend(DatabaseFunctionHelper)
+
+    obj.select_function(*args)
+  end
+
+  def select_function(*args)
+    options = args.last.is_a?(Hash) ? args.pop : {}
+
+    sql = [ 'SELECT', function_sql(*args) ].join(' ')
+    results = ActiveRecord::Base.connection.execute(sql)
+
+    if type = options[:one]
+      return nil unless results.first
+      return cast_one(type, results.first.values.first)
+    elsif type = options[:values]
+      return cast_values(type, results)
+    end
+
+    results
+  end
+
+  protected
+
+  def function_sql(*args)
+    function_name = "func_#{args.shift}" # add standard prefix
+    args_sql = to_args_sql(*args)
+    sql = [ function_name, '(', args_sql, ')' ].join
+    Rails.logger.debug sql
+
+    sql
+  end
+
+  def to_args_sql(*args)
+    args.collect do |a|
+      case a
+      when nil
+        'NULL'
+      when true
+        "'t'"
+      when false
+        "'f'"
+      else
+        if a.is_a? Hash
+          [ to_args_sql(a.values.first), '::', a.keys.first.to_s ].join
+        elsif a.is_a? Array
+          "'{#{a.join(',')}}'"
+        else
+          "'#{a}'"
+        end
+      end
+    end.join(', ')
+  end
+
+  def cast_one(type, string)
+    return nil if string.nil?
+
+    case type
+    when :boolean
+      return string == 't'
+    when :date
+      return Date.parse(string)
+    when :datetime
+      return Time.parse(string)
+    when :decimal
+      return BigDecimal.new(string)
+    when :float
+      return string.to_f
+    when :integer
+      return string.to_i
+    when :time_of_day
+      return Tod::TimeOfDay.parse(string)
+    when :time_window
+      return TimeWindow.parse_tuple(string)
+    when :timestamp
+      return Time.parse(string)
+    end
+
+    string
+  end
+
+  def cast_values(type, results)
+    values = results.values.map(&:first)
+    values.collect {|val| cast_one(type, val) }
+  end
+end