checkpoint
[sbp.git] / tests / meta.g
index 7dff3eb..349be33 100644 (file)
@@ -4,7 +4,7 @@ NonTerminal ::=  word  ^"::=" RHS /ws
 
 w        ::= " " | "\n" | "\r"
 ws        ::=  w** => ()
-            |  w** "//" (~[\n]*) "\n" ws => ()
+            |  w** "//" ~[\n]* "\n" ws => ()
 wp        ::=  w++
 
 RHS        ::=  (Conjuncts +/ (!ws "|" !ws)) +/ (!ws ">" !ws)
@@ -36,10 +36,14 @@ e        ::=  word                          => "nonTerminal"
            |    ^"{" Sequence "}"       /ws
            |    ^"["  Range* "]"
 
-           |  (e ^"++"    /ws > e ^"+"    /ws)
-           |  (e ^"++/" e /ws > e ^"+/" e /ws)
-           |  (e ^"**"    /ws > e ^"*"    /ws)
-           |  (e ^"**/" e /ws > e ^"*/" e /ws)
+           |  e ^"++"                   /ws -> ~[/]
+           |  e ^"+"                    /ws -> ~[+]
+           |  e ^"++/" e                /ws        
+           |  e ^"+/"  e                /ws        
+           |  e ^"**"                   /ws -> ~[/]
+           |  e ^"*"                    /ws -> ~[*]
+           |  e ^"**/" e                /ws        
+           |  e ^"*/"  e                /ws        
            |  ^"!" e                    /ws
            |  e ^"?"                    /ws