Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F96900886
query-tei.xql
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Tue, Dec 31, 16:08
Size
9 KB
Mime Type
text/x-java
Expires
Thu, Jan 2, 16:08 (1 d, 23 h)
Engine
blob
Format
Raw Data
Handle
23263074
Attached To
rNIETZSCHEDM nietzsche-dm
query-tei.xql
View Options
(:
:
: Copyright (C) 2017 Wolfgang Meier
:
: This program is free software: you can redistribute it and/or modify
: it under the terms of the GNU General Public License as published by
: the Free Software Foundation, either version 3 of the License, or
: (at your option) any later version.
:
: This program is distributed in the hope that it will be useful,
: but WITHOUT ANY WARRANTY; without even the implied warranty of
: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
: GNU General Public License for more details.
:
: You should have received a copy of the GNU General Public License
: along with this program. If not, see <http://www.gnu.org/licenses/>.
:)
xquery version "3.1";
module namespace teis="http://www.tei-c.org/tei-simple/query/tei";
declare namespace tei="http://www.tei-c.org/ns/1.0";
import module namespace config="http://www.tei-c.org/tei-simple/config" at "config.xqm";
import module namespace nav="http://www.tei-c.org/tei-simple/navigation/tei" at "navigation-tei.xql";
import module namespace query="http://www.tei-c.org/tei-simple/query" at "query.xql";
declare function teis:query-default($fields as xs:string+, $query as xs:string, $target-texts as xs:string*,
$sortBy as xs:string*) {
if(string($query)) then
for $field in $fields
return
switch ($field)
case "head" return
if (exists($target-texts)) then
for $text in $target-texts
return
$config:data-root ! doc(. || "/" || $text)//tei:head[ft:query(., $query, query:options($sortBy))]
else
collection($config:data-root)//tei:head[ft:query(., $query, query:options($sortBy))]
default return
if (exists($target-texts)) then
for $text in $target-texts
let $divisions := $config:data-root ! doc(. || "/" || $text)//tei:div[ft:query(., $query, query:options($sortBy))]
return
if (empty($divisions)) then
$config:data-root ! doc(. || "/" || $text)//tei:text[ft:query(., $query, query:options($sortBy))]
else
$divisions
else
let $divisions := collection($config:data-root)//tei:div[ft:query(., $query, query:options($sortBy))]
return
if (empty($divisions)) then
collection($config:data-root)//tei:text[ft:query(., $query, query:options($sortBy))]
else
$divisions
else ()
};
declare function teis:query-metadata($path as xs:string?, $field as xs:string?, $query as xs:string?, $sort as xs:string) {
let $queryExpr :=
if ($field = "file" or empty($query) or $query = '') then
"file:*"
else
($field, "text")[1] || ":" || $query
let $options := query:options($sort, ($field, "text")[1])
let $result :=
$config:data-default ! (
collection(. || "/" || $path)//tei:text[ft:query(., $queryExpr, $options)]
)
return
query:sort($result, $sort)
};
declare function teis:autocomplete($doc as xs:string?, $fields as xs:string+, $q as xs:string) {
let $lower-case-q := lower-case($q)
for $field in $fields
return
switch ($field)
case "author" return
collection($config:data-root)/ft:index-keys-for-field("author", $lower-case-q,
function($key, $count) {
$key
}, 30)
case "file" return
collection($config:data-root)/ft:index-keys-for-field("file", $lower-case-q,
function($key, $count) {
$key
}, 30)
case "text" return
if ($doc) then (
doc($config:data-root || "/" || $doc)/util:index-keys-by-qname(xs:QName("tei:div"), $lower-case-q,
function($key, $count) {
$key
}, 30, "lucene-index"),
doc($config:data-root || "/" || $doc)/util:index-keys-by-qname(xs:QName("tei:text"), $lower-case-q,
function($key, $count) {
$key
}, 30, "lucene-index")
) else (
collection($config:data-root)/util:index-keys-by-qname(xs:QName("tei:div"), $lower-case-q,
function($key, $count) {
$key
}, 30, "lucene-index"),
collection($config:data-root)/util:index-keys-by-qname(xs:QName("tei:text"), $lower-case-q,
function($key, $count) {
$key
}, 30, "lucene-index")
)
case "head" return
if ($doc) then
doc($config:data-root || "/" || $doc)/util:index-keys-by-qname(xs:QName("tei:head"), $lower-case-q,
function($key, $count) {
$key
}, 30, "lucene-index")
else
collection($config:data-root)/util:index-keys-by-qname(xs:QName("tei:head"), $lower-case-q,
function($key, $count) {
$key
}, 30, "lucene-index")
default return
collection($config:data-root)/ft:index-keys-for-field("title", $lower-case-q,
function($key, $count) {
$key
}, 30)
};
declare function teis:get-parent-section($node as node()) {
($node/self::tei:text, $node/ancestor-or-self::tei:div[1], $node)[1]
};
declare function teis:get-breadcrumbs($config as map(*), $hit as node(), $parent-id as xs:string) {
let $work := root($hit)/*
let $work-title := nav:get-document-title($config, $work)/string()
return
<div class="breadcrumbs">
<a class="breadcrumb" href="{$parent-id}">{$work-title}</a>
{
for $parentDiv in $hit/ancestor-or-self::tei:div[tei:head]
let $id := util:node-id(
if ($config?view = "page") then ($parentDiv/preceding::tei:pb[1], $parentDiv)[1] else $parentDiv
)
return
<a class="breadcrumb" href="{$parent-id || "?action=search&root=" || $id || "&view=" || $config?view || "&odd=" || $config?odd}">
{$parentDiv/tei:head/string()}
</a>
}
</div>
};
(:~
: Expand the given element and highlight query matches by re-running the query
: on it.
:)
declare function teis:expand($data as node()) {
let $query := session:get-attribute($config:session-prefix || ".search")
let $field := session:get-attribute($config:session-prefix || ".field")
let $div :=
if ($data instance of element(tei:pb)) then
let $nextPage := $data/following::tei:pb[1]
return
if ($nextPage) then
if ($field = "text") then
(
($data/ancestor::tei:div intersect $nextPage/ancestor::tei:div)[last()],
$data/ancestor::tei:text
)[1]
else
$data/ancestor::tei:text
else
(: if there's only one pb in the document, it's whole
text part should be returned :)
if (count($data/ancestor::tei:text//tei:pb) = 1) then
($data/ancestor::tei:text)
else
($data/ancestor::tei:div, $data/ancestor::tei:text)[1]
else
$data
let $result := teis:query-default-view($div, $query, $field)
let $expanded :=
if (exists($result)) then
util:expand($result, "add-exist-id=all")
else
$div
return
if ($data instance of element(tei:pb)) then
$expanded//tei:pb[@exist:id = util:node-id($data)]
else
$expanded
};
declare %private function teis:query-default-view($context as element()*, $query as xs:string, $fields as xs:string+) {
for $field in $fields
return
switch ($field)
case "head" return
$context[./descendant-or-self::tei:head[ft:query(., $query, $query:QUERY_OPTIONS)]]
default return
$context[./descendant-or-self::tei:div[ft:query(., $query, $query:QUERY_OPTIONS)]] |
$context[./descendant-or-self::tei:text[ft:query(., $query, $query:QUERY_OPTIONS)]]
};
declare function teis:get-current($config as map(*), $div as node()?) {
if (empty($div)) then
()
else
if ($div instance of element(tei:teiHeader)) then
$div
else
(nav:filler($config, $div), $div)[1]
};
Event Timeline
Log In to Comment