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

PPDelegateParser subclass:#PPMemoizedParser

	instanceVariableNames:'stream buffer'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitParser-Parsers'

!

PPMemoizedParser comment:'A memoized parser, for refraining redundant computations.

Instance Variables:

	stream  <PositionableStream>    The stream of the associated memento objects.

	buffer  <Array of: PPMemento>   The buffer of memento objects.

'

!

!PPMemoizedParser methodsFor:'operations'!

memoized

	"Ther is no point in memoizing more than once."

	^ self

! !

!PPMemoizedParser methodsFor:'parsing'!

parseOn: aStream

	| memento |

	stream == aStream

		ifFalse: [ self reset: aStream ].

	memento := (buffer at: stream position + 1)

		ifNil: [ buffer at: stream position + 1 put: PPMemento new ].

	memento position isNil

		ifTrue: [

			memento result: (stream size - stream position + 2 < memento count

				ifTrue: [ PPFailure message: 'overflow' at: stream position ]

				ifFalse: [ memento increment. parser parseOn: stream ]).

			memento position: stream position ]

		ifFalse: [ stream position: memento position ].

	^ memento result

! !

!PPMemoizedParser methodsFor:'private'!

reset: aStream

	stream := aStream.

	buffer := Array new: aStream size + 1

! !

!PPMemoizedParser class methodsFor:'documentation'!

version_SVN

    ^ '$Id: PPMemoizedParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'

! !