Xquery 如何中止和清理不在'；不符合规格？ 问题是：
我有一个重要的应用程序，它不会在默认最小内存配置的exist实例上运行。尽管如此，在安装说明中还是突出显示了这一点。用户不断尝试安装，结果导致实例崩溃。避免让应用程序的用户感到沮丧，并尝试在“RTM！”之外保持阳光灿烂的态度 解决方案（到目前为止） 我这样修改了pre-install.xql，以便在cacheSize或内存低于所需最小值时中止Xquery 如何中止和清理不在'；不符合规格？ 问题是：,xquery,exist-db,Xquery,Exist Db,我有一个重要的应用程序，它不会在默认最小内存配置的exist实例上运行。尽管如此，在安装说明中还是突出显示了这一点。用户不断尝试安装，结果导致实例崩溃。避免让应用程序的用户感到沮丧，并尝试在“RTM！”之外保持阳光灿烂的态度 解决方案（到目前为止） 我这样修改了pre-install.xql，以便在cacheSize或内存低于所需最小值时中止 xquery version "3.0"; import module namespace xdb = "http://exist-db.org/xqu
xquery version "3.0";
import module namespace xdb = "http://exist-db.org/xquery/xmldb";
import module namespace file = "http://exist-db.org/xquery/file" at "java:org.exist.xquery.modules.file.FileModule";
(: The following external variables are set by the repo:deploy function :)
(: file path pointing to the exist installation directory :)
declare variable $home external;
(: path to the directory containing the unpacked .xar package :)
declare variable $dir external;
(: the target collection into which the app is deployed :)
declare variable $target external;
(: the path to the exist-db installation :)
declare variable $exist_home as xs:string := system:get-exist-home();
(:check available memory:)
declare variable $mem-max := system:get-memory-max();
(: minimum memory requirements :)
declare variable $mem-req := 2000000000;
(: minimum cache Size:)
declare variable $cache-req := 500;
declare function local:mkcol-recursive($collection, $components) {
if (exists($components)) then
let $newColl := concat($collection, "/", $components[1])
return
(
xdb:create-collection($collection, $components[1]),
local:mkcol-recursive($newColl, subsequence($components, 2))
)
else
()
};
(: Helper function to recursively create a collection hierarchy. :)
declare function local:mkcol($collection, $path) {
local:mkcol-recursive($collection, tokenize($path, "/"))
};
(: Helper function to check the instance's chacheSize. :)
declare function local:check-cache-size($path as xs:string) as xs:boolean {
if (file:is-readable($path || "/conf.xml"))
then
(
let $doc := fn:parse-xml(file:read($path || "/conf.xml"))
return
if (number(substring-before($doc//exist/db-connection/@cacheSize/string(), "M")) > $cache-req)
then
(fn:true())
else
(fn:error(fn:QName('https://github.com/duncdrum/cbdb-data', 'err:cache-low'), 'Your configured cacheSize is too low')))
else
(fn:true())
};
(: Helper function to check the instance's memory. :)
declare function local:check-mem-size($memory as xs:integer) as xs:boolean {
if ($memory > $mem-req)
then
(fn:true())
else
(fn:error(fn:QName('https://github.com/duncdrum/cbdb-data', 'err:memory-low'), 'Your configured -xmx memory is too low'))
};
if (local:check-mem-size($mem-max) and local:check-cache-size($exist_home))
then
(
(: store the collection configuration :)
local:mkcol("/db/system/config", $target),
xdb:store-files-from-pattern(concat("/db/system/config", $target), $dir, "*.xconf"))
else
(fn:error(fn:QName('https://github.com/duncdrum/cbdb-data', 'err:pre-crash'), 'An unknown error occured during pre-install'))
db/apps/myapp控制台：log$memreq我尝试了
util:logfn:tracerepo-undeploy（）、repo-remove（）fn:errorfn:error