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