[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Enable truncation of exception output

From: Daniel Llorens
Subject: Enable truncation of exception output
Date: Fri, 3 Feb 2017 14:40:33 +0100

(I've messed up with git send-email, the patch with this email is

Some objects have large printed representations and trying to print
them can kill the terminal. This is a serious problem when handling
e.g. big arrays.

For repl values there's (repl-default-option-set! 'print (lambda (val)
...)) which lets you override the default printing routine. But for
exceptions there's no equivalent. The default exception printers are
in (ice-9 boot-9) and are difficult to override. Besides, the format
of the exception output is often chosen by arguments to scm-error and
not by those printers.

The patch to master (ice-9 boot-9) lets you override the (format) used
internally by the exception printers. Then I rewrite the format string
in user code, see below. It's a bit hacky, maybe someone has a better

See also the other patch I've posted to the list to support arrays in
(truncated-print). The patches are independent, but they make each
other useful so to speak.



(In the code below for .guile, replace [AT] by the at symbol).

; Truncate output on exceptions. Requires exception-format in ice-9/boot.scm.
; FIXME doesn't handle e.g. "x~~~s" -> "x~~~[AT]y"
(define (rewrite-fmt fmt)
  (let loop ((f "") (b 0))
    (let ((next (string-contains-ci fmt "~s" b)))
      (if next
         (if (or (zero? next) (not (char=? #\~ (string-ref fmt (- next 1)))))
           (string-append f (substring fmt 0 next) "~[AT]y")
         (+ b next 2))
        (string-append f (substring fmt b))))))

(when (defined? 'exception-format)
  (set! exception-format
        (lambda (port fmt . args)
          (apply format port (rewrite-fmt fmt) args))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]