module ScaffoldParser
  module Scaffolders
    class XSD
      class Parser
        attr_reader :node

        def self.call(node, options)
          self.new(node, options).call
        end

        def initialize(node, options)
          @node = node
          @options = options
        end

        def call
          path = "./tmp/#{node.to_class_name.underscore}.rb"

          File.open(path, 'wb') do |f|
            f.indent = true if @options[:namespace]

            f.puts "require '#{namespaced('base_element')}'"
            node.submodel_nodes.map { |n| namespaced(n.to_class_name.underscore) }.uniq.each { |n| f.puts "require '#{n}'" }
            node.array_nodes.reject { |l| l.list_element.xs_type? }.each { |n| f.puts "require '#{namespaced(n.list_element.to_class_name.underscore)}'" }
            f.puts

            f.puts "module #{@options[:namespace]}" if @options[:namespace]
            f.putsi "class #{node.to_class_name}"
            f.putsi "  include BaseElement"

            node.value_nodes.each do |method|
              f.puts

              method_name = method.to_name.underscore
              at = method.to_name

              f.putsi "  def #{method_name}"
              f.putsi "    at :#{at}"
              f.putsi "  end"
            end

            node.submodel_nodes.each do |method|
              f.puts

              klass = method.to_class_name
              method_name = method.to_name.underscore
              at = method.to_name

              f.putsi "  def #{method_name}"
              f.putsi "    submodel_at(#{klass}, :#{at})"
              f.putsi "  end"
            end

            node.array_nodes.reject { |l| l.list_element.xs_type? }.each do |method|
              f.puts

              list_element_klass = method.list_element_klass
              method_name = method.to_name.underscore
              list_element_at = method.list_element_at.map { |e| ":#{e}" }.join(', ')

              f.putsi "  def #{method_name}"
              f.putsi "    array_of_at(#{list_element_klass}, [#{list_element_at}])"
              f.putsi "  end"
            end

            node.array_nodes.select { |l| l.list_element.xs_type? }.each do |method|
              f.puts

              list_element_klass = method.list_element_klass
              method_name = method.to_name.underscore
              list_element_at = method.list_element_at.map { |e| ":#{e}" }.join(', ')

              f.putsi "  def #{method_name}"
              f.putsi "    array_of_at(String, [#{list_element_at}])"
              f.putsi "  end"
            end

            ### to_h method
            lines = []
            node.value_nodes.each do |node|
              lines << "#{node.to_name.underscore}: #{node.to_name.underscore},"
            end
            node.submodel_nodes.each do |node|
              lines << "#{node.to_name.underscore}: #{node.to_name.underscore}.to_h,"
            end
            node.array_nodes.reject { |l| l.list_element.xs_type? }.each do |node|
              lines << "#{node.to_name.underscore}: #{node.to_name.underscore}.map(&:to_h),"
            end
            node.array_nodes.select { |l| l.list_element.xs_type? }.each do |node|
              lines << "#{node.to_name.underscore}: #{node.to_name.underscore},"
            end
            if lines.any?
              f.puts
              lines.last.chop!
              first_line = lines.shift

              f.putsi "  def to_h"
              f.putsi "    { #{first_line}"
              lines.each do |line|
                f.putsi "      #{line}"
              end
              f.putsi "    }.delete_if { |k, v| v.nil? || v.empty? }"
              f.putsi "  end"
            end
            f.putsi "end"
            f.puts "end" if @options[:namespace]
          end
        end

        private

        def namespaced(path)
          [@options[:namespace]&.underscore, path].compact.join('/')
        end
      end
    end
  end
end