require 'builder'
puts "start"

->(root, result_path) {
  @template_tree = {}

  parse_directory = ->(path) do
    Dir.foreach path do |d|
      if File.file?(f = path + d)
        if d =~ /.\.asp$/
          @template_tree[f] ||= []
          file = File.open(f, "r")
          while line = file.gets
            if line =~ /<!--.*#include.*-->/
              file_name = Regexp.last_match(0)[/".*"/].slice(1..-2)
              if file_name =~ /.*common.*/
                (@template_tree[f] << ("#{root}..#{file_name}").gsub("//","/")) unless file_name.empty?
              elsif file_name =~ /^\/.*/
                (@template_tree[f] << (root + file_name).gsub("//","/")) unless file_name.empty?
              else
                (@template_tree[f] << (path + file_name).gsub("//","/")) unless file_name.empty?
              end
            end
          end
          file.close
        end
      else
        parse_directory.call "#{path}#{d}/" if (d != '.' && d != '..')
      end
    end
  end

  handle_templates = ->(outer_template) do
    @xml.template(path: outer_template) do
      @template_tree[outer_template].each do |inner_template|
        @xml.template(path: inner_template) do
          @template_tree[inner_template].each do |more_inner_template|
            handle_templates.call more_inner_template
          end if @template_tree[inner_template]
        end
      end if @template_tree[outer_template]
    end
  end

  generate_xml = -> do
    result = File.open(result_path, 'w')
    @xml = Builder::XmlMarkup.new(target: result, indent: 2)
    @xml.instruct!
    @xml.templates do
      @template_tree.each do |template,children|
        @xml.template(path: template) do
          children.each do |inner_template|
            @current_nesting = 0
            handle_templates.call inner_template
          end if children
        end
      end
    end
    result.close
  end

  puts "parse files..."
  parse_directory.call root
  puts "generating xml..."
  generate_xml.call

}.call 'F:/rb_incom-realty.ru/', 'F:/tree.xml'

puts "finish"