1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
use core:debug;
use core:io;
use core:lang;
// Type for storing a sentence.
class Statement {
Str noun;
Str verb;
init(Str noun, Str verb) {
init() {
noun = noun;
verb = verb;
}
}
Str toS() {
"Statement: " # noun # ", " # verb;
}
}
void testSimple() on Compiler {
Str s = "bird";
Parser<Noun> parser;
parser.parse(s, Url());
if (parser.hasError)
parser.throwError;
}
Bool testSentence() on Compiler {
Str s = "do birds fly?";
Parser<Sentence> parser;
parser.parse(s, Url());
if (parser.hasError)
parser.throwError;
var tfm = parser.tree.transform();
"Statement: bird, fly" == tfm.toS;
}
Str testManualTfm(Str s) on Compiler {
Parser<Sentence> parser;
parser.parse(s, Url());
if (parser.hasError)
parser.throwError;
Sentence tree = parser.tree();
if (tree as PluralAssert) {
return "Plural " + tree.noun.transform();
} else if (tree as SingularAssert) {
return "Singular " + tree.noun.transform();
} else if (tree as Question) {
return "Question " + tree.noun.transform();
} else {
return "Unknown";
}
}
Bool testMaybe() on Compiler {
Str s = "do birds fly?";
Parser<EmptySentence> parser;
parser.parse(s, Url());
var tree = parser.tree;
Statement? tfm = tree.transform;
if (tfm) {
"Statement: bird, fly" == tfm.toS;
} else {
false;
}
}
Bool testArray() on Compiler {
Str s = "do birds fly? do cats sleep?";
Parser<Paragraph> parser;
parser.parse(s, Url());
Statement[] tfm = parser.tree.transform;
"[Statement: bird, fly, Statement: cat, sleep]" == tfm.toS;
}
Bool testCall() on Compiler {
Str s = "do birds fly? do cats sleep?";
Parser<ParCall> parser;
parser.parse(s, Url());
Statement[] tfm = parser.tree.transform;
"[Statement: bird, fly, Statement: cat, sleep]" == tfm.toS;
}
Bool testCallMaybe() on Compiler {
Str s = "do birds fly? do cats sleep?";
Parser<MaybeCall> parser;
parser.parse(s, Url());
Statement[] tfm = parser.tree.transform;
"[Statement: bird, fly, Statement: cat, sleep]" == tfm.toS;
}
Nat testRaw() on Compiler {
Str s = "do birds fly? do cats sleep?";
Parser<RawSentence> parser;
parser.parse(s, Url());
Sentence[] tfm = parser.tree.transform;
tfm.count;
}
Nat testRawCall() on Compiler {
Str s = "do birds fly? do cats sleep?";
Parser<RawCall> parser;
parser.parse(s, Url());
Sentence[] tfm = parser.tree.transform;
tfm.count;
}
Bool testCapture() on Compiler {
Str s = "(fly bird)";
Parser<Capture> parser;
parser.parse(s, Url());
Str tfm = parser.tree.transform;
"fly bird" == tfm;
}
Bool testRawCapture() on Compiler {
Str s = "(fly bird)";
Parser<RawCapture> parser;
parser.parse(s, Url());
SStr tfm = parser.tree.transform;
"fly bird" == tfm.v;
}
void testParams() on Compiler {
Str s = "a : fly bird";
Parser<PrefixWords> parser;
parser.parse(s, Url());
StrBuf[] tfm = parser.tree.transform;
"[a fly, a bird]" == tfm.toS();
}
|
