X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fmeta.g;h=f709a77bddf1564ba243bb56a6f4a23d185cef8e;hp=5103b5b652301fedb6b77c8a2b28b1fa8fde3014;hb=be24ec463cd9a9a4f907c5a6167d8029726753ea;hpb=8e641de44000b55b2451bdaee56b4e31f077b25b diff --git a/tests/meta.g b/tests/meta.g index 5103b5b..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,14 @@ 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