diff --git a/src/utils/report.lisp b/src/utils/report.lisp index 9458a66..f0076e1 100644 --- a/src/utils/report.lisp +++ b/src/utils/report.lisp @@ -19,6 +19,16 @@ (defvar *header-format-strings* '((:human-readable + (:header "~&" + :footer "~%" + :end-of-line-format "~%" + :header-line "~&~v@{~A~:*~} --------- --------- --------- --------------" + :header-tname-format "~&~v@a" + :header-stats-format " ~9@a ~9@a ~9@a ~14@a ~*~*" + :header-cols-format "~&~v@a ~9@a ~9@a ~9@a ~14@a" + :header-cols-names ("table name" "read" "imported" "errors" "total time"))) + + (:human-readable-verbose (:header "~&" :footer "~%" :end-of-line-format "~%" @@ -191,8 +201,12 @@ (pre (getf sections :pre)) (post (getf sections :post)) - (stype (or (parse-summary-type *summary-pathname*) - :human-readable)) + (stype (or (parse-summary-type *summary-pathname*) + (if (member *client-min-messages* + '(:notice :sql :info :debug :data)) + :human-readable-verbose + :human-readable))) + (*header* (get-format-for stype :header)) (*footer* (get-format-for stype :footer)) (*end-of-line-format* (get-format-for stype :end-of-line-format)) diff --git a/src/utils/state.lisp b/src/utils/state.lisp index c362734..bd2caad 100644 --- a/src/utils/state.lisp +++ b/src/utils/state.lisp @@ -85,6 +85,9 @@ ;; maintain the ordering (push label (pgstate-tabnames pgstate)) + (when (typep label 'table) + (pgtable-initialize-reject-files pgtable (table-name label))) + pgtable))) (defun pgstate-setf (pgstate name &key read rows errs secs rs ws)