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

"{ NameSpace: XMLv2 }"

Object subclass:#DOMImplementation
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'XML Suite-DOM3-Implementation'
!

DOMImplementation class instanceVariableNames:'defaultInstance'

"
 No other class instance variables are inherited by this class.
"
!


!DOMImplementation class methodsFor:'DOM3 interface'!

createDocument

    "Just forward to singleton object"

    ^self default createDocument

    "Created: / 04-08-2005 / 13:23:47 / janfrog"
!

createDocumentFragment

    "Just forward to singleton object"

    ^self default createDocumentFragment

    "Created: / 10-12-2006 / 20:37:30 / janfrog"
!

createDocumentType

    "Just forward to singleton object"

    ^self default createDocumentType

    "Created: / 04-08-2005 / 13:23:54 / janfrog"
! !

!DOMImplementation class methodsFor:'accessing'!

default

    ^defaultInstance ifNil:[defaultInstance := self new]

    "Created: / 19-06-2005 / 15:33:20 / janfrog"
!

flushDefault

    ^defaultInstance := nil

    "Created: / 19-06-2005 / 15:33:32 / janfrog"
! !

!DOMImplementation methodsFor:'DOM3 interface'!

createDocumentNS:ns qualifiedName:qName doctype:documentType

    ^self subclassResponsibility

    "Created: / 11-08-2005 / 22:32:09 / janfrog"
!

createDocumentType:type publicId:pubID systemId:sysID

    self subclassResponsibility

    "Created: / 24-12-2005 / 10:41:07 / janfrog"
!

getFeature:feature version:version

    ^self subclassResponsibility

    "Created: / 19-06-2005 / 15:31:26 / janfrog"
!

hasFeature:feature version:version

    self featureArray pairsDo:[:f :v|
        ((f sameAs: feature) 
            and:[version isNil or:[version = v]])
                ifTrue:[^true]].
    ^false

    "Created: / 19-06-2005 / 15:29:24 / janfrog"
! !

!DOMImplementation methodsFor:'accessing'!

featureArray

    ^self subclassResponsibility

    "Created: / 19-06-2005 / 15:29:46 / janfrog"
!

saxContentHandler

    ^self saxContentHandlerClass new
            domImplementation: self.

    "Created: / 04-08-2005 / 12:53:26 / janfrog"
    "Modified: / 07-04-2007 / 14:59:55 / janfrog"
!

saxContentHandlerClass

    "Answers SAX2 ContentHandler class that builds DOM tree"

    ^self subclassResponsibility

    "Created: / 04-08-2005 / 12:53:15 / janfrog"
! !

!DOMImplementation methodsFor:'instance creation'!

createDocument

    ^self subclassResponsibility

    "Created: / 11-08-2005 / 22:32:10 / janfrog"
!

createDocumentFragment

    ^self subclassResponsibility

    "Created: / 10-12-2006 / 20:35:20 / janfrog"
! !

!DOMImplementation methodsFor:'utilities'!

hasFeatures:anArray

    anArray do:[:fp|
        (self featureArray includes:fp) ifFalse:[^false]
    ].
    ^true

    "
        XMLSuiteDOM3Implementation default hasFeatures:#(('XML' '3.0')) 
        XMLSuiteDOM3Implementation default hasFeatures:#(('+XML' '3.0')) 
        XMLSuiteDOM3Implementation default hasFeatures:#(('XPath' '3.0'))     
    "

    "Created: / 04-08-2005 / 12:25:43 / janfrog"
! !

!DOMImplementation class methodsFor:'documentation'!

version
    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__DOMImplementation.st,v 1.5 2007-04-10 08:33:12 vranyj1 Exp $'
! !