about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2026-01-14 20:43:50 +0300
committerMunyoki Kilyungi2026-01-14 20:43:50 +0300
commit02033b4eee1ad80707b38466b2a286a4e7baa0a7 (patch)
treeb69e83adce07af728e2b18bbd8753799efccab70
parentcd9ce5f4f7ca0eefc255eb695f6728b1a7ee13c7 (diff)
downloadgn-transform-databases-02033b4eee1ad80707b38466b2a286a4e7baa0a7.tar.gz
Replace camelCase with snake_case. HEAD master
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rwxr-xr-xexamples/schema.scm6
-rw-r--r--transform/schema.scm6
-rwxr-xr-xvisualize-schema.scm20
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 <table> 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 <table> 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: <http://rdf.genenetwork.org/v1/>
+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
 ")))