Craig Everett
dbab49936d
All checks were successful
Sophia Tests / tests (push) Successful in 48m54s
A few references to oracles still remain, but they have been removed as a feature, at least. Reviewed-on: #985 Reviewed-by: Ulf Wiger <ulfwiger@qpq.swiss> Co-authored-by: Craig Everett <zxq9@zxq9.com> Co-committed-by: Craig Everett <zxq9@zxq9.com>
28 lines
1.5 KiB
Erlang
28 lines
1.5 KiB
Erlang
|
|
-define(LET_P(X, P, Q), so_parse_lib:bind(P, fun(X) -> Q end)).
|
|
-define(LAZY_P(P), so_parse_lib:lazy(fun() -> P end)).
|
|
-define(MEMO_P(P), so_parse_lib:lazy(so_parse_lib:memoised(fun() -> P end))).
|
|
|
|
-define(GUARD_P(G, P),
|
|
case G of
|
|
true -> P;
|
|
false -> fail()
|
|
end).
|
|
|
|
-define(RULE(A, Do), map(fun(_1) -> Do end, A )).
|
|
-define(RULE(A, B, Do), map(fun({_1, _2}) -> Do end, {A, B} )).
|
|
-define(RULE(A, B, C, Do), map(fun({_1, _2, _3}) -> Do end, {A, B, C} )).
|
|
-define(RULE(A, B, C, D, Do), map(fun({_1, _2, _3, _4}) -> Do end, {A, B, C, D} )).
|
|
-define(RULE(A, B, C, D, E, Do), map(fun({_1, _2, _3, _4, _5}) -> Do end, {A, B, C, D, E} )).
|
|
-define(RULE(A, B, C, D, E, F, Do), map(fun({_1, _2, _3, _4, _5, _6}) -> Do end, {A, B, C, D, E, F} )).
|
|
-define(RULE(A, B, C, D, E, F, G, Do), map(fun({_1, _2, _3, _4, _5, _6, _7}) -> Do end, {A, B, C, D, E, F, G} )).
|
|
-define(RULE(A, B, C, D, E, F, G, H, Do), map(fun({_1, _2, _3, _4, _5, _6, _7, _8}) -> Do end, {A, B, C, D, E, F, G, H})).
|
|
|
|
-import(so_parse_lib,
|
|
[tok/1, tok/2, between/3, many/1, many1/1, sep/2, sep1/2,
|
|
infixl/1, infixr/1, choice/1, choice/2, return/1, layout/0,
|
|
fail/0, fail/1, fail/2, map/2, infixl/2, infixr/2, infixl1/2, infixr1/2,
|
|
left/2, right/2, optional/1]).
|
|
|
|
|