Skip to content

Implement support for Wikidata ID and dates markup in sourceDesc #358

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
cmil merged 1 commit into from
Mar 24, 2026
Merged

Implement support for Wikidata ID and dates markup in sourceDesc #358

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 6 additions & 2 deletions modules/metrics.xqm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,9 +62,13 @@ declare function metrics:update-sitelinks($url as xs:string) {
declare function metrics:collect-sitelinks($corpus as xs:string) {
util:log-system-out('collecting sitelinks for corpus ' || $corpus),
let $collection := $config:corpora-root || '/' || $corpus
(: DEPRECATED: remove standOff support in v2 :)
for $tei in collection($collection)
/tei:TEI[.//tei:standOff/tei:listRelation
/tei:relation[@name="wikidata"]/@passive]
/tei:TEI[
tei:teiHeader//tei:sourceDesc/tei:bibl[@type="wikidata"]/tei:idno
or
tei:standOff/tei:listRelation/tei:relation[@name="wikidata"]/@passive
]
return metrics:update-sitelinks($tei/base-uri())
};

Expand Down
55 changes: 41 additions & 14 deletions modules/util.xqm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -345,7 +345,9 @@ declare function local:get-year($iso-date as xs:string) as xs:string* {
: @return Map of years
:)
declare function dutil:get-years-iso ($tei as element(tei:TEI)*) as map(*) {
let $dates := $tei//tei:standOff/tei:listEvent/tei:event
(: DEPRECATED: remove standOff support in v2 :)
let $dates := $tei/(tei:standOff|tei:teiHeader//tei:sourceDesc)
/tei:listEvent/tei:event
[@type = ("print", "premiere", "written")]
[@when or @notAfter or @notBefore]

Expand Down Expand Up @@ -375,7 +377,9 @@ declare function dutil:get-years-iso ($tei as element(tei:TEI)*) as map(*) {
: @return Map of years
:)
declare function dutil:get-years ($tei as element(tei:TEI)*) as map(*) {
let $dates := $tei//tei:standOff/tei:listEvent/tei:event
(: DEPRECATED: remove standOff support in v2 :)
let $dates := $tei/(tei:standOff|tei:teiHeader//tei:sourceDesc)
/tei:listEvent/tei:event
[@type = ("print", "premiere", "written")]
[@when or @notAfter or @notBefore]

Expand Down Expand Up @@ -406,15 +410,16 @@ declare function dutil:get-years ($tei as element(tei:TEI)*) as map(*) {
: Retrieve premiere date for the play passed in $tei.
:
: This function only returns a value when the exact date of the premiere in ISO
: format (YYYY-MM-DD) is specified in tei:standOff.
: format (YYYY-MM-DD) is specified in sourceDesc/listEvent.
:
: @param $tei The TEI root element of a play
: @return ISO date string
:)
declare function dutil:get-premiere-date ($tei as element(tei:TEI)*) as xs:string* {
let $date := $tei//tei:standOff/tei:listEvent/tei:event
[@type = "premiere"]/@when
return if (matches($date, "^-?[0-9]{4}-[0-9]{2}-[0-9]{2}")) then $date else ()
(: DEPRECATED: remove standOff support in v2 :)
let $date := $tei/(tei:standOff|tei:teiHeader//tei:sourceDesc)
/tei:listEvent/tei:event[@type = "premiere"]/@when
return if (matches($date[1], "^-?[0-9]{4}-[0-9]{2}-[0-9]{2}")) then $date[1] else ()
};

(:~
Expand Down Expand Up @@ -947,14 +952,25 @@ declare function dutil:get-source($tei as element(tei:TEI)) as map()? {
};

(:~
: Extract Wikidata ID for play from standOff.
: Extract Wikidata QID for play.
:
: @param $tei TEI element
: @see https://dracor.org/doc/odd#section-play-wikidata
:)
declare function dutil:get-play-wikidata-id ($tei as element(tei:TEI)) {
let $uri := $tei//tei:standOff/tei:listRelation
let $idno := $tei/tei:teiHeader/tei:fileDesc/tei:sourceDesc
/tei:bibl[@type eq 'wikidata']
/tei:idno[matches(normalize-space(.), '^Q[1-9]\d*$')]
(: DEPRECATED: remove standOff support in v2 :)
let $uri := $tei/tei:standOff/tei:listRelation
/tei:relation[@name="wikidata"][1]/@passive/string()
return if (starts-with($uri, 'http://www.wikidata.org/entity/')) then

return if (count($idno)) then
normalize-space($idno[1])
else if (
starts-with($uri, 'http://www.wikidata.org/entity/')
and matches($uri, '/Q[1-9]\d*$')
) then
tokenize($uri, '/')[last()]
else ()
};
Expand All @@ -966,12 +982,23 @@ declare function dutil:get-play-wikidata-id ($tei as element(tei:TEI)) {
:)
declare function dutil:get-play-wikidata-ids ($corpus as xs:string) {
let $collection := $config:corpora-root || '/' || $corpus
for $uri in collection($collection)
/tei:TEI//tei:standOff/tei:listRelation
return (
for $idno in collection($collection)
/tei:TEI/tei:teiHeader/tei:fileDesc/tei:sourceDesc
/tei:bibl[@type="wikidata"]
/tei:idno[matches(normalize-space(.), '^Q[1-9]\d*$')]
return normalize-space($idno),
(: DEPRECATED: remove standOff support in v2 :)
for $uri in collection($collection)
/tei:TEI/tei:standOff/tei:listRelation
/tei:relation[@name="wikidata"]/@passive/string()
return if (starts-with($uri, 'http://www.wikidata.org/entity/')) then
tokenize($uri, '/')[last()]
else ()
return if (
starts-with($uri, 'http://www.wikidata.org/entity/')
and matches($uri, '/Q[1-9]\d*$')
) then
tokenize($uri, '/')[last()]
else ()
)
};

(:~
Expand Down
Loading