apb2006’s gists

apb2006 / jetty.xml

Created March 6, 2018 19:24

	<?xml version="1.0"?>
	<!DOCTYPE Configure PUBLIC "-//Jetty//Configure//EN" "http://www.eclipse.org/jetty/configure_9_3.dtd">

	<Configure id="Server" class="org.eclipse.jetty.server.Server">
	<!-- Force all communication over secure channels. -->
	<Set name="handler">
	<New id="Handlers" class="org.eclipse.jetty.server.handler.HandlerCollection">
	<Set name="handlers">
	<Array type="org.eclipse.jetty.server.Handler">
	<Item>

apb2006 / creators.xhtml

Created October 17, 2017 10:49

XForms sample repeating group

	<?xml-stylesheet href="../xsltforms/xsltforms.xsl" type="text/xsl"?>
	<?css-conversion no?>
	<html xmlns:xf="http://www.w3.org/2002/xforms"
	xmlns:xs="http://www.w3.org/2001/XMLSchema"
	xmlns:ev="http://www.w3.org/2001/xml-events"
	xmlns="http://www.w3.org/1999/xhtml">
	<head>
	<title>Creator test</title>
	<link rel="stylesheet" type="text/css" href="local.css"/>
	<xf:model>

apb2006 / json-test.xqm

Created February 25, 2017 17:12

restxq returning json with cors header

	(:~
	: JSON test apb feb 2017
	:)

	module namespace page = 'json-test';

	(: test data :)
	declare variable $page:data:=<json objects="json _">
	<total type="number">15</total>
	<entity>app</entity>

apb2006 / test.xq

Last active January 5, 2017 20:13

	(: queue async run of all tests in $dir :)
	declare function local:queue-tests($dir as xs:string,$opts as map(*)) as xs:string
	{
	let $q:=``[
	declare variable $password external;
	client:connect('localhost',
	db:system()/globaloptions/port/xs:integer(.),
	'admin',
	$password)
	! client:execute(.,'TEST "`{$dir}`"')

apb2006 / angular.xq

Created December 22, 2016 22:49

	import module namespace xp="http://expath.org/ns/xparse";
	declare variable $js:="C:\Users\andy\workspace\app-doc\src\static\doc\feats\files\files.js";
	let $t:="" \|\| file:read-text($js)
	return xp:parse($t,map{"lang":"ecmascript"})

apb2006 / gist:8bdb7effa3241940a3174e4e74a6eb06

Created December 13, 2016 22:41

xqlint json xqdoc

	declare variable $src:="C:\Users\andy\git\xqlint\test\index.json";
	(: json-doc($src) :)
	file:read-text($src)=>json-to-xml()

apb2006 / large-form.xqm

Last active December 6, 2016 12:07

BaseX RESTXQ reading repeated form values

	(:~
	: JSON form test apb 6dec 2016
	:)

	module namespace page = 'form-test';
	import module namespace request = "http://exquery.org/ns/request";
	declare
	%rest:path("/form2")
	%rest:GET
	%output:method("html")

apb2006 / Final Draft.xq

Last active November 12, 2016 19:02

	(: https://libertyseeds.ca/2015/07/21/Investigating-Final-Draft-s-XML-document-format-with-Ruby/ :)
	declare function local:update($result as map(),$next as element()) as map()
	{
	let $name:=name($next)
	let $current:=$result($name)
	let $atribs:=$next/@*[if(empty($current)) then true() else not( .=$current(name(.)))]
	let $atribs:=map:merge(($current, $atribs!map:entry(name(.),string(.))), map{'duplicates': 'combine'})
	return map:put($result,$name,$atribs)
	};

apb2006 / restxq.xqm

Created July 21, 2016 11:47

BaseX RESTXQ Content Negotiation

	module namespace page = 'http://basex.org/modules/web-page';
	declare
	%rest:path("content")
	%rest:produces("application/json")
	%output:method("json")
	function page:content1(){
	<json type="object">
	<msg>Hello</msg>
	</json>
	};

apb2006 / rex.xq

Last active May 20, 2016 12:15

call REx from XQuery

	(: ebnf to Java parser for BaseX using REx :)
	declare function local:REx-request($ebnf as xs:string,$name as xs:string,$command as xs:string)as item()+{
	let $req:=
	<request xmlns="http://expath.org/ns/http-client" href='http://www.bottlecaps.de/rex/' method="post">
	<multipart media-type="multipart/form-data" boundary="xyzBouNDarYxyz">
	<header name="Content-Disposition" value='form-data; name="command"'/>
	<body media-type="text/plain"/>
	<header name="Content-Disposition" value='form-data; name="input"; filename="{$name}.ebnf"'/>
	<body media-type="text/plain"/>
	</multipart>

Andy Bunce apb2006