aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-05-22 10:30:30 +0300
committerBonfaceKilz2023-05-26 08:40:22 +0300
commitb03ce9b304466e7f620ef852bdf377938e2a8279 (patch)
treebcb7ccbdbe2f41efd293dd3d0524160885cc01df /dump
parentafaa6b096ec0df7055faafbe7f89917f734b3897 (diff)
downloadgn-transform-databases-b03ce9b304466e7f620ef852bdf377938e2a8279.tar.gz
Replace broken char-sets with an empty string
* dump/strings.scm (sanitize-rdf-string): Add extra elements---broken chars---to replace with "". Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump')
-rw-r--r--dump/strings.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/dump/strings.scm b/dump/strings.scm
index c67d7fc..849b3c3 100644
--- a/dump/strings.scm
+++ b/dump/strings.scm
@@ -72,7 +72,13 @@ association list mapping substrings to their replacements."
'(("\r" . "\\r")
("\n" . "\\n")
("\"" . "'")
- ("\v" . ""))))
+ ("\v" . "")
+ ("\xad" . "")
+ ("\x28" . "")
+ ("\x29" . "")
+ ("\xa0" . " ")
+ ("\x02" . "")
+ ("\x01" . ""))))
(define (snake->lower-camel str)
(let ((char-list (string->list str)))