source: MDRepository/trunk/xquery/cmd-model.xql @ 727

xquery version "1.0";

(: 
 $Id: cmd-model.xql 727 2010-09-28 11:44:03Z vronk $
:)
import module namespace request="http://exist-db.org/xquery/request";
(: import module namespace json="http://www.json.org"; :)

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


declare function local:cmd-model() as item()* {
  let $operation :=  request:get-parameter("operation", $cmd-model:queryModel),
    $cmd-index := request:get-parameter("q", "MDGroup/Actors/Actor"),
    $cmd-index-path := 
    if (fn:contains($cmd-index, ".")) then
      fn:translate($cmd-index, ".", "/") 
    else
      $cmd-index,
    $format := request:get-parameter("format", $cmd-model:responseFormatXml),
    $collection-params := request:get-parameter("collection", $cmd-model:collectionRoot),
    $query-collections := 
    if (matches($collection-params, "^root$") or $collection-params eq "") then 
      $cmd-model:collectionRoot
    else
      $collection-params,
    $max-depth as xs:integer := xs:integer(request:get-parameter("maxdepth", 1))
    return
      if ($operation eq $cmd-model:getCollections) then
        cmd-model:get-collections($query-collections, $format, $max-depth)
      else if ($operation eq $cmd-model:queryModel) then
        cmd-model:query-model($cmd-index-path, $query-collections, $format, $max-depth)
    else if ($operation eq $cmd-model:searchRetrieve) then
      let $cql-query := request:get-parameter("query", "MDGroup/Actors/Actor"),
        $start-item := request:get-parameter("startRecord", 1),
        $end-item := request:get-parameter("iend", 50)
        
      return cmd-model:search-retrieve($cql-query, $query-collections, $format, xs:integer($start-item), xs:integer($end-item))
    else 
      <error>Unknown operation</error>

};

local:cmd-model()