Add support for database default-rulesets

[grtjn]

I made following changes to setup.xqy locally to make it work..

Added this to setup:configure-indexes:

  let $admin-config := setup:add-default-rulesets($admin-config, $database, $db-config)

Added this to setup:validate-database-indexes:

    setup:validate-default-rulesets($admin-config, $database, $db-config)

And inserted this somewhere:

declare function setup:remove-existing-default-rulesets(
  $admin-config as element(configuration),
  $database as xs:unsignedLong) as element(configuration)
{
  admin:database-delete-default-ruleset($admin-config, $database, 
    admin:database-get-default-rulesets($admin-config, $database)
  )
};

declare function setup:add-default-rulesets(
  $admin-config as element(configuration),
  $database as xs:unsignedLong,
  $db-config as element(db:database)) as element(configuration)
{
  admin:database-add-default-ruleset(
    setup:remove-existing-default-rulesets($admin-config, $database),
    $database,
    $db-config/db:default-rulesets/db:default-ruleset/admin:database-ruleset(string(.))
  )
};

declare function setup:validate-default-rulesets(
  $admin-config as element(configuration),
  $database as xs:unsignedLong,
  $db-config as element(db:database))
{
  let $existing := admin:database-get-default-rulesets($admin-config, $database)
  for $expected in $db-config/db:default-rulesets/db:default-ruleset
  return
    if ($existing[fn:deep-equal(., $expected)]) then ()
    else
      setup:validation-fail(fn:concat("Missing default ruleset: ", $expected/db:location/fn:string(.)))
};

[grtjn]

Adding this to selftest would be nice, but only for ML8+..

[grtjn]

selftest would be possible if PR for #796 is merged..