jamescummings

<?xml version="1.0" encoding="UTF-8"?>
<TEI xmlns="http://www.tei-c.org/ns/1.0">
   <teiHeader>
      <fileDesc>
         <titleStmt>
            <title>TEI Minimal</title>
            <author>James Cummings</author>
         </titleStmt>
         <publicationStmt>
            <publisher>TEI Consortium</publisher>

line-o

xquery version "3.1";

import module namespace imfd='http://existsolutions.com/apps/imfd' at '/db/temp/imfd.xqm';

let $now := current-dateTime()
let $tz := timezone-from-dateTime($now)
let $imfd := imfd:format($now)
let $gmt := imfd:to-dateTime($imfd)
let $reversed := adjust-dateTime-to-timezone($gmt + $tz, $tz)

adamretter

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

(: NOTE -- functx uses 1 to 7 to represent MON-SUN, whereas eXist-db's datetime module used 1 to 7 to represent SUN-SAT :)

declare variable $local:MON := 1;
declare variable $local:TUES := 2;
declare variable $local:WEDS := 3;
declare variable $local:THURS := 4;
declare variable $local:FRI := 5;
declare variable $local:SAT := 6;

grantmacken

NAME=newBase60
CONTAINER=exDev
PORT=8282
USE_DC_OVERRIDE=yes
DC_OVERRIDE_NETWORK=www

xquery

declare function local:topo-sort($unsorted, $sorted )  {
    if (empty($unsorted)) then $sorted
    else
        let $allnodes := $unsorted [ every $id in depends/@id satisfies $id = $sorted/@id]
        return 
          if ($allnodes) then 
			local:topo-sort( $unsorted except $allnodes, ($sorted, $allnodes ))
          else () 
};

xquery

xquery version "3.0";

(: the power of algebraic data types in xquery

   This example shows how we can composite up data models
   which 'carry' their own operations along with them.

 :)

(: using John Snelson's inspirational https://github.com/jpcs/data.xq :)

adamretter

PROVIDER   |   ALGORITHM
-----------|------------
SUN
		MD2
		MD5
		SHA
		SHA-224
		SHA-256
		SHA-384
		SHA-512

line-o

xquery version '3.1';
(:~
  this script must be run with a user in the DBA group
  
  add this line to your post-install script or run it manually
  it will set the GID sticky bit
  chown('/path/to/this/script.xq', 'admin', 'dba')
  chmod('/path/to/this/script.xq', 'rwxr-S---')
:)

wsalesky

xquery version "3.1";

(:~ 
 : POC: XQuery to commit content to github reop via github API. Tested in eXist-db v4.4.0 
 : Code creates a new branch off of the master branch, commits updated content to the new branch 
 : and then submits a pull request when complete. Intended use is for online data submission, 
 : using GitHub for review/approval process.
 :
 : Prerequisites:
 : In order to run the module, you will need a github Authorization token.

dizzzz

(: wolfgang :)
for $i in (1, 5, 2, 4, 5)
group by $j := $i
return
    $j || ": " || count($i)
    
(: adam :)
let $seq := (1, 5, 2, 4, 5)
return
    distinct-values(