From 67d740af11fe8059af264fc2a40ed2f71f4b82cd Mon Sep 17 00:00:00 2001
From: Uwe Sikora <sikora@sub.uni-goettingen.de>
Date: Tue, 6 Feb 2018 10:38:38 +0100
Subject: [PATCH] identifies single whitespace between nodes and escapes it
---
modules/intermediate_format/whitespace-handling.xqm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/modules/intermediate_format/whitespace-handling.xqm b/modules/intermediate_format/whitespace-handling.xqm
index 66539a4..030af17 100644
--- a/modules/intermediate_format/whitespace-handling.xqm
+++ b/modules/intermediate_format/whitespace-handling.xqm
@@ -32,9 +32,9 @@ declare function whitespace:text
let $normalized := normalize-space($text)
let $single-whitespace-between-nodes := $text
[ self::node() = ' ']
- [preceding-sibling::node()[not(self::node() = text())]]
- [following-sibling::node()[not(self::node() = text())]]
- return
+(: [preceding-sibling::node()[not(self::node() = text())]]:)
+(: [following-sibling::node()[not(self::node() = text())]]:)
+ return
if ( $normalized != "" or $single-whitespace-between-nodes) then (
if ($escape-char) then (
@@ -43,6 +43,7 @@ declare function whitespace:text
)
else ()
+
};
--
GitLab