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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstNode subclass:#AstTransformCopyClause

     6 	instanceVariableNames:'varName exprSingle transformCopyClause'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstTransformCopyClause methodsFor:'accessing'!

    14 

    15 exprSingle

    16     ^ exprSingle

    17 

    18     "Created: / 21-11-2007 / 16:47:39 / janfrog"

    19 !

    20 

    21 exprSingle:something

    22 

    23     something ensureIsNotUpdatingExpression.

    24 

    25     exprSingle := something.

    26 

    27     "Created: / 21-11-2007 / 16:47:39 / janfrog"

    28 !

    29 

    30 transformCopyClause

    31     ^ transformCopyClause

    32 

    33     "Created: / 21-11-2007 / 16:47:39 / janfrog"

    34 !

    35 

    36 transformCopyClause:something

    37     transformCopyClause := something.

    38 

    39     "Created: / 21-11-2007 / 16:47:39 / janfrog"

    40 !

    41 

    42 varName

    43     ^ varName

    44 

    45     "Created: / 21-11-2007 / 16:47:39 / janfrog"

    46 !

    47 

    48 varName:something

    49     varName := something.

    50 

    51     "Created: / 21-11-2007 / 16:47:39 / janfrog"

    52 ! !

    53 

    54 !AstTransformCopyClause methodsFor:'visiting'!

    55 

    56 acceptVisitor:arg 

    57     "Superclass says that I am responsible to implement this method"

    58 

    59     self shouldImplement

    60 

    61     "Created: / 21-11-2007 / 16:27:58 / janfrog"

    62 ! !

    63 

    64 !AstTransformCopyClause class methodsFor:'documentation'!

    65 

    66 version

    67     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XQuery__AstTransformCopyClause.st,v 1.1 2007-11-22 21:56:43 vranyj1 Exp $'

    68 ! !