Mercurial > core / lisp/ffi/rocksdb/writebatch.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
c48704d7b06f
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; writebatch.lisp --- RocksDB Writebatches 3 ;; RocksDB Writebatch Lisp FFI 9 (define-alien-type rocksdb-put-function 17 (define-alien-type rocksdb-deleted-function 23 (define-alien-type rocksdb-put-cf-function 32 (define-alien-type rocksdb-deleted-cf-function 39 (define-alien-type rocksdb-merge-cf-function 48 (define-alien-type rocksdb-get-ts-size-function 54 (define-alien-routine rocksdb-writebatch-create (* rocksdb-writebatch)) 55 (define-alien-routine rocksdb-writebatch-create-from (* rocksdb-writebatch) 59 (define-alien-routine rocksdb-writebatch-create-with-params (* rocksdb-writebatch) 60 (reserved-bytes size-t) 62 (protection-bytes-per-key size-t) 63 (default-cf-ts-sz size-t)) 65 (define-alien-routine rocksdb-writebatch-destroy void (batch (* rocksdb-writebatch))) 67 (define-alien-routine rocksdb-writebatch-clear void (b (* rocksdb-writebatch))) 68 (define-alien-routine rocksdb-writebatch-count int (b (* rocksdb-writebatch))) 70 (define-alien-routine rocksdb-writebatch-put-log-data void 71 (batch (* rocksdb-writebatch)) 72 (blob (array unsigned-char)) 75 (define-alien-routine rocksdb-writebatch-iterate void 76 (batch (* rocksdb-writebatch)) 78 (put (* rocksdb-put-function)) 79 (deleted (* rocksdb-deleted-function))) 81 (define-alien-routine rocksdb-writebatch-iterate-cf void 82 (batch (* rocksdb-writebatch)) 84 (put-cf (* rocksdb-put-cf-function)) 85 (deleted-cf (* rocksdb-deleted-cf-function)) 86 (merge-cf (* rocksdb-merge-cf-function))) 88 (define-alien-routine rocksdb-writebatch-data (array unsigned-char) 89 (batch (* rocksdb-writebatch)) 92 (define-alien-routine rocksdb-writebatch-set-save-point void 93 (batch (* rocksdb-writebatch))) 95 (def-with-errptr rocksdb-writebatch-rollback-to-save-point void 96 (batch (* rocksdb-writebatch))) 98 (def-with-errptr rocksdb-writebatch-pop-save-point void 99 (batch (* rocksdb-writebatch))) 101 (def-with-errptr rocksdb-writebatch-update-timestamps void 102 (batch (* rocksdb-writebatch)) 103 (ts (array unsigned-char)) 106 (get-ts-size (* rocksdb-get-ts-size-function))) 109 (define-alien-routine rocksdb-writebatch-put void 110 (batch (* rocksdb-writebatch)) 111 (key (array unsigned-char)) 113 (val (array unsigned-char)) 116 (define-alien-routine rocksdb-writebatch-put-cf void 117 (batch (* rocksdb-writebatch)) 118 (cf (* rocksdb-column-family-handle)) 119 (key (array unsigned-char)) 121 (val (array unsigned-char)) 124 (define-alien-routine rocksdb-writebatch-put-cf-with-ts void 125 (batch (* rocksdb-writebatch)) 126 (cf (* rocksdb-column-family-handle)) 127 (key (array unsigned-char)) 129 (ts (array unsigned-char)) 131 (val (array unsigned-char)) 134 (define-alien-routine rocksdb-writebatch-putv void 135 (batch (* rocksdb-writebatch)) 137 (keys-list (array (array unsigned-char))) 138 (keys-sizes (array size-t)) 140 (values-list (array (array unsigned-char))) 141 (values-list-sizes (array size-t))) 143 (define-alien-routine rocksdb-writebatch-putv-cf void 144 (batch (* rocksdb-writebatch)) 145 (cf (* rocksdb-column-family-handle)) 147 (keys-list (array (array unsigned-char))) 148 (keys-sizes (array size-t)) 150 (values-list (array (array unsigned-char))) 151 (values-list-sizes (array size-t))) 154 (define-alien-routine rocksdb-writebatch-delete void 155 (batch (* rocksdb-writebatch)) 156 (key (array unsigned-char)) 159 (define-alien-routine rocksdb-writebatch-singledelete void 160 (batch (* rocksdb-writebatch)) 161 (key (array unsigned-char)) 164 (define-alien-routine rocksdb-writebatch-delete-cf void 165 (batch (* rocksdb-writebatch)) 166 (cf (* rocksdb-column-family-handle)) 167 (key (array unsigned-char)) 170 (define-alien-routine rocksdb-writebatch-singledelete-cf void 171 (batch (* rocksdb-writebatch)) 172 (cf (* rocksdb-column-family-handle)) 173 (key (array unsigned-char)) 176 (define-alien-routine rocksdb-writebatch-singledelete-cf-with-ts void 177 (batch (* rocksdb-writebatch)) 178 (cf (* rocksdb-column-family-handle)) 179 (key (array unsigned-char)) 181 (ts (array unsigned-char)) 184 (define-alien-routine rocksdb-writebatch-delete-cf-with-ts void 185 (batch (* rocksdb-writebatch)) 186 (cf (* rocksdb-column-family-handle)) 187 (key (array unsigned-char)) 189 (ts (array unsigned-char)) 192 (define-alien-routine rocksdb-writebatch-deletev void 193 (batch (* rocksdb-writebatch)) 195 (keys-list (array (array unsigned-char))) 196 (keys-list-sizes (array size-t))) 198 (define-alien-routine rocksdb-writebatch-deletev-cf void 199 (batch (* rocksdb-writebatch)) 200 (cf (* rocksdb-column-family-handle)) 202 (keys-list (array (array unsigned-char))) 203 (keys-list-sizes (array size-t))) 205 (define-alien-routine rocksdb-writebatch-delete-range void 206 (batch (* rocksdb-writebatch)) 207 (start-key (array unsigned-char)) 208 (start-key-len size-t) 209 (end-key (array unsigned-char)) 210 (end-key-len size-t)) 212 (define-alien-routine rocksdb-writebatch-delete-range-cf void 213 (batch (* rocksdb-writebatch)) 214 (cf (* rocksdb-column-family-handle)) 215 (start-key (array unsigned-char)) 216 (start-key-len size-t) 217 (end-key (array unsigned-char)) 218 (end-key-len size-t)) 220 (define-alien-routine rocksdb-writebatch-delete-rangev void 221 (batch (* rocksdb-writebatch)) 223 (start-keys-list (array (array unsigned-char))) 224 (start-keys-list-sizes (array size-t)) 225 (end-keys-list (array (array unsigned-char))) 226 (end-keys-list-sizes (array size-t))) 228 (define-alien-routine rocksdb-writebatch-delete-rangev-cf void 229 (batch (* rocksdb-writebatch)) 230 (cf (* rocksdb-column-family-handle)) 232 (start-keys-list (array (array unsigned-char))) 233 (start-keys-list-sizes (array size-t)) 234 (end-keys-list (array (array unsigned-char))) 235 (end-keys-list-sizes (array size-t))) 238 (define-alien-routine rocksdb-writebatch-merge void 239 (batch (* rocksdb-writebatch)) 240 (key (array unsigned-char)) 242 (val (array unsigned-char)) 245 (define-alien-routine rocksdb-writebatch-merge-cf void 246 (batch (* rocksdb-writebatch)) 247 (cf (* rocksdb-column-family-handle)) 248 (key (array unsigned-char)) 250 (val (array unsigned-char)) 253 (define-alien-routine rocksdb-writebatch-mergev void 254 (batch (* rocksdb-writebatch)) 256 (keys-list (array (array unsigned-char))) 257 (keys-list-sizes (array size-t)) 259 (values-list (array (array unsigned-char))) 260 (values-list-sizes (array size-t))) 262 (define-alien-routine rocksdb-writebatch-mergev-cf void 263 (batch (* rocksdb-writebatch)) 264 (cf (* rocksdb-column-family-handle)) 266 (keys-list (array (array unsigned-char))) 267 (keys-list-sizes (array size-t)) 269 (values-list (array (array unsigned-char))) 270 (values-list-sizes (array size-t))) 273 (define-alien-routine rocksdb-writebatch-wi-create (* rocksdb-writebatch-wi) 274 (reserved-bytes size-t) 275 (overwrite-keys unsigned-char)) 277 (define-alien-routine rocksdb-writebatch-wi-create-from (* rocksdb-writebatch-wi) 278 (rep (array unsigned-char)) 281 (define-alien-routine rocksdb-writebatch-wi-create-with-params (* rocksdb-writebatch-wi) 282 (backup-index-comparator (* rocksdb-comparator)) 283 (reserved-bytes size-t) 284 (overwrite-key unsigned-char) 286 (protection-bytes-per-key size-t)) 288 (define-alien-routine rocksdb-writebatch-wi-destroy void 289 (batch (* rocksdb-writebatch-wi))) 291 (define-alien-routine rocksdb-writebatch-wi-clear void 292 (batch (* rocksdb-writebatch-wi))) 294 (define-alien-routine rocksdb-writebatch-wi-count void 295 (batch (* rocksdb-writebatch-wi))) 297 (define-alien-routine rocksdb-writebatch-wi-put-log-data void 298 (batch (* rocksdb-writebatch-wi)) 299 (blob (array unsigned-char)) 302 (define-alien-routine rocksdb-writebatch-wi-iterate void 303 (batch (* rocksdb-writebatch-wi)) 305 (put (* rocksdb-put-function)) 306 (deleted (* rocksdb-deleted-function))) 308 (define-alien-routine rocksdb-writebatch-wi-data (array unsigned-char) 309 (batch (* rocksdb-writebatch-wi)) 312 (define-alien-routine rocksdb-writebatch-wi-set-save-point void 313 (batch (* rocksdb-writebatch-wi))) 315 (def-with-errptr rocksdb-writebatch-wi-rollback-to-save-point void 316 (batch (* rocksdb-writebatch-wi))) 318 (def-with-errptr rocksdb-writebatch-wi-get-from-batch (array unsigned-char) 319 (batch (* rocksdb-writebatch-wi)) 320 (opts (* rocksdb-options)) 321 (key (array unsigned-char)) 325 (def-with-errptr rocksdb-writebatch-wi-get-from-batch-cf (array unsigned-char) 326 (batch (* rocksdb-writebatch-wi)) 327 (cf (* rocksdb-column-family-handle)) 328 (opts (* rocksdb-options)) 329 (key (array unsigned-char)) 333 (def-with-errptr rocksdb-writebatch-wi-get-from-batch-and-db (array unsigned-char) 334 (batch (* rocksdb-writebatch-wi)) 336 (readopts (* rocksdb-readoptions)) 337 (key (array unsigned-char)) 341 (def-with-errptr rocksdb-writebatch-wi-get-from-batch-and-db-cf (array unsigned-char) 342 (batch (* rocksdb-writebatch-wi)) 344 (readopts (* rocksdb-readoptions)) 345 (cf (* rocksdb-column-family-handle)) 346 (key (array unsigned-char)) 350 (def-with-errptr rocksdb-write-writebatch-wi void 352 (wopts (* rocksdb-writeoptions)) 353 (wbwi (* rocksdb-writebatch-wi))) 355 (define-alien-routine rocksdb-writebatch-wi-create-iterator-with-base (* rocksdb-iterator) 356 (wbwi (* rocksdb-writebatch-wi)) 357 (base-iterator (* rocksdb-iterator))) 359 (define-alien-routine rocksdb-writebatch-wi-create-iterator-with-base-cf (* rocksdb-iterator) 360 (wbwi (* rocksdb-writebatch-wi)) 361 (base-iterator (* rocksdb-iterator)) 362 (cf (* rocksdb-column-family-handle))) 364 (def-with-errptr rocksdb-writebatch-wi-update-timestamps void 365 (wbwi (* rocksdb-writebatch-wi)) 366 (ts (array unsigned-char)) 369 (get-ts-size (* rocksdb-get-ts-size-function))) 371 (define-alien-routine rocksdb-writebatch-wi-put void 372 (batch (* rocksdb-writebatch-wi)) 373 (key (array unsigned-char)) 375 (val (array unsigned-char)) 378 (define-alien-routine rocksdb-writebatch-wi-put-cf void 379 (batch (* rocksdb-writebatch-wi)) 380 (cf (* rocksdb-column-family-handle)) 381 (key (array unsigned-char)) 383 (val (array unsigned-char)) 386 (define-alien-routine rocksdb-writebatch-wi-putv void 387 (batch (* rocksdb-writebatch-wi)) 389 (keys-list (array (array unsigned-char))) 390 (keys-list-sizes (array size-t)) 392 (values-list (array (array unsigned-char))) 393 (values-list-sizes (array size-t))) 395 (define-alien-routine rocksdb-writebatch-wi-putv-cf void 396 (batch (* rocksdb-writebatch-wi)) 397 (cf (* rocksdb-column-family-handle)) 399 (keys-list (array (array unsigned-char))) 400 (keys-list-sizes (array size-t)) 402 (values-list (array (array unsigned-char))) 403 (values-list-sizes (array size-t))) 405 (define-alien-routine rocksdb-writebatch-wi-merge void 406 (batch (* rocksdb-writebatch-wi)) 407 (key (array unsigned-char)) 409 (val (array unsigned-char)) 412 (define-alien-routine rocksdb-writebatch-wi-merge-cf void 413 (batch (* rocksdb-writebatch-wi)) 414 (cf (* rocksdb-column-family-handle)) 415 (key (array unsigned-char)) 417 (val (array unsigned-char)) 420 (define-alien-routine rocksdb-writebatch-wi-mergev void 421 (batch (* rocksdb-writebatch-wi)) 423 (keys-list (array (array unsigned-char))) 424 (keys-list-sizes (array size-t)) 426 (values-list (array (array unsigned-char))) 427 (values-list-sizes (array size-t))) 429 (define-alien-routine rocksdb-writebatch-wi-mergev-cf void 430 (batch (* rocksdb-writebatch-wi)) 431 (cf (* rocksdb-column-family-handle)) 433 (keys-list (array (array unsigned-char))) 434 (keys-list-sizes (array size-t)) 436 (values-list (array (array unsigned-char))) 437 (values-list-sizes (array size-t))) 439 (define-alien-routine rocksdb-writebatch-wi-delete void 440 (batch (* rocksdb-writebatch-wi)) 441 (key (array unsigned-char)) 444 (define-alien-routine rocksdb-writebatch-wi-singledelete void 445 (batch (* rocksdb-writebatch-wi)) 446 (key (array unsigned-char)) 449 (define-alien-routine rocksdb-writebatch-wi-delete-cf void 450 (batch (* rocksdb-writebatch-wi)) 451 (cf (* rocksdb-column-family-handle)) 452 (key (array unsigned-char)) 455 (define-alien-routine rocksdb-writebatch-wi-singledelete-cf void 456 (batch (* rocksdb-writebatch-wi)) 457 (cf (* rocksdb-column-family-handle)) 458 (key (array unsigned-char)) 461 (define-alien-routine rocksdb-writebatch-wi-deletev void 462 (batch (* rocksdb-writebatch-wi)) 464 (keys-list (array (array unsigned-char))) 465 (keys-list-sizes (array size-t))) 467 (define-alien-routine rocksdb-writebatch-wi-deletev-cf void 468 (batch (* rocksdb-writebatch-wi)) 469 (cf (* rocksdb-column-family-handle)) 471 (keys-list (array (array unsigned-char))) 472 (keys-list-sizes (array size-t))) 475 (define-alien-routine rocksdb-writebatch-wi-delete-range void 476 (batch (* rocksdb-writebatch-wi)) 477 (start-key (array unsigned-char)) 478 (start-key-len size-t) 479 (end-key (array unsigned-char)) 480 (end-key-len size-t)) 482 (define-alien-routine rocksdb-writebatch-wi-delete-range-cf void 483 (batch (* rocksdb-writebatch-wi)) 484 (cf (* rocksdb-column-family-handle)) 485 (start-key (array unsigned-char)) 486 (start-key-len size-t) 487 (end-key (array unsigned-char)) 488 (end-key-len size-t)) 490 (define-alien-routine rocksdb-writebatch-wi-delete-rangev void 491 (batch (* rocksdb-writebatch-wi)) 492 (start-keys-list (array (array unsigned-char))) 493 (start-keys-list-sizes (array size-t)) 494 (end-keys-list (array (array unsigned-char))) 495 (end-keys-list-sizes (array size-t))) 497 (define-alien-routine rocksdb-writebatch-wi-delete-rangev-cf void 498 (batch (* rocksdb-writebatch-wi)) 499 (cf (* rocksdb-column-family-handle)) 500 (start-keys-list (array (array unsigned-char))) 501 (start-keys-list-sizes (array size-t)) 502 (end-keys-list (array (array unsigned-char))) 503 (end-keys-list-sizes (array size-t)))