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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstInsertExpr subclass:#AstInsertIntoExpr

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstInsertIntoExpr methodsFor:'testing'!

    14 

    15 isAstInsertIntoExpr

    16 

    17         ^ true

    18 ! !

    19 

    20 !AstInsertIntoExpr methodsFor:'visiting'!

    21 

    22 acceptVisitor:aVisitor 

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

    24      the selector (visitor pattern)"

    25 

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

    27 

    28     ^ aVisitor visitAstInsertIntoExpr:self

    29 ! !

    30 

    31 !AstInsertIntoExpr class methodsFor:'documentation'!

    32 

    33 version

    34     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstInsertIntoExpr.st,v 1.2 2007-10-31 07:22:38 vranyj1 Exp $'

    35 ! !