Joe Wicentowski joewiz

## jaro-winkler.xqy
xquery version "4.0";

(:~
 :
 : Module Name: Jaro-Winkler String Similarity
 : Date: February 26, 2024
 : License: GPLv3
 : XQuery specification: 4.0
 : Dependencies: BaseX 11.0
 : @author @timathom

## latest-news.html
<main class="news-list__latest">
  <ul>
      <li data-template="templates:each" data-template-from="articles" data-template-to="article">
          <a data-template="pr:article-link"/>
      </li>
  </ul>
</main>

## invocation.sh
# Go to https://bottlecaps.de/rex/ and use this command line on nested-parentheses.ebnf: -xslt -main -tree -ll 3 -backtrack
# Assumption: A Saxon front-end script called 'saxon' is on the path
saxon -o:out.xml -it:main -xsl:nested-parentheses.xslt input='{(((40 40, 20 45, 45 30, 40 40)), ((20 35, 10 30, 10 10, 30 5, 45 20, 20 35), (30 20, 20 15, 20 25, 30 20)))}' '!indent=yes'
# Looking at the main template of the generated XSLT, you need to surround the input string with curly braces; otherweise it will be interpreted as a file name

## xdm-type.xqm
declare function local:xdm-type($value as item()?) as xs:QName? {
  typeswitch($value)
    case array(*) return xs:QName("array")
    case map(*) return xs:QName("map")
    case function(*) return xs:QName("function")
    case document-node() return xs:QName("document")
    case element() return xs:QName("element")
    case attribute() return xs:QName("attribute")
    case comment() return xs:QName("comment")
    case processing-instruction() return xs:QName("processing-instruction")

## build.xml
<?xml version="1.0" encoding="UTF-8"?>
<project default="xar" name="wilde" xmlns:xdb="http://exist-db.org/ant">
  <description>Wilde Trials International News Archive</description>

  <property name="host" value="localhost"/>
  <property file="${host}.properties"/>

  <path id="classpath.core">
    <fileset dir="${local.dir}/lib">
      <include name="*.jar"/>

## xformsRepeats.xhtml
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:ev="http://www.w3.org/2001/xml-events" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xf="http://www.w3.org/2002/xforms" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
    <head>
        <title>Insert with Origin</title>
        <style type="text/css">
          @namespace xf url("http://www.w3.org/2002/xforms");
          body {font-family:Helvetica, sans-serif}
       </style>
        <xf:model>
            <xf:instance id="i-rec">
                <TEI xmlns="http://www.tei-c.org/ns/1.0">

## dicey.xq
xquery version "3.1";

declare namespace dicey="http://line-o.de/ns/dicey";

declare function dicey:sequence ($n as xs:integer,
        $generator as map(xs:string, item())) as item()* {
    fold-left(
        1 to $n,
        map { "sequence": (), "generator": $generator},
        dicey:reducer#2

## create-stats.xq
xquery version "3.1";

map {
  "date" : current-dateTime(),
  "packages" : array {
    for $get-package-event in collection("/db/apps/public-repo-data/logs")//type[.="get-package"]/..
    group by $name := $get-package-event/package-name/string()
    let $event-count := count($get-package-event)
    order by $event-count descending
    return

## eXide-customCSS.css
#toolbar-current-app {
    color:red !important;
    background-color:yellow;
    border-radius: 5px;
    padding-left: 5px;
    padding-right: 5px;
    border: 1px solid #f1c871;

}

## fib-exist.xq
xquery version "3.1";

(: adapted from https://stackoverflow.com/a/4936099 :)
declare function local:fib-reducer ($r, $n) { $r[1] + $r[2], $r[1] };

declare function local:fib($n as xs:integer) {
    fold-left((1 to $n), (0,1), local:fib-reducer#2)[1]
};

let $results :=
	xquery version "4.0";

	(:~
	:
	: Module Name: Jaro-Winkler String Similarity
	: Date: February 26, 2024
	: License: GPLv3
	: XQuery specification: 4.0
	: Dependencies: BaseX 11.0
	: @author @timathom
	<main class="news-list__latest">
	<ul>
	<li data-template="templates:each" data-template-from="articles" data-template-to="article">
	<a data-template="pr:article-link"/>
	</li>
	</ul>
	</main>
	# Go to https://bottlecaps.de/rex/ and use this command line on nested-parentheses.ebnf: -xslt -main -tree -ll 3 -backtrack
	# Assumption: A Saxon front-end script called 'saxon' is on the path
	saxon -o:out.xml -it:main -xsl:nested-parentheses.xslt input='{(((40 40, 20 45, 45 30, 40 40)), ((20 35, 10 30, 10 10, 30 5, 45 20, 20 35), (30 20, 20 15, 20 25, 30 20)))}' '!indent=yes'
	# Looking at the main template of the generated XSLT, you need to surround the input string with curly braces; otherweise it will be interpreted as a file name
	declare function local:xdm-type($value as item()?) as xs:QName? {
	typeswitch($value)
	case array(*) return xs:QName("array")
	case map(*) return xs:QName("map")
	case function(*) return xs:QName("function")
	case document-node() return xs:QName("document")
	case element() return xs:QName("element")
	case attribute() return xs:QName("attribute")
	case comment() return xs:QName("comment")
	case processing-instruction() return xs:QName("processing-instruction")
	<?xml version="1.0" encoding="UTF-8"?>
	<project default="xar" name="wilde" xmlns:xdb="http://exist-db.org/ant">
	<description>Wilde Trials International News Archive</description>

	<property name="host" value="localhost"/>
	<property file="${host}.properties"/>

	<path id="classpath.core">
	<fileset dir="${local.dir}/lib">
	<include name="*.jar"/>
	<html xmlns="http://www.w3.org/1999/xhtml" xmlns:ev="http://www.w3.org/2001/xml-events" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xf="http://www.w3.org/2002/xforms" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
	<head>
	<title>Insert with Origin</title>
	<style type="text/css">
	@namespace xf url("http://www.w3.org/2002/xforms");
	body {font-family:Helvetica, sans-serif}
	</style>
	<xf:model>
	<xf:instance id="i-rec">
	<TEI xmlns="http://www.tei-c.org/ns/1.0">
	xquery version "3.1";

	declare namespace dicey="http://line-o.de/ns/dicey";

	declare function dicey:sequence ($n as xs:integer,
	$generator as map(xs:string, item())) as item()* {
	fold-left(
	1 to $n,
	map { "sequence": (), "generator": $generator},
	dicey:reducer#2
	xquery version "3.1";

	map {
	"date" : current-dateTime(),
	"packages" : array {
	for $get-package-event in collection("/db/apps/public-repo-data/logs")//type[.="get-package"]/..
	group by $name := $get-package-event/package-name/string()
	let $event-count := count($get-package-event)
	order by $event-count descending
	return
	#toolbar-current-app {
	color:red !important;
	background-color:yellow;
	border-radius: 5px;
	padding-left: 5px;
	padding-right: 5px;
	border: 1px solid #f1c871;

	}
	xquery version "3.1";

	(: adapted from https://stackoverflow.com/a/4936099 :)
	declare function local:fib-reducer ($r, $n) { $r[1] + $r[2], $r[1] };

	declare function local:fib($n as xs:integer) {
	fold-left((1 to $n), (0,1), local:fib-reducer#2)[1]
	};

	let $results :=