hg/stx-goodies-petitparser: PPTrimmingParser.st@a0e6299c7337 (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:#PPTrimmingParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'trimmer'
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	!PPTrimmingParser class methodsFor:'instance creation'!
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	on: aParser trimmer: aTrimParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self new
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15	setParser: aParser;
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	setTrimmer: aTrimParser;
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	yourself
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	!PPTrimmingParser methodsFor:'initialization'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	setTrimmer: aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	trimmer := aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	!PPTrimmingParser methodsFor:'operations'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	trim
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	"There is no point in trimming more than once."
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	^ self
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	!PPTrimmingParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	36	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	37	\| memento element \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	38	memento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	39	[ (trimmer parseOn: aPPContext) isPetitFailure ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40	whileFalse.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	41	element := parser parseOn: aPPContext.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	element isPetitFailure ifTrue: [
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	43	aPPContext restore: memento.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44	^ element ].
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	45	[ (trimmer parseOn: aPPContext) isPetitFailure ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	whileFalse.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	^ element
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50	!PPTrimmingParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51
39 743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52	version
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTrimmingParser.st,v 1.3 2012-05-04 22:05:38 vrany Exp $'
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54	!
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	55
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	56	version_CVS
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	57	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTrimmingParser.st,v 1.3 2012-05-04 22:05:38 vrany Exp $'
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	58	!
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	59
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	version_SVN
39 743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	61	^ '�Id: PPTrimmingParser.st 2 2010-12-17 18:44:23Z vranyj1 �'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62	! !
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	63

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 03 Nov 2014 11:30:59 +0000
changeset 407	a0e6299c7337
parent 377	6112a403a52d
child 411	06b96374dd10
permissions	-rw-r--r--