23 lines
536 B
Racket
23 lines
536 B
Racket
#lang racket/base
|
|
|
|
(require racket/file
|
|
simple-log)
|
|
|
|
(provide setup-logging!
|
|
dbg-alm
|
|
info-alm
|
|
warn-alm
|
|
err-alm
|
|
fatal-alm
|
|
sync-log-alm)
|
|
|
|
(sl-def-log audio-library-manager alm)
|
|
|
|
(define (setup-logging! log-file display-log?)
|
|
(make-directory* (let-values ([(base name dir?) (split-path log-file)]) base))
|
|
(if display-log?
|
|
(sl-log-to-file&display log-file)
|
|
(sl-log-to-file log-file))
|
|
(sl-set-log-level 'debug)
|
|
(info-alm "logging initialized: ~a" log-file))
|