Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

53 lines (36 sloc) 1.401 kB
#lang racket/base
(require racket/match
racket/list)
;; A small module to provide logging for Whalesong.
(provide whalesong-logger)
(define whalesong-logger (make-logger 'whalesong))
(define (log-debug message . args)
(log-message whalesong-logger
'debug
(if (empty? args) message (apply format message args))
#f))
(define (log-warning message . args)
(log-message whalesong-logger
'warning
(if (empty? args) message (apply format message args))
#f))
(define (log-error message . args)
(log-message whalesong-logger
'error
(if (empty? args) message (apply format message args))
#f))
(define should-print-logs? #f)
(define (set-whalesong-log-printing! v)
(set! should-print-logs? v))
(void (thread (lambda ()
(let ([receiver
(make-log-receiver whalesong-logger 'debug)])
(let loop ()
(let ([msg (sync receiver)])
(when should-print-logs?
(match msg
[(vector level msg data)
(printf "~a: ~a\n" level msg)]))
(loop)))))))
(provide whalesong-logger log-debug log-warning log-error
set-whalesong-log-printing!)
Jump to Line
Something went wrong with that request. Please try again.