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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstNode subclass:#AstAttributeTest

     6 	instanceVariableNames:'attribName'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstAttributeTest methodsFor:'accessing'!

    14 

    15 attribName

    16     ^ attribName

    17 

    18     "Created: / 21-11-2006 / 21:57:13 / ked"

    19 !

    20 

    21 attribName:something

    22     attribName := something.

    23 

    24     "Created: / 21-11-2006 / 21:57:14 / ked"

    25 ! !

    26 

    27 !AstAttributeTest methodsFor:'testing'!

    28 

    29 isAstAttributeTest

    30     ^ true

    31 

    32     "Created: / 21-11-2006 / 21:57:19 / ked"

    33 ! !

    34 

    35 !AstAttributeTest methodsFor:'visiting'!

    36 

    37 acceptVisitor:aVisitor 

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

    39      the selector (visitor pattern)"

    40 

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

    42 

    43     ^ aVisitor visitAstAttributeTest:self

    44 

    45     "Created: / 21-11-2006 / 21:57:25 / ked"

    46 ! !

    47 

    48 !AstAttributeTest class methodsFor:'documentation'!

    49 

    50 version

    51     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstAttributeTest.st,v 1.1 2006-12-05 14:07:20 vranyj1 Exp $'

    52 ! !