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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstNode subclass:#AstNamespaceDecl

     6 	instanceVariableNames:'prefix nsuri'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstNamespaceDecl methodsFor:'accessing'!

    14 

    15 nsuri

    16     ^ nsuri

    17 

    18     "Created: / 24-12-2006 / 15:05:24 / janfrog"

    19 !

    20 

    21 nsuri:anAstURILiteral

    22     nsuri := anAstURILiteral.

    23 

    24     "Created: / 24-12-2006 / 15:05:24 / janfrog"

    25 !

    26 

    27 prefix

    28     ^ prefix

    29 

    30     "Created: / 24-12-2006 / 15:05:24 / janfrog"

    31 !

    32 

    33 prefix:anAstNCName

    34     prefix := anAstNCName.

    35 

    36     "Created: / 24-12-2006 / 15:05:24 / janfrog"

    37 ! !

    38 

    39 !AstNamespaceDecl methodsFor:'visiting'!

    40 

    41 acceptVisitor:aVisitor 

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

    43      the selector (visitor pattern)"

    44 

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

    46 

    47     ^ aVisitor visitAstNamespaceDecl:self

    48 

    49     "Created: / 24-12-2006 / 15:06:03 / janfrog"

    50 ! !

    51 

    52 !AstNamespaceDecl class methodsFor:'documentation'!

    53 

    54 version

    55     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstNamespaceDecl.st,v 1.1 2007-01-03 08:52:29 vranyj1 Exp $'

    56 ! !