changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/ffi/rocksdb/logger.lisp

changeset 698: 96958d3eb5b0
parent: 5e57683a0c28
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; logger.lisp --- RocksDB Logger
     2 
     3 ;; RocksDB Logger Lisp FFI
     4 
     5 ;;; Code:
     6 (in-package :rocksdb)
     7 
     8 (define-alien-routine rocksdb-logger-destroy void
     9   (logger (* rocksdb-logger)))
    10 
    11 (define-alien-type rocksdb-log-function
    12   (function void
    13             (* t)
    14             unsigned
    15             c-string
    16             size-t))
    17 
    18 (define-alien-routine rocksdb-logger-create-stderr-logger (* rocksdb-logger)
    19   (log-level int)
    20   (prefix c-string))
    21 
    22 (define-alien-routine rocksdb-logger-create-callback-logger (* rocksdb-logger)
    23   (log-level int)
    24   (fn (* rocksdb-log-function))
    25   (priv (* t)))
    26 
    27 ;; logger callback
    28 (define-alien-callable rocksdb-log-default void
    29     ((priv (* t))
    30      (lev unsigned)
    31      (msg c-string)
    32      (len size-t))
    33   (log:debug! priv lev msg len))