如何向节点的所有特定子节点添加属性

我有以下节点，我想在其中向所有节点添加属性add nodes.

<test>
  <add>x1</add>
  <c><add>x2</add></c>
  <b att1="x">x</b>
</test>

I tried

functx:add-attributes($test, xs:QName('att1'), 1)

它可以将属性添加到test节点。但

当我尝试时

functx:add-attributes($test/add, xs:QName('att1'), 1)

它将属性添加到第一个添加节点，但仅返回具有添加属性的添加节点。然后当我尝试使用$test//add它会抛出错误。

当我尝试时

for $add in $test//add 
   return functx:add-attributes($add, xs:QName('att1'), 1)

它分别返回两个添加节点。现在，如何重构原始节点以仅将属性添加到指定节点。

首先，我要指出的是，仅在内存中使用与更新数据库内容的实现方式有所不同。对于后者，你可以这样做：

for $add in $test//add
return
  xdmp:node-insert-child(
    $add, 
    attribute atta1 { 1 }
  )

要在内存中更改它（这就是 functx 所做的），您将制作原始副本的副本，并在构建副本时对其进行更改。这称为递归下降，是一种非常常见的模式。我不久前写了一篇博文显示如何实现递归下降 https://developer.marklogic.com/blog/xquery-recursive-descent，但本质上您将执行一个类型切换，当它遇到“add”元素时，会创建新属性。您可以使用 functx 函数来实现这一点。沿着这些思路（未经测试）：

declare function local:change($node) 
{ 
  typeswitch($node) 
    case element(add) return 
      functx:add-attributes($node, xs:QName('att1'), 1)
    case element() return 
      element { fn:node-name($node) } { 
        $node/@*, 
        $node/node() ! local:change(.)
      } 
    default return $node 
};

此代码假设 add 元素内部不会有 add 元素；如果你愿意，那么你会想要对第一种情况做类似第二种情况的事情。