xquery/trunk/XQuery__AstCompAttrConstructor.st
changeset 0 5057afe1ec87
child 232 9d8fd28b99b0
equal deleted inserted replaced
-1:000000000000 0:5057afe1ec87
       
     1 "{ Package: 'stx:goodies/xmlsuite/xquery' }"
       
     2 
       
     3 "{ NameSpace: XQuery }"
       
     4 
       
     5 AstNode subclass:#AstCompAttrConstructor
       
     6 	instanceVariableNames:'qname expr contentExpr'
       
     7 	classVariableNames:''
       
     8 	poolDictionaries:''
       
     9 	category:'XQuery-AST'
       
    10 !
       
    11 
       
    12 
       
    13 !AstCompAttrConstructor methodsFor:'accessing'!
       
    14 
       
    15 contentExpr
       
    16     ^ contentExpr
       
    17 
       
    18     "Created: / 01-07-2006 / 11:50:02 / ked"
       
    19 !
       
    20 
       
    21 contentExpr:something
       
    22     contentExpr := something.
       
    23 
       
    24     "Created: / 01-07-2006 / 11:50:02 / ked"
       
    25 !
       
    26 
       
    27 expr
       
    28     ^ expr
       
    29 
       
    30     "Created: / 01-07-2006 / 11:50:02 / ked"
       
    31 !
       
    32 
       
    33 expr:something
       
    34     expr := something.
       
    35 
       
    36     "Created: / 01-07-2006 / 11:50:02 / ked"
       
    37 !
       
    38 
       
    39 qname
       
    40     ^ qname
       
    41 
       
    42     "Created: / 01-07-2006 / 11:50:02 / ked"
       
    43 !
       
    44 
       
    45 qname:something
       
    46     qname := something.
       
    47 
       
    48     "Created: / 01-07-2006 / 11:50:02 / ked"
       
    49 ! !
       
    50 
       
    51 !AstCompAttrConstructor methodsFor:'testing'!
       
    52 
       
    53 isAstCompAttrConstructor
       
    54     ^ true
       
    55 
       
    56     "Modified: / 12-10-2006 / 21:57:46 / ked"
       
    57 ! !
       
    58 
       
    59 !AstCompAttrConstructor methodsFor:'visiting'!
       
    60 
       
    61 acceptVisitor:aVisitor 
       
    62     "Double dispatch back to the visitor, passing my type encoded in
       
    63      the selector (visitor pattern)"
       
    64 
       
    65     "stub code automatically generated - please change if required"
       
    66 
       
    67     ^ aVisitor visitAstCompAttrConstructor:self
       
    68 
       
    69     "Created: / 06-07-2006 / 19:12:08 / ked"
       
    70 ! !
       
    71 
       
    72 !AstCompAttrConstructor class methodsFor:'documentation'!
       
    73 
       
    74 version
       
    75     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstCompAttrConstructor.st,v 1.1 2006-12-05 14:05:14 vranyj1 Exp $'
       
    76 ! !