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

"{ NameSpace: XQuery }"

AstNode subclass:#AstSequenceType
	instanceVariableNames:'itemType occurrenceIndicator'
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-AST'
!


!AstSequenceType class methodsFor:'accessing'!

emptySequence
    ^#emptyseq.

    "Created: / 10-05-2009 / 11:10:21 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!AstSequenceType methodsFor:'accessing'!

itemType
    ^ itemType
!

itemType:something
    itemType := something.
!

occurrenceIndicator
    ^occurrenceIndicator
!

occurrenceIndicator:something 
    " grammar could set occurence indicator to nil - in that case
        let it be one occurence indicator."
    
    something isNil 
        ifTrue:[occurrenceIndicator := AstOneOccurrenceIndicator new.]
        ifFalse:[occurrenceIndicator := something.].

    "Modified: / 10-05-2009 / 16:32:14 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!AstSequenceType methodsFor:'empty sequence'!

isWithEmptySequence
    ^ itemType = self class emptySequence.

    "Created: / 10-05-2009 / 14:58:16 / Jan Kurs <kursj1@fel.cvut.cz>"
!

withEmptySequence
    itemType := self class emptySequence.

    "Created: / 10-05-2009 / 11:09:33 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!AstSequenceType 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 visitAstSequenceType:self

    "Modified: / 14-10-2009 / 23:58:20 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!AstSequenceType class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !