hello
there
how
- { are }
+ { are }
";
- output "yep";
+ output "yep:{are}";
s ::= { Hello } => "yep"
w ::= " " | "\n"
ws !::= w**
- Hello ::= "hello" ws { "there" "how" { { "are" } } }
+ Hello ::= "hello" ws { "there" "how" { "are" } }
}
+
testcase {
input "ab c";
output "1:{{a b} {c}}";
s ::= ids
- ids ::= id (" " ids &~ id [~]*) => "1"
- | id ( ids &~ id [~]*) => "2"
+ ids ::= id (" " ids &~ id ~[]*) => "1"
+ | id ( ids &~ id ~[]*) => "2"
| id
id ::= [a-z]++
}
testcase {
input "aaabbbccc";
- output "";
+ output "ab";
s ::= ab & dc
- ab ::= a b
- dc ::= d c
+ ab ::= a b => ab
+ dc ::= d c => dc
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
input "aaabbbbccc";
s ::= ab & dc
- ab !::= a b
- dc !::= d c
+ ab !::= a b => ab
+ dc !::= d c => dc
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
testcase {
input "xbambambam";
- output "bam:{a bam:{a bam:{a x}}}";
+ output "bam:{a bam:{a bam:{a x:{x}}}}";
s ::= a s ^"bam"
s ::= ^"x"
indent !::= ww
outdent !::= " " outdent " "
- | " " ([~]*) "\n"
+ | " " (~[]*) "\n"
-any !::= [~]*
+any !::= ~[]*
s ::= any "\n\n" ww statement ww "\n\n" any => smt
ww !::= sp*
ws !::= sp**
sp ::= " "
block ::= "\n" indent blockBody
- &~ "\n" outdent [~\ ] [~]*
+ &~ "\n" outdent ~[\ ] ~[]*
blockBody ::= statement
> statement blockBody /ws => "sbb"
}
+
+testcase {
+ input "aa bb";
+ output "{q:{{a a}} q:{{b b}}}";
+
+ s ::= q */ ws
+ ws ::= " "*
+ q ::= [a-z]++ => "q"
+}
\ No newline at end of file