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

Implement before/after load support for SQLite, fix #321.

Browse Source 
If there ever was a good reason not to implement before/after support
for SQLite, it's no longer valid: done.
This commit is contained in:
Dimitri Fontaine 2015-12-23 21:56:10 +01:00
parent 72e7c2af70
commit 8355b2140e
2 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main.lisp
View File

@ -605,7 +605,9 @@
(lisp-code-for-loading-from-sqlite source target
:gucs gucs
:casts casts
:sqlite-options options))
:sqlite-options options
:before before
:after after))
(mysql-connection
(lisp-code-for-loading-from-mysql source target

19
src/parsers/command-sqlite.lisp
View File

@ -90,7 +90,9 @@ load database
gucs
casts
including-like
excluding-like))
excluding-like
before-load
after-load))
(:lambda (clauses-list)
(alexandria:alist-plist clauses-list)))
@ -108,7 +110,7 @@ load database
(defun lisp-code-for-loading-from-sqlite (sqlite-db-conn pg-db-conn
&key
gucs casts
gucs casts before after
((:sqlite-options options))
((:including incl))
((:excluding excl)))
@ -123,16 +125,23 @@ load database
(make-instance 'pgloader.sqlite::copy-sqlite
:target-db ,pg-db-conn
:source-db source-db)))
,(sql-code-block pg-db-conn :pre before "before load")
(pgloader.sqlite:copy-database source
:including ',incl
:excluding ',excl
,@(remove-batch-control-option options)))))
,@(remove-batch-control-option options))
,(sql-code-block pg-db-conn :post after "after load"))))
(defrule load-sqlite-database load-sqlite-command
(:lambda (source)
(destructuring-bind (sqlite-uri
pg-db-uri
&key gucs casts sqlite-options including excluding)
&key
gucs casts before after
sqlite-options including excluding)
source
(cond (*dry-run*
(lisp-code-for-sqlite-dry-run sqlite-uri pg-db-uri))
@ -140,6 +149,8 @@ load database
(lisp-code-for-loading-from-sqlite sqlite-uri pg-db-uri
:gucs gucs
:casts casts
:before before
:after after
:sqlite-options sqlite-options
:including including
:excluding excluding))))))