require 'plist4r/backend'

module Plist4r::Backend::Libxml4rXmlReader
  class << self
    def tree_hash n
      hash = ::ActiveSupport::OrderedHash.new
      n_xml_keys = n.nodes["key"]
      n_xml_keys.each do |n|
        k = n.inner_xml
        vnode = n.next
        case vnode.name
        when "true", "false"
          hash[k] = eval(vnode.name)
        when "string"
          hash[k] = vnode.inner_xml
        when "integer"
          hash[k] = vnode.inner_xml.to_i
        when "array"
          hash[k] = tree_array(vnode)
        when "dict"
          hash[k] = tree_hash(vnode)
        else
          raise "Unsupported / not recognized plist key: #{vnode.name}"
        end
      end
      return hash
    end

    def tree_array n
      array = []
      n.children.each do |node|
        case node.name
        when "true", "false"
          array << eval(node.name)
        when "string"
          array << node.inner_xml
        when "integer"
          array << node.inner_xml.to_i
        when "array"
          array << tree_array(node)
        when "dict"
          array << tree_hash(node)
        else
          raise "Unsupported / not recognized plist key: #{vnode.name}"
        end
      end
      return array
    end

    def parse_plist_xml string
      require 'libxml4r'
      ::LibXML::XML.default_keep_blanks = false
      doc = string.to_xmldoc
      doc.strip!
      root = doc.node["/plist/dict"]
      ordered_hash = tree_hash root
    end

    def from_string plist, string
      plist_format = Plist4r.string_detect_format string
      raise "#{self} - cant convert string of format #{plist_format}" unless plist_format == :xml

      hash = parse_plist_xml string
      plist.import_hash hash
      plist.file_format = file_format
      return plist
    end

    def open plist
      filename = plist.filename_path
      file_format = Plist4r.file_detect_format filename
      raise "#{self} - cant load file of format #{file_format}" unless file_format == :xml

      return from_string plist, File.read(filename)
    end
  end
end