1

我需要从以下 XML 生成点图。

<layout>
<layout-structure>
    <layout-root id="layout-root" orientation="landscape">
        <layout-chunk id="header-text">
            <layout-leaf xref="lay-1.01"/>
            <layout-leaf xref="lay-1.02"/>
        </layout-chunk>
        <layout-leaf xref="lay-1.03"/>
                    <layout-leaf xref="lay-1.03"/>
    </layout-root>
</layout-structure>
<realization>
    <text xref="lay-1.01"/>
    <text xref="lay-1.02"/>
    <graphics xref="lay-1.03 lay-1.04"/>
</realization>
</layout>

我使用以下 XQuery 生成 DOT 标记：

declare variable $newline := '&#10;';

declare function local:ref($root) {
  string-join((
  for $chunk in $root/layout-chunk
  return (
      concat('  "', $root/@id, '" -- "', $chunk/@id, '";', $newline),
  local:ref($chunk)
),
local:leaf($root)), "")
};

declare function local:leaf($root) {
for $leaf in $root/layout-leaf
return concat('  "', $root/@id, '" -- "', $leaf/@xref, '";', $newline)
};

let $doc := doc("layout-data.xml")/layout
let $root := $doc/layout-structure/*
return concat('graph "', $root/@id, '" { ', $newline, local:ref($root),'}')

上面的查询工作正常并生成以下图表：

graph "layout-root" {
"layout-root" -- "header-text";
"header-text" -- "lay-1.01";
"header-text" -- "lay-1.02";
"layout-root" -- "lay-1.03";
"layout-root" -- "lay-1.04";
}

结果如下所示：

现在，我想做的是根据它们的属性为 DOT 图中的每个元素分配一组属性，定义在 XML 中的实现元素下，如下所示：

当然，这需要以下 DOT 标记：

graph "layout-root" {
"lay-1.03" [shape="box", style="filled", color="#b3c6ed"];
"lay-1.04" [shape="box", style="filled", color="#b3c6ed"]; 
"layout-root" -- "header-text";
"header-text" -- "lay-1.01";
"header-text" -- "lay-1.02";
"layout-root" -- "lay-1.03";
"layout-root" -- "lay-1.04";
}

我编写了两个额外的变量和函数来选择和编写所需的 DOT 标记：

declare variable $dotgraphics := '[shape="box", style="filled", color="#b3c6ed"]';

declare function local:gfx($doc) {
for $layout-leafs in $doc//layout-leaf
let $graphics := $doc/realization//graphics
where $graphics[contains(@xref, $layout-leafs/@xref)]
return concat($layout-leafs/@xref, ' ', $dotgraphics, ';', $newline)
};

我的问题是：如何将函数local:gfx 包含到上面的 XQuery 脚本中？

如果我只是在local:ref($root)之前调用函数 *local:gfx($doc) ，如下所示，

return concat('graph "', $root/@id, '" { ', $newline, local:gfx($doc), $newline, local:ref($root),'}')

查询返回一个错误，多个项目的序列不能作为concat函数的参数；如何解决？

4

1 回答 1

1

您可以使用fn:string-join($strings[, $separator])它，它将字符串作为一个序列。如果您$newline用作第二个参数（默认为空字符串），它甚至会为您插入换行符：

string-join(('foo', 'bar', 'baz'), '&#10;')

产量

foo
bar
baz
于 2012-09-03T11:16:34.800 回答