changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 698: 96958d3eb5b0
parent: 5f88b237ce29
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; rocksdb/checkpoint.lisp --- RocksDB Checkpoints
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :rocksdb)
     7 
     8 (def-with-errptr rocksdb-checkpoint-object-create (* rocksdb-checkpoint)
     9   (db (* rocksdb)))
    10 
    11 (def-with-errptr rocksdb-checkpoint-create void
    12   (checkpoint (* rocksdb-checkpoint))
    13   (checkpoint-dir c-string)
    14   (log-size-for-flush (unsigned 64)))
    15 
    16 (define-alien-routine rocksdb-checkpoint-object-destroy void
    17   (checkpoint (* rocksdb-checkpoint)))
    18 
    19 (def-with-errptr rocksdb-open-and-trim-history (* rocksdb)
    20   (opts (* rocksdb-options))
    21   (name c-string)
    22   (num-cfs int)
    23   (cf-names (array c-string))
    24   (cf-handles (array (* rocksdb-column-family-handle)))
    25   (trim-ts c-string)
    26   (trim-tslen size-t))
    27 
    28 (def-with-errptr rocksdb-open-column-families 
    29   (* rocksdb)
    30   (options (* rocksdb-options))
    31   (name c-string)
    32   (num-column-families int)
    33   (column-family-names (* c-string))
    34   (column-family-options (* (* rocksdb-options)))
    35   (column-family-handles (* (* rocksdb-column-family-handle))))
    36 
    37 (def-with-errptr rocksdb-open-column-families-with-ttl (* rocksdb)
    38   (opts (* rocksdb-options))
    39   (name c-string)
    40   (num-cfs int)
    41   (cf-names (array c-string))
    42   (cf-opts (array (* rocksdb-options)))
    43   (cf-handles (* (* rocksdb-column-family-handle)))
    44   (ttls (array int)))
    45 
    46 (def-with-errptr rocksdb-open-for-read-only-column-families (* rocksdb)
    47   (opts (* rocksdb-options))
    48   (name c-string)
    49   (num-cfs int)
    50   (cf-names (array c-string))
    51   (cf-opts (array (* rocksdb-options)))
    52   (cf-handles (array (* rocksdb-column-family-handle)))
    53   (err-if-wal-exists unsigned-char))
    54   
    55 (def-with-errptr rocksdb-open-as-secondary-column-families (* rocksdb)
    56   (opts (* rocksdb-options))
    57   (name c-string)
    58   (secondary-path c-string)
    59   (num-cfs int)
    60   (cf-names (array c-string))
    61   (cf-opts (array (* rocksdb-options)))
    62   (cf-handles (array (* rocksdb-column-family-handle))))
    63 
    64 (def-with-errptr rocksdb-open-as-secondary (* rocksdb)
    65   (opts (* rocksdb-options))
    66   (name c-string)
    67   (secondary-path c-string))