--- a/compiler/PPCTokenizingConfiguration.st Wed Aug 26 21:41:20 2015 +0100
+++ b/compiler/PPCTokenizingConfiguration.st Wed Aug 26 23:01:00 2015 +0100
@@ -49,16 +49,10 @@
!PPCTokenizingConfiguration methodsFor:'error handling'!
buildParserClazz
- | rootMethod |
-
- rootMethod := (PPCTokenizingCodeGenerator new)
- clazz:context parserClass;
- options:context options;
- visit:ir.
- context parserClass propertyAt:#rootMethod put:rootMethod
+ self runPass: PPCTokenizingCodeGenerator.
"Modified: / 25-08-2015 / 00:07:38 / Jan Vrany <jan.vrany@fit."
- "Modified: / 26-08-2015 / 19:57:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 26-08-2015 / 22:47:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
buildScannerScans
@@ -86,16 +80,10 @@
!
buildScannerTokens
- | generator |
-
- generator := (PPCTokenCodeGenerator new)
- clazz:context scannerClass;
- options:context options;
- yourself.
- generator visit:ir.
+ self runPass: PPCTokenCodeGenerator
"Modified: / 25-08-2015 / 00:04:46 / Jan Vrany <jan.vrany@fit."
- "Modified: / 26-08-2015 / 19:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 26-08-2015 / 22:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
generateParser
@@ -147,10 +135,9 @@
createLL1Choices
self flag:'This phase needs revisit and update'.
- ir := (PPCLL1Visitor new)
- options:context options;
- visit:ir.
- self remember:(self copyTree:ir) as:#LL1
+ self runPass: PPCLL1Visitor
+
+ "Modified: / 26-08-2015 / 22:52:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
tokenize
@@ -160,10 +147,9 @@
context options tokenize ifFalse:[
^ self
].
- ir := (PPCTokenizingVisitor new)
- options:context options;
- visit:ir.
- self remember:(self copyTree:ir) as:#tokenize
+ self runPass: PPCTokenizingVisitor
+
+ "Modified: / 26-08-2015 / 22:48:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
unmarkConsumeTokensForInline