diff -r 998b9fb92a06 -r 39017a935576 devtools/PPParserVisitor.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/devtools/PPParserVisitor.st	Thu Jan 10 14:22:42 2013 +0100
@@ -0,0 +1,292 @@
+"{ Package: 'stx:goodies/petitparser/devtools' }"
+
+Visitor subclass:#PPParserVisitor
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitParser-Utils'
+!
+
+
+!PPParserVisitor methodsFor:'visiting'!
+
+visit:anObject 
+    "visit anObject (visitor pattern).
+     The object should call back one of my visitXXXX methods."
+
+    ^ anObject acceptVisitor:self
+!
+
+visitObject:anObject 
+    "dispatched back from the visited objects (visitor pattern)"
+
+    "general fallBack - please change as required"
+
+    self halt:'not yet implemented'
+!
+
+visitPPActionParser:anObject 
+    "dispatched back from the visited pPActionParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPAndParser:anObject 
+    "dispatched back from the visited pPAndParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPArithmeticParser:anObject 
+    "dispatched back from the visited pPArithmeticParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPChoiceParser:anObject 
+    "dispatched back from the visited pPChoiceParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPCompositeParser:anObject 
+    "dispatched back from the visited pPCompositeParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPDebuggingParser:anObject 
+    "dispatched back from the visited pPDebuggingParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPDelegateParser:anObject 
+    "dispatched back from the visited pPDelegateParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPEndOfInputParser:anObject 
+    "dispatched back from the visited pPEndOfInputParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPEpsilonParser:anObject 
+    "dispatched back from the visited pPEpsilonParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPExpressionParser:anObject 
+    "dispatched back from the visited pPExpressionParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPFailingParser:anObject 
+    "dispatched back from the visited pPFailingParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPFlattenParser:anObject 
+    "dispatched back from the visited pPFlattenParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPLambdaParser:anObject 
+    "dispatched back from the visited pPLambdaParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPListParser:anObject 
+    "dispatched back from the visited pPListParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPLiteralObjectParser:anObject 
+    "dispatched back from the visited pPLiteralObjectParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPLiteralParser:anObject 
+    "dispatched back from the visited pPLiteralParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPLiteralSequenceParser:anObject 
+    "dispatched back from the visited pPLiteralSequenceParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPMemoizedParser:anObject 
+    "dispatched back from the visited pPMemoizedParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPNotParser:anObject 
+    "dispatched back from the visited pPNotParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPOptionalParser:anObject 
+    "dispatched back from the visited pPOptionalParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPParser:anObject 
+    "dispatched back from the visited pPParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPPluggableParser:anObject 
+    "dispatched back from the visited pPPluggableParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPPredicateObjectParser:anObject 
+    "dispatched back from the visited pPPredicateObjectParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPPredicateParser:anObject 
+    "dispatched back from the visited pPPredicateParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPPredicateSequenceParser:anObject 
+    "dispatched back from the visited pPPredicateSequenceParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPRepeatingParser:anObject 
+    "dispatched back from the visited pPRepeatingParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPSequenceParser:anObject 
+    "dispatched back from the visited pPSequenceParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPTokenParser:anObject 
+    "dispatched back from the visited pPTokenParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPTrimmingParser:anObject 
+    "dispatched back from the visited pPTrimmingParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPUnresolvedParser:anObject 
+    "dispatched back from the visited pPUnresolvedParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitPPWrappingParser:anObject 
+    "dispatched back from the visited pPWrappingParser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+!
+
+visitParser:anObject 
+    "dispatched back from the visited parser-object (visitor pattern)"
+
+    "fall back to general object-case - please change as required"
+
+    ^ self visitObject:anObject
+! !
+
+!PPParserVisitor class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPParserVisitor.st,v 1.1 2013-01-10 13:22:42 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPParserVisitor.st,v 1.1 2013-01-10 13:22:42 vrany Exp $'
+! !