1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(:**************************************************************:)
(: Test: functx-functx-copy-attributes-2 :)
(: Written by: Priscilla Walmsley (Frans Englich is maintainer) :)
(: Date: 2008-05-16+02:00 :)
(:**************************************************************:)
declare namespace functx = "http://www.example.com/";
(:~
: Copies attributes from one element to another
:
: @author Priscilla Walmsley, Datypic
: @version 1.0
: @see http://www.xqueryfunctions.com/xq/functx_copy-attributes.html
: @param $copyTo the element to copy attributes to
: @param $copyFrom the element to copy attributes from
:)
declare function functx:copy-attributes
( $copyTo as element() ,
$copyFrom as element() ) as element() {
element { node-name($copyTo)}
{ $copyTo/@*[not(node-name(.) = $copyFrom/@*/node-name(.))],
$copyFrom/@*,
$copyTo/node() }
} ;
let $in-xml := <in-xml>
<a>123</a>>
<b x="1" y="2">456</b>
<c x="9">123</c>
<d z="5">123</d>
</in-xml>
return (functx:copy-attributes(
$in-xml/b, $in-xml/c))
|
