Benito van der Zander benibela
benibela
/ gist:6a6ce144c8f1ecbc6ea86e55bb766a62
Last active
August 30, 2021 13:16
test if json in a diff has changed or not
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (:input file: | |
| +json := ... | |
| -json := ... | |
| +json2 := ... | |
| -json2 := ... | |
| :) | |
| xidel patch.diff -e ' | |
| let $l := x:lines($raw) | |
| let $del := $l[starts-with(., "-") and not(starts-with(., "---"))] | |
| let $add := $l[starts-with(., "+") and not(starts-with(., "+++"))] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/bash | |
| #fpcmake -Tall | |
| if [ -f /usr/lib/fpc/3.0.4/ppcx64 ]; then localpath=/usr/lib/fpc/3.0.4; | |
| else if [ -f /usr/local/lib/fpc/3.0.4/ppcx64 ]; then localpath=/usr/local/lib/fpc/3.0.4; | |
| else if [ -f /usr/lib64/fpc/3.0.4/ppcx64 ]; then localpath=/usr/lib64/fpc/3.0.4; | |
| else if [ -f /usr/local/lib64/fpc/3.0.4/ppcx64 ]; then localpath=/usr/local/lib64/fpc/3.0.4; | |
| else if [ -f /usr/lib/fpc/3.0.0/ppcx64 ]; then localpath=/usr/lib/fpc/3.0.0; | |
| else if [ -f /usr/local/lib/fpc/3.0.0/ppcx64 ]; then localpath=/usr/local/lib/fpc/3.0.0; |
benibela
/ json-xml.xqm
Last active
September 29, 2020 19:22
— forked from joewiz/json-xml.xqm
An implementation of XQuery 3.1's fn:json-to-xml and fn:xml-to-json functions
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| xquery version "3.1"; | |
| (:~ | |
| : An implementation of XQuery 3.1"s fn:json-to-xml and fn:xml-to-json functions for eXist, which does not support them natively as of 4.3.0, and Xidel. | |
| : | |
| : @author Joe Wicentowski, Benito van der Zander | |
| : @version 0.6 | |
| : @see http://www.w3.org/TR/xpath-functions-31/#json | |
| :) | |
| module namespace jx = "http://joewiz.org/ns/xquery/json-xml"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program benchmark; | |
| {$mode objfpc}{$H+} | |
| uses | |
| {$IFDEF UNIX}{$IFDEF UseCThreads} | |
| cthreads, | |
| {$ENDIF}{$ENDIF} | |
| Classes, xquery.internals.common, bbutils, bbdebugtools,htmlInformation, SysUtils | |
| { you can add units after this }; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 5000 books | |
| original: | |
| I/VideLibri(22821): 2018-08-11:14:50:40:259 (1074753876): TESTING TIME: 9174 | |
| I/VideLibri(22821): 2018-08-11:14:50:56:704 (1074753876): TESTING TIME: 8211 | |
| I/VideLibri(22821): 2018-08-11:14:50:48:491 (1074753876): TESTING TIME: 8231 | |
| I/VideLibri(22821): 2018-08-11:14:51:05:039 (1074753876): TESTING TIME: 8335 | |
| I/VideLibri(22821): 2018-08-11:14:51:29:757 (1074753876): TESTING TIME: 8252 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/bash | |
| testpath=/tmp/fpctest | |
| records=$testpath/records | |
| testsh=$testpath/testrevision.sh | |
| while true; do | |
| oldestfail=$(grep failed $records | grep -oE '^[0-9]+' | sort -n | head -1) | |
| newestok=$(grep ok $records | grep -oE '^[0-9]+' | sort -n | tail -1) | |
| ((x=$oldestfail - $newestok)) |
benibela
/ format-integer
Created
March 14, 2016 00:30
Xidel can output large numbers, e.g.: format-integer(x:product(1 to 100000), "w")
This file has been truncated, but you can view the full file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| two duoquinquagintacentillinonagintacentillion eight hundred twenty-four duoquinquagintacentillinovemoctogintacentillion two hundred twenty-nine duoquinquagintacentillioctooctogintacentillion four hundred seven duoquinquagintacentilliseptemoctogintacentillion nine hundred sixty duoquinquagintacentillisexoctogintacentillion three hundred forty-seven duoquinquagintacentilliquinquaoctogintacentillion eight hundred seventy-four duoquinquagintacentilliquattoroctogintacentillion two hundred ninety-three duoquinquagintacentillitresoctogintacentillion four hundred twenty-one duoquinquagintacentilliduooctogintacentillion five hundred seventy-eight duoquinquagintacentilliunoctogintacentillion twenty-four duoquinquagintacentillioctogintacentillion five hundred thirty-five duoquinquagintacentillinovenseptuagintacentillion five hundred eighteen duoquinquagintacentillioctoseptuagintacentillion four hundred seventy-seven duoquinquagintacentilliseptenseptuagintacentillion four hundred ninety-four duoquinquagintacentillisesep |