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

     2 

     3 "{ NameSpace: XQuery }"

     4 

     5 AstNode subclass:#AstBooleanLiteral

     6 	instanceVariableNames:'content'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XQuery-AST'

    10 !

    11 

    12 

    13 !AstBooleanLiteral class methodsFor:'instance creation'!

    14 

    15 falseLiteral

    16 

    17     ^self new content: false

    18 

    19     "Created: / 28-03-2007 / 20:28:08 / janfrog"

    20 !

    21 

    22 trueLiteral

    23 

    24     ^self new content: true

    25 

    26     "Created: / 28-03-2007 / 20:27:49 / janfrog"

    27 ! !

    28 

    29 !AstBooleanLiteral methodsFor:'accessing'!

    30 

    31 content

    32     ^ content

    33 

    34     "Created: / 28-03-2007 / 17:34:42 / janfrog"

    35 !

    36 

    37 content:something

    38     content := something.

    39 

    40     "Created: / 28-03-2007 / 17:34:42 / janfrog"

    41 ! !

    42 

    43 !AstBooleanLiteral methodsFor:'visiting'!

    44 

    45 acceptVisitor:aVisitor 

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

    47      the selector (visitor pattern)"

    48 

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

    50 

    51     ^ aVisitor visitAstBooleanLiteral:self

    52 

    53     "Created: / 28-03-2007 / 17:34:52 / janfrog"

    54 ! !

    55 

    56 !AstBooleanLiteral class methodsFor:'documentation'!

    57 

    58 version

    59     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstBooleanLiteral.st,v 1.1 2007-03-28 21:31:35 vranyj1 Exp $'

    60 ! !