diff options
Diffstat (limited to 'visualize-schema.scm')
| -rwxr-xr-x | visualize-schema.scm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/visualize-schema.scm b/visualize-schema.scm index 92f9272..13448cc 100755 --- a/visualize-schema.scm +++ b/visualize-schema.scm @@ -22,7 +22,7 @@ (prefix "http://www.w3.org/1999/02/22-rdf-syntax-ns#")) (define gn - (prefix "http://genenetwork.org/")) + (prefix "http://rdf.genenetwork.org/v1/")) (define graph (@@ (ccwl graphviz) graph)) (define graph-node (@@ (ccwl graphviz) graph-node)) @@ -149,17 +149,17 @@ is a <table> object." (map (cut string=? <> "1") (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{ ?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) @@ -233,20 +233,20 @@ properties." (string-split fields #\,)) ", ")))))) (sparql-query-records - "PREFIX gn: <http://genenetwork.org/> + "PREFIX gn: <http://rdf.genenetwork.org/v1/> SELECT ?type ?predicate GROUP_CONCAT(?tablename ; separator=\",\") GROUP_CONCAT(?fieldname ; separator=\",\") 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 "))) |
