From 289bdd9c8c1b579e8e36d74677144fac105e6a3f Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 23 Dec 2021 16:46:24 +0530 Subject: Disambiguate user and User tables in RDF identifier. * dump.scm (dump-schema, column-id): Disambiguate user and User tables in RDF identifier. --- dump.scm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/dump.scm b/dump.scm index 5be830a..882438b 100755 --- a/dump.scm +++ b/dump.scm @@ -199,7 +199,12 @@ ALIST field-name) forms." (define (column-id table-name column-name) (string->identifier - "field" (string-append table-name "__" column-name))) + "field" (string-append + ;; We downcase table names in identifiers. So, we + ;; distinguish between the user and User tables. + (if (string=? table-name "User") + "user2" table-name) + "__" column-name))) (define-syntax define-dump (lambda (x) @@ -598,7 +603,14 @@ is a object." (define (dump-schema db) (let ((tables (tables db))) (for-each (lambda (table) - (let ((table-id (string->identifier "table" (table-name table)))) + (let ((table-id (string->identifier + "table" + ;; We downcase table names in + ;; identifiers. So, we distinguish + ;; between the user and User tables. + (if (string=? (table-name table) "User") + "user2" + (table-name table))))) (triple table-id 'rdf:type 'gn:sqlTable) (triple table-id 'gn:name (table-name table)) (triple table-id 'gn:hasSize (table-size table)) -- cgit v1.2.3