about summary refs log tree commit diff
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)))