From 02033b4eee1ad80707b38466b2a286a4e7baa0a7 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 14 Jan 2026 20:43:50 +0300 Subject: Replace camelCase with snake_case. Signed-off-by: Munyoki Kilyungi --- examples/schema.scm | 6 +++--- transform/schema.scm | 6 +++--- visualize-schema.scm | 20 ++++++++++---------- 3 files changed, 16 insertions(+), 16 deletions(-) diff --git a/examples/schema.scm b/examples/schema.scm index 5d74d27..4bde895 100755 --- a/examples/schema.scm +++ b/examples/schema.scm @@ -37,10 +37,10 @@ (for-each (lambda (column) (let ((column-id (column-id (table-name table) (column-name column)))) - (triple column-id 'rdf:type 'gn:sqlTableField) + (triple column-id 'rdf:type 'gn:sql_table_field) (triple column-id 'gn:name (column-name column)) - (triple column-id 'gn:sqlFieldType (column-type column)) - (triple table-id 'gn:hasField column-id))) + (triple column-id 'gn:sql_field_type (column-type column)) + (triple table-id 'gn:has_field column-id))) (table-columns table)))) tables))) diff --git a/transform/schema.scm b/transform/schema.scm index d620882..f3896a7 100644 --- a/transform/schema.scm +++ b/transform/schema.scm @@ -93,10 +93,10 @@ is a object." (for-each (lambda (column) (let ((column-id (column-id (table-name table) (column-name column)))) - (triple column-id 'rdf:type 'gn:sqlTableField) + (triple column-id 'rdf:type 'gn:sql_table_field) (triple column-id 'gn:name (column-name column)) - (triple column-id 'gn:sqlFieldType (column-type column)) - (triple table-id 'gn:hasField column-id))) + (triple column-id 'gn:sql_field_type (column-type column)) + (triple table-id 'gn:has_field column-id))) (table-columns table)))) tables))) diff --git a/visualize-schema.scm b/visualize-schema.scm index 453033a..13448cc 100755 --- a/visualize-schema.scm +++ b/visualize-schema.scm @@ -149,17 +149,17 @@ is a
object." (map (cut string=? <> "1") (string-split field-transformed #\,)))))) (sparql-query-records -SELECT SAMPLE(?tablename) SAMPLE(?size) GROUP_CONCAT(?fieldname ; separator=\",\") GROUP_CONCAT(?fieldtype ; separator=\",\") GROUP_CONCAT(EXISTS{ ?transform rdf:type gn:transform . ?transform gn:dependsOn ?field .} ; separator=\",\") "PREFIX gn: +SELECT SAMPLE(?tablename) SAMPLE(?size) GROUP_CONCAT(?fieldname ; separator=\",\") GROUP_CONCAT(?fieldtype ; separator=\",\") GROUP_CONCAT(EXISTS{ ?transform rdf:type gn:transform . ?transform gn:depends_on ?field .} ; separator=\",\") WHERE { ?table rdf:type gn:sqlTable ; gn:name ?tablename ; - gn:hasSize ?size ; - gn:hasField ?field . - ?field rdf:type gn:sqlTableField ; + gn:has_size ?size ; + gn:has_field ?field . + ?field rdf:type gn:sql_table_field ; gn:name ?fieldname ; - gn:sqlFieldType ?fieldtype . + gn:sql_field_type ?fieldtype . } GROUP BY ?table"))) (define (foreign-key-graphviz-edges tables) @@ -240,13 +240,13 @@ WHERE ?predicate rdfs:domain ?type ; rdfs:range rdfs:Literal . ?transform rdf:type gn:transform ; - gn:createsPredicate ?predicate ; - gn:forSubjectType ?type ; - gn:dependsOn ?field . - ?field rdf:type gn:sqlTableField ; + gn:creates_predicate ?predicate ; + gn:for_subject_type ?type ; + gn:depends_on ?field . + ?field rdf:type gn:sql_table_field ; gn:name ?fieldname . ?table rdf:type gn:sqlTable ; - gn:hasField ?field ; + gn:has_field ?field ; gn:name ?tablename . } GROUP BY ?type ?predicate "))) -- cgit 1.4.1