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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstNode subclass:#AstDeleteExpr

     6 	instanceVariableNames:'targetExpr'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstDeleteExpr methodsFor:'accessing'!

    14 

    15 targetExpr

    16     ^ targetExpr

    17 !

    18 

    19 targetExpr:something

    20     targetExpr := something.

    21 ! !

    22 

    23 !AstDeleteExpr methodsFor:'testing'!

    24 

    25 isAstDeleteExpr

    26     ^ true

    27 

    28     "Modified: / 12-10-2006 / 21:57:47 / ked"

    29 !

    30 

    31 isUpdatingExpression

    32 

    33 ^true

    34 

    35     "Created: / 21-11-2007 / 14:19:09 / janfrog"

    36 ! !

    37 

    38 !AstDeleteExpr methodsFor:'visiting'!

    39 

    40 acceptVisitor:aVisitor 

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

    42      the selector (visitor pattern)"

    43 

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

    45 

    46     ^ aVisitor visitAstDeleteExpr:self

    47 

    48     "Created: / 06-07-2006 / 19:12:08 / ked"

    49 ! !

    50 

    51 !AstDeleteExpr class methodsFor:'documentation'!

    52 

    53 version

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

    55 ! !