class Temple::Filters::StringSplitter

# File lib/temple/filters/string_splitter.rb, line 14
def compile(code)
  [].tap do |exps|
    tokens = Ripper.lex(code.strip)
    tokens.pop while tokens.last && [:on_comment, :on_sp].include?(tokens.last[1])

    if tokens.size < 2
      raise(FilterError, "Expected token size >= 2 but got: #{tokens.size}")
    end
    compile_tokens!(exps, tokens)
  end
end

# File lib/temple/filters/string_splitter.rb, line 42
def compile_tokens!(exps, tokens)
  beg_str, end_str = strip_quotes!(tokens)

  until tokens.empty?
    _, type, str = tokens.shift

    case type
    when :on_tstring_content
      beg_str, end_str = escape_quotes(beg_str, end_str)
      exps << [:static, eval("#{beg_str}#{str}#{end_str}").to_s]
    when :on_embexpr_beg
      embedded = shift_balanced_embexpr(tokens)
      exps << [:dynamic, embedded] unless embedded.empty?
    end
  end
end

# File lib/temple/filters/string_splitter.rb, line 60
def escape_quotes(beg_str, end_str)
  case [beg_str[-1], end_str]
  when ['(', ')'], ['[', ']'], ['{', '}']
    [beg_str.sub(/.\z/) { "\0" }, "\0"]
  else
    [beg_str, end_str]
  end
end

# File lib/temple/filters/string_splitter.rb, line 69
def shift_balanced_embexpr(tokens)
  String.new.tap do |embedded|
    embexpr_open = 1

    until tokens.empty?
      _, type, str = tokens.shift
      case type
      when :on_embexpr_beg
        embexpr_open += 1
      when :on_embexpr_end
        embexpr_open -= 1
        break if embexpr_open == 0
      end

      embedded << str
    end
  end
end

# File lib/temple/filters/string_splitter.rb, line 28
def strip_quotes!(tokens)
  _, type, beg_str = tokens.shift
  if type != :on_tstring_beg
    raise(FilterError, "Expected :on_tstring_beg but got: #{type}")
  end

  _, type, end_str = tokens.pop
  if type != :on_tstring_end
    raise(FilterError, "Expected :on_tstring_end but got: #{type}")
  end

  [beg_str, end_str]
end

# File lib/temple/filters/string_splitter.rb, line 136
def call(ast)
  ast
end

# File lib/temple/filters/string_splitter.rb, line 89
def on_dynamic(code)
  return [:dynamic, code] unless string_literal?(code)
  return [:dynamic, code] if code.include?("\n")

  temple = [:multi]
  StringSplitter.compile(code).each do |type, content|
    case type
    when :static
      temple << [:static, content]
    when :dynamic
      temple << on_dynamic(content)
    end
  end
  temple
end

# File lib/temple/filters/string_splitter.rb, line 107
def string_literal?(code)
  return false if SyntaxChecker.syntax_error?(code)

  type, instructions = Ripper.sexp(code)
  return false if type != :program
  return false if instructions.size > 1

  type, _ = instructions.first
  type == :string_literal
end