"{ 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 $'
! !