example_elixir_parser.ex

defmodule ExampleElixirParser do
  defp reduce_to_value({:int, _line, value}, _state) do
    value
  end

  defp reduce_to_value({:add_op, lhs, rhs}, state) do
    reduce_to_value(lhs, state) + reduce_to_value(rhs, state)
  end

  defp reduce_to_value({:sub_op, lhs, rhs}, state) do
    reduce_to_value(lhs, state) - reduce_to_value(rhs, state)
  end

  defp reduce_to_value({:mul_op, lhs, rhs}, state) do
    reduce_to_value(lhs, state) * reduce_to_value(rhs, state)
  end

  defp reduce_to_value({:div_op, lhs, rhs}, state) do
    reduce_to_value(lhs, state) / reduce_to_value(rhs, state)
  end

  defp reduce_to_value({:atom, _line, atom}, state) do
    state[atom]
  end
  
  defp evaluate_tree([{:assign, {:atom, _line, lhs}, rhs} | tail], state) do
    rhs_value = reduce_to_value(rhs, state)
    evaluate_tree(tail, Map.merge(state, %{lhs => rhs_value}))
  end

  defp evaluate_tree([], state) do
    state
  end

  def process_tree(tree) do
    evaluate_tree(tree, %{})
  end

  def parse_and_eval(string) do
    {:ok, tokens, _line} = :example_elixir_parser_lexer.string(String.to_char_list(string))
    {:ok, tree} = :example_elixir_parser.parse(tokens)
    process_tree(tree)
  end
end