hg/stx-goodies-petitparser: PPMemoizedParser.st@553a5456963b (annotated)

4 90de244a7fa2 move to package Claus Gittinger <cg@exept.de> parents: 0 diff changeset	1	"{ Package: 'stx:goodies/petitparser' }"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	3	PPDelegateParser subclass:#PPMemoizedParser
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	4	instanceVariableNames:'buffer context hash'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'PetitParser-Parsers'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11	!PPMemoizedParser methodsFor:'operations'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13	memoized
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	"Ther is no point in memoizing more than once."
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	^ self
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	!PPMemoizedParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	21	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	22	\| memento contextMemento aStream \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	23	"TODO: JK memoizing needs review!!"
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	24
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	25	contextMemento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	26	(hash == aPPContext hash)
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	27	ifFalse: [ self reset: aPPContext ].
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	28	memento := (buffer at: contextMemento ifAbsentPut: [ PPMemento new ]).
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	29
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	30	memento contextMemento isNil
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	ifTrue: [
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	32	aStream := aPPContext stream.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	33	memento result: (aStream size - aStream position + 2 < memento count
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	34	ifTrue: [ PPFailure message: 'overflow' context: aPPContext ]
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	35	ifFalse: [ memento increment. parser parseOn: aPPContext ]).
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	36	memento contextMemento: aPPContext remember ]
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	37	ifFalse: [ context restore: memento contextMemento ].
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	38	^ memento result.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	39	!
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	41	reset: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	42	hash := aPPContext hash.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	43	context := aPPContext.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	44	buffer := Dictionary new.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	!PPMemoizedParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48
10 cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	49	version
cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPMemoizedParser.st,v 1.3 2012-05-04 21:58:48 vrany Exp $'
cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	51	!
cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52
cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53	version_CVS
cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPMemoizedParser.st,v 1.3 2012-05-04 21:58:48 vrany Exp $'
cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	55	!
cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	56
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	version_SVN
10 cbaaa689fab2 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	58	^ '�Id: PPMemoizedParser.st 2 2010-12-17 18:44:23Z vranyj1 �'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	59	! !
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	60

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 26 Oct 2014 01:03:31 +0000
changeset 391	553a5456963b
parent 377	6112a403a52d
child 642	77d5fddb6462
permissions	-rw-r--r--