path: root/app/models/rule_parameter_set.rb

class RuleParameterSet < ActiveRecord::Base
  belongs_to :organisation

  #validates_presence_of :referential
  validates_presence_of :name

  # Access to parent object
  attr_accessor :import, :compliance_check

  serialize :parameters, JSON

  def self.mode_attribute_prefixes
    %w( allowed_transport inter_stop_area_distance_min inter_stop_area_distance_max speed_max speed_min inter_stop_duration_variation_max)
  end
  def self.general_attributes
    %w( inter_stop_area_distance_min parent_stop_area_distance_max stop_areas_area inter_access_point_distance_min
      inter_connection_link_distance_max walk_default_speed_max
      walk_occasional_traveller_speed_max walk_frequent_traveller_speed_max walk_mobility_restricted_traveller_speed_max
      inter_access_link_distance_max inter_stop_duration_max facility_stop_area_distance_max
      check_allowed_transport_modes check_lines_in_groups check_line_routes
      check_stop_parent check_connection_link_on_physical)
  end

  def self.validable_objects
      [Chouette::Network,Chouette::Company,Chouette::GroupOfLine,
        Chouette::StopArea,Chouette::AccessPoint,Chouette::AccessLink,Chouette::ConnectionLink,
        Chouette::TimeTable,Chouette::Line,Chouette::Route,
        Chouette::JourneyPattern,Chouette::VehicleJourney]
  end

  def self.validable_object_names
    %w( network company group_of_line stop_area access_point access_link connection_link time_table line route
        journey_pattern vehicle_journey )
  end

  def self.validable_columns
      { 'network' => ['objectid','name','registration_number'],
        'company' => ['objectid','name','registration_number'],
        'group_of_line' => ['objectid','name','registration_number'],
        'stop_area' => ['objectid','name','registration_number','city_name','country_code','zip_code'],
        'access_point' => ['objectid','name','city_name','country_code','zip_code'],
        'access_link' => ['objectid','name','link_distance','default_duration'],
        'connection_link' => ['objectid','name','link_distance','default_duration'],
        'time_table' => ['objectid','comment','version'],
        'line' => ['objectid','name','registration_number','number','published_name'],
        'route' => ['objectid','name','number','published_name'],
        'journey_pattern' => ['objectid','name','registration_number','published_name'],
        'vehicle_journey' => ['objectid','published_journey_name','published_journey_identifier','number'] }
  end

  @@objects_by_name = Hash[[validable_object_names, validable_objects].transpose].freeze

  def self.validable_object_class(object_name)
    @@objects_by_name[object_name]
  end

  def self.validable_column_type(object_name, column)
    if object_class = validable_object_class(object_name)
      object_class.columns_hash[column].try(:type)
    end
  end

  def self.column_attribute_prefixes
    %w( unique pattern min_size max_size )
  end

  def self.all_modes
    Chouette::TransportMode.all.map { |m| m.to_s}
  end

  def self.mode_attribute?( method_name )
    pattern = /(\w+)_mode_(\w+)/
    return false unless method_name.match( pattern)

    mode_attribute_prefixes.include?( $1) && self.class.all_modes.include?( $2)
  end

  def self.column_attribute?( method_name )
    pattern = /(\w+)_column_(\w+)_object_(\w+)/
    return false unless method_name.match( pattern)
    return false unless validable_object_names.include?($3)
    column_attribute_prefixes.include?( $1) && validable_columns[$3].include?( $2)
  end

  def self.mode_of_mode_attribute( method_name )
    method_name.match( /(\w+)_mode_(\w+)/)
    $2
  end
  def self.attribute_of_mode_attribute( method_name )
    method_name.match( /(\w+)_mode_(\w+)/)
    $1
  end

  def self.object_of_column_attribute( method_name )
    method_name.match(  /(\w+)_column_(\w+)_object_(\w+)/)
    $3
  end
  def self.column_of_column_attribute( method_name )
    method_name.match(  /(\w+)_column_(\w+)_object_(\w+)/)
    $2
  end
  def self.attribute_of_column_attribute( method_name )
    method_name.match(  /(\w+)_column_(\w+)_object_(\w+)/)
    $1
  end


  def self.mode_parameter(name)
    name = name.to_s
    #attr_accessible name

    define_method(name) do
      attribute_name, mode = RuleParameterSet.attribute_of_mode_attribute( name), RuleParameterSet.mode_of_mode_attribute( name)
      self.parameters and self.parameters["mode_#{mode}"] and
        self.parameters["mode_#{mode}"][attribute_name]
    end

    define_method("#{name}=") do |prefix|
      attribute_name, mode = RuleParameterSet.attribute_of_mode_attribute( name), RuleParameterSet.mode_of_mode_attribute( name)
      ((self.parameters ||= {})["mode_#{mode}"] ||= {})[attribute_name] = prefix
    end
  end

  def self.column_parameter(obj,column,prefix)
    name = "#{prefix}_column_#{column}_object_#{obj}"
    #attr_accessible name
    define_method(name) do
      attribute_name, column, obj = prefix, column, obj
      self.parameters and self.parameters[obj] and
        self.parameters[obj][column] and self.parameters[obj][column][attribute_name]
    end

    define_method("#{name}=") do |key|
      attribute_name, column, obj = prefix, column, obj
      (((self.parameters ||= {})[obj] ||= {})[column]||= {})[attribute_name] = key
    end

   end

  def self.object_parameter(clazz)
    name = clazz.table_name.singularize
    #attr_accessible name

    parameter "check_#{clazz.table_name.singularize}"
    validable_columns[name].each do |column|
      column_attribute_prefixes.each do |prefix|
         column_parameter name,column,prefix
      end

    end

  end

  def self.parameter(name)
    name = name.to_s
    #attr_accessible name

    define_method(name) do
        self.parameters and self.parameters[name]
    end

    define_method("#{name}=") do |prefix|
        (self.parameters ||= {})[name] = prefix
    end
  end

  def self.default_params(mode=nil)
    base = { :inter_stop_area_distance_min          => 20,
      :parent_stop_area_distance_max                => 300,
      :inter_access_point_distance_min              => 20,
      :inter_connection_link_distance_max           => 400,
      :walk_default_speed_max                       => 4,
      :walk_occasional_traveller_speed_max          => 2,
      :walk_frequent_traveller_speed_max            => 5,
      :walk_mobility_restricted_traveller_speed_max => 1,
      :inter_access_link_distance_max               => 300,
      :inter_stop_duration_max                      => 40,
      :facility_stop_area_distance_max              => 300,
      :check_allowed_transport_modes                => false,
      :check_lines_in_groups                        => false,
      :check_line_routes                            => false,
      :check_stop_parent                            => false,
      :check_connection_link_on_physical            => false
    }
    if mode && self.mode_default_params[ mode.to_sym]
      base.merge!( self.mode_default_params[ mode.to_sym])
    end
    base
  end
  def self.mode_default_params
    {
    :coach => {
      :allowed_transport_mode_coach                 => false,
      :inter_stop_area_distance_min_mode_coach      => 500,
      :inter_stop_area_distance_max_mode_coach      => 10000,
      :speed_max_mode_coach                         => 90,
      :speed_min_mode_coach                         => 40,
      :inter_stop_duration_variation_max_mode_coach => 20},
    :air => {
      :allowed_transport_mode_air                 => false,
      :inter_stop_area_distance_min_mode_air      => 200,
      :inter_stop_area_distance_max_mode_air      => 10000,
      :speed_max_mode_air                         => 800,
      :speed_min_mode_air                         => 700,
      :inter_stop_duration_variation_max_mode_air => 60},
    :waterborne => {
      :allowed_transport_mode_waterborne                 => false,
      :inter_stop_area_distance_min_mode_waterborne      => 200,
      :inter_stop_area_distance_max_mode_waterborne      => 10000,
      :speed_max_mode_waterborne                         => 40,
      :speed_min_mode_waterborne                         => 5,
      :inter_stop_duration_variation_max_mode_waterborne => 60},
    :bus => {
      :allowed_transport_mode_bus                 => false,
      :inter_stop_area_distance_min_mode_bus      => 100,
      :inter_stop_area_distance_max_mode_bus      => 10000,
      :speed_max_mode_bus                         => 60,
      :speed_min_mode_bus                         => 10,
      :inter_stop_duration_variation_max_mode_bus => 15},
    :ferry => {
      :allowed_transport_mode_ferry                 => false,
      :inter_stop_area_distance_min_mode_ferry      => 200,
      :inter_stop_area_distance_max_mode_ferry      => 10000,
      :speed_max_mode_ferry                         => 40,
      :speed_min_mode_ferry                         => 5,
      :inter_stop_duration_variation_max_mode_ferry => 60},
    :walk => {
      :allowed_transport_mode_walk                 => false,
      :inter_stop_area_distance_min_mode_walk      => 1,
      :inter_stop_area_distance_max_mode_walk      => 10000,
      :speed_max_mode_walk                         => 6,
      :speed_min_mode_walk                         => 1,
      :inter_stop_duration_variation_max_mode_walk => 10},
    :metro => {
      :allowed_transport_mode_metro                 => false,
      :inter_stop_area_distance_min_mode_metro      => 300,
      :inter_stop_area_distance_max_mode_metro      => 2000,
      :speed_max_mode_metro                         => 60,
      :speed_min_mode_metro                         => 30,
      :inter_stop_duration_variation_max_mode_metro => 30},
    :shuttle => {
      :allowed_transport_mode_shuttle                 => false,
      :inter_stop_area_distance_min_mode_shuttle      => 500,
      :inter_stop_area_distance_max_mode_shuttle      => 10000,
      :speed_max_mode_shuttle                         => 80,
      :speed_min_mode_shuttle                         => 20,
      :inter_stop_duration_variation_max_mode_shuttle => 10},
    :rapid_transit => {
      :allowed_transport_mode_rapid_transit                 => false,
      :inter_stop_area_distance_min_mode_rapid_transit      => 2000,
      :inter_stop_area_distance_max_mode_rapid_transit      => 500000,
      :speed_max_mode_rapid_transit                         => 300,
      :speed_min_mode_rapid_transit                         => 20,
      :inter_stop_duration_variation_max_mode_rapid_transit => 60},
    :taxi => {
      :allowed_transport_mode_taxi                 => false,
      :inter_stop_area_distance_min_mode_taxi      => 500,
      :inter_stop_area_distance_max_mode_taxi      => 300000,
      :speed_max_mode_taxi                         => 130,
      :speed_min_mode_taxi                         => 20,
      :inter_stop_duration_variation_max_mode_taxi => 60},
    :local_train => {
      :allowed_transport_mode_local_train                 => false,
      :inter_stop_area_distance_min_mode_local_train      => 2000,
      :inter_stop_area_distance_max_mode_local_train      => 500000,
      :speed_max_mode_local_train                         => 300,
      :speed_min_mode_local_train                         => 20,
      :inter_stop_duration_variation_max_mode_local_train => 60},
    :train => {
      :allowed_transport_mode_train                 => false,
      :inter_stop_area_distance_min_mode_train      => 2000,
      :inter_stop_area_distance_max_mode_train      => 500000,
      :speed_max_mode_train                         => 300,
      :speed_min_mode_train                         => 20,
      :inter_stop_duration_variation_max_mode_train => 60},
    :long_distance_train => {
      :allowed_transport_mode_long_distance_train                 => false,
      :inter_stop_area_distance_min_mode_long_distance_train      => 2000,
      :inter_stop_area_distance_max_mode_long_distance_train      => 500000,
      :speed_max_mode_long_distance_train                         => 300,
      :speed_min_mode_long_distance_train                         => 20,
      :inter_stop_duration_variation_max_mode_long_distance_train => 60},
    :tramway => {
      :allowed_transport_mode_tramway                 => false,
      :inter_stop_area_distance_min_mode_tramway      => 300,
      :inter_stop_area_distance_max_mode_tramway      => 2000,
      :speed_max_mode_tramway                         => 50,
      :speed_min_mode_tramway                         => 20,
      :inter_stop_duration_variation_max_mode_tramway => 30},
    :trolleybus => {
      :allowed_transport_mode_trolleybus                 => false,
      :inter_stop_area_distance_min_mode_trolleybus      => 300,
      :inter_stop_area_distance_max_mode_trolleybus      => 2000,
      :speed_max_mode_trolleybus                         => 50,
      :speed_min_mode_trolleybus                         => 20,
      :inter_stop_duration_variation_max_mode_trolleybus => 30},
    :private_vehicle => {
      :allowed_transport_mode_private_vehicle                 => false,
      :inter_stop_area_distance_min_mode_private_vehicle      => 500,
      :inter_stop_area_distance_max_mode_private_vehicle      => 300000,
      :speed_max_mode_private_vehicle                         => 130,
      :speed_min_mode_private_vehicle                         => 20,
      :inter_stop_duration_variation_max_mode_private_vehicle => 60},
    :bicycle => {
      :allowed_transport_mode_bicycle                 => false,
      :inter_stop_area_distance_min_mode_bicycle      => 300,
      :inter_stop_area_distance_max_mode_bicycle      => 30000,
      :speed_max_mode_bicycle                         => 40,
      :speed_min_mode_bicycle                         => 10,
      :inter_stop_duration_variation_max_mode_bicycle => 10},
    :other => {
      :allowed_transport_mode_other                 => false,
      :inter_stop_area_distance_min_mode_other      => 300,
      :inter_stop_area_distance_max_mode_other      => 30000,
      :speed_max_mode_other                         => 40,
      :speed_min_mode_other                         => 10,
      :inter_stop_duration_variation_max_mode_other => 10},
    }
    # :waterborne, :bus, :ferry, :walk, :metro, :shuttle, :rapidtransit, :taxi, :localtrain, :train, :longdistancetrain, :tramway, :trolleybus, :privatevehicle, :bicycle, :other
  end
  def self.default(organisation)
    self.default_for_all_modes(organisation).tap do |rps|
      rps.name = ""
    end
  end
  def self.default_for_all_modes(organisation)
    mode_attributes = mode_default_params.values.inject(self.default_params){|memo, obj| memo.merge! obj}
    self.new(
      { :organisation_id => organisation.id,
        :name => "valeurs par defaut"
      }.merge(mode_attributes))
  end

  def allowed(mode)
    return true unless self.check_allowed_transport_modes == "1"
    # puts "#{mode} = "+self.send("allowed_transport_mode_#{mode}").to_s
    return self.send("allowed_transport_mode_#{mode}") == "1"
  end

  def selected(object)
    # puts "#{mode} = "+self.send("allowed_transport_mode_#{mode}").to_s
    return self.send("check_#{object}") == "1"
  end

  def selected_column(object,column)
    # puts "#{mode} = "+self.send("allowed_transport_mode_#{mode}").to_s
    return self.send("unique_column_#{column}_object_#{object}") == "1" ||
           self.send("pattern_column_#{column}_object_#{object}") != "0" ||
           !self.send("min_size_column_#{column}_object_#{object}").empty? ||
           !self.send("max_size_column_#{column}_object_#{object}").empty?
  end


  all_modes.each do |mode|
    mode_attribute_prefixes.each do |prefix|
      mode_parameter "#{prefix}_mode_#{mode}".to_sym
    end
  end

  general_attributes.each do |attribute|
    parameter attribute.to_sym
    unless attribute == "stop_areas_area" || attribute == "check_allowed_transport_modes"
      validates attribute.to_sym, :numericality => true, :allow_nil => true, :allow_blank => true
    end
  end


  validable_objects.each do |obj|
     object_parameter obj
  end


end