# HG changeset patch # User Jan Vrany # Date 1415014124 0 # Node ID c05417ade8ac790200f4da10d5315e17bc1def6a # Parent 0470a5e6e71298998c0efafdce487210c0a1498b Removed PPRepeatingParser>>parseOn: - class is now abstract diff -r 0470a5e6e712 -r c05417ade8ac PPRepeatingParser.st --- 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