equal
deleted
inserted
replaced
43 ((self compilerConfiguration isKindOf: PPCTokenizingConfiguration) ifTrue:[ 'Tokenizing' ] ifFalse:[ 'Universal' ])) asSymbol |
43 ((self compilerConfiguration isKindOf: PPCTokenizingConfiguration) ifTrue:[ 'Tokenizing' ] ifFalse:[ 'Universal' ])) asSymbol |
44 |
44 |
45 "Created: / 29-07-2015 / 16:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
45 "Created: / 29-07-2015 / 16:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46 ! |
46 ! |
47 |
47 |
|
48 compiledScannerClassName |
|
49 "Return the name of the compiled scanner" |
|
50 |
|
51 ^ (self petitParserClass name , 'C_Scanner') asSymbol |
|
52 ! |
|
53 |
48 compilerConfiguration |
54 compilerConfiguration |
49 "Return configuration to use when compiling parser (as instance of PPCConfiguration)" |
55 "Return configuration to use when compiling parser (as instance of PPCConfiguration)" |
50 |
56 |
51 ^ self subclassResponsibility |
57 ^ self subclassResponsibility |
52 |
58 |
88 "Called before any of my tests is run (when resources are set up)" |
94 "Called before any of my tests is run (when resources are set up)" |
89 | time configuration | |
95 | time configuration | |
90 |
96 |
91 configuration := self compilerConfiguration. |
97 configuration := self compilerConfiguration. |
92 configuration arguments parserName: self compiledParserClassName. |
98 configuration arguments parserName: self compiledParserClassName. |
|
99 configuration arguments scannerName: self compiledScannerClassName. |
|
100 |
93 time := Time millisecondsToRun: [ |
101 time := Time millisecondsToRun: [ |
94 self petitParser compileWithConfiguration: configuration. |
102 self petitParser compileWithConfiguration: configuration. |
95 ]. |
103 ]. |
96 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
104 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
97 |
105 |