Coverage report: /home/ellis/comp/core/ffi/rocksdb/logger.lisp

KindCoveredAll%
expression510 50.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; logger.lisp --- RocksDB Logger
2
 
3
 ;; RocksDB Logger Lisp FFI
4
 
5
 ;;; Commentary:
6
 
7
 ;; ref: https://github.com/facebook/rocksdb/wiki/Logger
8
 
9
 ;;; Code:
10
 (in-package :rocksdb)
11
 
12
 (defar rocksdb-logger-destroy void
13
   (logger (* rocksdb-logger)))
14
 
15
 (define-alien-type rocksdb-log-function
16
   (function void
17
             (* t)
18
             unsigned
19
             c-string
20
             size-t))
21
 
22
 (defar rocksdb-logger-create-stderr-logger (* rocksdb-logger)
23
   (log-level int)
24
   (prefix c-string))
25
 
26
 (defar rocksdb-logger-create-callback-logger (* rocksdb-logger)
27
   (log-level int)
28
   (fn (* rocksdb-log-function))
29
   (priv (* t)))
30
 
31
 ;; logger callback
32
 (define-alien-callable rocksdb-log-default void
33
     ((priv (* t))
34
      (lev unsigned)
35
      (msg c-string)
36
      (len size-t))
37
   (declare (ignore priv len lev))
38
   (log:log-message :info nil msg))