hg/stx-goodies-petitparser: PPListParser.st@0fb1f0799fc1 (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	PPParser subclass:#PPListParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'parsers'
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	!PPListParser 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	with: aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self withAll: (Array with: aParser)
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	with: aFirstParser with: aSecondParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18	^ self withAll: (Array with: aFirstParser with: aSecondParser)
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	withAll: aCollection
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 169 diff changeset	22	^ self basicNew initialize;
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 169 diff changeset	23	setParsers: aCollection
0 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
169 cba3a51b9704 update Claus Gittinger <cg@exept.de> parents: 56 diff changeset	26
cba3a51b9704 update Claus Gittinger <cg@exept.de> parents: 56 diff changeset	27
cba3a51b9704 update Claus Gittinger <cg@exept.de> parents: 56 diff changeset	28
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	!PPListParser methodsFor:'accessing'!
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	children
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	^ parsers
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	!PPListParser methodsFor:'copying'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	copyWith: aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	^ self species withAll: (parsers copyWith: aParser)
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	postCopy
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	super postCopy.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	parsers := parsers copy
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	!PPListParser methodsFor:'initialization'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	initialize
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49	super initialize.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50	self setParsers: #()
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	setParsers: aCollection
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54	parsers := aCollection asArray
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	!PPListParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58
56 e6c555201a3a Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	59	version
169 cba3a51b9704 update Claus Gittinger <cg@exept.de> parents: 56 diff changeset	60	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPListParser.st,v 1.4 2014-03-04 14:32:58 cg Exp $'
56 e6c555201a3a Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	61	!
e6c555201a3a Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	62
e6c555201a3a Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	63	version_CVS
169 cba3a51b9704 update Claus Gittinger <cg@exept.de> parents: 56 diff changeset	64	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPListParser.st,v 1.4 2014-03-04 14:32:58 cg Exp $'
56 e6c555201a3a Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	65	!
e6c555201a3a Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	66
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	67	version_SVN
169 cba3a51b9704 update Claus Gittinger <cg@exept.de> parents: 56 diff changeset	68	^ '$Id: PPListParser.st,v 1.4 2014-03-04 14:32:58 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69	! !
169 cba3a51b9704 update Claus Gittinger <cg@exept.de> parents: 56 diff changeset	70

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 24 Jul 2015 19:42:09 +0100
changeset 504	0fb1f0799fc1
parent 421	7e08b31e0dae
permissions	-rw-r--r--