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

Improve handling of unhandled conditions, avoid entering the interactive debugger.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-11-15 17:57:47 +01:00
parent bccd691ecc
commit cefd19d704
1 changed files with 37 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
src/main.lisp
View File

@ -87,28 +87,42 @@
(when arguments
;; process the files
(handler-bind
((condition
#'(lambda (c)
(if debug
(trivial-backtrace:print-backtrace c
:output *standard-output*
:verbose t)
(trivial-backtrace:print-condition c *standard-output*)))))
(loop for filename in arguments
do
(run-commands filename
:log-filename logfile
:log-min-messages
(log-threshold log-min-messages
:quiet quiet
:verbose verbose
:debug debug)
:client-min-messages
(log-threshold client-min-messages
:quiet quiet
:verbose verbose
:debug debug))
(format t "~&"))))
(handler-case
;; we bind here a catch-all handler to print out the backtrace
;; before unwinding the call stack, so that it's a useful
;; piece of information.
;;
;; we still need an handler-case to stop the processing in
;; case of unhandled condition popping up here.
(handler-bind
((condition
#'(lambda (condition)
(let ((s *standard-output*))
(log-message :critical "Fatal error:")
(if debug
(trivial-backtrace:print-backtrace condition
:output s
:verbose t)
(trivial-backtrace:print-condition condition s))))))
(loop for filename in arguments
do
(run-commands filename
:log-filename logfile
:log-min-messages
(log-threshold log-min-messages
:quiet quiet
:verbose verbose
:debug debug)
:client-min-messages
(log-threshold client-min-messages
:quiet quiet
:verbose verbose
:debug debug))
(format t "~&")))
(condition (c)
;; avoid confronting users with the interactive debugger
;; unless they asked for it using the --debug switch.
(when debug
(invoke-debugger c)))))
(uiop:quit)))))