//testcase {
// input "x";
-// output "a1:{x}";
+// output "a:{x}";
//
// s = a1:: a
// a = s1:: s
//}
testcase {
+ input "aaaaa";
+ s = A
+ A = "a" s &~ "a" A
+ | "a" A &~ "a" s
+}
+
+//testcase {
+// input "a";
+// output "yes:{}";
+// s = A
+// A = "a" s &~ "a" A
+// | "a" A &~ "a" s
+// | ()
+//}
+
+testcase {
input "ab c";
output "1:{{a b} {c}}";
s = ids
- ids = "1":: id (" " ids &~ id ~[]*)
- | "2":: id ( ids &~ id ~[]*)
+ ids = "1":: id (" " ids &~ id ((~[])*)!)
+ | "2":: id ( ids &~ id ((~[])*)!)
| id
id = [a-z]++
}
}
testcase {
- input "12111211";
- output "ac:{{2 1 2 1}}";
- //output "a:{{2 1 2 1}}";
- //output "c:{{c:{1 1} c:{1 1}}}";
-
- s = ab:: ab
- | ac:: ac
- | bc:: bc
- //| a => "a"
- //| b => "b"
- //| c => "c"
- ab = a & b
- ac = a & c
- bc = b & c
- a = ("1" x)*
- b = ("b":: x "2")*
- c = ("c":: x "2" x "1")*
- x = [123]
-}
-
-testcase {
input "qxbambambam";
- output "bam:{a bam:{a bam:{a x:{x}}}}";
+ output "bam:{a bam:{a bam:{a x}}}";
s = "q" z
z = a z ^"bam"
- z = ^"x"
+ | ^"x"
a = a:: ()
}
s = ^"q" x "q"
x = ^"a" a
- x = epsilon:: ()
+ | epsilon:: ()
a = s1:: x
}
output "s:{aa:{aa:{a b} b}}";
s = s:: "b" a
a = aa:: "a" a b
- a = a:: ()
+ | a:: ()
b = b:: ()
}
input "aaab";
output "sx:{b aa:{aa:{b b} b}}";
s = sx:: b d "a" "b"
- s = sy:: "a" d "a" d
+ | sy:: "a" d "a" d
d = aa:: "a" a b
a = aa:: "a" b b
- a = a:: ()
+ | a:: ()
b = b:: ()
}
indent = ww
outdent = " " outdent " "
- | " " (~[]*) "\n"
+ | " " ((~[])*) "\n"
w = " " | "\n" | "\r"
ws = w*
ww = sp*
sp = " "
-any = ~[]*
+any = (~[])*
-s = smt:: !ws statement !ws statement !ws
+s = smt:: ws! statement ws! statement ws!
-block = !"\n" !indent blockBody
- &~ !"\n" !outdent !(~[\ ]) !(~[]*)
+block = "\n"! indent! blockBody
+ &~ "\n"! (" " outdent! " ") (~[\ ])! ((~[])*)!
blockBody = statement
> sbb:: statement ws blockBody
s = s2:: q " "*
q = a3:: [a-z] [a-z] [a-z]
- &~ ~[] "b" ~[]*
+ &~ (~[])! "b" ((~[])*)!
}
testcase {
testcase {
input "aaaaa";
output "top:{a q:{{a a a}} a}";
+
s = top:: z (q::"a"*) z
z = a:: "a"
}
Expr = if:: "if" "(" Expr ")" IfBody /ws
| ident:: [a-z]++
IfBody = else:: Expr "else" Expr /ws
- | then:: Expr &~ (~[]* "else" !Expr /ws)
+ | then:: Expr &~ ((~[])* "else" Expr! /ws)
ws = [ ]**
}
+
+testcase {
+ input "12111211";
+ output "ac:{{2 1 2 1}}";
+ //output "a:{{2 1 2 1}}";
+ //output "c:{{c:{1 1} c:{1 1}}}";
+
+ s = ab:: ab
+ | ac:: ac
+ | bc:: bc
+ //| a => "a"
+ //| b => "b"
+ //| c => "c"
+ ab = a & b
+ ac = a & c
+ bc = b & c
+ a = ("1" x)*
+ b = ("b":: x "2")*
+ c = ("c":: x "2" x "1")*
+ x = [123]
+}
+
+
+//testcase {
+// input "ab";
+//
+// s = a:"a" b:"b"
+//}
+