diff options
Diffstat (limited to 'visualize-schema.scm')
-rwxr-xr-x | visualize-schema.scm | 16 |
1 files changed, 8 insertions, 8 deletions
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 . |