abaevdict/abaev-basex
1
0
Fork 1
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

search optimizations

Browse source
This commit is contained in:
Oleg Belyaev 2025-03-24 20:00:13 +03:00
parent 10b0f39199
commit 75564a010d
4 changed files with 73 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
xq/abv-mod.xqm
View file

@ -217,7 +217,7 @@ declare function abv-m:insert-full-lang($abbr as node(), $lang as xs:string) {
} }
}; };
declare function abv-m:make-html($src as document-node()+, declare function abv-m:make-html($src as node()+,
$lang as xs:string) $lang as xs:string)
as node()+ { as node()+ {
for $doc in $src for $doc in $src
@ -270,12 +270,11 @@ declare function abv-m:entry-form-by-id($id as xs:string) {
}; };
declare function abv-m:mark-element($doc as document-node(), declare function abv-m:mark-element($doc as document-node(),
$path as xs:string, $path as xs:string) {
$query as xs:string) {
let $doc-tr := $doc transform with { let $doc-tr := $doc transform with {
for $n in xquery:eval($path, {'': .}) for $n in xquery:eval($path, {'': .})
return replace node $n return replace node $n
with ft:mark($n[. contains text {$query}]) with <mark>{$n}</mark>
} }
return $doc-tr return $doc-tr
}; };
@ -286,19 +285,53 @@ declare function abv-m:search($db-lang as xs:string,
$query as xs:string) { $query as xs:string) {
let $db-name := `abaevdict_{$db-lang}` let $db-name := `abaevdict_{$db-lang}`
let $docs := collection(`{$db-name}/xml`) let $docs := collection(`{$db-name}/xml`)
let $hits := switch($type) let $test := switch($type)
case "full" return $docs//text()[. contains text {$query}] case "full" return
case "form" return $docs/tei:entry[1]/tei:form[./tei:orth contains text {$query}] fn ($node) {
case "sense" return $docs/tei:entry[1]//tei:sense[./tei:cit[@type='translationEquivalent'] contains text {$query}] $node//text() contains text {$query}
case "example" return $docs/tei:entry[1]//tei:cit[@type='example']/tei:quote[. contains text {$query}] }
case "translation" return $docs/tei:entry[1]//tei:cit[@type='translation' and . contains text {$query}] case "form" return
case "mentioned" return $docs/tei:entry[1]//tei:mentioned/(tei:m|tei:w|tei:phr|tei:s)[. contains text {$query}] fn ($node) {
case "gloss" return $docs/tei:entry[1]//tei:gloss[. contains text {$query}] $node//tei:form/tei:orth//text() contains text {$query}
case "etym" return $docs/tei:entry[1]/tei:etym[1][. contains text {$query}] }
default return $docs//text()[. contains text {$query}] case "sense" return
fn ($node) {
$node//tei:cit[@type='translationEquivalent']//text() contains text {$query}
}
case "example" return
fn ($node) {
$node//tei:cit[@type='example']/tei:quote//text() contains text {$query}
}
case "translation" return
fn ($node) {
$node//tei:cit[@type='translation']//text() contains text {$query}
}
case "mentioned" return
fn ($node) {
$node//tei:mentioned/(tei:m|tei:w|tei:phr|tei:s)/text() contains text {$query}
}
case "gloss" return
fn ($node) {
$node//tei:gloss//text() contains text {$query}
}
case "etym" return
fn ($node) {
$node/tei:etym[1]//text() contains text {$query}
}
default return
fn ($node) {
$node//text() contains text {$query}
}
let $hits := $docs//tei:entry[1][$test(.)]
return array:build(for $hit in $hits return array:build(for $hit in $hits
let $entry-id := db:get($db-name,db:path($hit))/tei:entry[1]/string(@xml:id) let $entry-id := $hit/@xml:id
group by $entry-id (: group by $entry-id :)
order by abv-m:sortKey(abv-m:entry-form-by-id($entry-id)) let $mark := ft:mark($hit[$test(.)])
return {'entry': $entry-id, 'nodes': array:build(for $node in $hit return path($node))}) order by abv-m:sortKey($hit/@xml:id)
return {'entry': $entry-id,
(: 'nodes': array:build(for $node in $hit return path($node)), :)
'tei': ft:mark($hit[$test(.)]),
'fragment': <span>{util:strip-namespaces(($mark//*[tei:mark])[1])/child::node()}</span>
}
)
}; };

30
xq/restx_dict_cached.xq
View file

@ -199,7 +199,7 @@ declare %rest:path("{$lang}/search/new")
if(array:size($sd) > 0) then if(array:size($sd) > 0) then
page:by-id($lang, page:by-id($lang,
$sd(1)('entry'), $sd(1)('entry'),
string-join($sd(1)('nodes'),'|')) '')
else else
web:redirect('../search/clear') web:redirect('../search/clear')
}; };
@ -211,7 +211,7 @@ declare %rest:path("{$lang}/search/next")
let $n as xs:integer := session:get('searchN')+1 let $n as xs:integer := session:get('searchN')+1
let $r1 := session:set('searchN', $n) let $r1 := session:set('searchN', $n)
let $sd := session:get('searchData') let $sd := session:get('searchData')
return page:by-id($lang, $sd($n)('entry'), string-join($sd($n)('nodes'),'|')) return page:by-id($lang, $sd($n)('entry'), ())
}; };
declare %rest:path("{$lang}/search/prev") declare %rest:path("{$lang}/search/prev")
@ -221,7 +221,7 @@ declare %rest:path("{$lang}/search/prev")
let $n as xs:integer := session:get('searchN')-1 let $n as xs:integer := session:get('searchN')-1
let $r1 := session:set('searchN', $n) let $r1 := session:set('searchN', $n)
let $sd := session:get('searchData') let $sd := session:get('searchData')
return page:by-id($lang, $sd($n)('entry'), string-join($sd($n)('nodes'),'|')) return page:by-id($lang, $sd($n)('entry'), ())
}; };
declare %rest:path("{$lang}/search/position") declare %rest:path("{$lang}/search/position")
@ -231,7 +231,7 @@ declare %rest:path("{$lang}/search/position")
function page:search-position($lang, $p as xs:integer) { function page:search-position($lang, $p as xs:integer) {
let $r1 := session:set('searchN', $p) let $r1 := session:set('searchN', $p)
let $sd := session:get('searchData') let $sd := session:get('searchData')
return page:by-id($lang, $sd($p)('entry'), string-join($sd($p)('nodes'),'|')) return page:by-id($lang, $sd($p)('entry'), ())
}; };
declare %rest:path("{$lang}/search/clear") declare %rest:path("{$lang}/search/clear")
@ -519,8 +519,13 @@ declare %rest:path("{$lang}/dict")
let $html := if ($xpath != '' and $entry = $doc/@xml:id) let $html := if ($xpath != '' and $entry = $doc/@xml:id)
then abv-m:mark-element( then abv-m:mark-element(
doc(`abaevdict_{$lang}/xml/{$doc/@xml:id}.xml`), doc(`abaevdict_{$lang}/xml/{$doc/@xml:id}.xml`),
$xpath, session:get('searchQuery')) => abv-m:make-html($lang) $xpath) => abv-m:make-html($lang)
else doc(`abaevdict_{$lang}/html/{$doc/@xml:id}.html`) else
let $sd := session:get('searchData')
let $sn := session:get('searchN')
return if (exists($sd) and $sd($sn)('entry') = $doc/@xml:id)
then abv-m:make-html($sd($sn)('tei'), $lang)
else doc(`abaevdict_{$lang}/html/{$doc/@xml:id}.html`)
return ( return (
(: Block with icons to the left of entry (floating) :) (: Block with icons to the left of entry (floating) :)
<div class="icons"> <div class="icons">
@ -606,8 +611,7 @@ declare %rest:path("{$lang}/dict")
</td> </td>
<td> <td>
{ {
xquery:eval($res('nodes')(1), $res('fragment')
{'': doc(`abaevdict_{$lang}/xml/{$res('entry')}.xml`)})
} }
</td> </td>
</tr> </tr>
@ -626,7 +630,7 @@ declare %rest:path("{$lang}/dict")
(: == ENTRY BY ID == :) (: == ENTRY BY ID == :)
(: English as default language :) (: English as default language :)
declare %rest:path("dict/{$id}") declare %rest:path("dict/{$id}")
%rest:query-param("xpath", "{$xpath}") %rest:query-param("xpath", "{$xpath}", '')
%output:method("html") %output:method("html")
%output:html-version('5') %output:html-version('5')
function page:by-id($id, $xpath) { function page:by-id($id, $xpath) {
@ -634,7 +638,7 @@ declare %rest:path("dict/{$id}")
}; };
declare %rest:path("{$lang}/dict/{$id}") declare %rest:path("{$lang}/dict/{$id}")
%rest:query-param("xpath", "{$xpath}") %rest:query-param("xpath", "{$xpath}", '')
%output:method("html") %output:method("html")
%output:html-version('5') %output:html-version('5')
function page:by-id($lang, $id, $xpath) { function page:by-id($lang, $id, $xpath) {
@ -642,9 +646,9 @@ declare %rest:path("{$lang}/dict/{$id}")
let $doc-index := index-where($page:sorted, fn { ./@xml:id=$id }) let $doc-index := index-where($page:sorted, fn { ./@xml:id=$id })
let $pagenum := ceiling($doc-index div $page:items) let $pagenum := ceiling($doc-index div $page:items)
return web:redirect('../dict', return web:redirect('../dict',
{'page': $pagenum, map:merge(({'page': $pagenum,
'entry': web:decode-url($id), 'entry': web:decode-url($id)},
'xpath': $xpath}, if ($xpath != '') then {'xpath': $xpath})),
web:decode-url($id)) web:decode-url($id))
}; };

6
xq/test.xq
View file

@ -3,8 +3,10 @@ declare namespace abv = "http://ossetic-studies.org/ns/abaevdict";
import module namespace abv-m = 'http://ossetic-studies.org/ns/abaevdict-mod' at './abv-mod.xqm'; import module namespace abv-m = 'http://ossetic-studies.org/ns/abaevdict-mod' at './abv-mod.xqm';
for $a in [1,2,3]?* let $search := abv-m:search('en','full','friend')
return $a let $frag := $search(1)('fragment')
return $frag
(: return abv-m:mark-element(db:get('abaevdict_en',`xml/{$search(1)('entry')}.xml`), $search(1)('nodes')(1), 'friend') => abv-m:make-html('en') :)
(: let $doc-tr := $doc transform with { (: let $doc-tr := $doc transform with {
replace node xquery:eval("/Q{http://www.tei-c.org/ns/1.0}entry[1]/Q{http://www.tei-c.org/ns/1.0}etym[1]/Q{http://www.tei-c.org/ns/1.0}mentioned[2]/Q{http://www.tei-c.org/ns/1.0}mentioned[18]", {'': .}) replace node xquery:eval("/Q{http://www.tei-c.org/ns/1.0}entry[1]/Q{http://www.tei-c.org/ns/1.0}etym[1]/Q{http://www.tei-c.org/ns/1.0}mentioned[2]/Q{http://www.tei-c.org/ns/1.0}mentioned[18]", {'': .})

3
xsl/abaev2html.xsl
View file

@ -130,8 +130,7 @@
</xsl:element> </xsl:element>
</xsl:template> </xsl:template>
<xsl:template match="tei:cit[@type='example']/tei:quote | <xsl:template match="tei:cit[@type='example']/tei:quote">
tei:cit[@type='example']/abv:mark/tei:quote">
<xsl:element name="i"> <xsl:element name="i">
<xsl:attribute name="class">abv-example</xsl:attribute> <xsl:attribute name="class">abv-example</xsl:attribute>
<xsl:attribute name="lang" select="../@xml:lang"/> <xsl:attribute name="lang" select="../@xml:lang"/>