Merged in PetitCompiler-JanVrany.170, PetitCompiler-Tests-JanKurs.116, PetitCompiler-Extras-Tests-JanKurs.29, PetitCompiler-Benchmarks-JanKurs.19
Name: PetitCompiler-JanVrany.170
Author: JanVrany
Time: 24-08-2015, 03:19:51.340 PM
UUID: c20a744f-3b41-4aaa-bb8a-71ce74a2a952
Name: PetitCompiler-Tests-JanKurs.116
Author: JanKurs
Time: 24-08-2015, 11:37:54.332 AM
UUID: 549e0927-358a-4a1b-8270-050ccfcb4217
Name: PetitCompiler-Extras-Tests-JanKurs.29
Author: JanKurs
Time: 24-08-2015, 11:36:52.503 AM
UUID: ea1dbb67-f884-4237-8f34-adb0677c0954
Name: PetitCompiler-Benchmarks-JanKurs.19
Author: JanKurs
Time: 24-08-2015, 11:48:47.045 AM
UUID: 1c342fdb-8ddd-4104-9c47-a8f589c51694
"{ Package: 'stx:goodies/petitparser' }"
PPDelegateParser subclass:#PPRepeatingParser
instanceVariableNames:'min max'
classVariableNames:''
poolDictionaries:''
category:'PetitParser-Parsers'
!
!PPRepeatingParser class methodsFor:'instance creation'!
on: aParser
^ (super on: aParser) setMin: 0 max: SmallInteger maxVal
!
on: aParser max: aMaxInteger
^ (self on: aParser) setMin: 0 max: aMaxInteger
!
on: aParser min: aMinInteger
^ (self on: aParser) setMin: aMinInteger max: SmallInteger maxVal
!
on: aParser min: aMinInteger max: aMaxInteger
^ (self on: aParser) setMin: aMinInteger max: aMaxInteger
! !
!PPRepeatingParser methodsFor:'accessing'!
max
"Answer the maximum number of repetitions."
^ max
!
min
"Answer the minimum number of repetitions."
^ min
! !
!PPRepeatingParser methodsFor:'initialization'!
initialize
super initialize.
self setMin: 0; setMax: SmallInteger maxVal
!
setMax: anInteger
max := anInteger
!
setMin: anInteger
min := anInteger
!
setMin: aMinInteger max: aMaxInteger
min := aMinInteger.
max := aMaxInteger
! !
!PPRepeatingParser methodsFor:'printing'!
printOn: aStream
super printOn: aStream.
aStream nextPutAll: ' ['; print: min; nextPutAll: ', '; nextPutAll: (max = SmallInteger maxVal
ifTrue: [ '*' ] ifFalse: [ max printString ]); nextPut: $]
! !
!PPRepeatingParser class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPRepeatingParser.st,v 1.4 2014-03-04 14:33:24 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPRepeatingParser.st,v 1.4 2014-03-04 14:33:24 cg Exp $'
!
version_SVN
^ '$Id: PPRepeatingParser.st,v 1.4 2014-03-04 14:33:24 cg Exp $'
! !