WaxCylinderRevival

${date(yyyy-MM-dd'T'HH:mm:ss.SSSXXX)}

WaxCylinderRevival

${date(yyyy-MM-dd)}

WaxCylinderRevival

xquery version "3.1";

(:

Find cases such as this:

    <dateline>
        <placeName>Washington</placeName>, 
        <date when="1971-10-05">October 15, 1971</date>.
    </dateline>

WaxCylinderRevival

module namespace epoch = "https://gist.github.com/WaxCylinderRevival/ns/xquery/date-to-epoch-time";

declare function epoch:date-to-epoch-time
  ( $dateString as xs:string? )  as xs:decimal? {   
    if (empty($dateString))
    then ()
    else 
      if (matches($dateString, '^\d{4}-\d{2}-\d{2}$'))
      then (xs:dateTime(xs:date($dateString)) - xs:dateTime("1970-01-01T00:00:00-00:00")) div xs:dayTimeDuration('PT1S')
      else

WaxCylinderRevival

xquery version "3.1";

declare namespace tei="http://www.tei-c.org/ns/1.0";

import module namespace dates="http://xqdev.com/dateparser" at "xmldb:exist:///db/apps/twitter/modules/date-parser.xqm";

declare function local:get-date-candidate-field($div) {
    let $head := normalize-space(string-join($div/tei:head[1]/node()[not(./self::tei:note)]))
    let $source-note := normalize-space(string-join($div//tei:note[@type='source']))
    let $body := normalize-space(string-join($div/tei:head/following-sibling::node()))