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

"{ NameSpace: XQuery }"

Object subclass:#XQueryResultItem
	instanceVariableNames:'dataContextItem cachedDocumentFragment'
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-Result set'
!


!XQueryResultItem class methodsFor:'instance creation'!

for: item

    ^self new setDataContextItem: item

    "Created: / 12-12-2006 / 11:24:12 / janfrog"
! !

!XQueryResultItem methodsFor:'converting'!

asDocumentFragment

    cachedDocumentFragment 
        ifNil:[cachedDocumentFragment := dataContextItem asDocumentFragment].
    ^cachedDocumentFragment

    "Created: / 12-12-2006 / 10:58:40 / janfrog"
!

asDocumentFragmentWithoutComment

    ^ self asDocumentFragment.

    "Created: / 11-04-2009 / 12:50:33 / Martin Plicka <plickm1@fel.cvut.cz>"
!

asString

    ^dataContextItem asString.

    "Created: / 18-04-2009 / 14:37:39 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!XQueryResultItem methodsFor:'initialization & release'!

releaseResources

    cachedDocumentFragment := nil.
    dataContextItem releaseResources

    "Created: / 12-12-2006 / 10:57:53 / janfrog"
!

setDataContextItem: aDataContextItem

    dataContextItem := aDataContextItem.
    cachedDocumentFragment := nil

    "Created: / 12-12-2006 / 10:56:53 / janfrog"
! !

!XQueryResultItem methodsFor:'printing & storing'!

xmlPrintOn:aStream 
    ^ dataContextItem xmlPrintOn:aStream

    "Created: / 25-03-2009 / 12:02:14 / Martin Plicka <plickm1@fel.cvut.cz>"
! !

!XQueryResultItem class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !