Merge pull request #21 from esl/expr-elixir-pp

Expressions elixir pp

Author: erszcz

lib/gradient/ast_specifier.ex

@@ -556,7 +556,7 @@ defmodule Gradient.AstSpecifier do
   end
 
   @doc """
-  Iterate over the list in abstract code format and runs mapper on each element 
+  Iterate over the list in abstract code and runs mapper on each element.
   """
   @spec cons_mapper(form(), [token()], options()) :: {form(), tokens()}
   def cons_mapper({:cons, anno, value, tail}, tokens, opts) do

lib/gradient/debug.ex

@@ -5,15 +5,37 @@ defmodule Gradient.Debug do
 
   ## TODO: specify elixir_form
   @type elixir_form() :: any()
-  @type erlang_form() :: Gradient.SpecifyErlAst.form()
+  @type erlang_form() :: Gradient.Types.form()
+
+  @doc ~S"""
+  Translate the Elixir code to the Erlang AST.
+  """
+  defmacro elixir_to_ast(do: code) do
+    quoted_to_ast(code)
+  end
+
+  defmacro elixir_to_ast(code) do
+    quoted_to_ast(code)
+  end
+
+  @doc ~S"""
+  Translate the Elixir AST to the Erlang AST.
+  """
+  @spec quoted_to_ast(elixir_form()) :: erlang_form()
+  def quoted_to_ast(qt) do
+    env = :elixir_env.new()
+    {ast, _, _} = :elixir.quoted_to_erl(qt, env)
+    Macro.escape(ast)
+  end
 
   @doc ~S"""
   Return the Elixir AST of an Elixir module.
   """
   @spec elixir_ast(module()) :: {:ok, [elixir_form()]}
   def elixir_ast(mod) do
-    {:ok, {_, [{:debug_info, {:debug_info_v1, :elixir_erl, abstract_code}}]}} = 
+    {:ok, {_, [{:debug_info, {:debug_info_v1, :elixir_erl, abstract_code}}]}} =
       :beam_lib.chunks(get_beam_path_as_charlist(mod), [:debug_info])
+
     {:ok, _forms} = :elixir_erl.debug_info(:elixir_v1, :module_name, abstract_code, [])
   end
 
@@ -22,7 +44,8 @@ defmodule Gradient.Debug do
   """
   @spec erlang_ast(module()) :: {:ok, [erlang_form()]}
   def erlang_ast(mod) do
-    {:ok, _forms} = get_beam_path_as_charlist(mod) |> Gradient.ElixirFileUtils.get_forms_from_beam()
+    {:ok, _forms} =
+      get_beam_path_as_charlist(mod) |> Gradient.ElixirFileUtils.get_forms_from_beam()
   end
 
   @doc ~S"""