Erlang 让Yecc和Leex工作有困难

我正在尝试创建一个非常简单的DSL，它采用如下格式的字符串

GET /endpoint controller.action1 |> controller.action2

然后把它变成一个

{"GET", "/endpoint", [{controller.action1}, {controller.action2}]}

我的Leex文件如下：

Definitions.

Rules.

GET|PUT|POST|DELETE|PATCH : {token, {method, TokenLine, TokenChars}}.
/[A-Za-z_]+ : {token, {endpoint, TokenLine, TokenChars}}.
[A-Za-z0-9_]+\.[A-Za-z0-9_]+ : {token, {function, TokenLine, splitControllerAction(TokenChars)}}.
\|\>  : {token, {pipe, TokenLine}}.
[\s\t\n\r]+ : skip_token.

Erlang code.
splitControllerAction(A) ->
   [Controller, Action] = string:tokens(A, "."),
   {list_to_atom(Controller), list_to_atom(Action)}.

我的Yecc文件如下所示：

Nonterminals route actionlist elem.
Terminals function endpoint method pipe.
Rootsymbol route.

route -> method endpoint actionlist : {$1, $2, $3}.

actionlist -> elem : [$1].
actionlist -> elem 'pipe' actionlist : [$1 | $3].

elem -> function : $1.

Erlang code.

extract_token({_Token, _Line, Value}) -> _Token;

我得到的输出如下：

2> {ok, Fart, _} = blah:string("GET /asdfdsf dasfadsf.adsfasdf |> adsfsdf.adsfdf").
{ok,[{method,1,"GET"},
     {endpoint,1,"/asdfdsf"},
     {function,1,{dasfadsf,adsfasdf}},
     {pipe,1},
     {function,1,{adsfsdf,adsfdf}}],
    1}
3> blah_parser:parse(Fart).
{ok,{49,50,51}}

---

事实证明，您需要用单引号将

$1

括起来，否则它只会尝试使用ASCII值

-托马斯·格伯特