diff -r 8c02dc8bbf08 -r 9ddc30d7e0ca PPRepeatingParser.st --- a/PPRepeatingParser.st Sat May 05 00:09:18 2012 +0200 +++ b/PPRepeatingParser.st Sat May 05 00:09:29 2012 +0200 @@ -7,12 +7,6 @@ category:'PetitParser-Parsers' ! -PPRepeatingParser comment:'A parser that eagerly parses min to max instances of my delegate. The default instance parses eagerly an infinite number of elements, as min is set to 0 and max to infinity (SmallInteger maxVal). -Instance Variables: - min The minimum number of repetitions. - max The maximum number of repetitions.' -! - !PPRepeatingParser class methodsFor:'instance creation'! @@ -25,7 +19,7 @@ ! on: aParser min: aMinInteger - ^ (self on: aParser) setMin: aMinInteger max: SmallInteger maxVal + ^ (self on: aParser) setMin: aMinInteger max: SmallInteger maxVal ! on: aParser min: aMinInteger max: aMaxInteger @@ -42,7 +36,7 @@ min "Answer the minimum number of repetitions." - + ^ min ! ! @@ -65,7 +59,7 @@ ^ element ]. elements addLast: element ]. [ elements size < max ] whileTrue: [ - (element := parser parseOn: aStream) isPetitFailure + (element := parser parseOn: aStream) isPetitFailure ifTrue: [ ^ elements asArray ]. elements addLast: element ]. ^ elements asArray @@ -81,6 +75,14 @@ !PPRepeatingParser class methodsFor:'documentation'! +version + ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPRepeatingParser.st,v 1.3 2012-05-04 22:09:29 vrany Exp $' +! + +version_CVS + ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPRepeatingParser.st,v 1.3 2012-05-04 22:09:29 vrany Exp $' +! + version_SVN - ^ '$Id: PPRepeatingParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $' + ^ '§Id: PPRepeatingParser.st 2 2010-12-17 18:44:23Z vranyj1 §' ! !