Inline child of an action node only is its unnamed sequence node.
Named nodes should not be inlined as they should make a method.
There's little point in inlining non-sequence nodes, so don't enforce
inlining on those. Some (JK :-) may prefer them non-inlined (for
debugging purposes)
"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"
"{ NameSpace: Smalltalk }"
TestResource subclass:#PPTokenizedSmalltalkGrammarResource
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Extras-Tests-Smalltalk'
!
!PPTokenizedSmalltalkGrammarResource methodsFor:'as yet unclassified'!
setUp
| time configuration |
configuration := PPCConfiguration tokenizing.
configuration arguments parserName:#PPTokenizedSmalltalkGrammar.
time := Time millisecondsToRun: [
PPSmalltalkGrammar new compileWithConfiguration: configuration.
].
Transcript show: 'Smalltalk Grammar tokenized in: '; show: time asString; show: 'ms'; cr.
"Modified: / 10-05-2015 / 07:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
tearDown
| parserClass |
super tearDown.
parserClass := (Smalltalk at: #PPTokenizedSmalltalkGrammar ifAbsent: [nil]).
self flag: 'uncomment:'.
"
parserClass notNil ifTrue:[
parserClass removeFromSystem
].
"
! !
!PPTokenizedSmalltalkGrammarResource class methodsFor:'documentation'!
version_HG
^ '$Changeset: <not expanded> $'
! !