# encoding: UTF-8

class Label::SKOSXL::Base < Label::Base

  include Iqvoc::Versioning

  class_attribute :rdf_namespace, :rdf_class
  self.rdf_namespace = "skosxl"
  self.rdf_class = "Label"

  attr_protected :origin

  # ********** Validations

  validate :two_versions_exist, :on => :create
  validate :origin_has_to_be_escaped

  # ********** Hooks

  after_initialize do
    @full_validation = false
  end

  before_validation do |label|
    label.origin = Iqvoc::Origin.new("#{value}-#{language}").to_s if label.origin.blank?
  end

  after_save do |label|
    # Handle save or destruction of inline relations for use with widgets
    (@inline_assigned_relations ||= {}).each do |relation_class_name, origins|
      # Remove all associated labelings of the given type
      label.send(relation_class_name.to_relation_name).destroy_all

      # Recreate relations reflecting the widget's parameters
      Iqvoc::XLLabel.base_class.by_origin(origins).each do |l|
        label.send(relation_class_name.to_relation_name).create(:range => l)
      end
    end
  end

  # ********** "Static"/unconfigureable relations

  @nested_relations = [] # Will be marked as nested attributes later

  has_many :labelings, :class_name => 'Labeling::Base', :foreign_key => 'target_id', :dependent => :destroy
  has_many :concepts, :through => :labelings, :source => :owner
  include_to_deep_cloning(:labelings)

  has_many :relations, :foreign_key => 'domain_id', :class_name => 'Label::Relation::Base', :dependent => :destroy
  # Which references are pointing to this label?
  has_many :referenced_by_relations, :foreign_key => 'range_id', :class_name => 'Label::Relation::Base', :dependent => :destroy
  include_to_deep_cloning(:relations, :referenced_by_relations)

  has_many :notes, :as => :owner, :class_name => 'Note::Base', :dependent => :destroy
  has_many :annotations, :through => :notes, :source => :annotations
  include_to_deep_cloning(:notes => :annotations)

  # ************** "Dynamic"/configureable relations

  Iqvoc::XLLabel.note_class_names.each do |note_class_name|
    has_many note_class_name.to_relation_name, :as => :owner, :class_name => note_class_name, :dependent => :destroy
    @nested_relations << note_class_name.to_relation_name
  end

  Iqvoc::XLLabel.relation_class_names.each do |relation_class_name|
    has_many relation_class_name.to_relation_name,
      :foreign_key => 'domain_id',
      :class_name  => relation_class_name,
      :dependent   => :destroy

    # Serialized setters and getters (\r\n or , separated)
    define_method("inline_#{relation_class_name.to_relation_name}".to_sym) do
      (@inline_assigned_relations && @inline_assigned_relations[relation_class_name]) ||
        self.send(relation_class_name.to_relation_name).map { |r| r.range.origin }.uniq
    end

    define_method("inline_#{relation_class_name.to_relation_name}=".to_sym) do |value|
      # write to instance variable and write it on after_save
      (@inline_assigned_relations ||= {})[relation_class_name] = value.
        split(/\r\n|, */).map(&:strip).reject(&:blank?).uniq # XXX: use Iqvoc::InlineDataHelper?
    end
  end

  Iqvoc::XLLabel.additional_association_classes.each do |association_class, foreign_key|
    has_many association_class.name.to_relation_name, :class_name => association_class.name, :foreign_key => foreign_key, :dependent => :destroy
    include_to_deep_cloning(association_class.deep_cloning_relations)
    association_class.referenced_by(self)
  end

  # ********** Relation Stuff

  @nested_relations.each do |relation|
    accepts_nested_attributes_for relation, :allow_destroy => true, :reject_if => Proc.new {|attrs| attrs[:value].blank? }
  end

  # ********** Scopes

  def self.by_origin(origin)
    where(:origin => origin)
  end

  def self.with_associations
    includes(:labelings => :owner)
  end

  def self.for_dashboard
    unpublished_or_follow_up.includes(:locking_user)
  end

  # ********** Methods

  # def self.single_query(params = {})
  #   query_str = build_query_string(params)
  #
  #   by_query_value(query_str).
  #   by_language(params[:languages].to_a).
  #   published.
  #   order("LOWER(#{Label::Base.table_name}.value)")
  # end

  # def self.search_result_partial_name
  #   'partials/labeling/skosxl/search_result'
  # end

  def self.new_link_partial_name
    "partials/label/skosxl/new_link_base"
  end

  def self.edit_link_partial_name
    "partials/label/skosxl/edit_link_base"
  end

  def build_rdf_subject(document, controller, &block)
    ns = IqRdf::Namespace.find_namespace_class(self.rdf_namespace.to_sym)
    raise "Namespace '#{rdf_namespace}' is not defined in IqRdf document." unless ns
    IqRdf.build_uri(self.origin, ns.build_uri(self.rdf_class), &block)
  end

  def concepts_for_labeling_class(labeling_class)
    labeling_class = labeling_class.name if labeling_class < ActiveRecord::Base # Use the class name string
    labelings.select{ |l| l.class.name == labeling_class.to_s }.map(&:owner)
  end

  def related_labels_for_relation_class(relation_class)
    relation_class = relation_class.name if relation_class < ActiveRecord::Base # Use the class name string
    relations.select{ |rel| rel.class.name == relation_class }.map(&:range)
  end

  def notes_for_class(note_class)
    note_class = note_class.name if note_class < ActiveRecord::Base # Use the class name string
    notes.select{ |note| note.class.name == note_class }
  end

  def from_rdf(str)
    raise "invalid rdf literal" unless str =~ /^"(.+)"(@(.+))$/
    self.value = $1
    self.language = $3
    self
  end

  def from_rdf!(str)
    from_rdf(str)
    save(:validate => false)
  end

  def to_param
    origin
  end

  def has_concept_or_label_relations?
    # Check if one of the additional association methods return elements
    Iqvoc::XLLabel.additional_association_classes.each do |association_class, foreign_key|
      return true if send(association_class.name.to_relation_name).count > 0
    end
  end

  def save_with_full_validation!
    @full_validation = true
    save!
  end

  # FIXME: should not @full_validation be set back to the value it had before??? This method changes the state!
  def valid_with_full_validation?
    @full_validation = true
    valid?
  end

  def invalid_with_full_validation?
    @full_validation = true
    invalid?
  end

  # Responsible for displaying a warning message about
  # associated objects which are currently edited y another user.
  def associated_objects_in_editing_mode
    {
      :label_relations => Label::Relation::Base.by_domain(id).range_in_edit_mode
    }
  end

  protected

  # Validations

  def origin_has_to_be_escaped
    if origin != Iqvoc::Origin.new(origin).to_s
      errors.add :origin, I18n.t("txt.models.label.origin_invalid")
    end
  end

  def two_versions_exist
    if Label::SKOSXL::Base.by_origin(origin).count >= 2
      errors.add :base, I18n.t("txt.models.label.version_error")
    end
  end

end