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

Merge pull request #104 from nigelzor/fix-quoted-identifiers

Browse Source 
Check for reserved keyword after downcasing
This commit is contained in:
Dimitri Fontaine 2014-08-09 23:20:39 +02:00
commit 2b217a5f8f
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/pgsql/schema.lisp
View File

@ -8,14 +8,13 @@
(defun apply-identifier-case (identifier case)
"Return given IDENTIFIER with CASE handled to be PostgreSQL compatible."
(let ((case
(if (member identifier *pgsql-reserved-keywords* :test #'string=)
:quote
case)))
(ecase case
(:downcase (cl-ppcre:regex-replace-all
"[^a-zA-Z0-9.]" (string-downcase identifier) "_"))
(:quote (format nil "\"~a\"" identifier)))))
(ecase case
(:downcase (let ((lowered (cl-ppcre:regex-replace-all
"[^a-zA-Z0-9.]" (string-downcase identifier) "_")))
(if (member lowered *pgsql-reserved-keywords* :test #'string=)
(format nil "\"~a\"" lowered)
lowered)))
(:quote (format nil "\"~a\"" identifier))))
;;;
;;; Some parts of the logic here needs to be specialized depending on the