--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/PPLimitedChoiceParser.st	Mon Nov 24 00:09:23 2014 +0000
@@ -0,0 +1,54 @@
+"{ Package: 'stx:goodies/petitparser' }"
+
+PPChoiceParser subclass:#PPLimitedChoiceParser
+	instanceVariableNames:'limit'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitParser-Parsers'
+!
+
+!PPLimitedChoiceParser methodsFor:'accessing'!
+
+limit
+	
+	^ limit
+!
+
+limit: anObject
+	
+	limit := anObject
+! !
+
+!PPLimitedChoiceParser methodsFor:'as yet unclassified'!
+
+// aRule 
+	^ self copyWith: aRule
+!
+
+initialize
+	limit := nil asParser
+!
+
+parseOn: aPPContext
+	"This is optimized code that avoids unnecessary block activations, do not change. When all choices fail, the last failure is answered."
+
+	| element limitResult memento |
+	"self halt."
+	1 to: parsers size do: [ :index |
+		memento := aPPContext remember.
+		
+		element := (parsers at: index)
+			parseOn: aPPContext.
+		
+		(element isPetitFailure not) ifTrue: [ 
+			"check limit"
+			limitResult := limit parseOn: aPPContext.
+			limitResult isPetitFailure ifTrue: [ 
+				element := PPFailure message: 'limit failed' at: aPPContext position .
+				aPPContext restore: memento.
+			] ifFalse: [ ^ element ].
+		].
+	].	
+	^ element
+! !
+