idl ::= [a-d]
}
-//testcase {
-//
-// input "
-//
-//
-// while x>0
-// while y>0
-// foo()
-// bar()
-//
-// while x>0
-// while y>0
-// foo()
-// bar()
-//
-//
-//";
-// output "smt:{while:{>:{{x} {0}} while:{>:{{y} {0}} sbb:{{f o o} {b a r}}}}}";
-// output "smt:{while:{>:{{x} {0}} sbb:{while:{>:{{y} {0}} {f o o}} {b a r}}}}";
-//
-//indent !::= ww
-//outdent !::= " " outdent " "
-// | " " (~[]*) "\n"
-//
-//any !::= ~[]*
-//s ::= any "\n\n" ww statement ww "\n\n" any => smt
-//ww !::= sp*
-//ws !::= sp**
-//sp ::= " "
-//
-//block ::= "\n" indent blockBody
-// &~ "\n" outdent ~[\ ] ~[]*
-//
-//blockBody ::= statement
-// > statement blockBody /ws => "sbb"
-//
-//statement ::= call
-// | ^"while" expr block /ws
-//
-//expr ::= ident
-// | call
-// | expr ^">" expr /ws
-// | num
-//
-//call ::= expr "()" /ws
-//
-//num ::= [0-9]++
-//
-//ident ::= [a-z]++ &~ keyword
-//keyword ::= "if" | "then" | "else" | "while"
-//
-//w ::= " " | "\n" | "\r"
-//ws ::= w*
-//
-//
-//}
-
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
+}
+
+testcase {
+
+ input "
+
+
+ while x>0
+ while y>0
+ foo()
+ bar()
+
+ while x>0
+ while y>0
+ foo()
+ bar()
+
+
+";
+ output "smt:{while:{>:{{x} {0}} while:{>:{{y} {0}} sbb:{{f o o} {b a r}}}}}";
+ output "smt:{while:{>:{{x} {0}} sbb:{while:{>:{{y} {0}} {f o o}} {b a r}}}}";
+
+indent !::= ww
+outdent !::= " " outdent " "
+ | " " (~[]*) "\n"
+
+any !::= ~[]*
+s ::= any "\n\n" ww statement ww "\n\n" any => smt
+ww !::= sp*
+ws !::= sp**
+sp ::= " "
+
+block ::= "\n" indent blockBody
+ &~ "\n" outdent ~[\ ] ~[]*
+
+blockBody ::= statement
+ > statement blockBody /ws => "sbb"
+
+statement ::= call
+ | ^"while" expr block /ws
+
+expr ::= ident
+ | call
+ | expr ^">" expr /ws
+ | num
+
+call ::= expr "()" /ws
+
+num ::= [0-9]++
+
+ident ::= [a-z]++ &~ keyword
+keyword ::= "if" | "then" | "else" | "while"
+
+w ::= " " | "\n" | "\r"
+ws ::= w*
+
+
+}