1 "{ Package: 'stx:goodies/xmlsuite/xquery' }"

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstNode subclass:#AstReplaceExpr

     6 	instanceVariableNames:'targetExpr sourceExpr'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstReplaceExpr methodsFor:'accessing'!

    14 

    15 sourceExpr

    16     ^ sourceExpr

    17 !

    18 

    19 sourceExpr:something

    20     sourceExpr := something.

    21 !

    22 

    23 targetExpr

    24     ^ targetExpr

    25 !

    26 

    27 targetExpr:something

    28     targetExpr := something.

    29 ! !

    30 

    31 !AstReplaceExpr methodsFor:'testing'!

    32 

    33 isAstReplaceExpr

    34 

    35 ^true

    36 !

    37 

    38 isUpdatingExpression

    39 

    40 ^true

    41 

    42     "Created: / 21-11-2007 / 14:20:26 / janfrog"

    43 ! !

    44 

    45 !AstReplaceExpr methodsFor:'visiting'!

    46 

    47 acceptVisitor:aVisitor 

    48     "Double dispatch back to the visitor, passing my type encoded in

    49      the selector (visitor pattern)"

    50 

    51     "stub code automatically generated - please change if required"

    52 

    53     ^ aVisitor visitAstReplaceExpr:self

    54 ! !

    55 

    56 !AstReplaceExpr class methodsFor:'documentation'!

    57 

    58 version

    59     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstReplaceExpr.st,v 1.2 2007-11-22 21:53:45 vranyj1 Exp $'

    60 ! !