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

"{ NameSpace: XMLv2 }"

CharacterData subclass:#Text
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'XML Suite-DOM3'
!


!Text methodsFor:'DOM3 helpers'!

computeLookupPrefix:arg 
    "Superclass says that I am responsible to implement this method"
    
    self shouldImplement

    "Created: / 18-06-2005 / 21:13:11 / janfrog"
!

logicallyAdjacentTextNodes

    | siblings myIdx idx adjacentNodes |
    adjacentNodes := NodeList new.
    siblings := self parent childNodes.
    myIdx := siblings identityIndexOf:self.
    idx := myIdx.
    idx ~= 1 ifTrue:[
        [ (siblings at:idx - 1) isText ] whileTrue:[
            idx := idx - 1
        ]
    ].
    [ (siblings at:idx) isText ] whileTrue:[
        adjacentNodes add:(siblings at:idx).
        idx := idx + 1
    ].
    ^adjacentNodes

    "Created: / 18-06-2005 / 21:43:36 / janfrog"
!

textContentOn:aStream 
    "Superclass says that I am responsible to implement this method"

    aStream nextPutAll:data

    "Created: / 18-06-2005 / 20:18:17 / janfrog"
    "Modified: / 18-10-2005 / 14:53:04 / janfrog"
!

wholeTextOn:aStream

    self logicallyAdjacentTextNodes do:[:text|
        aStream nextPutAll:text data.
    ].

    "Created: / 18-06-2005 / 21:41:54 / janfrog"
! !

!Text methodsFor:'DOM3 interface'!

compareDocumentPosition:arg 
    "Superclass says that I am responsible to implement this method"

    self shouldImplement

    "Created: / 18-06-2005 / 20:18:17 / janfrog"
!

isElementContentWhitespace

    ^self data allSatisfy:[:c|c isXMLWhiteSpace]

    "Created: / 18-06-2005 / 21:32:38 / janfrog"
!

lookupNamespaceURI:arg 
    "Superclass says that I am responsible to implement this method"

    self shouldImplement

    "Created: / 18-06-2005 / 20:18:17 / janfrog"
!

nodeName

    ^'#text'

    "Created: / 17-06-2005 / 11:35:05 / janfrog"
!

nodeType

    ^Node TEXT_NODE

    "Created: / 17-06-2005 / 11:45:32 / janfrog"
!

nodeValue

    ^self data

    "Created: / 28-12-2005 / 16:56:43 / janfrog"
!

normalize

    "Nothing to do for now"

    "Created: / 18-06-2005 / 20:18:17 / janfrog"
    "Modified: / 23-12-2005 / 20:54:31 / janfrog"
!

replaceWholeText:newText

    self logicallyAdjacentTextNodes do:[:text|
        text == self ifFalse:[self parent removeChild:text]
    ].
    self data:newText.

    "Created: / 18-06-2005 / 21:47:47 / janfrog"
!

splitText:offset

    | before after newText |
    before := self data copyTo:offset.
    after := self data copyFrom:offset + 1.
    self data:before.
    newText := Text new data:after.
    self parent insertChild:newText after:self.
    ^newText

    "Created: / 18-06-2005 / 21:49:05 / janfrog"
!

wholeText

    | s |
    s := UnicodeString new writeStream.
    self wholeTextOn:s.
    ^s contents

    "Created: / 18-06-2005 / 21:37:24 / janfrog"
! !

!Text methodsFor:'accessing'!

data
    ^data

    "Created: / 18-06-2005 / 21:32:52 / janfrog"
!

data:aString
    data := aString

    "Created: / 18-06-2005 / 21:33:13 / janfrog"
! !

!Text methodsFor:'testing'!

isIgnorableText

    ^self data allSatisfy:[:c|c isXMLWhiteSpace]

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

isText
    ^ true

    "Created: / 05-08-2005 / 14:28:08 / janfrog"
! !

!Text 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 visitText:self

    "Created: / 05-08-2005 / 13:09:35 / janfrog"
! !

!Text class methodsFor:'documentation'!

version
    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__Text.st,v 1.5 2007-01-03 19:58:33 stillj1 Exp $'
! !