--- a/PPRepeatingParser.st Mon Nov 03 09:10:56 2014 +0000
+++ b/PPRepeatingParser.st Mon Nov 03 11:28:44 2014 +0000
@@ -29,6 +29,7 @@
+
!PPRepeatingParser methodsFor:'accessing'!
max
@@ -63,24 +64,6 @@
max := aMaxInteger
! !
-!PPRepeatingParser methodsFor:'parsing'!
-
-parseOn: aStream
- | start element elements |
- start := aStream position.
- elements := OrderedCollection new.
- [ elements size < min ] whileTrue: [
- (element := parser parseOn: aStream) isPetitFailure ifTrue: [
- aStream position: start.
- ^ element ].
- elements addLast: element ].
- [ elements size < max ] whileTrue: [
- (element := parser parseOn: aStream) isPetitFailure
- ifTrue: [ ^ elements asArray ].
- elements addLast: element ].
- ^ elements asArray
-! !
-
!PPRepeatingParser methodsFor:'printing'!
printOn: aStream