--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/devtools/PPDebuggingParser.st	Sat May 05 16:49:17 2012 +0200
@@ -0,0 +1,63 @@
+"{ Package: 'stx:goodies/petitparser/devtools' }"
+
+PPParser subclass:#PPDebuggingParser
+	instanceVariableNames:'parser debugger'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitParser-Debugging'
+!
+
+
+!PPDebuggingParser class methodsFor:'instance creation'!
+
+parser: parser debugger: debugger
+
+    ^self new parser: parser; debugger: debugger
+
+    "Created: / 12-03-2012 / 16:47:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!PPDebuggingParser methodsFor:'accessing'!
+
+debugger
+    ^ debugger
+!
+
+debugger:aPPDebugger
+    debugger := aPPDebugger.
+!
+
+parser
+    ^ parser
+!
+
+parser:aPPParser
+    parser := aPPParser.
+! !
+
+!PPDebuggingParser methodsFor:'parsing'!
+
+parseOn:aStream
+    | result |
+
+    debugger enterParser: parser stream: aStream.
+    result := parser parseOn: aStream.
+    debugger leaveParser: parser stream: aStream result: result.
+    ^result.
+
+    "Modified: / 12-03-2012 / 16:41:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!PPDebuggingParser class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebuggingParser.st,v 1.1 2012-05-05 14:49:17 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebuggingParser.st,v 1.1 2012-05-05 14:49:17 vrany Exp $'
+!
+
+version_SVN
+    ^ '§Id: PPDebuggingParser.st 10 2012-05-04 18:54:13Z vranyj1 §'
+! !