1.1--- a/lisp/ffi/rocksdb/db.lisp	Thu Dec 14 23:11:50 2023 -0500
     1.2+++ b/lisp/ffi/rocksdb/db.lisp	Fri Dec 15 22:08:52 2023 -0500
     1.3@@ -97,6 +97,51 @@
     1.4   (db (* rocksdb))
     1.5   (options (* rocksdb-flushoptions)))
     1.6 
     1.7+(def-with-errptr rocksdb-flush-cf void
     1.8+  (db (* rocksdb))
     1.9+  (opts (* rocksdb-flushoptions))
    1.10+  (cf (* rocksdb-column-family-handle))
    1.11+  (num-cf int))
    1.12+
    1.13+(def-with-errptr rocksdb-flush-cfs void
    1.14+  (db (* rocksdb))
    1.15+  (opts (* rocksdb-flushoptions))
    1.16+  (cf (* (* rocksdb-column-family-handle)))
    1.17+  (num-cf int))
    1.18+
    1.19+(def-with-errptr rocksdb-flush-wal void
    1.20+  (db (* rocksdb))
    1.21+  (sync unsigned-char))
    1.22+
    1.23+(define-alien-routine rocksdb-delete-file void
    1.24+  (db (* rocksdb))
    1.25+  (name c-string))
    1.26+
    1.27+(define-alien-routine rocksdb-livefile (* rocksdb-livefiles)
    1.28+  (db (* rocksdb))
    1.29+  (name c-string))
    1.30+
    1.31+;; return NULL if prop name is unknown, else return pointer to
    1.32+;; malloc-ed null-term value.
    1.33+(define-alien-routine rocksdb-property-value (* t)
    1.34+  (db (* rocksdb))
    1.35+  (propname (* c-string)))
    1.36+
    1.37+;; return 0 on success, else -1
    1.38+(define-alien-routine rocksdb-property-int int
    1.39+  (db (* rocksdb))
    1.40+  (propname (* c-string)))
    1.41+
    1.42+(define-alien-routine rocksdb-property-value-cf (* t)
    1.43+  (db (* rocksdb))
    1.44+  (cf (* rocksdb-column-family-handle))
    1.45+  (propname (* c-string)))
    1.46+
    1.47+(define-alien-routine rocksdb-property-int-cf int
    1.48+  (db (* rocksdb))
    1.49+  (cf (* rocksdb-column-family-handle))
    1.50+  (propname (* c-string)))
    1.51+    
    1.52 ;;; CF
    1.53 (def-with-errptr rocksdb-create-column-family 
    1.54   (* rocksdb-column-family-handle)
    1.55@@ -177,9 +222,19 @@
    1.56   (end-key (* char))
    1.57   (end-key-len size-t))
    1.58 
    1.59+(def-with-errptr rocksdb-disable-file-deletions void
    1.60+  (db (* rocksdb)))
    1.61+
    1.62+(def-with-errptr rocksdb-enable-file-deletions void
    1.63+  (db (* rocksdb)))
    1.64+  
    1.65 (def-with-errptr rocksdb-destroy-db void
    1.66   (opts (* rocksdb-options))
    1.67-  (path c-string))
    1.68+  (name c-string))
    1.69+
    1.70+(def-with-errptr rocksdb-repair-db void
    1.71+  (opts (* rocksdb-options))
    1.72+  (name c-string))
    1.73 
    1.74 ;;; Iterators
    1.75 (define-alien-routine rocksdb-create-iterator (* rocksdb-iterator)
    1.76@@ -329,5 +384,3 @@
    1.77 ;;   (name (* char)))
    1.78 
    1.79 (define-alien-routine rocksdb-mergeoperator-destroy void (self (* rocksdb-mergeoperator)))
    1.80-
    1.81-;;; BlobDB