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

"{ NameSpace: XQuery }"

XDMAdaptorProvider subclass:#DefaultXDMAdaptorProvider
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-XDM'
!


!DefaultXDMAdaptorProvider methodsFor:'accessing'!

documentAdaptorsFor: aStringOrURI

    | uri documentAdaptor |
    uri := aStringOrURI asURI.
    uri exists ifFalse:[^XQuery::DocumentNotFoundError raiseErrorString:'A document ',uri asString,' is not found'].
    uri readStreamDo:
        [:stream :attrs|
        documentAdaptor := XQuery::XDMAdaptorFactory
            documentAdaptorFor:(XMLv2::Parser forDOM3 processDocumentInStream:stream
            beforeScanDo:[:parser | parser validate:false ])].

    ^Array with:documentAdaptor

    "Created: / 20-09-2007 / 10:32:41 / janfrog"
    "Modified: / 06-04-2010 / 11:55:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!DefaultXDMAdaptorProvider class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !