mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-13 09:46:59 +02:00
Code Issues Projects Releases Wiki Activity

Filter out VIEWS from the current MySQL migration processing.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-10-06 18:09:49 +02:00
parent 236c9ffdf5
commit 446df213bd
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mysql.lisp
View File

@ -53,11 +53,13 @@
for (table-name . coldef) for (table-name . coldef)
in in
(caar (cl-mysql:query (format nil " (caar (cl-mysql:query (format nil "
select table_name, column_name, select c.table_name, c.column_name,
data_type, column_type, column_default, c.data_type, c.column_type, c.column_default,
is_nullable, extra c.is_nullable, c.extra
from information_schema.columns from information_schema.columns c
where table_schema = '~a' ~@[and table_name in (~{'~a'~^,~})~] join information_schema.tables t using(table_schema, table_name)
where c.table_schema = '~a' and t.table_type = 'BASE TABLE'
~@[and table_name in (~{'~a'~^,~})~]
order by table_name, ordinal_position" dbname only-tables))) order by table_name, ordinal_position" dbname only-tables)))
do do
(let ((entry (assoc table-name schema :test 'equal))) (let ((entry (assoc table-name schema :test 'equal)))