X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fmeta.g;h=29663f7c4b2c91898c8372df2d7bf1dd5e942b27;hp=4c02201f885069539b024d8ad789a290e8297391;hb=c1325de42a4ddfad3ff9b10bfdda11078e38e8a6;hpb=548a4a1afc3c2f2a521f0b564925aa92adfbe557 diff --git a/tests/meta.g b/tests/meta.g index 4c02201..29663f7 100644 --- a/tests/meta.g +++ b/tests/meta.g @@ -1,26 +1,31 @@ s ::= w* Grammar w* => "gram" +ws !::= w* +grammar ::= R+/ws => "grammar" Grammar ::= R+ => "grammar" -R ::= word ^"::=" Sequence - | word ^"!::=" Sequence +R ::= word ^"::=" Alternatives + | word ^"!::=" Alternatives ec ::= [~\]\\\-\~] | escaped -Sequence ::= Class +/ ">" -Class ::= Rewrite +/ "|" => "alternatives" +Alternatives ::= EquiAlt +/ ">" +EquiAlt ::= Conjuncts +/ "|" => "alternatives" -Rewrite ::= Rewritex - | Rewritex ^"&" E+ - | Rewritex ^"&~" E+ +Sequence ::= E+ ^"/" E + > E+ -Rewritex ::= E+ => "rewrite" - | E+ ^"=>" word - | E+ ^"=>" quoted - | E+ "=>" "()" => "wrap" +Conjuncts ::= Rewrite + | Rewrite ^"&" Sequence + | Rewrite ^"&~" Sequence + +Rewrite ::= Sequence => "rewrite" + | Sequence ^"=>" word + | Sequence ^"=>" quoted + | Sequence "=>" "()" => "wrap" range ::= ec => "range0" | ec ^"-" ec => "range0" E ::= word => "nonTerminalY" | [(][)] => "epsilon" - | ^"{" Sequence "}" + | ^"{" Alternatives "}" | "[" [\~]? range* "]" => "range" | E ^"*/" E | E ^"+/" E @@ -39,7 +44,7 @@ E ::= word => "nonTerminalY" | (E ^"++" > E ^"+") | "(" word ^")" - > ^"(" Sequence ")" + > ^"(" Alternatives ")" w !::= " " | "//" [~\n]* "\n"