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

"{ NameSpace: XQuery }"

NodeKind subclass:#ConstructedNodeKind
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-Sequence'
!


!ConstructedNodeKind class methodsFor:'accessing'!

documentAdaptor

    ^ ConstructedNodeXDMAdaptor instance.

    "Modified: / 07-10-2009 / 11:14:16 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 28-01-2010 / 11:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!ConstructedNodeKind methodsFor:'private'!

hybridKind
    ^ HybridNodeKind instance.

    "Created: / 03-10-2009 / 23:12:05 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 07-10-2009 / 10:30:04 / Jan Kurs <kursj1@fel.cvut.cz>"
!

isHybrid: nodeId
    " return true if the nodeId is hybrid "
    ^ self hybridKind isHybrid: nodeId.

    "Created: / 03-10-2009 / 22:58:09 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 07-10-2009 / 11:50:39 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!ConstructedNodeKind methodsFor:'testing'!

isConstructedNode
   ^true.

    "Created: / 24-04-2012 / 15:24:48 / Adam Senk <senkadam@gmail.com>"
! !

!ConstructedNodeKind methodsFor:'transformations'!

transformNodeIds:nodeIds usingDocumentAdaptor:adaptor
    "Superclass XQuery::SequenceItemKind says that I am responsible to implement this method"

    ^ XQuerySequence withAll: (nodeIds 
        collect:[:nodeId | 
            | kind |
            self assert: (nodeId class = XQueryConstructedItem).

            (self isHybrid: nodeId) ifTrue: [ 
                kind := self hybridKind. 
            ] ifFalse: [
                kind := self.
            ].
            NodeItem new
                nodeId: nodeId;
                documentAdaptor: adaptor;
                itemKind: kind.
        ])

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

!ConstructedNodeKind class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !