X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fmeta.g;h=845af526ba34d8b783b90952d02cc06927073819;hp=d8353a6af910c65d699e57c8c7c9f76e3e30bbe7;hb=225993309e6183afa9a88fc13d39df56be54b992;hpb=f283ebfd51424e761bea2dd5b3042cf765ca9ee6 diff --git a/tests/meta.g b/tests/meta.g index d8353a6..845af52 100644 --- a/tests/meta.g +++ b/tests/meta.g @@ -1,12 +1,13 @@ +Grammar = NonTerminal +/ ws +s = !ws (grammar::Grammar) !ws +NonTerminal = Word ^"=" RHS /ws // use 'a'-'z' or 'a-z' instead of [a-z]? // EOF token? // #include (with renaming?) // ANTLR uses ! and ^ suffixes -s = !ws (grammar::Grammar) !ws -Grammar = NonTerminal +/ ws -NonTerminal = Word ^"=" RHS /ws +blah = "Grammar" RHS = (Sequence +/ (!ws "|" !ws)) +/ (!ws ">" !ws) @@ -27,12 +28,11 @@ ec = ~[\-\]\\] Range = range:: ec | ec ^"-" ec -e =// (Quoted|Word) ^":" e -// > - nonTerminal:: Word +e = (Quoted|Word) ^":" e + > nonTerminal:: Word | literal:: Quoted | ^"()" - | ^"{" PreSequence "}" /ws + | ^"{" PreSequence "}" /ws | ^"[" Range* "]" | e ^"++" /ws -> ~[/] | e ^"+" /ws -> ~[+] @@ -48,7 +48,7 @@ e =// (Quoted|Word) ^":" e | "(" Word ^")" /ws > ^"(" RHS ")" /ws | ^"~" e - > "^^":: "^" e + > "^^":: "^" e Word = [a-zA-Z0-9_]++ Quoted = "\"" ((~[\"\\] | escaped)+) "\"" @@ -59,5 +59,5 @@ escaped = "\n":: "\\n" w = " " | "\n" | "\r" ws = "()":: w** - | "()":: w** "//" ~[\n]* "\n" ws + | "()":: w** "//" (~[\n])* "\n" ws wp = w++