compiler/tests/extras/PPCompiledSmalltalkGrammarResource.st
changeset 502 1e45d3c96ec5
parent 459 4751c407bb40
equal deleted inserted replaced
464:f6d77fee9811 502:1e45d3c96ec5
    12 !PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
    12 !PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
    13 
    13 
    14 setUp
    14 setUp
    15     | time configuration |
    15     | time configuration |
    16     configuration := PPCConfiguration universal.
    16     configuration := PPCConfiguration universal.
    17     configuration arguments name:#PPCompiledSmalltalkGrammar.
    17     configuration arguments parserName:#PPCompiledSmalltalkGrammar.
    18     
    18     
    19     time := Time millisecondsToRun: [
    19     time := Time millisecondsToRun: [
    20         PPSmalltalkGrammar new compileWithConfiguration: configuration.
    20         PPSmalltalkGrammar new compileWithConfiguration: configuration.
    21     ].
    21     ].
    22     Transcript show: 'Smalltalk Grammar compiled in: '; show: time asString; show: 'ms'; cr.
    22     Transcript show: 'Smalltalk Grammar compiled in: '; show: time asString; show: 'ms'; cr.