core: lisp/ffi/rocksdb/logger.lisp annotate

changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate 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

598 c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	1	;;; logger.lisp --- RocksDB Logger
c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	2
c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	3	;; RocksDB Logger Lisp FFI
c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	4
c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	5	;;; Code:
c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	6	(in-package :rocksdb)
c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	7
607 1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	8	(define-alien-routine rocksdb-logger-destroy void
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	9	(logger (* rocksdb-logger)))
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	10
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	11	(define-alien-type rocksdb-log-function
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	12	(function void
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	13	(* t)
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	14	unsigned
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	15	c-string
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	16	size-t))
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	17
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	18	(define-alien-routine rocksdb-logger-create-stderr-logger (* rocksdb-logger)
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	19	(log-level int)
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	20	(prefix c-string))
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	21
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	22	(define-alien-routine rocksdb-logger-create-callback-logger (* rocksdb-logger)
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	23	(log-level int)
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	24	(fn (* rocksdb-log-function))
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	25	(priv (* t)))
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	26
598 c7f9bfc9570f rm duplicate files, add rocksdb batch and logger files Richard Westhaver <ellis@rwest.io> parents: diff changeset	27	;; logger callback
607 1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	28	(define-alien-callable rocksdb-log-default void
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	29	((priv (* t))
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	30	(lev unsigned)
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	31	(msg c-string)
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	32	(len size-t))
1a5828267b90 rocksdb logger function and callback macros Richard Westhaver <ellis@rwest.io> parents: 598 diff changeset	33	(log:debug! priv lev msg len))