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

"{ NameSpace: XQuery }"

UpdateCommand subclass:#ReplaceCommand
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-Update Facility'
!


!ReplaceCommand class methodsFor:'priorities'!

priority
    "Superclass says that I am responsible to implement this method"

    ^30
! !

!ReplaceCommand methodsFor:'checks'!

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

    self 
        assert:
            (arg allSatisfy:[:item| item type = self targetSequence first type])
        description:('replacing different node types').

    "Created: / 14-11-2007 / 10:06:41 / janfrog"
    "Modified: / 14-11-2007 / 15:20:01 / janfrog"
!

checkTargetSequence:anXQuerySequence
    self 
        assert: (anXQuerySequence containsSingleNode)
        description:'Target sequence must contain one node (see section 2.3.3.1)'.
    self
        assert: (anXQuerySequence first item isDocumentNode not)
                 description:'Target sequence node must have a parent (see section 2.3.3.1)'.

    "Modified: / 14-11-2007 / 11:58:32 / janfrog"
! !

!ReplaceCommand methodsFor:'executing'!

execute
    "Superclass says that I am responsible to implement this method"


       self replaceNode: self targetSequence first  with: self sourceSequence

    "Created: / 14-11-2007 / 10:06:41 / janfrog"
    "Modified: / 14-11-2007 / 16:09:43 / janfrog"
    "Modified: / 12-03-2012 / 15:07:29 / Adam Senk <senkadam@gmail.com>"
! !

!ReplaceCommand methodsFor:'replacing'!

replaceNode:targetNode with:sourceNodes 
    |importedSourceNodes|

    importedSourceNodes := sourceNodes 
                collect:[:sourceNode | sourceNode itemKind isConstructedNode ifTrue:[
                       targetNode documentAdaptor importForeignNode:sourceNode
                        adaptor:sourceNode documentAdaptor
                     ]
                   ifFalse:[sourceNode.].

                ].
    targetNode documentAdaptor updReplaceNode:targetNode 
        with:importedSourceNodes

    "Created: / 14-11-2007 / 10:24:04 / janfrog"
    "Modified: / 05-12-2007 / 14:26:29 / janfrog"
    "Modified: / 01-05-2012 / 16:56:25 / Adam Senk <senkadam@gmail.com>"
! !

!ReplaceCommand class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !