aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-08-11 15:33:50 +0300
committerMunyoki Kilyungi2023-08-15 19:32:47 +0300
commit196ca58b58c8da0709e290290d340a381f3a4e44 (patch)
tree993384c76d96967c40e2867cfbcf1549233768e9 /examples
parentecb9b3ab07a8d938d11138cb83751dbc5ce14b1a (diff)
downloadgn-transform-databases-196ca58b58c8da0709e290290d340a381f3a4e44.tar.gz
Delete explicit sql-level utf-8 conversions
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dump-dataset-metadata.scm42
1 files changed, 13 insertions, 29 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm
index 9dd7f44..8a93bc3 100755
--- a/examples/dump-dataset-metadata.scm
+++ b/examples/dump-dataset-metadata.scm
@@ -31,13 +31,7 @@
;; find Evan Williams' email ID and insert it into the database.
(string->identifier "investigator"
(string-join
- ;; Add special case for Yohan Bossé whose name
- ;; has unprintable characters.
- ;; TODO: Fix Yohan Bossé's name in the database.
- (let ((last-name (if (string=? first-name "Yohan")
- "Bosse"
- last-name)))
- (list first-name last-name (fix-email-id email)))
+ (list first-name last-name (fix-email-id email))
"_")))
(define-dump dump-investigators
@@ -50,13 +44,11 @@
(field Investigators Email))
(set rdf:type 'foaf:Person)
(set foaf:name (string-append (field Investigators FirstName) " "
- (if (string=? (field Investigators FirstName) "Yohan")
- "Bossé"
- (field Investigators LastName))))
+ (field Investigators LastName)))
(set foaf:givenName
- (field ("CAST(CONVERT(BINARY CONVERT(FirstName USING latin1) USING utf8) AS VARCHAR(100))" FirstName)))
+ (field Investigators FirstName))
(set foaf:familyName
- (field ("CAST(CONVERT(BINARY CONVERT(LastName USING latin1) USING utf8) AS VARCHAR(100))" LastName)))
+ (field Investigators LastName))
(set foaf:homepage (field Investigators Url))
(set v:adr (field Investigators Address))
(set v:locality (field Investigators City))
@@ -161,7 +153,7 @@
(field Investigators LastName)
(field Investigators Email)))
(set gdmt:hasCreatorAffiliation
- (field ("CAST(CONVERT(BINARY CONVERT(Organizations.OrganizationName USING latin1) USING utf8) AS VARCHAR(1500))" Organizations)))
+ (field Organizations OrganizationName))
(set gdmt:hasDatasetIdentifierSubType (format #f "GN~a" (field InfoFiles GN_AccesionId)))
(set gdmt:hasRightsInfo (string-downcase
(field DatasetStatus DatasetStatusName)))
@@ -191,42 +183,34 @@
(set gnt:hasContentInfo (sanitize-rdf-string (field InfoFiles Specifics)))
(set gnt:hasCaseInfo
(sanitize-rdf-string
- (field ("CAST(CONVERT(BINARY CONVERT(Datasets.AboutCases USING latin1) USING utf8) AS VARCHAR(10000))" AboutCases))))
+ (field Datasets AboutCases)))
(set gnt:hasPlatformInfo
(sanitize-rdf-string
- (field ("CAST(CONVERT(BINARY CONVERT(Datasets.AboutPlatform USING latin1) USING utf8) AS VARCHAR(1500))"
- AboutPlatform))))
+ (field Datasets AboutPlatform)))
(set gnt:hasDataProcessingInfo
(sanitize-rdf-string
- (field ("CAST(CONVERT(BINARY CONVERT(Datasets.AboutDataProcessing USING latin1) USING utf8) AS VARCHAR(1500))"
- AboutDataProcessing))))
+ (field Datasets AboutDataProcessing)))
(set gnt:hasNotes
(sanitize-rdf-string
- (field ("CAST(CONVERT(BINARY CONVERT(Datasets.Notes USING latin1) USING utf8) AS VARCHAR(1500))"
- GNNotes))))
+ (field Datasets Notes)))
(set gnt:hasExperimentDesignInfo
(sanitize-rdf-string
- (field ("CAST(CONVERT(BINARY CONVERT(Datasets.ExperimentDesign USING latin1) USING utf8) AS VARCHAR(1500))"
- ExperimentDesign))))
+ (field Datasets ExperimentDesign)))
(set gdmt:hasContributorInfo
(sanitize-rdf-string
- (field ("CAST(CONVERT(BINARY CONVERT(Datasets.Contributors USING latin1) USING utf8) AS VARCHAR(1500))"
- Contributors))))
+ (field Datasets Contributors)))
(set gdmt:IsCitedBy
(sanitize-rdf-string
(regexp-substitute/global
#f "^[Nn]one$"
- (field
- ("CAST(CONVERT(BINARY CONVERT(Datasets.Citation USING latin1) USING utf8) AS VARCHAR(1500))"
- Citation))
+ (field Datasets Citation)
"")))
(set gnt:hasAcknowledgement
(sanitize-rdf-string
(string-trim-both
(regexp-substitute/global
#f "^[Nn]one$"
- (field ("CAST(CONVERT(BINARY CONVERT(InfoFiles.Data_Source_Acknowledge USING latin1) USING utf8) AS VARCHAR(1500))"
- Data_Source_Acknowledge))
+ (field InfoFiles Data_Source_Acknowledge)
""))))
(set gnt:hasAcknowledgement (sanitize-rdf-string
(field Datasets Acknowledgment)))))