Cart
|
[XSL-LIST Mailing List Archive Home] [By Thread] [By Date] [Recent Entries] [Reply To This Message] XQuery to Report Template Parameters
 I certainly claim no special XQuery expertise, so I would also welcome any feedback on the coding of the query itself. Cheers, Eliot ----- start of query ----- (: Reports template parameters and their uses. This query originally developed by W. Eliot Kimber, ekimber at reallysi.com. Feel free to adapt, extend or distribute as you choose. :) declare namespace xsl="http://www.w3.org/1999/XSL/Transform"; declare function local:getTemplateLabel($template as element()) as xs:string { concat('Template', if ($template/@name != '') then concat(' name="',string($template/@name), '"') else '', if ($template/@match != '') then concat(' match="', string($template/@match), '"') else '') }; declare function local:echoNodes($nodes as node()*) as node()* {
for $node in $nodes
return typeswitch($node)
case $a as element() return local:echoElement($node)
default return $node
};declare function local:echoElement($elem as element()) as element() { if (namespace-uri($elem) = "http://www.w3.org/1999/XSL/Transform")
then element{name($elem)}{$elem/@*, local:echoNodes($elem/node())}
else element{name($elem)}{$elem/@*, local:echoNodes($elem/node())}
};declare function local:reportWithParam($param as element()) as node()* { <parameter> <name>{string($param/@name)}</name> <value> {if ($param/@select != '') then string($param/@select) else $param/node() } </value> <use-context> {local:getTemplateLabel($param/ancestor::xsl:template[1]), ':
 ', local:echoElement($param/..) }</use-context> </parameter> }; let $doc := . let $templateParams := $doc/*/xsl:template/xsl:param let $apply-templates := $doc/*/xsl:template[descendant::xsl:apply-templates/xsl:with-param] let $call-templates := $doc/*/xsl:template[descendant::xsl:call-template/xsl:with-param] return <param-report xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> <parameter-declarations> { for $param in $templateParams order by $param/@name return <param> <name>{string($param/@name)}</name> <datatype>{if (string($param/@as) != '') then string($param/@as) else 'xs:anyType'}</datatype> <default>{if (string($param/@select) != '') then string($param/@select) else '{None}'}</default> <tunneling>{if ($param/@tunnel = 'yes') then 'Yes' else 'No'}</tunneling> <where-declared> {local:getTemplateLabel($param/..)} </where-declared> <matching-uses> { if ($param/../@name != '') then for $call in $call-templates//xsl:call-template[(string(./@name) = string($param/../@name)) and (xsl:with-param[string(@name) = string($param/@name)])] return <call>{local:getTemplateLabel($call/ancestor::xsl:template[1]), ':
 ', local:echoElement($call)}</call> else (), for $use in $apply-templates[.//xsl:apply-templates/xsl:with-param[string(@name) = string($param/@name)]] return <apply>{local:getTemplateLabel($use)}</apply> } </matching-uses> </param> } </parameter-declarations> <apply-templates-parameter-uses> { for $param in $apply-templates//xsl:apply-templates/xsl:with-param order by $param/@name return local:reportWithParam($param) } </apply-templates-parameter-uses> <call-templates-parameter-uses> { for $param in $call-templates//xsl:call-templates/xsl:with-param order by $param/@name return local:reportWithParam($param) } </call-templates-parameter-uses> </param-report> ---- end of query ---- -- Eliot Kimber Senior Solutions Architect "Bringing Strategy, Content, and Technology Together" Main: 610.631.6770 www.reallysi.com www.rsuitecms.com 
|
PURCHASE STYLUS STUDIO ONLINE TODAY!Purchasing Stylus Studio from our online shop is Easy, Secure and Value Priced! 
Download The World's Best XML IDE!Accelerate XML development with our award-winning XML IDE - Download a free trial today! Subscribe in XML format
|
