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

debug(mssql): output values

Browse Source
This commit is contained in:
Conor McLaughlin 2024-02-20 01:22:14 +08:00
parent 43e374548d
commit bc4df4f28c
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/sources/mssql/mssql.lisp
View File

@ -62,15 +62,23 @@
;; If asked to MATERIALIZE VIEWS, now is the time to create them in MS ;; If asked to MATERIALIZE VIEWS, now is the time to create them in MS
;; SQL, when given definitions rather than existing view names. ;; SQL, when given definitions rather than existing view names.
(when (and materialize-views (not (eq :all materialize-views))) (when (and materialize-views (not (eq :all materialize-views)))
(create-matviews materialize-views mssql)) (create-matviews materialize-views mssql)
(format t "[fetch-metadata] Materialize Views: ~A~%" materialize-views)
)
(format t "[fetch-metadata] Original including: ~A~%" including)
(fetch-columns catalog mssql (fetch-columns catalog mssql
:including including :including including
:excluding excluding) :excluding excluding)
;; fetch view (and their columns) metadata, covering comments too ;; fetch view (and their columns) metadata, covering comments too
(let* ((view-names (unless (eq :all materialize-views) (let* ((view-names (progn
(mapcar #'matview-source-name materialize-views))) (let ((names (unless (eq :all materialize-views)
(mapcar #'matview-source-name materialize-views))))
;; Debugging statement
(format t "[fetch-metadata] Debugging view-names: ~A~%" names)
;; Return the computed value for the let* binding
names))))
(including (including
(loop :for (schema-name . view-name) :in view-names (loop :for (schema-name . view-name) :in view-names
:do (let* ((schema-name (or schema-name "dbo")) :do (let* ((schema-name (or schema-name "dbo"))
@ -80,6 +88,7 @@
(assoc schema-name including (assoc schema-name including
:test #'string=))))) :test #'string=)))))
(push-to-end view-name (cdr schema-entry)))))) (push-to-end view-name (cdr schema-entry))))))
(format t "[fetch-metadata] New including: ~A~%" including)
(cond (view-names (cond (view-names
(fetch-columns catalog mssql (fetch-columns catalog mssql
:including including :including including