--- /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 §'
+! !