X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fmeta.g;h=f709a77bddf1564ba243bb56a6f4a23d185cef8e;hp=17bff83369eff4aaf29d6bc44297c8a2c04e8ff7;hb=be24ec463cd9a9a4f907c5a6167d8029726753ea;hpb=99a413e60cd7eb76e677d03f602941325864a1e1 diff --git a/tests/meta.g b/tests/meta.g index 17bff83..f709a77 100644 --- a/tests/meta.g +++ b/tests/meta.g @@ -1,21 +1,21 @@ s ::= ws grammar ws => "gram" ws !::= w** -grammar ::= r $$ ws => "grammar" +grammar ::= r +/ ws => "grammar" r ::= word ^"::=" alternatives /ws | word ^"!::=" alternatives /ws -alternatives ::= equiAlt $$ (ws ">" ws) -equiAlt ::= conjuncts $$ (ws "|" ws) => "alternatives" +alternatives ::= equiAlt +/ (ws ">" ws) +equiAlt ::= conjuncts +/ (ws "|" ws) => "alternatives" sequence ::= es > es ws ^"/" e -es ::= e %% (w**) +es ::= e */ (w**) ss ::= es | es ^"/" e /ws conjuncts ::= rewrite - | rewrite ^"&" e%%ws /ws - | rewrite ^"&~" e%%ws /ws + | rewrite ^"&" e*/ws /ws + | rewrite ^"&~" e*/ws /ws rewrite ::= sequence /ws => "rewrite" | sequence ^"=>" word /ws @@ -25,16 +25,16 @@ rewrite ::= sequence /ws => "rewrite" ec ::= [~\-\]\\\~] | escaped -range ::= ec => "range0" - | ec ^"-" ec => "range1" +range ::= ec => "range" + | ec ^"-" ec e ::= word => "nonTerminalY" | [(][)] => "epsilon" | ^"{" alternatives "}" /ws - | "[" (range*) "]" => "range" - | "[~" (range*) "]" => "rangex" - | e ^"%%" e /ws - | e ^"$$" e /ws + | "[" (range*) "]" => "ranges" + | "[~" (range*) "]" => "rangesx" + | e ^"+/" e /ws + | e ^"*/" e /ws | e ^"?" /ws | e ^"~/~" /ws