hg/stx-goodies-petitparser: PPFlattenParser.st@d83cb4945d5e (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
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	3	"{ NameSpace: Smalltalk }"
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	4
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	PPDelegateParser subclass:#PPFlattenParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
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	!PPFlattenParser methodsFor:'hooks'!
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	create: aCollection start: aStartInteger stop: aStopInteger
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	^ aCollection copyFrom: aStartInteger to: aStopInteger
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	!PPFlattenParser 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: 165 diff changeset	21	parseOn: aPPContext
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	22	\| start element \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	23	start := aPPContext position.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	24	element := parser parseOn: aPPContext.
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	25	element isPetitFailure ifTrue: [ ^ element ].
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	26	^ self on: aPPContext stream collection start: start + 1 stop: aPPContext position value: element
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	27	! !
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	28
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	29	!PPFlattenParser methodsFor:'private'!
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	30
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	31	on: aCollection start: aStartInteger stop: aStopInteger value: anObject
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	32	^ aCollection copyFrom: aStartInteger to: aStopInteger
0 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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	!PPFlattenParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36
15 421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	37	version
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	38	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $'
15 421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	39	!
421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	40
421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	41	version_CVS
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	42	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $'
15 421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	43	!
421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	44
502 1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	45	version_HG
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	46
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	47	^ '$Changeset: <not expanded> $'
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	48	!
1e45d3c96ec5 Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	49
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50	version_SVN
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	51	^ '$Id: PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52	! !
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	53

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 24 Nov 2015 19:37:14 +0100
changeset 553	d83cb4945d5e
parent 502	1e45d3c96ec5
permissions	-rw-r--r--