Initial import

private/log.rkt

@@ -0,0 +1,22 @@
+#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))