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

"{ NameSpace: Smalltalk }"

PPParser subclass:#PPListParser

	instanceVariableNames:'parsers'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitParser-Parsers'

!

!PPListParser class methodsFor:'instance creation'!

with: aParser

	^ self withAll: (Array with: aParser)

!

with: aFirstParser with: aSecondParser

	^ self withAll: (Array with: aFirstParser with: aSecondParser)

!

withAll: aCollection

	^ self basicNew setParsers: aCollection

! !

!PPListParser methodsFor:'*petitanalyzer-matching'!

copyInContext: aDictionary seen: aSeenDictionary

	| copy copies |

	aSeenDictionary at: self ifPresent: [ :value | ^ value ].

	copy := aSeenDictionary at: self put: self copy.

	copies := OrderedCollection new.

	parsers do: [ :each |

		| result |

		result := each 

			copyInContext: aDictionary

			seen: aSeenDictionary.

		result isCollection

			ifTrue: [ copies addAll: result ]

			ifFalse: [ copies add: result ] ].

	^ copy

		setParsers: copies;

		yourself

! !

!PPListParser methodsFor:'*petitanalyzer-transforming'!

replace: aParser with: anotherParser

	super replace: aParser with: anotherParser.

	parsers keysAndValuesDo: [ :index :parser |

		parser == aParser

			ifTrue: [ parsers at: index put: anotherParser ] ]

! !

!PPListParser methodsFor:'accessing'!

children

	^ parsers

! !

!PPListParser methodsFor:'copying'!

copyWith: aParser

	^ self species withAll: (parsers copyWith: aParser)

! !

!PPListParser methodsFor:'copying-private'!

postCopy

	super postCopy.

	parsers := parsers copy

! !

!PPListParser methodsFor:'initialization'!

initialize

	super initialize.

	self setParsers: #()

!

setParsers: aCollection

	parsers := aCollection asArray

! !

!PPListParser class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

!

version_SVN

    ^ '$Id$'

! !