hg/stx-goodies-petitparser: PPFlattenParser.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:#PPFlattenParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
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	!PPFlattenParser methodsFor:'hooks'!
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	create: aCollection start: aStartInteger stop: aStopInteger
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ aCollection copyFrom: aStartInteger to: aStopInteger
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	!PPFlattenParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	19	parseOn: aPPContext
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	20	\| start element \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	21	start := aPPContext position.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	22	element := parser parseOn: aPPContext.
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	23	element isPetitFailure ifTrue: [ ^ element ].
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	24	^ 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	25	! !
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	26
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	27	!PPFlattenParser methodsFor:'private'!
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	28
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	29	on: aCollection start: aStartInteger stop: aStopInteger value: anObject
7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	30	^ aCollection copyFrom: aStartInteger to: aStopInteger
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	! !
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	!PPFlattenParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34
15 421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	35	version
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	36	^ '$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	37	!
421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	38
421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	39	version_CVS
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	40	^ '$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	41	!
421e0a6582d4 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	42
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	version_SVN
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	44	^ '$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	45	! !
165 7df471ff9ea5 update Claus Gittinger <cg@exept.de> parents: 15 diff changeset	46

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