xquery/XQuery__AstComparisonExpr.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 02 Jul 2018 08:46:01 +0200
changeset 305 bad21c4f64bf
parent 296 ea3dbc023c80
permissions -rw-r--r--
Tagged Smalltalk/X 8.0.0

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

"{ NameSpace: XQuery }"

AstNode subclass:#AstComparisonExpr
	instanceVariableNames:'rangeExprLeft valueComp generalComp nodeComp rangeExprRight'
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-AST'
!


!AstComparisonExpr methodsFor:'accessing'!

generalComp
    ^ generalComp

    "Created: / 17-03-2006 / 16:43:51 / ked"
!

generalComp:something
    generalComp := something.

    "Created: / 17-03-2006 / 16:43:51 / ked"
!

nodeComp
    ^ nodeComp

    "Created: / 02-04-2006 / 14:02:12 / ked"
!

nodeComp:something
    nodeComp := something.

    "Created: / 02-04-2006 / 14:02:12 / ked"
!

rangeExprLeft
    ^ rangeExprLeft

    "Created: / 17-03-2006 / 16:43:51 / ked"
!

rangeExprLeft:something
    rangeExprLeft := something.

    "Created: / 17-03-2006 / 16:43:51 / ked"
!

rangeExprRight
    ^ rangeExprRight

    "Created: / 17-03-2006 / 16:43:51 / ked"
!

rangeExprRight:something
    rangeExprRight := something.

    "Created: / 17-03-2006 / 16:43:51 / ked"
!

valueComp
    ^ valueComp

    "Created: / 17-03-2006 / 16:43:51 / ked"
!

valueComp:something
    valueComp := something.

    "Created: / 17-03-2006 / 16:43:51 / ked"
! !

!AstComparisonExpr methodsFor:'testing'!

isAstComparisonExpr
    ^ true

    "Modified: / 12-10-2006 / 21:57:48 / ked"
! !

!AstComparisonExpr methodsFor:'visiting'!

acceptVisitor:aVisitor 
    "Double dispatch back to the visitor, passing my type encoded in
     the selector (visitor pattern)"

    "stub code automatically generated - please change if required"

    ^ aVisitor visitAstComparisonExpr:self

    "Created: / 06-07-2006 / 19:12:09 / ked"
! !

!AstComparisonExpr class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !