From 4b38b4d9f6d26dc5b2137d2c1848adbd4a8b1305 Mon Sep 17 00:00:00 2001
From: MRodz <rodzis@sub.uni-goettingen.de>
Date: Tue, 10 Jul 2018 08:54:18 +0200
Subject: [PATCH] Undo changes (have been introduced for testing)
---
.../intermediate_format/whitespace-handling.xqm | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/modules/intermediate_format/whitespace-handling.xqm b/modules/intermediate_format/whitespace-handling.xqm
index cd2a09e..7cd0209 100644
--- a/modules/intermediate_format/whitespace-handling.xqm
+++ b/modules/intermediate_format/whitespace-handling.xqm
@@ -31,9 +31,9 @@ declare function whitespace:text
( $text as text()*, $escape-char as xs:string? ) as text()* {
let $whitespace-node := $text[matches(., "[\s\n\r\t]") and normalize-space(.) = ""]
- let $single-whitespace-between-nodes := $text = ' '
+ let $single-whitespace-between-nodes := $text = " "
return
- if ( not($whitespace-node) or $single-whitespace-between-nodes) then (
+ if (not($whitespace-node)) then (
if ($escape-char) then (
whitespace:escape-text($text, "@")
@@ -63,3 +63,16 @@ declare function whitespace:escape-text
text {replace($text, '[\s]+', $escape)}
};
+
+declare function whitespace:remove($nodes as node()*) as node()* {
+ for $node in $nodes
+ return
+ typeswitch ($node)
+ case text() return
+ if([matches($node, "[\s\n\r\t]") and normalize-space(.) = ""]) then
+ ()
+ else
+ $node
+ default return
+ $node
+};
--
GitLab