xquery version "1.0";

module namespace mpdl-lucene = "http://www.mpiwg-berlin.mpg.de/ns/mpdl/lucene/search"; 

declare namespace ft = "http://exist-db.org/xquery/lucene";

declare function mpdl-lucene:search($docPath, $ftQuery) as node() {
  let $document := doc($docPath)
  (: performance reasons: all hits (not only the first 10! ) are passed through the :)
  (: for loop: so the overhead in each loop has to be minimized :)
  let $t := $document//s[ft:query(., $ftQuery)]
  let $tempQueryResult := 
    for $ss at $poss in $t
    (: where $poss > 100 and $poss <= 200  :)
    return $ss
  let $queryResult :=
    for $s at $pos in $tempQueryResult
      let $pnOfS := count($document//pb[. << $s])    (: faster: comparison only in pb elements of this document :)
      let $posOfS := count($document//pb[$pnOfS]/following::s[. << $s]) + 1    (: faster: comparisonon only in s elements of this document :)
      let $resultElem := 
        <hit>
          <pos>{$pos}</pos>
          <pn>{$pnOfS}</pn>
          <pos-of-s>{$posOfS}</pos-of-s>
          {$s}
        </hit>
    return $resultElem
  let $resultSize := count($queryResult)
  let $result := 
        <ft-query>
          <name>{$ftQuery}</name>
          <result>
            <size>{$resultSize}</size>
            <hits>
              {$queryResult}
            </hits>
          </result>
        </ft-query>  
   return $result
};