hg/stx-goodies-petitparser: PPRepeatingParser.st@fc3dbe5654c5 (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:#PPRepeatingParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'min max'
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	!PPRepeatingParser 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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ (super on: aParser) setMin: 0 max: SmallInteger maxVal
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	on: aParser max: aMaxInteger
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18	^ (self on: aParser) setMin: 0 max: aMaxInteger
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	on: aParser min: aMinInteger
52 9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	22	^ (self on: aParser) setMin: aMinInteger max: SmallInteger maxVal
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	!
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	on: aParser min: aMinInteger max: aMaxInteger
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	^ (self on: aParser) setMin: aMinInteger max: aMaxInteger
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
179 c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	29
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	30
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	31
406 c05417ade8ac Removed PPRepeatingParser>>parseOn: - class is now abstract Jan Vrany <jan.vrany@fit.cvut.cz> parents: 378 diff changeset	32
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	!PPRepeatingParser methodsFor:'accessing'!
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	max
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	"Answer the maximum number of repetitions."
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	^ max
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	min
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	"Answer the minimum number of repetitions."
52 9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	43
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44	^ min
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	!PPRepeatingParser methodsFor:'initialization'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48
179 c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	49	initialize
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	50	super initialize.
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	51	self setMin: 0; setMax: SmallInteger maxVal
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	52	!
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	53
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	54	setMax: anInteger
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	55	max := anInteger
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	56	!
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	57
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	58	setMin: anInteger
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	59	min := anInteger
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	60	!
c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	61
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62	setMin: aMinInteger max: aMaxInteger
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	min := aMinInteger.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	64	max := aMaxInteger
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	65	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	66
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	67	!PPRepeatingParser methodsFor:'printing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	68
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69	printOn: aStream
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	70	super printOn: aStream.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	71	aStream nextPutAll: ' ['; print: min; nextPutAll: ', '; nextPutAll: (max = SmallInteger maxVal
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	72	ifTrue: [ '*' ] ifFalse: [ max printString ]); nextPut: $]
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	73	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	74
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	75	!PPRepeatingParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	76
52 9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	77	version
179 c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	78	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPRepeatingParser.st,v 1.4 2014-03-04 14:33:24 cg Exp $'
52 9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	79	!
9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	80
9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	81	version_CVS
179 c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	82	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPRepeatingParser.st,v 1.4 2014-03-04 14:33:24 cg Exp $'
52 9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	83	!
9ddc30d7e0ca Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	84
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	85	version_SVN
179 c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	86	^ '$Id: PPRepeatingParser.st,v 1.4 2014-03-04 14:33:24 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	87	! !
179 c7539657b514 update Claus Gittinger <cg@exept.de> parents: 52 diff changeset	88

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 17 Jun 2015 16:49:28 +0100
changeset 492	fc3dbe5654c5
parent 406	c05417ade8ac
permissions	-rw-r--r--