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

Allow to omit the target type definition in a MySQL cast definition.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-09-20 13:32:27 +02:00
parent 69b2cc119c
commit bc4927bbbb
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
parser.lisp
View File

@ -486,10 +486,18 @@ Here's a quick description of the format we're parsing here:
(declare (ignore using)) (declare (ignore using))
(intern (string-upcase fname) :pgloader.transforms)))) (intern (string-upcase fname) :pgloader.transforms))))
(defun fix-target-type (source target)
"When target has :type nil, steal the source :type definition."
(unless (getf target :type)
(setf (getf target :type) (getf source :type))
target))
(defrule cast-rule (and cast-source cast-def (? cast-function)) (defrule cast-rule (and cast-source cast-def (? cast-function))
(:lambda (cast) (:lambda (cast)
(destructuring-bind (source target function) cast (destructuring-bind (source target function) cast
(list :source source :target target :using function)))) (list :source source
:target (fix-target-type source target)
:using function))))
(defrule another-cast-rule (and #\, ignore-whitespace cast-rule) (defrule another-cast-rule (and #\, ignore-whitespace cast-rule)
(:lambda (source) (:lambda (source)