equal
deleted
inserted
replaced
91 |
91 |
92 "Modified (comment): / 26-08-2015 / 23:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
92 "Modified (comment): / 26-08-2015 / 23:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
93 ! |
93 ! |
94 |
94 |
95 tokenize |
95 tokenize |
96 ^ self at: #tokenize ifAbsent: true |
96 ^ self at: #tokenize ifAbsent: false |
|
97 |
|
98 "Modified: / 04-09-2015 / 15:53:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
97 ! |
99 ! |
98 |
100 |
99 tokenize: aBoolean |
101 tokenize: aBoolean |
100 "Build tokenizing parser, i.e., build scanner that tokenizes the input and then |
102 "Build tokenizing parser, i.e., build scanner that tokenizes the input and then |
101 parser consuming tokens produced by scanner. |
103 parser consuming tokens produced by scanner. |
111 |
113 |
112 "Modified (comment): / 26-08-2015 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
114 "Modified (comment): / 26-08-2015 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
113 ! ! |
115 ! ! |
114 |
116 |
115 !PPCCompilationOptions methodsFor:'options - undocumented (do not use)'! |
117 !PPCCompilationOptions methodsFor:'options - undocumented (do not use)'! |
116 |
|
117 cacheFirstFollow |
|
118 ^ self at: #cacheFirstFollow ifAbsent: true |
|
119 ! |
|
120 |
|
121 cacheFirstFollow: value |
|
122 self set: #cacheFirstFollow to: value. |
|
123 ! |
|
124 |
118 |
125 debug |
119 debug |
126 ^ self at: #debug ifAbsent: true |
120 ^ self at: #debug ifAbsent: true |
127 ! |
121 ! |
128 |
122 |
144 |
138 |
145 guards: value |
139 guards: value |
146 self set: #guards to: value. |
140 self set: #guards to: value. |
147 ! |
141 ! |
148 |
142 |
149 inline |
|
150 ^ self at: #inline ifAbsent: true |
|
151 ! |
|
152 |
|
153 inline: value |
|
154 self set: #inline to: value. |
|
155 ! |
|
156 |
|
157 parserSuperclass |
143 parserSuperclass |
158 ^ self at: #parserSuperclass ifAbsent: nil |
144 ^ self at: #parserSuperclass ifAbsent: nil |
159 |
145 |
160 "Modified: / 01-09-2015 / 08:45:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
146 "Modified: / 04-09-2015 / 16:06:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
161 ! |
147 ! |
162 |
148 |
163 parserSuperclass: value |
149 parserSuperclass: value |
164 self set: #parserSuperclass to: value. |
150 self set: #parserSuperclass to: value. |
165 ! |
151 ! |
176 ^ self at: #scannerSuperclass ifAbsent: PPCDistinctScanner |
162 ^ self at: #scannerSuperclass ifAbsent: PPCDistinctScanner |
177 ! |
163 ! |
178 |
164 |
179 scannerSuperclass: value |
165 scannerSuperclass: value |
180 self set: #scannerSuperclass to: value. |
166 self set: #scannerSuperclass to: value. |
181 ! |
|
182 |
|
183 specialize |
|
184 ^ self at: #specialize ifAbsent: true |
|
185 ! |
|
186 |
|
187 specialize: value |
|
188 self set: #specialize to: value. |
|
189 ! ! |
167 ! ! |
190 |
168 |
191 !PPCCompilationOptions methodsFor:'private'! |
169 !PPCCompilationOptions methodsFor:'private'! |
192 |
170 |
193 at: symbol ifAbsent: defaultValue |
171 at: symbol ifAbsent: defaultValue |