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

fix: Prevent camelCase-to-colname to duplicate underscores

Browse Source 
Fixes issue #1287
This commit is contained in:
Oldřich Dlouhý 2025-03-21 12:45:11 +01:00 committed by GitHub
parent 70f3557670
commit 119f01a2b7
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/utils/quoting.lisp
View File

@ -85,15 +85,18 @@
"Transform input STRING into a suitable column name. "Transform input STRING into a suitable column name.
lahmanID lahman_id lahmanID lahman_id
playerID player_id playerID player_id
birthYear birth_year" birthYear birth_year
Reference_ID reference_id"
(coerce (coerce
(loop (loop
:for first := t :then nil :for first := t :then nil
:for char :across string :for char :across string
:for previous-upper-p := nil :then char-upper-p :for previous-upper-p := nil :then char-upper-p
:for previous-underscore := nil :then underscore
:for underscore := (char= char #\_)
:for char-upper-p := (and (alpha-char-p char) :for char-upper-p := (and (alpha-char-p char)
(eq char (char-upcase char))) (eq char (char-upcase char)))
:for new-word := (and (not first) char-upper-p (not previous-upper-p)) :for new-word := (and (not first) char-upper-p (not previous-upper-p) (not previous-underscore))
:when (and new-word (not (char= char #\_))) :collect #\_ :when new-word :collect #\_
:collect (char-downcase char)) :collect (char-downcase char))
'string)) 'string))