diff options
| author | Arun Isaac | 2022-05-05 15:07:05 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-05-05 15:12:09 +0530 |
| commit | 1fcf31ec48d4c9f8c1ed45896cfb592ebae8f7fb (patch) | |
| tree | 8c9e940707da45cb97785616dd482d5fa21b4ce1 | |
| parent | 849fe4e22b359942350d7f583780482f1852e4bb (diff) | |
| download | gn-transform-databases-1fcf31ec48d4c9f8c1ed45896cfb592ebae8f7fb.tar.gz | |
Prefix SQL connection parameters with sql-.
This differentiates it from virtuoso and SPARQL connection parameters. * dump.scm (call-with-genenetwork-database, dump-data-table): Prefix SQL connection parameters with sql-. * README.md (Using): Update documentation of SQL connection parameters.
| -rw-r--r-- | README.md | 10 | ||||
| -rwxr-xr-x | dump.scm | 12 |
2 files changed, 11 insertions, 11 deletions
diff --git a/README.md b/README.md index fdad92a..069fdb8 100644 --- a/README.md +++ b/README.md @@ -20,11 +20,11 @@ shown below. Take care to replace the placeholders within angle brackets with the appropriate values. ``` scheme -((username . "<username-here>") - (password . "<password-here>") - (database . "<database-name-here>") - (host . "<hostname-here>") - (port . <port-here>)) +((sql-username . "<sql-username-here>") + (sql-password . "<sql-password-here>") + (sql-database . "<sql-database-name-here>") + (sql-host . "<sql-hostname-here>") + (sql-port . <sql-port-here>)) ``` Then, to dump the database to \~/data/dump, run diff --git a/dump.scm b/dump.scm index b62640c..a3e89a3 100755 --- a/dump.scm +++ b/dump.scm @@ -20,13 +20,13 @@ (define (call-with-genenetwork-database proc) (call-with-database "mysql" (string-join - (list (assq-ref %connection-settings 'username) - (assq-ref %connection-settings 'password) - (assq-ref %connection-settings 'database) + (list (assq-ref %connection-settings 'sql-username) + (assq-ref %connection-settings 'sql-password) + (assq-ref %connection-settings 'sql-database) "tcp" - (assq-ref %connection-settings 'host) + (assq-ref %connection-settings 'sql-host) (number->string - (assq-ref %connection-settings 'port))) + (assq-ref %connection-settings 'sql-port))) ":") proc)) @@ -725,7 +725,7 @@ is a <table> object." (information_schema.tables data_length)) (information_schema.tables) (format #f "WHERE table_schema = '~a'" - (assq-ref %connection-settings 'database)))))) + (assq-ref %connection-settings 'sql-database)))))) (define (dump-schema db) (let ((tables (tables db))) |