hg/stx-goodies-petitparser: PPTrimmingParser.st@77d5fddb6462 (annotated)

642 77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 411 diff changeset	1	"{ Encoding: utf8 }"
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 411 diff changeset	2
4 90de244a7fa2 move to package Claus Gittinger <cg@exept.de> parents: 0 diff changeset	3	"{ Package: 'stx:goodies/petitparser' }"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	PPDelegateParser subclass:#PPTrimmingParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:'trimmer'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9	category:'PetitParser-Parsers'
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
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	!PPTrimmingParser class methodsFor:'instance creation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15	on: aParser trimmer: aTrimParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	^ self new
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	setParser: aParser;
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18	setTrimmer: aTrimParser;
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	yourself
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21
411 06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	22
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	!PPTrimmingParser methodsFor:'initialization'!
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	setTrimmer: aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	trimmer := aParser
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	!PPTrimmingParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	31	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	32	\| memento element \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	33	memento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	34	[ (trimmer parseOn: aPPContext) isPetitFailure ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	whileFalse.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	36	element := parser parseOn: aPPContext.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	element isPetitFailure ifTrue: [
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	38	aPPContext restore: memento.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	^ element ].
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 39 diff changeset	40	[ (trimmer parseOn: aPPContext) isPetitFailure ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	whileFalse.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	^ element
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	!PPTrimmingParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46
39 743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	47	version
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	48	^ '$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	49	!
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	51	version_CVS
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52	^ '$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	53	!
743bee9b3ed1 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54
411 06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	55	version_HG
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	^ '$Changeset: <not expanded> $'
06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	58	!
06b96374dd10 Removed PPTrimmingParser>>trim Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	59
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	version_SVN
642 77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 411 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	Patrik Svestka <patrik.svestka@gmail.com>
	Wed, 14 Nov 2018 13:01:14 +0100
changeset 642	77d5fddb6462
parent 411	06b96374dd10
permissions	-rw-r--r--