update to thumbnailator 0.4.8
This commit is contained in:
parent
b91d5adfcb
commit
4b00a768fa
18 changed files with 303 additions and 98 deletions
66
tools/buildx.xqm
Normal file
66
tools/buildx.xqm
Normal file
|
|
@ -0,0 +1,66 @@
|
|||
(:~
|
||||
: build utils
|
||||
: @author Andy Bunce
|
||||
: @copyright Quodatum Ltd
|
||||
: @licence Apache 2
|
||||
: @since may-2015
|
||||
:)
|
||||
module namespace build = 'quodatum.utils.build';
|
||||
declare default function namespace 'quodatum.utils.build';
|
||||
declare namespace pkg="http://expath.org/ns/pkg";
|
||||
(:~
|
||||
: file paths below $src
|
||||
: $src typically from resolve-uri
|
||||
: @return sequences of relative file paths "content/ebnf/CR-xquery-31-20141218.ebnf" "..."
|
||||
:)
|
||||
declare function files($src as xs:string) as xs:string*
|
||||
{
|
||||
fn:filter(file:list($src,fn:true()),
|
||||
function ($f){file:is-file($src || $f)}
|
||||
)
|
||||
!fn:translate(.,"\","/")
|
||||
};
|
||||
|
||||
(:~
|
||||
: write xqdoc for $src/$path to $dest
|
||||
:)
|
||||
declare %updating function write-xqdoc($path,$src,$dest){
|
||||
let $url:=fn:resolve-uri( $path,$src)
|
||||
let $type:=fetch:content-type($url)
|
||||
|
||||
return switch($type)
|
||||
case "application/xquery"
|
||||
return file:write(
|
||||
fn:resolve-uri($path || ".xml",$dest),
|
||||
inspect:xqdoc($url)
|
||||
)
|
||||
default
|
||||
return ()
|
||||
|
||||
};
|
||||
(:~
|
||||
: name of dist xar file eg "fred-0.1.0.xar"
|
||||
:)
|
||||
declare function xar-name($package as element(pkg:package)) as xs:string
|
||||
{
|
||||
fn:concat($package/@abbrev , "-" ,$package/@version, ".xar")
|
||||
};
|
||||
|
||||
(:~
|
||||
: update package.xml located at $cxan to ensure has entry for package $pkg
|
||||
:)
|
||||
declare %updating function publish($pkg as element(pkg:package),$cxan)
|
||||
{
|
||||
let $doc:=copy $c:=fn:doc($cxan)
|
||||
modify(
|
||||
let $pack:=$c/repo/pkg[name=$pkg/@name]
|
||||
let $hit:= $pack/version[@num=$pkg/@version]
|
||||
let $new:=<version num="{$pkg/@version}">
|
||||
<!-- generated: {fn:current-dateTime()} -->
|
||||
</version>
|
||||
return if($hit)then ()
|
||||
else insert node $new into $pack
|
||||
)
|
||||
return $c
|
||||
return fn:put($doc,$cxan)
|
||||
};
|
||||
Loading…
Add table
Add a link
Reference in a new issue