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

check for reserved keyword after downcasing

Browse Source 
uppercase USER isn't reserved, but lowercase is
This commit is contained in:
Neil Gentleman 2014-08-08 18:25:06 -07:00
parent b4ec0ec52f
commit 16d3edf5be
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