# Copyright (c) 2013-2015 SUSE LLC
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of version 3 of the GNU General Public License as
# published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact SUSE LLC.
#
# To contact SUSE about this file by physical or electronic mail,
# you may find current contact information at www.suse.com

class UnmanagedFile < Machinery::SystemFile
end

class UnmanagedFileList < Machinery::Array
  has_elements class: UnmanagedFile

  def compare_with(other)
    self_hash = elements.inject({}) { |hash, e| hash[e.name] = e; hash }
    other_hash = other.elements.inject({}) { |hash, e| hash[e.name] = e; hash }

    both = []
    only_self = []
    elements.each do |element|
      if other_hash.has_key?(element.name) && files_match(element, other_hash[element.name])
        both << element
      else
        only_self << element
      end
    end
    only_other = other.elements.reject do |element|
      self_hash.has_key?(element.name) && files_match(element, self_hash[element.name])
    end

    [
      self.class.new(only_self),
      self.class.new(only_other),
      [],
      self.class.new(both)
    ].map { |e| e.empty? ? nil : e }
  end

  private

  def files_match(a, b)
    common_attributes = a.attributes.keys & b.attributes.keys
    common_attributes.all? do |attribute|
      a[attribute] == b[attribute]
    end
  end
end

class UnmanagedFilesScope < FileScope
  include Machinery::Scope
  include ScopeFileAccessArchive
  has_property :files, class: UnmanagedFileList

  def compare_with(other)
    if extracted != other.extracted
      Machinery::Ui.warn("Warning: Comparing extracted with unextracted" \
        " unmanaged files. Only common attributes are considered.")
    end

    super
  end
end