2021-06-03 21:22:46 +00:00
|
|
|
#lang racket/base
|
2021-06-04 14:20:14 +00:00
|
|
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
2023-01-16 14:57:29 +00:00
|
|
|
;;; SPDX-FileCopyrightText: Copyright © 2021-2023 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
2021-06-03 21:22:46 +00:00
|
|
|
|
|
|
|
(provide report-stats)
|
|
|
|
|
|
|
|
(define (report-stats REPORT_EVERY)
|
|
|
|
(define start-time (current-inexact-milliseconds))
|
|
|
|
(define prev-value 0)
|
|
|
|
(lambda (new-value)
|
|
|
|
(when (zero? (remainder new-value REPORT_EVERY))
|
|
|
|
(define end-time (current-inexact-milliseconds))
|
|
|
|
(define delta (/ (- end-time start-time) 1000.0))
|
|
|
|
(define count (- new-value prev-value))
|
|
|
|
(set! prev-value new-value)
|
|
|
|
(set! start-time end-time)
|
|
|
|
(log-info "Box got ~a (~a Hz)" new-value (/ count delta)))))
|