joewiz

xquery version "3.1";

(: forked from https://gist.github.com/apb2006/4eef5889017be4a50685a467b2754d27 
 : with tests returned in the style of https://so.nwalsh.com/2020/10/09-fib :)

declare function local:fib($n as xs:integer, $a as xs:integer, $b as xs:integer){ 
    switch ($n)
        case 0 return $a
        case 1 return $b
            default return local:fib($n - 1, $b, $a + $b)

joewiz

xquery version "3.1";

(:~ 
 : Find possible OCR errors in a text by checking for patterns that an OCR
 : process is known to misread, e.g., "day" misread as "clay", or "France" 
 : misread as "Prance." If the OCR engine just misread some instances of these 
 : words but got other instances correct, then this query will highlight
 : candidates for correction.
 : 
 : The query lets you configure a source text and define pattern sets to be used. 

joewiz

xquery version "3.1";

(: WIP! :)

declare boundary-space preserve;

let $xconfs :=
    array {
        map { 
            "qname": "tei:div",

joewiz

Converting an eXist application from old-style fields to new, Lucene-based facets and fields

This article walks through the process of migrating an eXist application from using old-style fields to using the new, Lucene-based facets and fields. For more information, see the eXist documentation's Lucene article.

Old-style approach

In the old-style approach to fields, fields were constructed and maintained manually via the ft:index() function. To add or update fields for a document, a <doc> element containing <field> elements was passed to this function, along with the URI of the resource to be indexed.

For example, in one application, fields were constructed with in the hsa/modules/index.xq library module, whose index:index-one-document() function constructed the <field> elements and passed them to the ft:index() function:

joewiz

xquery version "3.1";

(: Use the eXist Stanford NLP package for sentence tokenization. 
 : Compared to my original "naïve" approach, this approach takes a quarter the number of lines of XQuery code. 
 : See https://gist.github.com/joewiz/5889711 :)

import module namespace nlp="http://exist-db.org/xquery/stanford-nlp";

declare function local:tokenize-sentences($text as xs:string) {
    local:tokenize-sentences($text, map{})

joewiz

xquery version "3.1";

let $node := <root><x/></root>
let $entry := <entry name="test.xml" type="xml">{$node}</entry>
let $zip := compression:zip($entry, true())
let $name := "test.zip"
return
    response:stream-binary($zip, "media-type=application/zip", "test.zip")

joewiz

xquery version "3.1";

import module namespace functx="http://www.functx.com";

(: Calculate the number of months between two dates, rounding down :)
declare function local:months-between-dates-floor($start-date as xs:date, $end-date as xs:date) {
    local:months-between-dates-floor($start-date, $end-date, xs:yearMonthDuration("P0M"))
};

(: A helper function for local:months-between-dates-floor :)

joewiz

xquery version "3.1";

(: 

# Save eXide editor tabs to disk

1. Install "LocalStorage Manager" Chrome extension

https://chrome.google.com/webstore/detail/localstorage-manager/fkhoimdhngkiicbjobkinobjkoefhkap

joewiz

xquery version "3.1";

(: 

## How variables in XQuery FLWOR expressions change when using the `group by` clause

Sometimes, when working with a `group by` clause, an XQuery FLWOR expression 
might suddenly seem to act strangely, or at least unintuitively. In particular, 
variables defined before the `group by` clause might suddenly seem to go haywire.

joewiz

xquery version "3.1";

array { 
    request:get-header-names() ! map { . : request:get-header(.) }
}