--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/PPFailingParser.st Thu Aug 18 20:56:17 2011 +0200
@@ -0,0 +1,53 @@
+"{ Package: 'squeak:petitparser' }"
+
+PPParser subclass:#PPFailingParser
+ instanceVariableNames:'message'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'PetitParser-Parsers'
+!
+
+PPFailingParser comment:'A parser that consumes nothing and always fails.
+Instance Variables:
+ message <String> The failure message.'
+!
+
+
+!PPFailingParser class methodsFor:'instance creation'!
+
+message: aString
+ ^ self new setMessage: aString
+! !
+
+!PPFailingParser methodsFor:'accessing'!
+
+message
+ "Answer the error message of the receiving parser."
+
+ ^ message
+! !
+
+!PPFailingParser methodsFor:'initialization'!
+
+setMessage: aString
+ message := aString
+! !
+
+!PPFailingParser methodsFor:'parsing'!
+
+parseOn: aStream
+ ^ PPFailure message: message at: aStream position
+! !
+
+!PPFailingParser methodsFor:'printing'!
+
+printNameOn: aStream
+ super printNameOn: aStream.
+ aStream nextPutAll: ', '; print: message
+! !
+
+!PPFailingParser class methodsFor:'documentation'!
+
+version_SVN
+ ^ '$Id: PPFailingParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $'
+! !