# frozen_string_literal: true

require 'rpl/types'

class Parser
  include Types

  def self.parse( input )
    unless input.index("\n").nil?
      input = input.split("\n")
                   .map do |line|
        comment_begin_index = line.index('#')

        case comment_begin_index
        when nil
          line
        when 0
          ''
        else
          line[0..(comment_begin_index - 1)]
        end
      end
                   .join(' ')
    end

    splitted_input = input.split(' ')

    # 2-passes:
    # 1. regroup strings and programs
    opened_programs = 0
    closed_programs = 0
    opened_lists = 0
    closed_lists = 0
    string_delimiters = 0
    name_delimiters = 0
    regrouping = false

    regrouped_input = []
    splitted_input.each do |elt|
      if elt[0] == '«'
        opened_programs += 1
        elt.gsub!( '«', '« ') if elt.length > 1 && elt[1] != ' '
      elsif elt[0] == '{'
        opened_lists += 1
        elt.gsub!( '{', '{ ') if elt.length > 1 && elt[1] != ' '
      elsif elt[0] == '"' && elt.length > 1
        string_delimiters += 1
      elsif elt[0] == "'" && elt.length > 1
        name_delimiters += 1
      end

      elt = "#{regrouped_input.pop} #{elt}".strip if regrouping

      regrouped_input << elt

      case elt[-1]
      when '»'
        closed_programs += 1
        elt.gsub!( '»', ' »') if elt.length > 1 && elt[-2] != ' '
      when '}'
        closed_lists += 1
        elt.gsub!( '}', ' }') if elt.length > 1 && elt[-2] != ' '
      when '"'
        string_delimiters += 1
      when "'"
        name_delimiters += 1
      end

      regrouping = string_delimiters.odd? || name_delimiters.odd? || (opened_programs > closed_programs ) || (opened_lists > closed_lists )
    end

    # 2. parse
    regrouped_input.map do |element|
      if RplBoolean.can_parse?( element )
        RplBoolean.new( element )
      elsif RplNumeric.can_parse?( element )
        RplNumeric.new( element )
      elsif RplList.can_parse?( element )
        RplList.new( element )
      elsif RplString.can_parse?( element )
        RplString.new( element )
      elsif RplProgram.can_parse?( element )
        RplProgram.new( element )
      elsif RplName.can_parse?( element )
        RplName.new( element )
      end
    end
  end
end