From 8e1e4cceab516afab46ccced63ca9edab663ca11 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 21 Aug 2023 15:03:20 +0300
Subject: Rename dump -> transform

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 visualize-schema.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'visualize-schema.scm')

diff --git a/visualize-schema.scm b/visualize-schema.scm
index 6850cb8..92f9272 100755
--- a/visualize-schema.scm
+++ b/visualize-schema.scm
@@ -12,8 +12,8 @@
              (sparql driver)
              (sparql lang)
              (sparql util)
-             (dump string-similarity)
-             (dump table))
+             (transform string-similarity)
+             (transform table))
 
 (define rdfs
   (prefix "http://www.w3.org/2000/01/rdf-schema#"))
@@ -83,7 +83,7 @@
   "Return HTML string label for TABLE."
   (sxml->graphviz-html
    `(table (@ (cellborder 0)
-              (bgcolor ,(if (any column-dumped?
+              (bgcolor ,(if (any column-transformed?
                                  (table-columns table))
                             "lightgrey"
                             "white")))
@@ -94,7 +94,7 @@
                             (human-units (table-size table)))))
            ,@(map (lambda (column)
                     `(tr (td (@ (port ,(column-name column))
-                                ,@(if (column-dumped? column)
+                                ,@(if (column-transformed? column)
                                       `((bgcolor "green"))
                                       '()))
                              ,(column-name column))))
@@ -140,17 +140,17 @@ return #f. ALL-TABLES is a list of all tables in the database."
   "Return list of all tables in DB. Each element of the returned list
 is a <table> object."
   (map (match-lambda
-         ((table size fields field-types field-dumped)
+         ((table size fields field-types field-transformed)
           (make-table table
                       (string->number size)
                       (map make-column
                            (string-split fields #\,)
                            (string-split field-types #\,)
                            (map (cut string=? <> "1")
-                                (string-split field-dumped #\,))))))
+                                (string-split field-transformed #\,))))))
        (sparql-query-records
         "PREFIX gn: <http://genenetwork.org/>
-SELECT SAMPLE(?tablename) SAMPLE(?size) GROUP_CONCAT(?fieldname ; separator=\",\") GROUP_CONCAT(?fieldtype ; separator=\",\") GROUP_CONCAT(EXISTS{ ?dump rdf:type gn:dump . ?dump gn:dependsOn ?field .} ; separator=\",\")
+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=\",\")
 WHERE
 {
   ?table rdf:type gn:sqlTable ;
@@ -239,7 +239,7 @@ WHERE
 {
   ?predicate rdfs:domain ?type ;
              rdfs:range rdfs:Literal .
-  ?dump rdf:type gn:dump ;
+  ?transform rdf:type gn:transform ;
         gn:createsPredicate ?predicate ;
         gn:forSubjectType ?type ;
         gn:dependsOn ?field .
-- 
cgit v1.2.3