Juri Leino line-o

## emt.xq
xquery version "3.1";

module namespace emt="//external-module-test";

declare function emt:transform($node as node()) as node()+ {
    typeswitch ($node)
        case document-node() return document { emt:transform($node/element()) }
        case attribute(xml:id) return (
            attribute old-id { $node/string() },
            attribute xml:id { "s" || $node }

## zip.xq
import module namespace array="http://www.w3.org/2005/xpath-functions/array";
import module namespace map="http://www.w3.org/2005/xpath-functions/map";

declare namespace _="//line-o.de/ns/underline";

declare function _:nth-item ($sequence as item()*, $pos as xs:integer) as item()* {
    $sequence[$pos]
};

declare function _:reduce-sequences (

## prob.xqm
module namespace prob = "//line-o.de/ns/prob";

declare namespace map = "http://www.w3.org/2005/xpath-functions/map";
declare namespace array = "http://www.w3.org/2005/xpath-functions/array";

(: select by p from prepared sequence of options :)
declare
function prob:select-by-p($options as array(*)+, $p as xs:double) as item()* {
    fold-left($options, (),
        prob:select(?, ?, $p)

## has-cdata.html
<html>
    <body>
        <script type="text/javascript"><![CDATA[ console.log(true && 1 < 2) ]]></script>
    </body>
</html>

## orcid.xqm
xquery version "3.1";

module namespace orcid="orcid/validate";

declare variable $orcid:R := 2;
declare variable $orcid:M := 11;
declare variable $orcid:format := '^(\d{4}-\d{4}-\d{4}-\d{3}|\d{15})[0-9X]$';
declare variable $orcid:is-valid-format := matches(?, $orcid:format);
declare variable $orcid:expected-sum := map{
    '1':1, '2':2, '3':3, '4':4, '5':5, '6':6, '7':7, '8':8, '9':9, 'X':10

## expected-output.txt
0600 (.rw-------) -> 0700 (.rwx------)
0755 (.rwxr-xr-x) -> 0755 (.rwxr-xr-x)
0660 (.rw-rw----) -> 0770 (.rwxrwx---)
0664 (.rw-rw-r--) -> 0775 (.rwxrwxr-x)
0666 (.rw-rw-rw-) -> 0777 (.rwxrwxrwx)
0622 (.rw--w--w-) -> 0733 (.rwx-wx-wx)
0777 (.rwxrwxrwx) -> 0777 (.rwxrwxrwx)

## safe-ebv.xq
xquery version "3.1";

declare function local:safe-effective-boolean-value-if (
    $result as item()*
) as xs:boolean {
    try {
        if ($result)
        then true()
        else false()
    } catch err:FORG0006 {

## 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>

## update-all.xq
xquery version "3.1";

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

declare namespace http="http://expath.org/ns/http-client";

declare namespace output = "http://www.w3.org/2010/xslt-xquery-serialization";
declare option output:method "json";
declare option output:media-type "application/json";

## flatten-one.xq
declare function local:flatten-one($nested as array(*)) as array(*) {
    array:fold-left($nested, [], function ($flattened as array(*), $next as item()*) as array(*) {
        typeswitch($next)
        case array(*) return array:join(($flattened, $next))
        default return array:append($flattened, $next)
    })
};

local:flatten-one([[1], 3, map{}, [1, [3,4]], ()])
	xquery version "3.1";

	module namespace emt="//external-module-test";

	declare function emt:transform($node as node()) as node()+ {
	typeswitch ($node)
	case document-node() return document { emt:transform($node/element()) }
	case attribute(xml:id) return (
	attribute old-id { $node/string() },
	attribute xml:id { "s" \|\| $node }
	import module namespace array="http://www.w3.org/2005/xpath-functions/array";
	import module namespace map="http://www.w3.org/2005/xpath-functions/map";

	declare namespace _="//line-o.de/ns/underline";

	declare function _:nth-item ($sequence as item(), $pos as xs:integer) as item() {
	$sequence[$pos]
	};

	declare function _:reduce-sequences (
	module namespace prob = "//line-o.de/ns/prob";

	declare namespace map = "http://www.w3.org/2005/xpath-functions/map";
	declare namespace array = "http://www.w3.org/2005/xpath-functions/array";

	(: select by p from prepared sequence of options :)
	declare
	function prob:select-by-p($options as array()+, $p as xs:double) as item() {
	fold-left($options, (),
	prob:select(?, ?, $p)
	<html>
	<body>
	<script type="text/javascript"><![CDATA[ console.log(true && 1 < 2) ]]></script>
	</body>
	</html>
	xquery version "3.1";

	module namespace orcid="orcid/validate";

	declare variable $orcid:R := 2;
	declare variable $orcid:M := 11;
	declare variable $orcid:format := '^(\d{4}-\d{4}-\d{4}-\d{3}\|\d{15})[0-9X]$';
	declare variable $orcid:is-valid-format := matches(?, $orcid:format);
	declare variable $orcid:expected-sum := map{
	'1':1, '2':2, '3':3, '4':4, '5':5, '6':6, '7':7, '8':8, '9':9, 'X':10
	0600 (.rw-------) -> 0700 (.rwx------)
	0755 (.rwxr-xr-x) -> 0755 (.rwxr-xr-x)
	0660 (.rw-rw----) -> 0770 (.rwxrwx---)
	0664 (.rw-rw-r--) -> 0775 (.rwxrwxr-x)
	0666 (.rw-rw-rw-) -> 0777 (.rwxrwxrwx)
	0622 (.rw--w--w-) -> 0733 (.rwx-wx-wx)
	0777 (.rwxrwxrwx) -> 0777 (.rwxrwxrwx)
	xquery version "3.1";

	declare function local:safe-effective-boolean-value-if (
	$result as item()*
	) as xs:boolean {
	try {
	if ($result)
	then true()
	else false()
	} catch err:FORG0006 {
	<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>
	xquery version "3.1";

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

	declare namespace http="http://expath.org/ns/http-client";

	declare namespace output = "http://www.w3.org/2010/xslt-xquery-serialization";
	declare option output:method "json";
	declare option output:media-type "application/json";
	declare function local:flatten-one($nested as array()) as array() {
	array:fold-left($nested, [], function ($flattened as array(), $next as item()) as array(*) {
	typeswitch($next)
	case array(*) return array:join(($flattened, $next))
	default return array:append($flattened, $next)
	})
	};

	local:flatten-one([[1], 3, map{}, [1, [3,4]], ()])