mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-05 10:56:10 +02:00
Code Issues Projects Releases Wiki Activity

Get rid of with-database-uri.

Browse Source 
The macro wasn't updated for the *pgconn* refactoring anyway...
This commit is contained in:
Dimitri Fontaine 2014-12-22 19:52:16 +01:00
parent f048e36838
commit 8c6ccb7453
1 changed files with 0 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/parsers/command-parser.lisp
View File

@ -140,31 +140,3 @@
;; cleanup
(when summary-stream (close summary-stream)))))))
;;;
;;; Interactive tool
;;;
(defmacro with-database-uri ((database-uri) &body body)
"Run the BODY forms with the connection parameters set to proper values
from the DATABASE-URI. For a MySQL connection string, that's
*myconn-user* and all, for a PostgreSQL connection string, *pgconn-user*
and all."
(destructuring-bind (&key type user password host port dbname
&allow-other-keys)
(parse 'db-connection-uri database-uri)
(ecase type
(:mysql
`(let* ((*myconn-host* ,(if (consp host) (list 'quote host) host))
(*myconn-port* ,port)
(*myconn-user* ,user)
(*myconn-pass* ,password)
(*my-dbname* ,dbname))
,@body))
(:postgresql
`(let* ((*pgconn-host* ,(if (consp host) (list 'quote host) host))
(*pgconn-port* ,port)
(*pgconn-user* ,user)
(*pgconn-pass* ,password)
(*pg-dbname* ,dbname))
,@body)))))