case.ex

defmodule M do
  defp cases do
    [quote do 0 -> 0 end]
    ++ [quote do 1 -> 2 end, quote do 3 -> 4 end] |> :lists.flatten
  end

  defmacrop make_case do
    IO.inspect cases

    q = quote do
      case var!(x) do
        unquote(cases)
      end |> IO.inspect
    end
    q |> Macro.to_string |> IO.puts
    q
  end

  def test(x) do
    make_case
  end
end