"{ Package: 'stx:goodies/petitparser' }"
Object subclass:#PPMemento
instanceVariableNames:'result count position'
classVariableNames:''
poolDictionaries:''
category:'PetitParser-Core'
!
PPMemento comment:'PPMemento is an internal class used by PPMemoizedParser to cache results and detect left-recursive calls.
Instance Variables:
result <Object> The cached result.
count <Integer> The number of recursive cycles followed.
position <Integer> The position of the cached result in the input stream.'
!
!PPMemento class methodsFor:'instance creation'!
new
^ self basicNew initialize
! !
!PPMemento methodsFor:'accessing'!
position
^ position
!
position: anInteger
position := anInteger
!
result
^ result
!
result: anObject
result := anObject
! !
!PPMemento methodsFor:'accessing-readonly'!
count
^ count
! !
!PPMemento methodsFor:'actions'!
increment
count := count + 1
! !
!PPMemento methodsFor:'initialization'!
initialize
count := 0
! !
!PPMemento class methodsFor:'documentation'!
version_SVN
^ '$Id: PPMemento.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
! !