mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-05 10:56:10 +02:00
Code Issues Projects Releases Wiki Activity

Cleanup: remove the now unused file!

Browse Source
This commit is contained in:
Dimitri Fontaine 2016-08-05 11:39:16 +02:00
parent 2aedac7037
commit 42c8012e94
2 changed files with 0 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pgloader.asd
View File

@ -78,10 +78,6 @@
"report"))
(:file "archive" :depends-on ("logs"))
;; (:file "pg-format-column" :depends-on ("catalog"
;; "monitor"
;; "state"))
;; generic connection api
(:file "connection" :depends-on ("archive"))))

50
src/utils/pg-format-column.lisp
View File

@ -1,50 +0,0 @@
;;;
;;; PostgreSQL column and type output
;;;
(in-package #:pgloader.utils)
(defun format-default-value (default &optional transform)
"Returns suitably quoted default value for CREATE TABLE command."
(cond
((null default) "NULL")
((and (stringp default) (string= "NULL" default)) default)
((and (stringp default)
;; address CURRENT_TIMESTAMP(6) and other spellings
(or (uiop:string-prefix-p "CURRENT_TIMESTAMP" default)
(string= "CURRENT TIMESTAMP" default)))
"CURRENT_TIMESTAMP")
((and (stringp default) (or (string= "newid()" default)
(string= "newsequentialid()" default)))
"uuid_generate_v1()")
(t
;; apply the transformation function to the default value
(if transform (format-default-value
(handler-case
(funcall transform default)
(condition (c)
(log-message :warning
"Failed to transform default value ~s: ~a"
default c)
;; can't transform: return nil
nil)))
(format nil "'~a'" default)))))
(defgeneric format-column (column &key pretty-print)
(:documentation "Format COLUMN definition for CREATE TABLE purpose."))
(defmethod format-column ((column column)
&key
pretty-print
((:max-column-name-length max)))
"Format the PostgreSQL data type."
(format nil
"~a~vt~a~:[~*~;~a~]~:[ not null~;~]~:[~; default ~a~]"
(column-name column)
(if pretty-print (or (+ 2 max) 22) 1)
(column-type-name column)
(column-type-mod column)
(column-type-mod column)
(column-nullable column)
(column-default column)
(column-default column)))