// s ::= () => s0
//}
+tibcase {
+ input
+"
+ hello
+ there
+ how
+ { are }
+";
+
+ s ::= { Hello }
+ w ::= " " | "\n"
+ ws !::= w**
+ Hello ::= "hello" ws { "there" ws "how" ws { { "are" } ws } }
+}
+
testcase {
input "ab c";
output "1:{{a b} {c}}";
input "a+(b*c)";
output "+:{{a} *:{{b} {c}}}";
- s ::= R
- R ::= id
- | R ^"*" R
- | R ^"+" R
- | "(" R ")"
+ s ::= r
+ r ::= id
+ | r ^"*" r
+ | r ^"+" r
+ | "(" r ")"
id ::= [a-z]++
}
output "plus:{stringify:{{a}} times:{minus:{stringify:{{b}} stringify:{{d}}} stringify:{{c}}}}";
output "times:{minus:{plus:{stringify:{{a}} stringify:{{b}}} stringify:{{d}}} stringify:{{c}}}";
output "minus:{plus:{stringify:{{a}} stringify:{{b}}} times:{stringify:{{d}} stringify:{{c}}}}";
- s ::= S
w ::= " "
- L ::= id
- S ::= L "=" Q => "assign"
- | Q
- Q ::= id
- | L "=" Q => "assign"
- | Q "-" Q => "minus"
- | Q "+" Q => "plus"
- | Q "*" Q => "times"
- | "(" Q ")"
+ l ::= id
+ s ::= l "=" q => "assign"
+ | q
+ q ::= id
+ | l "=" q => "assign"
+ | q "-" q => "minus"
+ | q "+" q => "plus"
+ | q "*" q => "times"
+ | "(" q ")"
id ::= idl++ => "stringify"
idl ::= [a-d]
}
testcase {
input "a*b*c";
output "times:{stringify:{{a}} times:{stringify:{{b}} stringify:{{c}}}}";
- s ::= S
w ::= " "
- L ::= id
- S ::= L "=" R => "assign"
- | R
- R ::= L
- | L "=" R => "assign"
- | R "+" R => "plus"
- | (R) "*" R => "times"
- | "(" R ")"
- | R R => "times"
+ l ::= id
+ s ::= l "=" r => "assign"
+ | r
+ r ::= l
+ | l "=" r => "assign"
+ | r "+" r => "plus"
+ | (r) "*" r => "times"
+ | "(" r ")"
+ | r r => "times"
id ::= idl++ => "stringify"
idl ::= [a-d]
}
testcase {
input "a+b*c";
output "plus:{stringify:{{a}} times:{stringify:{{b}} stringify:{{c}}}}";
- s ::= S
w ::= " "
- L ::= id
- S ::= L "=" R => "assign"
- | R
- R ::= L
- | L "=" R => "assign"
- | R "+" R => "plus"
- > R "*" R => "times"
- | "(" R ")"
- | R R => "times"
+ l ::= id
+ s ::= l "=" r => "assign"
+ | r
+ r ::= l
+ | l "=" r => "assign"
+ | r "+" r => "plus"
+ > r "*" r => "times"
+ | "(" r ")"
+ | r r => "times"
id ::= idl++ => "stringify"
idl ::= [a-d]
}
indent !::= ww
outdent !::= " " outdent " "
- | " " [~]* "\n"
+ | " " ([~]*) "\n"
any !::= [~]*
-s ::= !any "\n\n" !ww Statement !ww "\n\n" !any => smt
+s ::= !any "\n\n" !ww statement !ww "\n\n" !any => smt
ww ::= sp*
+ws !::= sp**
sp ::= " "
-block ::= "\n" !indent BlockBody
+block ::= "\n" !indent blockBody
&~ "\n" outdent [~\ ] [~]*
-BlockBody ::= Statement
- > Statement BlockBody => "sbb"
+blockBody ::= statement
+ > statement blockBody /ws => "sbb"
-Statement ::= Call
- | ^"while" Expr block
+statement ::= call
+ | ^"while" expr block /ws
-Expr ::= ident
- | Call
- | Expr ^">" Expr
+expr ::= ident
+ | call
+ | expr ^">" expr /ws
| num
-Call ::= Expr "()"
+call ::= expr "()" /ws
num ::= [0-9]++