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