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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstInsertExpr subclass:#AstInsertAsFirstIntoExpr

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstInsertAsFirstIntoExpr methodsFor:'testing'!

    14 

    15 isAstInsertAsFirstIntoExpr

    16 

    17         ^ true

    18 !

    19 

    20 isAstInsertIntoAsFirstExpr

    21 

    22         ^ true

    23 ! !

    24 

    25 !AstInsertAsFirstIntoExpr methodsFor:'visiting'!

    26 

    27 acceptVisitor:aVisitor 

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

    29      the selector (visitor pattern)"

    30 

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

    32 

    33     ^ aVisitor visitAstInsertAsFirstIntoExpr:self

    34 ! !

    35 

    36 !AstInsertAsFirstIntoExpr class methodsFor:'documentation'!

    37 

    38 version

    39     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstInsertAsFirstIntoExpr.st,v 1.1 2007-10-30 15:21:23 wrobll1 Exp $'

    40 ! !