1 "{ Package: 'stx:goodies/petitparser' }"

     2 

     3 TestResource subclass:#PPParserResource

     4 	instanceVariableNames:'parsers'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitTests-Core'

     8 !

     9 

    10 

    11 !PPParserResource methodsFor:'accessing'!

    12 

    13 parserAt: aParserClass

    14 	"Answer a cached instance of aParserClass."

    15 	

    16 	^ parsers at: aParserClass name ifAbsentPut: [ aParserClass new ]

    17 ! !

    18 

    19 !PPParserResource methodsFor:'running'!

    20 

    21 setUp

    22 	super setUp.

    23 	parsers := Dictionary new

    24 ! !

    25 

    26 !PPParserResource class methodsFor:'documentation'!

    27 

    28 version

    29     ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParserResource.st,v 1.3 2012-05-04 22:09:18 vrany Exp $'

    30 !

    31 

    32 version_CVS

    33     ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParserResource.st,v 1.3 2012-05-04 22:09:18 vrany Exp $'

    34 !

    35 

    36 version_SVN

    37     ^ '§Id: PPParserResource.st 4 2010-12-18 17:02:23Z kursjan §'

    38 ! !