refactor links to XSLT

Author: philippepons

repo/backend/db_switch_build.xqm

@@ -25,9 +25,9 @@ declare namespace dct = "http://purl.org/dc/terms/";
  : Creates or updates the two XML documents in the "dots" database.
  : @return  The two documents to be added to the "dots" database.
 :)
-declare updating function dots.build:dots_db($rootId := "", $rootTitle := "", $rootDescription := "") {
+declare updating function dots.build:dots_db($rootId := "", $rootTitle := "", $rootDescription := "", $linkXSL := "", $defaultEngine := "") {
   let $dbSwitch := dots.build:switcher()
-  let $metadataMap := dots.build:metadataMap($rootId, $rootTitle, $rootDescription)
+  let $metadataMap := dots.build:metadataMap($rootId, $rootTitle, $rootDescription, $linkXSL, $defaultEngine)
   return db:create($G:dots, ($dbSwitch, $metadataMap), ($G:dbSwitcher, $G:metadataMapping))
 };
 
@@ -59,7 +59,7 @@ declare %private function dots.build:switcher() {
  : Creates the "dots_default_metadata_mapping.xml" document.
  : @return a <metadataMap/> element with XPath-based mappings for title, creator, and publisher metadata.
 :)
-declare %private function dots.build:metadataMap($rootId as xs:string := "", $rootTitle as xs:string := "", $rootDescription as xs:string := "") {
+declare %private function dots.build:metadataMap($rootId as xs:string := "", $rootTitle as xs:string := "", $rootDescription as xs:string := "", $linkXSL as xs:string := "", $defaultEngine as xs:string := "") {
   <metadataMap xmlns="https://github.com/chartes/dots/" xmlns:dc="http://purl.org/dc/elements/1.1/"
       xmlns:dct="http://purl.org/dc/terms/">{
     dots.build:headers("metadataMap"),
@@ -72,6 +72,10 @@ declare %private function dots.build:metadataMap($rootId as xs:string := "", $ro
       <dc:title xpath="//titleStmt/title[@type = 'main' or position() = 1]" scope="document"/>
       <dc:creator xpath="//titleStmt/author" scope="document"/>
       <dct:publisher xpath="//publicationStmt/publisher" scope="document"/>
-    </mapping>
+    </mapping>,
+    <settings>
+      <linkXSL>{$linkXSL}</linkXSL>
+      <defaultEngine>{$defaultEngine}</defaultEngine>
+    </settings>
   }</metadataMap>
 };

repo/globals.xqm

@@ -15,17 +15,23 @@ declare default element namespace "https://github.com/chartes/dots/";
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ :) 
 
 (:~ Variable pour accéder aux feuilles de transformation XSLT :)
-(: "../../../../../../../transform/" :)
-declare function G:linkToXsl($dbName as xs:string) {
-  let $specificLink := db:get($dbName, $G:metadata)//settings/linkXSL
+(: "/srv/transform/" :)
+declare function G:linkToXsl() {
+  let $specificLink := db:get($G:dots)//settings/linkXSL
   return
     if ($specificLink)
     then if (ends-with($specificLink, "/")) then $specificLink else concat($specificLink, "/")
     else concat($G:webapp, "/webapp/static/transform/")
 };
 (: declare variable $G:xsl := concat($G:webapp, "/webapp/static/transform/"); :) 
 
-declare variable $G:defaultXslEnginePath := "Stylesheets/html/html.xsl";
+declare function G:defaultXslEnginePath() {
+  let $defaultEngine := db:get($G:dots)//settings/defaultEngine
+  where $defaultEngine
+  return
+    normalize-space($defaultEngine)
+};
+(: "hteiml/tei2html.xsl" :)
 
 (: declare variable $G:defaultXslEnginePath := "hteiml/tei2html.xsl"; :)
 (: declare variable $G:defaultXslEnginePath := "tei-xsl-7.58.0/xml/tei/stylesheet/txt/tei-to-text.xsl"; :)

scripts/dots_db_init.xq

@@ -7,10 +7,12 @@ import module namespace script = "script";
 declare variable $rootId external := ();
 declare variable $rootTitle external := ();
 declare variable $rootDescription external := ();
+declare variable $linkXSL external := ();
+declare variable $defaultEngine external := (); 
 
 if (db:exists($G:dots)) then (
   script:success("La base de données 'dots' existe déjà. Commande non nécessaire.")
 ) else (
-  dots.build:dots_db($rootId, $rootTitle, $rootDescription),
+  dots.build:dots_db($rootId, $rootTitle, $rootDescription, $linkXSL, $defaultEngine),
   script:success("La base de données 'dots' a été initialisée.")
 )

scripts/project_create.sh

@@ -34,6 +34,10 @@ function usage {
     echo "          (default: false)"
     echo "  --delete              choice to delete only registers or all the database"
     echo "          (default: false)"
+    echo "  --link_XSL             option for the default path to the XSLTs directory"
+    echo "          (default: '')   "
+    echo "  --default_engine       option for the default Engine XSLT"
+    echo "          (default: '')   "
     echo "  --unit_test           choice to launch unit tests"
     echo "          (default: false)"
     echo ""
@@ -58,7 +62,7 @@ elif [[ -z $db_name ]]; then
     die "Missing parameter --db_name"
 fi
 
-bash "$basex_path/basex" -b rootId=$root_id -b rootTitle="$root_title" -b rootDescription="$root_description" scripts/dots_db_init.xq;
+bash "$basex_path/basex" -b rootId=$root_id -b rootTitle="$root_title" -b rootDescription="$root_description" -b linkXSL=$link_XSL -b defaultEngine=$default_engine scripts/dots_db_init.xq;
 
 if [ $cleanOption ]; then
   if [ $delete ]; then

scripts/project_create.xq

@@ -9,6 +9,8 @@ declare variable $option external := ();
 declare variable $rootId external := ();
 declare variable $rootTitle external := ();
 declare variable $rootDescription external := ();
+declare variable $linkXSL external := ();
+declare variable $defaultEngine external := (); 
 
 for $script in ('../scripts/dots_db_init.xq', if ($option) then '../scripts/dots_registers_delete.xq', '../scripts/project_db_init.xq', 
   '../scripts/project_registers_create.xq', '../scripts/TEI_add_id.xq', '../scripts/dots_switcher_update.xq')
@@ -19,6 +21,8 @@ return script:execute(xs:anyURI($script), map {
   'option': $option,
   'rootId': $rootId,
   'rootTitle': $rootTitle,
-  'rootDescription': $rootDescription
+  'rootDescription': $rootDescription,
+  'linkXSL': $linkXSL,
+  'defaultEngine': $defaultEngine
 })
 

webapp/restxq/routes.xqm

@@ -206,14 +206,14 @@ function routes:document(
             switch ($media-type)
             case ($media-type[. = "html"]) return
               let $style :=
-                let $xsl := G:linkToXsl($dbName)
+                let $xsl := G:linkToXsl()
                 return
                   if (file:exists(concat($xsl, $dbName, "/", $resource, ".xsl")))
                   then concat($xsl, $dbName, "/", $resource, ".xsl")
                   else 
                     if (file:exists(concat($xsl, $dbName, "/", $dbName, ".xsl")))
                     then concat($xsl, $dbName, "/", $dbName, ".xsl")
-                    else concat($xsl, $G:defaultXslEnginePath)
+                    else concat($xsl, G:defaultXslEnginePath())
               return
                 xslt:transform($result, $style)
             default return $result