hg/stx-goodies-petitparser: PPTrimmingParser.st@9a7e7a05233f (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
411 06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	20
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	!PPTrimmingParser methodsFor:'initialization'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	setTrimmer: aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	trimmer := aParser
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	!PPTrimmingParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	29	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	30	\| memento element \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	31	memento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	32	[ (trimmer parseOn: aPPContext) isPetitFailure ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	whileFalse.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	34	element := parser parseOn: aPPContext.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	element isPetitFailure ifTrue: [
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	36	aPPContext restore: memento.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	^ element ].
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	38	[ (trimmer parseOn: aPPContext) isPetitFailure ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	whileFalse.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40	^ element
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	!PPTrimmingParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44
39 743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	45	version
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	46	^ '$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	47	!
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	48
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	49	version_CVS
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50	^ '$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	51	!
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52
411 06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	53	version_HG
06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	54
06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	55	^ '$Changeset: <not expanded> $'
06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	56	!
06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	57
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58	version_SVN
39 743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	59	^ '�Id: PPTrimmingParser.st 2 2010-12-17 18:44:23Z vranyj1 �'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	! !
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	61

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 03 Jun 2015 08:48:59 +0100
changeset 482	9a7e7a05233f
parent 411	06b96374dd10
child 642	77d5fddb6462
permissions	-rw-r--r--