| changeset 606: | 6fc04c4d465c |
| parent: | 111d0cfc5da1 |
| author: | Richard Westhaver <ellis@rwest.io> |
| date: | Sun, 18 Aug 2024 20:34:26 -0400 |
| permissions: | -rw-r--r-- |
| description: | emacs and rocksdb upgrades - more org workflow updates - added scrum.el - renamed batch.lisp > writebatch.lisp - callback tests |
| 87 | 1 | (in-package :rocksdb) |
| 93 | 2 | |
| 87 | 3 | ;;; DB |
| 4 | (def-with-errptr rocksdb-open (* rocksdb) |
|
| 5 | (opt (* rocksdb-options)) |
|
| 6 | (name c-string)) |
|
| 7 | ||
| 8 | (define-alien-routine rocksdb-close void |
|
| 9 | (db (* rocksdb))) |
|
| 10 | ||
| 11 | (define-alien-routine rocksdb-cancel-all-background-work void |
|
| 12 | (db (* rocksdb)) |
|
| 13 | (wait boolean)) |
|
| 14 | ||
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
15 | (define-alien-routine rocksdb-disable-manual-compaction void |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
16 | (db (* rocksdb))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
17 | |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
18 | (define-alien-routine rocksdb-enable-manual-compaction void |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
19 | (db (* rocksdb))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
20 | |
| 87 | 21 | (def-with-errptr rocksdb-put |
|
110
cae8da4b1415
rocksdb macrofication, fixes for RDB (C Strings will be the death of me), removed PWN - quicklisp package conflict, smh.
ellis <ellis@rwest.io>
parents:
101
diff
changeset
|
22 | void |
|
cae8da4b1415
rocksdb macrofication, fixes for RDB (C Strings will be the death of me), removed PWN - quicklisp package conflict, smh.
ellis <ellis@rwest.io>
parents:
101
diff
changeset
|
23 | (db (* rocksdb)) |
|
cae8da4b1415
rocksdb macrofication, fixes for RDB (C Strings will be the death of me), removed PWN - quicklisp package conflict, smh.
ellis <ellis@rwest.io>
parents:
101
diff
changeset
|
24 | (options (* rocksdb-writeoptions)) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
25 | (key (* unsigned-char)) |
|
110
cae8da4b1415
rocksdb macrofication, fixes for RDB (C Strings will be the death of me), removed PWN - quicklisp package conflict, smh.
ellis <ellis@rwest.io>
parents:
101
diff
changeset
|
26 | (keylen size-t) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
27 | (val (* unsigned-char)) |
|
110
cae8da4b1415
rocksdb macrofication, fixes for RDB (C Strings will be the death of me), removed PWN - quicklisp package conflict, smh.
ellis <ellis@rwest.io>
parents:
101
diff
changeset
|
28 | (vallen size-t)) |
| 87 | 29 | |
| 599 | 30 | (def-with-errptr rocksdb-write void |
| 31 | (db (* rocksdb)) |
|
| 32 | (opts (* rocksdb-writeoptions)) |
|
| 33 | (batch (* rocksdb-writebatch))) |
|
| 34 | ||
| 87 | 35 | (def-with-errptr rocksdb-get |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
36 | (* unsigned-char) |
| 87 | 37 | (db (* rocksdb)) |
| 38 | (options (* rocksdb-readoptions)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
39 | (key (* unsigned-char)) |
| 87 | 40 | (keylen size-t) |
| 41 | (vallen (* size-t))) |
|
| 42 | ||
| 269 | 43 | (def-with-errptr rocksdb-get-with-ts c-string |
| 44 | (db (* rocksdb)) |
|
| 45 | (opts (* rocksdb-readoptions)) |
|
| 46 | (key c-string) |
|
| 47 | (keylen size-t) |
|
| 48 | (vallen (* size-t)) |
|
| 49 | (ts (* c-string)) |
|
| 50 | (tslen (* size-t))) |
|
| 51 | ||
| 87 | 52 | (def-with-errptr rocksdb-delete |
| 53 | void |
|
| 54 | (db (* rocksdb)) |
|
| 55 | (options (* rocksdb-writeoptions)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
56 | (key (* unsigned-char)) |
| 87 | 57 | (keylen size-t)) |
| 58 | ||
| 59 | (def-with-errptr rocksdb-merge |
|
| 60 | void |
|
| 61 | (db (* rocksdb)) |
|
| 62 | (opt (* rocksdb-writeoptions)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
63 | (key (* unsigned-char)) |
| 87 | 64 | (keylen size-t) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
65 | (val (* unsigned-char)) |
| 87 | 66 | (vallen size-t)) |
| 67 | ||
| 68 | (def-with-errptr rocksdb-merge-cf |
|
| 69 | void |
|
| 70 | (db (* rocksdb)) |
|
| 71 | (opt (* rocksdb-writeoptions)) |
|
| 72 | (cf (* rocksdb-column-family-handle)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
73 | (key (* unsigned-char)) |
| 87 | 74 | (keylen size-t) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
75 | (val (* unsigned-char)) |
| 87 | 76 | (vallen size-t)) |
| 77 | ||
| 78 | (def-with-errptr rocksdb-get-cf |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
79 | (* unsigned-char) |
| 87 | 80 | (db (* rocksdb)) |
| 81 | (opt (* rocksdb-readoptions)) |
|
| 82 | (cf (* rocksdb-column-family-handle)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
83 | (key (* unsigned-char)) |
| 87 | 84 | (keylen size-t) |
| 85 | (vallen (* size-t))) |
|
| 86 | ||
| 269 | 87 | (def-with-errptr rocksdb-get-cf-with-ts c-string |
| 88 | (db (* rocksdb)) |
|
| 89 | (opts (* rocksdb-readoptions)) |
|
| 90 | (cf (* rocksdb-column-family-handle)) |
|
| 91 | (key c-string) |
|
| 92 | (keylen size-t) |
|
| 93 | (vallen (* size-t)) |
|
| 94 | (ts (* c-string)) |
|
| 95 | (tslen (* size-t))) |
|
| 96 | ||
| 599 | 97 | (define-alien-routine rocksdb-get-db-identity c-string (db (* rocksdb)) (idlen (* size-t))) |
| 98 | ||
|
113
afcb1f02bb66
removed obj/uri. may add back new impl later. new file obj/db.lisp and RDB stuff - (sst)
ellis <ellis@rwest.io>
parents:
112
diff
changeset
|
99 | ;; NOTE 2023-12-19: only the VOID-returning functions in the multi- |
|
afcb1f02bb66
removed obj/uri. may add back new impl later. new file obj/db.lisp and RDB stuff - (sst)
ellis <ellis@rwest.io>
parents:
112
diff
changeset
|
100 | ;; family perform parallel IO: |
|
afcb1f02bb66
removed obj/uri. may add back new impl later. new file obj/db.lisp and RDB stuff - (sst)
ellis <ellis@rwest.io>
parents:
112
diff
changeset
|
101 | ;; https://github.com/facebook/rocksdb/wiki/MultiGet-Performance |
| 87 | 102 | (define-alien-routine rocksdb-multi-get void |
| 103 | (db (* rocksdb)) |
|
| 104 | (opt (* rocksdb-readoptions)) |
|
| 105 | (num-keys size-t) |
|
| 106 | (keys-list (array c-string)) |
|
| 107 | (keys-list-sizes (array size-t)) |
|
| 108 | (values-list (array c-string)) |
|
| 109 | (values-list-sizes (array size-t)) |
|
| 110 | (errs (array rocksdb-errptr))) |
|
| 111 | ||
| 269 | 112 | (define-alien-routine rocksdb-multi-get-with-ts void |
| 113 | (db (* rocksdb)) |
|
| 114 | (opt (* rocksdb-readoptions)) |
|
| 115 | (num-keys size-t) |
|
| 116 | (keys-list (array c-string)) |
|
| 117 | (keys-list-sizes (array size-t)) |
|
| 118 | (values-list (array c-string)) |
|
| 119 | (values-list-sizes (array size-t)) |
|
| 120 | (ts-list (array c-string)) |
|
| 121 | (ts-list-sizes (array size-t)) |
|
| 122 | (errs (array rocksdb-errptr))) |
|
| 123 | ||
| 87 | 124 | (define-alien-routine rocksdb-multi-get-cf void |
| 125 | (db (* rocksdb)) |
|
| 126 | (opt (* rocksdb-readoptions)) |
|
| 127 | (cfs (array rocksdb-column-family-handle)) |
|
| 128 | (num-keys size-t) |
|
| 129 | (keys-list (array c-string)) |
|
| 130 | (keys-list-sizes (array size-t)) |
|
| 131 | (values-list (array c-string)) |
|
| 132 | (values-list-sizes (array size-t)) |
|
| 133 | (errs (array rocksdb-errptr))) |
|
| 134 | ||
| 269 | 135 | (define-alien-routine rocksdb-multi-get-cf-with-ts void |
| 136 | (db (* rocksdb)) |
|
| 137 | (opt (* rocksdb-readoptions)) |
|
| 138 | (cfs (array rocksdb-column-family-handle)) |
|
| 139 | (num-keys size-t) |
|
| 140 | (keys-list (array c-string)) |
|
| 141 | (keys-list-sizes (array size-t)) |
|
| 142 | (values-list (array c-string)) |
|
| 143 | (values-list-sizes (array size-t)) |
|
| 144 | (ts-list (array c-string)) |
|
| 145 | (ts-list-sizes (array size-t)) |
|
| 146 | (errs (array rocksdb-errptr))) |
|
|
110
cae8da4b1415
rocksdb macrofication, fixes for RDB (C Strings will be the death of me), removed PWN - quicklisp package conflict, smh.
ellis <ellis@rwest.io>
parents:
101
diff
changeset
|
147 | |
| 599 | 148 | (define-alien-routine rocksdb-batched-multi-get-cf void |
| 149 | (db (* rocksdb)) |
|
| 150 | (opts (* rocksdb-readoptions)) |
|
| 151 | (cf (* rocksdb-column-family-handle)) |
|
| 152 | (nkeys size-t) |
|
| 153 | (keys (array c-string)) |
|
| 154 | (key-sizes (array size-t)) |
|
| 155 | (values (array (* rocksdb-pinnableslice))) |
|
| 156 | (errs (array (* rocksdb-errptr))) |
|
| 157 | (sorted-input boolean)) |
|
| 158 | ||
| 159 | (define-alien-routine rocksdb-key-may-exist unsigned-char |
|
| 160 | (db (* rocksdb)) |
|
| 161 | (opts (* rocksdb-readoptions)) |
|
| 162 | (key c-string) |
|
| 163 | (key-len size-t) |
|
| 164 | (value (* c-string)) |
|
| 165 | (val-len (* size-t)) |
|
| 166 | (timestamp c-string) |
|
| 167 | (timestamp-len size-t) |
|
| 168 | (value-found (* unsigned-char))) |
|
| 169 | ||
| 170 | (define-alien-routine rocksdb-key-may-exist-cf unsigned-char |
|
| 171 | (db (* rocksdb)) |
|
| 172 | (opts (* rocksdb-readoptions)) |
|
| 173 | (cf (* rocksdb-column-family-handle)) |
|
| 174 | (key c-string) |
|
| 175 | (key-len size-t) |
|
| 176 | (value (* c-string)) |
|
| 177 | (val-len (* size-t)) |
|
| 178 | (timestamp c-string) |
|
| 179 | (timestamp-len size-t) |
|
| 180 | (value-found (* unsigned-char))) |
|
| 181 | |
|
| 269 | 182 | (define-alien-routine rocksdb-cache-create-lru (* rocksdb-cache) (capacity size-t)) |
| 87 | 183 | |
| 184 | (def-with-errptr rocksdb-flush void |
|
| 185 | (db (* rocksdb)) |
|
| 186 | (options (* rocksdb-flushoptions))) |
|
| 187 | ||
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
188 | (def-with-errptr rocksdb-flush-cf void |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
189 | (db (* rocksdb)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
190 | (opts (* rocksdb-flushoptions)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
191 | (cf (* rocksdb-column-family-handle)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
192 | (num-cf int)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
193 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
194 | (def-with-errptr rocksdb-flush-cfs void |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
195 | (db (* rocksdb)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
196 | (opts (* rocksdb-flushoptions)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
197 | (cf (* (* rocksdb-column-family-handle))) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
198 | (num-cf int)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
199 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
200 | (def-with-errptr rocksdb-flush-wal void |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
201 | (db (* rocksdb)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
202 | (sync unsigned-char)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
203 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
204 | (define-alien-routine rocksdb-delete-file void |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
205 | (db (* rocksdb)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
206 | (name c-string)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
207 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
208 | (define-alien-routine rocksdb-livefile (* rocksdb-livefiles) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
209 | (db (* rocksdb)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
210 | (name c-string)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
211 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
212 | ;; return NULL if prop name is unknown, else return pointer to |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
213 | ;; malloc-ed null-term value. |
| 269 | 214 | (define-alien-routine rocksdb-property-value c-string |
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
215 | (db (* rocksdb)) |
|
271
4a1a21ff46ee
metadata,props,merge-ops
Richard Westhaver <ellis@rwest.io>
parents:
269
diff
changeset
|
216 | (propname c-string)) |
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
217 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
218 | ;; return 0 on success, else -1 |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
219 | (define-alien-routine rocksdb-property-int int |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
220 | (db (* rocksdb)) |
|
271
4a1a21ff46ee
metadata,props,merge-ops
Richard Westhaver <ellis@rwest.io>
parents:
269
diff
changeset
|
221 | (propname c-string)) |
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
222 | |
| 269 | 223 | (define-alien-routine rocksdb-property-value-cf c-string |
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
224 | (db (* rocksdb)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
225 | (cf (* rocksdb-column-family-handle)) |
|
271
4a1a21ff46ee
metadata,props,merge-ops
Richard Westhaver <ellis@rwest.io>
parents:
269
diff
changeset
|
226 | (propname c-string)) |
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
227 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
228 | (define-alien-routine rocksdb-property-int-cf int |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
229 | (db (* rocksdb)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
230 | (cf (* rocksdb-column-family-handle)) |
|
271
4a1a21ff46ee
metadata,props,merge-ops
Richard Westhaver <ellis@rwest.io>
parents:
269
diff
changeset
|
231 | (propname c-string)) |
|
110
cae8da4b1415
rocksdb macrofication, fixes for RDB (C Strings will be the death of me), removed PWN - quicklisp package conflict, smh.
ellis <ellis@rwest.io>
parents:
101
diff
changeset
|
232 | |
| 87 | 233 | ;;; CF |
| 234 | (def-with-errptr rocksdb-create-column-family |
|
| 235 | (* rocksdb-column-family-handle) |
|
| 236 | (db (* rocksdb)) |
|
| 237 | (column-family-options (* rocksdb-options)) |
|
| 238 | (column-family-name c-string)) |
|
| 239 | ||
| 240 | (def-with-errptr rocksdb-create-column-families |
|
| 241 | (array rocksdb-column-family-handle) |
|
| 242 | (db (* rocksdb)) |
|
| 243 | (column-family-options (* rocksdb-options)) |
|
| 244 | (num-column-familes int) |
|
| 245 | (column-family-names (array c-string)) |
|
| 246 | (lencfs (* size-t))) |
|
| 247 | ||
| 248 | (define-alien-routine rocksdb-create-column-families-destroy void |
|
| 249 | (list (array rocksdb-column-family-handle))) |
|
| 250 | ||
| 599 | 251 | (def-with-errptr rocksdb-create-column-family-with-ttl (* rocksdb-column-family-handle) |
| 252 | (db (* rocksdb)) |
|
| 253 | (cf-opts (* rocksdb-options)) |
|
| 254 | (cf-name c-string) |
|
| 255 | (ttl int)) |
|
| 256 | ||
| 87 | 257 | (define-alien-routine rocksdb-column-family-handle-destroy void |
|
272
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
258 | (cf (* rocksdb-column-family-handle))) |
| 87 | 259 | |
| 260 | (define-alien-routine rocksdb-column-family-handle-get-id unsigned-int |
|
|
272
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
261 | (cf (* rocksdb-column-family-handle))) |
| 87 | 262 | |
| 263 | (define-alien-routine rocksdb-column-family-handle-get-name c-string |
|
| 264 | (handle (* rocksdb-column-family-handle)) |
|
| 265 | (name-len (* size-t))) |
|
| 266 | ||
| 267 | (def-with-errptr rocksdb-drop-column-family |
|
| 268 | void |
|
| 269 | (db (* rocksdb)) |
|
| 270 | (handle (* rocksdb-column-family-handle))) |
|
| 271 | ||
| 599 | 272 | (define-alien-routine rocksdb-get-default-column-family-handle (* rocksdb-column-family-handle) |
| 273 | (db (* rocksdb))) |
|
| 87 | 274 | |
| 275 | (def-with-errptr rocksdb-list-column-families |
|
| 276 | (array c-string) |
|
| 277 | (opt (* rocksdb-options)) |
|
| 278 | (name c-string) |
|
| 279 | (lencf (* size-t))) |
|
| 280 | ||
| 281 | (define-alien-routine rocksdb-list-column-families-destroy void |
|
| 282 | (list (array c-string)) |
|
| 283 | (len size-t)) |
|
| 284 | ||
| 285 | (def-with-errptr rocksdb-put-cf |
|
| 286 | void |
|
| 287 | (db (* rocksdb)) |
|
| 288 | (opt (* rocksdb-writeoptions)) |
|
| 289 | (cf (* rocksdb-column-family-handle)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
290 | (key (* unsigned-char)) |
| 87 | 291 | (keylen size-t) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
292 | (val (* unsigned-char)) |
| 87 | 293 | (vallen size-t)) |
| 294 | ||
| 599 | 295 | (def-with-errptr rocksdb-put-with-ts void |
| 296 | (db (* rocksdb)) |
|
| 297 | (opt (* rocksdb-writeoptions)) |
|
| 298 | (key (* unsigned-char)) |
|
| 299 | (keylen size-t) |
|
| 300 | (ts c-string) |
|
| 301 | (tslen size-t) |
|
| 302 | (val (* unsigned-char)) |
|
| 303 | (vallen size-t)) |
|
| 304 | ||
| 305 | (def-with-errptr rocksdb-put-cf-with-ts void |
|
| 306 | (db (* rocksdb)) |
|
| 307 | (opt (* rocksdb-writeoptions)) |
|
| 308 | (cf (* rocksdb-column-family-handle)) |
|
| 309 | (key (* unsigned-char)) |
|
| 310 | (keylen size-t) |
|
| 311 | (ts c-string) |
|
| 312 | (tslen size-t) |
|
| 313 | (val (* unsigned-char)) |
|
| 314 | (vallen size-t)) |
|
| 315 | ||
| 87 | 316 | (def-with-errptr rocksdb-delete-cf |
| 317 | void |
|
| 318 | (db (* rocksdb)) |
|
| 319 | (options (* rocksdb-writeoptions)) |
|
| 320 | (cf (* rocksdb-column-family-handle)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
321 | (key (* unsigned-char)) |
| 87 | 322 | (keylen size-t)) |
| 323 | ||
| 599 | 324 | (def-with-errptr rocksdb-delete-with-ts |
| 325 | void |
|
| 326 | (db (* rocksdb)) |
|
| 327 | (options (* rocksdb-writeoptions)) |
|
| 328 | (key (* unsigned-char)) |
|
| 329 | (ts c-string) |
|
| 330 | (tslen size-t) |
|
| 331 | (keylen size-t)) |
|
| 332 | ||
| 333 | (def-with-errptr rocksdb-delete-cf-with-ts |
|
| 334 | void |
|
| 335 | (db (* rocksdb)) |
|
| 336 | (options (* rocksdb-writeoptions)) |
|
| 337 | (cf (* rocksdb-column-family-handle)) |
|
| 338 | (key (* unsigned-char)) |
|
| 339 | (ts c-string) |
|
| 340 | (tslen size-t) |
|
| 341 | (keylen size-t)) |
|
| 342 | ||
| 343 | (def-with-errptr rocksdb-singledelete void |
|
| 344 | (db (* rocksdb)) |
|
| 345 | (opts (* rocksdb-writeoptions)) |
|
| 346 | (key c-string) |
|
| 347 | (keylen size-t)) |
|
| 348 | ||
| 349 | (def-with-errptr rocksdb-singledelete-with-ts void |
|
| 350 | (db (* rocksdb)) |
|
| 351 | (opts (* rocksdb-writeoptions)) |
|
| 352 | (key c-string) |
|
| 353 | (keylen size-t) |
|
| 354 | (ts c-string) |
|
| 355 | (tslen size-t)) |
|
| 356 | ||
| 357 | (def-with-errptr rocksdb-singledelete-cf-with-ts void |
|
| 358 | (db (* rocksdb)) |
|
| 359 | (opts (* rocksdb-writeoptions)) |
|
| 360 | (cf (* rocksdb-column-family-handle)) |
|
| 361 | (key c-string) |
|
| 362 | (keylen size-t) |
|
| 363 | (ts c-string) |
|
| 364 | (tslen size-t)) |
|
| 365 | ||
| 366 | (def-with-errptr rocksdb-singledelete-cf void |
|
| 367 | (db (* rocksdb)) |
|
| 368 | (opts (* rocksdb-writeoptions)) |
|
| 369 | (cf (* rocksdb-column-family-handle)) |
|
| 370 | (key c-string) |
|
| 371 | (keylen size-t)) |
|
| 372 | ||
| 373 | (def-with-errptr rocksdb-increase-full-history-ts-low void |
|
| 374 | (db (* rocksdb)) |
|
| 375 | (cf (* rocksdb-column-family-handle)) |
|
| 376 | (ts-low c-string) |
|
| 377 | (ts-lowlen size-t)) |
|
| 378 | ||
| 379 | (def-with-errptr rocksdb-get-full-history-ts-low c-string |
|
| 380 | (db (* rocksdb)) |
|
| 381 | (cf (* rocksdb-column-family-handle)) |
|
| 382 | (ts-lowlen (* size-t))) |
|
| 383 | ||
| 87 | 384 | (def-with-errptr rocksdb-delete-range-cf |
| 385 | void |
|
| 386 | (db (* rocksdb)) |
|
| 387 | (options (* rocksdb-writeoptions)) |
|
| 388 | (cf (* rocksdb-column-family-handle)) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
389 | (start-key (* unsigned-char)) |
| 87 | 390 | (start-key-len size-t) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
391 | (end-key (* unsigned-char)) |
| 87 | 392 | (end-key-len size-t)) |
| 393 | ||
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
394 | (def-with-errptr rocksdb-disable-file-deletions void |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
395 | (db (* rocksdb))) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
396 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
397 | (def-with-errptr rocksdb-enable-file-deletions void |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
398 | (db (* rocksdb))) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
399 | |
| 87 | 400 | (def-with-errptr rocksdb-destroy-db void |
| 401 | (opts (* rocksdb-options)) |
|
|
101
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
402 | (name c-string)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
403 | |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
404 | (def-with-errptr rocksdb-repair-db void |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
405 | (opts (* rocksdb-options)) |
|
53be9cb1511b
maybe fixed alien macro issues with rocksdb
ellis <ellis@rwest.io>
parents:
94
diff
changeset
|
406 | (name c-string)) |
| 87 | 407 | |
| 408 | ;;; Iterators |
|
| 409 | (define-alien-routine rocksdb-create-iterator (* rocksdb-iterator) |
|
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
410 | (db (* rocksdb)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
411 | (opt (* rocksdb-readoptions))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
412 | |
|
606
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
413 | (define-alien-routine rocksdb-get-updates-since (* rocksdb-wal-iterator) |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
414 | (db (* rocksdb)) |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
415 | (opts (* rocksdb-readoptions))) |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
416 | |
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
417 | (define-alien-routine rocksdb-create-iterator-cf (* rocksdb-iterator) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
418 | (db (* rocksdb)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
419 | (opt (* rocksdb-readoptions)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
420 | (cf (* rocksdb-column-family-handle))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
421 | |
|
606
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
422 | (def-with-errptr rocksdb-create-iterators void |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
423 | (db (* rocksdb)) |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
424 | (opts (* rocksdb-readoptions)) |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
425 | (cfs (array (* rocksdb-column-family-handle))) |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
426 | (iters (array (* rocksdb-iterator)))) |
|
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
602
diff
changeset
|
427 | |
| 87 | 428 | (define-alien-routine rocksdb-iter-destroy void |
| 429 | (iter (* rocksdb-iterator))) |
|
| 430 | (define-alien-routine rocksdb-iter-seek-to-first void |
|
| 431 | (iter (* rocksdb-iterator))) |
|
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
432 | (define-alien-routine rocksdb-iter-seek-to-last void |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
433 | (iter (* rocksdb-iterator))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
434 | (define-alien-routine rocksdb-iter-seek void |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
435 | (iter (* rocksdb-iterator)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
436 | (k (* unsigned-char)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
437 | (klen size-t)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
438 | (define-alien-routine rocksdb-iter-seek-for-prev void |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
439 | (iter (* rocksdb-iterator)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
440 | (k (* unsigned-char)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
441 | (klen size-t)) |
| 87 | 442 | (define-alien-routine rocksdb-iter-valid boolean |
| 443 | (iter (* rocksdb-iterator))) |
|
| 444 | (define-alien-routine rocksdb-iter-next void |
|
| 445 | (iter (* rocksdb-iterator))) |
|
| 446 | (define-alien-routine rocksdb-iter-prev void |
|
| 447 | (iter (* rocksdb-iterator))) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
448 | (define-alien-routine rocksdb-iter-key (* unsigned-char) |
| 87 | 449 | (iter (* rocksdb-iterator)) |
| 450 | (klen-ptr (* size-t))) |
|
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
451 | (define-alien-routine rocksdb-iter-value (* unsigned-char) |
| 87 | 452 | (iter (* rocksdb-iterator)) |
| 453 | (vlen-ptr (* size-t))) |
|
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
454 | (define-alien-routine rocksdb-iter-timestamp (* unsigned-char) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
455 | (iter (* rocksdb-iterator)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
456 | (tslen (* size-t))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
457 | (def-with-errptr rocksdb-iter-get-error void (iter (* rocksdb-iterator))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
458 | (define-alien-routine rocksdb-wal-iter-next void (iter (* rocksdb-wal-iterator))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
459 | (define-alien-routine rocksdb-wal-iter-valid unsigned-char (iter (* rocksdb-wal-iterator))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
460 | (def-with-errptr rocksdb-wal-iter-status unsigned-char (iter (* rocksdb-wal-iterator))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
461 | (define-alien-routine rocksdb-wal-iter-get-batch (* rocksdb-writebatch) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
462 | (iter (* rocksdb-wal-iterator)) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
463 | (seq (* (unsigned 64)))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
464 | (define-alien-routine rockdsb-get-latest-sequence-number (unsigned 64) (db (* rocksdb))) |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
465 | (define-alien-routine rocksdb-wal-iter-destroy void |
|
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
466 | (iter (* rocksdb-wal-iterator))) |
| 87 | 467 | |
| 468 | ;;; Backup |
|
| 599 | 469 | (def-with-errptr rocksdb-backup-engine-verify-backup void |
| 470 | (be (* rocksdb-backup-engine)) |
|
| 471 | (backup-id (unsigned 32))) |
|
| 472 | ||
| 87 | 473 | (def-with-errptr rocksdb-backup-engine-open |
| 474 | (* rocksdb-backup-engine) |
|
| 475 | (opts (* rocksdb-options)) |
|
| 112 | 476 | (path c-string)) |
| 87 | 477 | |
| 478 | (def-with-errptr rocksdb-backup-engine-create-new-backup |
|
| 479 | void |
|
| 480 | (be (* rocksdb-backup-engine)) |
|
| 481 | (db (* rocksdb))) |
|
| 482 | ||
| 483 | (def-with-errptr rocksdb-backup-engine-restore-db-from-latest-backup |
|
| 484 | void |
|
| 485 | (be (* rocksdb-backup-engine)) |
|
| 112 | 486 | (db-dir c-string) |
| 487 | (wal-dir c-string) |
|
| 87 | 488 | (res-opts (* rocksdb-restore-options))) |
| 489 | ||
| 490 | (def-with-errptr rocksdb-backup-engine-restore-db-from-backup |
|
| 491 | void |
|
| 492 | (be (* rocksdb-backup-engine)) |
|
| 112 | 493 | (db-dir c-string) |
| 494 | (wal-dir c-string) |
|
| 87 | 495 | (res-opts (* rocksdb-restore-options)) |
| 496 | (backup-id unsigned-int)) |
|
| 497 | ||
| 498 | (define-alien-routine rocksdb-backup-engine-close void |
|
| 499 | (be (* rocksdb-backup-engine))) |
|
| 500 | ||
| 599 | 501 | (define-alien-routine rocksdb-backup-engine-get-backup-info (* rocksdb-backup-engine-info) |
| 502 | (be (* rocksdb-backup-engine))) |
|
| 503 | (define-alien-routine rocksdb-backup-engine-info-count int |
|
| 504 | (info (* rocksdb-backup-engine-info))) |
|
| 505 | (define-alien-routine rocksdb-backup-engine-info-timestamp (signed 64) |
|
| 506 | (info (* rocksdb-backup-engine-info)) |
|
| 507 | (index int)) |
|
| 508 | (define-alien-routine rocksdb-backup-engine-info-backup-id (unsigned 64) |
|
| 509 | (info (* rocksdb-backup-engine-info)) |
|
| 510 | (index int)) |
|
| 511 | (define-alien-routine rocksdb-backup-engine-info-size (unsigned 64) |
|
| 512 | (info (* rocksdb-backup-engine-info)) |
|
| 513 | (index int)) |
|
| 514 | (define-alien-routine rocksdb-backup-engine-info-num-files (unsigned 32) |
|
| 515 | (info (* rocksdb-backup-engine-info)) |
|
| 516 | (index int)) |
|
| 517 | (define-alien-routine rocksdb-backup-engine-info-destroy void |
|
| 518 | (info (* rocksdb-backup-engine-info))) |
|
| 519 | ||
| 87 | 520 | ;;; Transactions |
|
268
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
521 | (def-with-errptr rocksdb-transactiondb-create-column-family (* rocksdb-column-family-handle) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
522 | (txn-db (* rocksdb-transactiondb)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
523 | (cf-options (* rocksdb-options)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
524 | (cf-name c-string)) |
| 87 | 525 | |
|
113
afcb1f02bb66
removed obj/uri. may add back new impl later. new file obj/db.lisp and RDB stuff - (sst)
ellis <ellis@rwest.io>
parents:
112
diff
changeset
|
526 | (def-with-errptr rocksdb-transactiondb-open (* rocksdb-transactiondb) |
| 87 | 527 | (opts (* rocksdb-options)) |
| 528 | (topts (* rocksdb-transactiondb-options)) |
|
| 112 | 529 | (name c-string)) |
| 87 | 530 | |
|
268
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
531 | (def-with-errptr rocksdb-transactiondb-open-column-families (* rocksdb-transactiondb) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
532 | (opts (* rocksdb-options)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
533 | (txn-db-opts (* rocksdb-transactiondb-options)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
534 | (name c-string) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
535 | (num-cfs int) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
536 | (cf-names (array c-string)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
537 | (cf-opfs (* rocksdb-options)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
538 | (cf-handles (array (* rocksdb-column-family-handle)))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
539 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
540 | (define-alien-routine rocksdb-transactiondb-create-snapshot (* rocksdb-snapshot) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
541 | (txn-db (* rocksdb-transactiondb)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
542 | (snapshot (* rocksdb-snapshot))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
543 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
544 | (define-alien-routine rocksdb-transactiondb-release-snapshot void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
545 | (txn-db (* rocksdb-transactiondb)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
546 | (snapshot (* rocksdb-snapshot))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
547 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
548 | (define-alien-routine rocksdb-transactiondb-property-value c-string |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
549 | (db (* rocksdb-transactiondb)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
550 | (propname c-string)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
551 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
552 | (define-alien-routine rocksdb-transactiondb-property-int int |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
553 | (db (* rocksdb-transactiondb)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
554 | (propname c-string) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
555 | (out-val (unsigned 64))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
556 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
557 | (define-alien-routine rocksdb-transactiondb-get-base-db (* rocksdb) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
558 | (txn-db (* rocksdb-transactiondb))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
559 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
560 | (define-alien-routine rocksdb-transactiondb-get-close-db void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
561 | (base-db (* rocksdb))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
562 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
563 | (define-alien-routine rocksdb-transaction-begin (* rocksdb-transaction) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
564 | (wopts (* rocksdb-writeoptions)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
565 | (topts (* rocksdb-transaction-options)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
566 | (told (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
567 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
568 | (define-alien-routine rocksdb-transactiondb-get-prepared-transactions (array (* rocksdb-transaction)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
569 | (txn-db (* rocksdb-transactiondb)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
570 | (cnt (* size-t))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
571 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
572 | (def-with-errptr rocksdb-transaction-set-name void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
573 | (txn (* rocksdb-transaction)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
574 | (name c-string) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
575 | (name-len size-t)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
576 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
577 | (define-alien-routine rocksdb-transaction-get-name c-string |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
578 | (txn (* rocksdb-transaction)) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
579 | (name-len (* size-t))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
580 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
581 | (def-with-errptr rocksdb-transaction-prepare void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
582 | (txn (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
583 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
584 | (def-with-errptr rocksdb-transaction-commit void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
585 | (txn (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
586 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
587 | (def-with-errptr rocksdb-transaction-rollback void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
588 | (txn (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
589 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
590 | (define-alien-routine rocksdb-transaction-set-savepoint void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
591 | (txn (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
592 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
593 | (def-with-errptr rocksdb-transaction-rollback-to-savepoint void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
594 | (txn (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
595 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
596 | (define-alien-routine rocksdb-transaction-destroy void |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
597 | (txn (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
598 | |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
599 | (define-alien-routine rocksdb-transaction-get-writebach-wi (* rocksdb-writebatch-wi) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
600 | (txn (* rocksdb-transaction))) |
|
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
601 | |
| 269 | 602 | (def-with-errptr rocksdb-transaction-delete void |
| 603 | (txn (* rocksdb-transaction)) |
|
| 604 | (key c-string) |
|
| 605 | (klen size-t)) |
|
| 606 | ||
| 607 | (def-with-errptr rocksdb-transaction-delete-cf void |
|
| 608 | (txn (* rocksdb-transaction)) |
|
| 609 | (cf (* rocksdb-column-family-handle)) |
|
| 610 | (key c-string) |
|
| 611 | (klen size-t)) |
|
| 612 | ||
| 613 | (def-with-errptr rocksdb-transactiondb-delete void |
|
| 614 | (txndb (* rocksdb-transactiondb)) |
|
| 615 | (opts (* rocksdb-writeoptions)) |
|
| 616 | (key c-string) |
|
| 617 | (klen size-t)) |
|
| 618 | ||
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
619 | (def-with-errptr rocksdb-transactiondb-delete-cf void |
| 269 | 620 | (txndb (* rocksdb-transactiondb)) |
| 621 | (opts (* rocksdb-writeoptions)) |
|
| 622 | (cf (* rocksdb-column-family-handle)) |
|
| 623 | (key c-string) |
|
| 624 | (klen size-t)) |
|
| 625 | ||
| 626 | (define-alien-routine rocksdb-transaction-create-iterator (* rocksdb-iterator) |
|
| 627 | (txn (* rocksdb-transaction)) |
|
| 628 | (opts (* rocksdb-readoptions))) |
|
| 629 | ||
| 630 | (define-alien-routine rocksdb-transaction-create-iterator-cf (* rocksdb-iterator) |
|
| 631 | (txn (* rocksdb-transaction)) |
|
| 632 | (opts (* rocksdb-readoptions)) |
|
| 633 | (cf (* rocksdb-column-family-handle))) |
|
| 634 | ||
| 635 | (define-alien-routine rocksdb-transactiondb-create-iterator (* rocksdb-iterator) |
|
| 636 | (txndb (* rocksdb-transactiondb)) |
|
| 637 | (opts (* rocksdb-readoptions))) |
|
| 638 | ||
| 639 | (define-alien-routine rocksdb-transactiondb-create-iterator-cf (* rocksdb-iterator) |
|
| 640 | (txndb (* rocksdb-transactiondb)) |
|
| 641 | (opts (* rocksdb-readoptions)) |
|
| 642 | (cf (* rocksdb-column-family-handle))) |
|
| 643 | ||
| 87 | 644 | (define-alien-routine rocksdb-transactiondb-close void |
| 645 | (tdb (* rocksdb-transactiondb))) |
|
| 646 | ||
| 269 | 647 | (def-with-errptr rocksdb-transactiondb-flush void |
| 648 | (txndb (* rocksdb-transactiondb)) |
|
| 649 | (opts (* rocksdb-flushoptions))) |
|
| 650 | ||
| 651 | (def-with-errptr rocksdb-transactiondb-flush-cf void |
|
| 652 | (txndb (* rocksdb-transactiondb)) |
|
| 653 | (opts (* rocksdb-flushoptions)) |
|
| 654 | (cf (* rocksdb-column-family-handle))) |
|
| 655 | ||
| 656 | (def-with-errptr rocksdb-transactiondb-flush-cfs void |
|
| 657 | (txndb (* rocksdb-transactiondb)) |
|
| 658 | (opts (* rocksdb-flushoptions)) |
|
| 659 | (cfs (array (* rocksdb-column-family-handle))) |
|
| 660 | (ncfs int)) |
|
| 661 | ||
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
662 | (def-with-errptr rocksdb-transactiondb-flush-wal void |
| 269 | 663 | (txndb (* rocksdb-transactiondb)) |
| 664 | (sync unsigned-char)) |
|
| 665 | ||
| 666 | (def-with-errptr rocksdb-transactiondb-checkpoint-object-create (* rocksdb-checkpoint) |
|
| 667 | (txn-db (* rocksdb-transactiondb))) |
|
| 668 | ||
| 669 | (def-with-errptr rocksdb-optimistictransactiondb-open (* rocksdb-optimistictransactiondb) |
|
| 670 | (opts (* rocksdb-options)) |
|
| 671 | (name c-string)) |
|
| 672 | ||
| 673 | (def-with-errptr rocksdb-optimistictransactiondb-open-column-families (* rocksdb-optimistictransactiondb) |
|
| 674 | (opts (* rocksdb-options)) |
|
| 675 | (name c-string) |
|
| 676 | (ncfs int) |
|
| 677 | (cf-names (array c-string)) |
|
| 678 | (cf-opts (array (* rocksdb-options))) |
|
| 679 | (cf-handles (array (* rocksdb-column-family-handle)))) |
|
| 680 | ||
| 681 | (define-alien-routine rocksdb-optimistictransactiondb-get-base-db (* rocksdb) |
|
| 682 | (otxn-db (* rocksdb-optimistictransactiondb))) |
|
| 683 | ||
| 684 | (define-alien-routine rocksdb-optimistictransactiondb-close-base-db void |
|
| 685 | (base-db (* rocksdb))) |
|
| 686 | ||
| 687 | (define-alien-routine rocksdb-optimistictransaction-begin (* rocksdb-transaction) |
|
| 688 | (otxn-db (* rocksdb-optimistictransactiondb)) |
|
| 689 | (wopts (* rocksdb-writeoptions)) |
|
| 690 | (otxn-opts (* rocksdb-optimistictransaction-options)) |
|
| 691 | (old-txn (* rocksdb-transaction))) |
|
| 692 | ||
| 693 | (def-with-errptr rocksdb-optimistictransactiondb-write void |
|
| 694 | (otxn-db (* rocksdb-optimistictransactiondb)) |
|
| 695 | (wopts (* rocksdb-writeoptions)) |
|
| 696 | (batch (* rocksdb-writebatch))) |
|
| 697 | ||
| 698 | (define-alien-routine rocksdb-optimistictransactiondb-close void |
|
| 699 | (otxn-db (* rocksdb-optimistictransactiondb))) |
|
| 700 | ||
| 701 | (def-with-errptr rocksdb-optimistictransactiondb-checkpoint-object-create (* rocksdb-checkpoint) |
|
| 702 | (otxn-db (* rocksdb-optimistictransactiondb))) |
|
| 703 | ||
| 94 | 704 | ;;; Perfcontext |
| 705 | (define-alien-routine rocksdb-set-perf-level void (val int)) |
|
| 706 | ||
| 707 | (define-alien-routine rocksdb-perfcontext-create (* rocksdb-perfcontext)) |
|
| 708 | ||
| 269 | 709 | (define-alien-routine rocksdb-perfcontext-reset void (ctx (* rocksdb-perfcontext))) |
| 94 | 710 | |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
711 | (define-alien-routine rocksdb-perfcontext-report (* unsigned-char) |
| 94 | 712 | (context (* rocksdb-perfcontext)) |
| 713 | (exclude-zero-counters unsigned-char)) |
|
| 714 | ||
| 715 | (define-alien-routine rocksdb-perfcontext-metric unsigned-long |
|
| 716 | (context (* rocksdb-perfcontext)) (metric int)) |
|
| 717 | ||
|
365
49c3f3d11432
bug fixes and more tweaks for test macros
Richard Westhaver <ellis@rwest.io>
parents:
314
diff
changeset
|
718 | ;; TODO 2024-05-24: causes compile error - pass-by-struct not supported |
|
49c3f3d11432
bug fixes and more tweaks for test macros
Richard Westhaver <ellis@rwest.io>
parents:
314
diff
changeset
|
719 | ;; (define-alien-routine rocksdb-perfcontext-destroy void (* rocksdb-perfcontext)) |
| 94 | 720 | |
| 721 | ;;; Filter Policy |
|
| 722 | (define-alien-routine rocksdb-filterpolicy-destroy void (self (* rocksdb-filterpolicy))) |
|
| 723 | ||
| 724 | (define-alien-routine rocksdb-filterpolicy-create-bloom (* rocksdb-filterpolicy) |
|
| 725 | (bits-per-key double)) |
|
| 726 | ||
| 727 | (define-alien-routine rocksdb-filterpolicy-create-bloom-full (* rocksdb-filterpolicy) |
|
| 728 | (bits-per-key double)) |
|
| 729 | ||
| 730 | (define-alien-routine rocksdb-filterpolicy-create-ribbon (* rocksdb-filterpolicy) |
|
| 731 | (bloom-equivalent-bits-per-key double)) |
|
| 732 | ||
| 733 | (define-alien-routine rocksdb-filterpolicy-create-ribbon-hybrid (* rocksdb-filterpolicy) |
|
| 734 | (bloom-equivalent-bits-per-key double) |
|
| 735 | (bloom-before-level int)) |
|
| 736 | ||
|
272
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
737 | ;;; Snapshot |
|
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
738 | (define-alien-routine rocksdb-create-snapshot (* rocksdb-snapshot) |
|
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
739 | (db (* rocksdb))) |
|
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
740 | |
|
314
5ff2542d5f38
expose compaction pri: #[12604]
Richard Westhaver <ellis@rwest.io>
parents:
273
diff
changeset
|
741 | (define-alien-routine rocksdb-snapshot-get-sequence-number (unsigned 64) |
|
5ff2542d5f38
expose compaction pri: #[12604]
Richard Westhaver <ellis@rwest.io>
parents:
273
diff
changeset
|
742 | (snapshot (* rocksdb-snapshot))) |
|
5ff2542d5f38
expose compaction pri: #[12604]
Richard Westhaver <ellis@rwest.io>
parents:
273
diff
changeset
|
743 | |
|
272
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
744 | (define-alien-routine rocksdb-release-snapshot void |
|
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
745 | (db (* rocksdb)) |
|
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
746 | (snapshot (* rocksdb-snapshot))) |