1 "{ Package: 'squeak: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_SVN

    29     ^ '$Id: PPParserResource.st,v 1.1 2011-08-18 18:56:17 cg Exp $'

    30 ! !