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

Allow for empty-string SQLite column types, fix #220 again.

Browse Source
This commit is contained in:
Dimitri Fontaine 2015-04-30 17:18:14 +02:00
parent 95a5eb3184
commit ebc0dcda4f
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/sources/sqlite/sqlite-cast-rules.lisp
View File

@ -51,16 +51,19 @@
(defun normalize (sqlite-type-name)
"SQLite only has a notion of what MySQL calls column_type, or ctype in the
CAST machinery. Transform it to the data_type, or dtype."
(let* ((sqlite-type-name (string-downcase sqlite-type-name))
(tokens (remove-if (lambda (token)
(or (member token '("unsigned" "short"
"varying" "native")
:test #'string-equal)
;; remove typemod too, as in "integer (8)"
(char= #\( (aref token 0))))
(sq:split-sequence #\Space sqlite-type-name))))
(assert (= 1 (length tokens)))
(first tokens)))
(if (string= sqlite-type-name "")
;; yes SQLite allows for empty type names
"text"
(let* ((sqlite-type-name (string-downcase sqlite-type-name))
(tokens (remove-if (lambda (token)
(or (member token '("unsigned" "short"
"varying" "native")
:test #'string-equal)
;; remove typemod too, as in "integer (8)"
(char= #\( (aref token 0))))
(sq:split-sequence #\Space sqlite-type-name))))
(assert (= 1 (length tokens)))
(first tokens))))
(defun ctype-to-dtype (sqlite-type-name)
"In SQLite we only get the ctype, e.g. int(7), but here we want the base