From f19ef8e42f80e4a7c17bbedff62a471a73aa2ccb Mon Sep 17 00:00:00 2001
From: MRodz <rodzis@sub.uni-goettingen.de>
Date: Thu, 1 Nov 2018 10:30:10 +0100
Subject: [PATCH] Add first draft for bibliothek-der-neologie/bdn-SADE#59
---
modules/intermediate_format/ifweb.xql | 19 +++++++++++++++----
1 file changed, 15 insertions(+), 4 deletions(-)
diff --git a/modules/intermediate_format/ifweb.xql b/modules/intermediate_format/ifweb.xql
index e7b67f0..8eeeef0 100644
--- a/modules/intermediate_format/ifweb.xql
+++ b/modules/intermediate_format/ifweb.xql
@@ -38,16 +38,27 @@ as node()* {
return $intermediate-format
};
+
+declare function ifweb:transform($doc as node()*, $filename as xs:string,
+$target-dir as xs:string) as node()* {
+ let $preprocessed-data := pre:preprocessing($doc/tei:TEI, $ifweb:replace-whitespace)
+ let $intermediate-format := ident:walk($preprocessed-data, ())
+ let $store := xmldb:store($target-dir, $filename, $intermediate-format)
+
+ return $intermediate-format
+};
+
+
declare function ifweb:complete-xml($author as xs:string, $xml as node()*)
as node()* {
let $filename := $author || "-full-if.xml"
return ifweb:transform($xml, $filename)
};
-declare function ifweb:single-xml($resource as node()*, $filename as xs:string)
-as node()* {
- let $filename := substring-before($filename, '.xml') || "-if.xml"
- return ifweb:transform($resource, $filename)
+declare function ifweb:single-xml($filename as xs:string, $src-dir as xs:string,
+$target-dir as xs:string) as node()* {
+ let $resource := doc($src-dir || $filename)
+ return ifweb:transform($resource, $filename, $target-dir)
};
declare function ifweb:transform-split-xml($xml as node()*, $filename as xs:string,
--
GitLab