source: MDService/trunk/xquery/model_stats.xql @ 124

declare namespace m = "http://www.vronk.net/metares";

(: 
 $Id: model_stats.xql 124 2010-01-12 10:01:18Z ljo $
:)

import module namespace cmd-model = "http://spraakbanken.gu.se/clarin/xquery/model"
at "xmldb:exist:///db/clarin/cmd-model.xqm";

declare function m:elem($collection as xs:string, $path as xs:string, $depth as xs:integer) as element() {
  let $path-nodes := util:eval(fn:concat("collection('", $collection, "')", $path))
  let $path-count := count($path-nodes)
    
  let $subs := distinct-values($path-nodes/child::element()/name())
  let $text-nodes := $path-nodes//text()
  let $text-count := count($text-nodes)
  let $text-count-distinct := count(distinct-values($text-nodes))
  return 
        <elem path="{$path}" count="{$path-count}" count_text="{$text-count}"  count_distinct_text="{$text-count-distinct}" >
        { if ($depth > 0) then
            for $elname in $subs[. != '']
            return
              m:elem($collection, concat($path, '/', $elname), $depth - 1)
          else 'maxdepth'
        }</elem>
};

declare function m:paths($n) {
        for $el in $n
        return <elem name="{$el/name()}" > {
        for $anc in $el/parent::element()
        return util:node-xpath($anc)
        }</elem>
};


cmd-model:recurse-collections-model("/db/cmdi-mirror/olac/OLAC/The_LINGUIST_List_Language_Resources", "//MDGroup/Actors/Actor", 4)
(: cmd-model:get-result-doc("/db/cmdi-mirror/silang_data", "Actor", 4) :)
(: cmd-model:recurse-collections-model("/db/cmdi-mirror", "//MDGroup/Actors/Actor", 4) :)
(: m:elem("/db/cmdi-mirror/donated_corpora", '//MDGroup/Actors/Actor', 4) :)
(: m:paths(//Name) :)