動的に関数節を生成する

Question

ユーザの設定に基づいて関数節を動的に生成する必要があります。

@atoms ~w|foo bar baz|a 

はconfig.exs、たとえば、から：明確にするために、私はアトムのリストを持っている想像してみてください。私に必要なのは（MCVEが単純化が、それは私が実際に必要なものに印象を与えている）、この関数を生成することです：

@checker fn 
    {:foo, _} -> false 
    {:bar, _} -> false 
    {:baz, _} -> false 
    _ -> true 
end 

私が現在やっていることは次のとおりです。

@clauses Enum.map(@atoms, fn tag -> 
    {:->, [], [[{:{}, [], [tag, {:_, [], Elixir}]}], false]} 
end) ++ [{:->, [], [[{:_, [], Elixir}], true]}] 

defmacrop checker, do: {:fn, [], @clauses} 

それはかなり動作しますしかし、私は何かを単純に欠けて、ものを過度に複製していると思う。だから私の質問は：

コンパイル時に関数節を生成する簡単な方法はありますか？

Answer 1

私はquoteを使用して、より読みやすい（詳細については下記を参照）、ややそれを作った：

defmodule A do 
    @atoms ~w|foo bar baz|a 
    @clauses Enum.flat_map(@atoms, fn tag -> 
    quote do: ({unquote(tag), _} -> false) 
    end) ++ quote(do: (_ -> true)) 

    defmacro checker, do: {:fn, [], @clauses} 
end 

defmodule B do 
    require A 
    f = A.checker 
    IO.inspect f.({:foo, :ok}) 
    IO.inspect f.({:bar, :ok}) 
    IO.inspect f.({:baz, :ok}) 
    IO.inspect f.({:quux, :ok}) 
end 

出力：

false 
false 
false 
true 

---

を私は仕事にquote(do: a -> b)を期待し、それはパースエラーです今すぐリストの中に望む引用されたフラグメントをラップするquote(do: (a -> b))を実行する必要があります。

がquoteの場合はfnの内部で動作するとも期待していましたが、それもありません。

iex(1)> quote do 
...(1)> fn 
...(1)>  unquote() 
...(1)>  _ -> true 
...(1)> end 
...(1)> end 
** (SyntaxError) iex:2: expected clauses to be defined with -> inside: 'fn' 

私はこれらの2つがバグであるか、欠落していると考えています。