Separate log generation from log collapsing, to allow filtering in between.

This commit is contained in:
Vincent St-Amour 2011-12-13 14:01:46 -05:00
parent b4e4797e6a
commit 286cb96569
2 changed files with 6 additions and 6 deletions

View File

@ -10,7 +10,8 @@
(struct-out sub-report-entry)
(struct-out opt-report-entry)
(struct-out missed-opt-report-entry)
generate-report)
generate-report
collapse-report)
;; Similar to the log-entry family of structs, but geared towards GUI display.
;; Also designed to contain info for multiple overlapping log entries.
@ -25,10 +26,9 @@
(struct missed-opt-report-entry sub-report-entry (badness irritants))
(define (generate-report this)
(collapse-report
(log->report
(post-process-inline-log
(generate-log this)))))
(log->report
(post-process-inline-log
(generate-log this))))
(define (generate-log this)

View File

@ -48,7 +48,7 @@
(list start end color))]))
(define/public (add-highlights)
(define report (generate-report this))
(define report (collapse-report (generate-report this)))
(define max-badness
(apply max (cons 0 (map report-entry-badness report))))
(unless (= max-badness 0) ; no missed opts, color table code would error