projects
/
sbp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
integermappable
[sbp.git]
/
tests
/
regression.tc
diff --git
a/tests/regression.tc
b/tests/regression.tc
index
6196b48
..
e2ae422
100644
(file)
--- a/
tests/regression.tc
+++ b/
tests/regression.tc
@@
-19,29
+19,13
@@
// s ::= () => s0
//}
// s ::= () => s0
//}
-tibcase {
- input
-"
- hello
- there
- how
- { are }
-";
- output "yep";
-
- s ::= { Hello } => "yep"
- w ::= " " | "\n"
- ws !::= w**
- Hello ::= "hello" ws { ws "there" ws "how" ws { { "are" } ws } }
-}
-
testcase {
input "ab c";
output "1:{{a b} {c}}";
s ::= ids
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]++
}
| id
id ::= [a-z]++
}
@@
-61,11
+45,11
@@
testcase {
testcase {
input "aaabbbccc";
testcase {
input "aaabbbccc";
- output "";
+ output "ab";
s ::= ab & dc
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 | ()
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
@@
-76,8
+60,8
@@
testcase {
input "aaabbbbccc";
s ::= ab & dc
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 | ()
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
@@
-106,11
+90,12
@@
testcase {
}
testcase {
}
testcase {
- input "xbambambam";
- output "bam:{a bam:{a bam:{a x}}}";
+ input "qxbambambam";
+ output "bam:{a bam:{a bam:{a x:{x}}}}";
- s ::= a s ^"bam"
- s ::= ^"x"
+ s ::= "q" z
+ z ::= a z ^"bam"
+ z ::= ^"x"
a ::= () => "a"
}
a ::= () => "a"
}
@@
-262,40
+247,53
@@
testcase {
}
testcase {
}
testcase {
+ input "aa bb";
+ output "{q:{{a a}} q:{{b b}}}";
+
+ s ::= q */ ws
+ ws ::= " "*
+ q ::= [a-z]++ => "q"
+}
+
+testcase {
input "
input "
+
while x>0
while x>0
- while y>0
- foo()
- bar()
+ while y>0
+ foo()
+ bar()
+
while x>0
while x>0
- while y>0
- foo()
- bar()
+ 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}}}}";
+ output "smt:{while:{>:{{x} {0}} while:{>:{{y} {0}} sbb:{{f o o} {b a r}}}} while:{>:{{x} {0}} sbb:{while:{>:{{y} {0}} {f o o}} {b a r}}}}";
indent !::= ww
outdent !::= " " outdent " "
indent !::= ww
outdent !::= " " outdent " "
- | " " ([~]*) "\n"
+ | " " (~[]*) "\n"
+
+w !::= " " | "\n" | "\r"
+ws !::= w*
+ww !::= sp*
+sp !::= " "
+any !::= ~[]*
-any !::= [~]*
-s ::= !any "\n\n" !ww statement !ww "\n\n" !any => smt
-ww ::= sp*
-ws !::= sp**
-sp ::= " "
+s ::= ws statement ws statement ws => smt
-block ::= "\n" !indent blockBody
- &~ "\n" outdent [~\ ] [~]*
+block ::= "\n" indent blockBody
+ &~ "\n" outdent ~[\ ] ~[]*
blockBody ::= statement
blockBody ::= statement
- > statement blockBody /ws => "sbb"
+ > statement ws blockBody => "sbb"
statement ::= call
| ^"while" expr block /ws
statement ::= call
| ^"while" expr block /ws
@@
-312,8
+310,6
@@
num ::= [0-9]++
ident ::= [a-z]++ &~ keyword
keyword ::= "if" | "then" | "else" | "while"
ident ::= [a-z]++ &~ keyword
keyword ::= "if" | "then" | "else" | "while"
-w ::= " " | "\n" | "\r"
-ws ::= w*
}
}