changeset 616: | c48704d7b06f |
parent: | 9238c034b97e |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Tue, 20 Aug 2024 21:02:58 -0400 |
permissions: | -rw-r--r-- |
description: | writebatch callbacks and fixes |
606 | 1 | ;;; writebatch.lisp --- RocksDB Writebatches |
2 | ||
3 | ;; RocksDB Writebatch Lisp FFI |
|
4 | ||
5 | ;;; Code: |
|
6 | (in-package :rocksdb) |
|
7 | ||
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
8 | ;;; Types |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
9 | (define-alien-type rocksdb-put-function |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
10 | (function void |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
11 | (* t) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
12 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
13 | size-t |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
14 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
15 | size-t)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
16 | |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
17 | (define-alien-type rocksdb-deleted-function |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
18 | (function void |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
19 | (* t) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
20 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
21 | size-t)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
22 | |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
23 | (define-alien-type rocksdb-put-cf-function |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
24 | (function void |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
25 | (* t) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
26 | (unsigned 32) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
27 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
28 | size-t |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
29 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
30 | size-t)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
31 | |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
32 | (define-alien-type rocksdb-deleted-cf-function |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
33 | (function void |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
34 | (* t) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
35 | (unsigned 32) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
36 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
37 | size-t)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
38 | |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
39 | (define-alien-type rocksdb-merge-cf-function |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
40 | (function void |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
41 | (* t) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
42 | (unsigned 32) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
43 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
44 | size-t |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
45 | (array unsigned-char) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
46 | size-t)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
47 | |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
48 | (define-alien-type rocksdb-get-ts-size-function |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
49 | (function size-t |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
50 | (* t) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
51 | (unsigned 32))) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
52 | |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
53 | ;;; Alien Functions |
610 | 54 | (define-alien-routine rocksdb-writebatch-create (* rocksdb-writebatch)) |
55 | (define-alien-routine rocksdb-writebatch-create-from (* rocksdb-writebatch) |
|
56 | (rep c-string) |
|
57 | (size size-t)) |
|
58 | ||
59 | (define-alien-routine rocksdb-writebatch-create-with-params (* rocksdb-writebatch) |
|
60 | (reserved-bytes size-t) |
|
61 | (max-bytes size-t) |
|
62 | (protection-bytes-per-key size-t) |
|
63 | (default-cf-ts-sz size-t)) |
|
64 | ||
65 | (define-alien-routine rocksdb-writebatch-destroy void (batch (* rocksdb-writebatch))) |
|
66 | ||
67 | (define-alien-routine rocksdb-writebatch-clear void (b (* rocksdb-writebatch))) |
|
68 | (define-alien-routine rocksdb-writebatch-count int (b (* rocksdb-writebatch))) |
|
69 | ||
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
70 | (define-alien-routine rocksdb-writebatch-put-log-data void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
71 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
72 | (blob (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
73 | (len size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
74 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
75 | (define-alien-routine rocksdb-writebatch-iterate void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
76 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
77 | (state (* t)) |
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
78 | (put (* rocksdb-put-function)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
79 | (deleted (* rocksdb-deleted-function))) |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
80 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
81 | (define-alien-routine rocksdb-writebatch-iterate-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
82 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
83 | (state (* t)) |
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
84 | (put-cf (* rocksdb-put-cf-function)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
85 | (deleted-cf (* rocksdb-deleted-cf-function)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
86 | (merge-cf (* rocksdb-merge-cf-function))) |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
87 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
88 | (define-alien-routine rocksdb-writebatch-data (array unsigned-char) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
89 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
90 | (size (* size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
91 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
92 | (define-alien-routine rocksdb-writebatch-set-save-point void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
93 | (batch (* rocksdb-writebatch))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
94 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
95 | (def-with-errptr rocksdb-writebatch-rollback-to-save-point void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
96 | (batch (* rocksdb-writebatch))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
97 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
98 | (def-with-errptr rocksdb-writebatch-pop-save-point void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
99 | (batch (* rocksdb-writebatch))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
100 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
101 | (def-with-errptr rocksdb-writebatch-update-timestamps void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
102 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
103 | (ts (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
104 | (tslen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
105 | (state (* t)) |
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
106 | (get-ts-size (* rocksdb-get-ts-size-function))) |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
107 | |
606 | 108 | ;; put |
610 | 109 | (define-alien-routine rocksdb-writebatch-put void |
110 | (batch (* rocksdb-writebatch)) |
|
111 | (key (array unsigned-char)) |
|
112 | (klen size-t) |
|
113 | (val (array unsigned-char)) |
|
114 | (vlen size-t)) |
|
606 | 115 | |
610 | 116 | (define-alien-routine rocksdb-writebatch-put-cf void |
117 | (batch (* rocksdb-writebatch)) |
|
118 | (cf (* rocksdb-column-family-handle)) |
|
119 | (key (array unsigned-char)) |
|
120 | (klen size-t) |
|
121 | (val (array unsigned-char)) |
|
122 | (vlen size-t)) |
|
123 | ||
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)) |
|
128 | (klen size-t) |
|
129 | (ts (array unsigned-char)) |
|
130 | (tslen size-t) |
|
131 | (val (array unsigned-char)) |
|
132 | (vlen size-t)) |
|
133 | ||
134 | (define-alien-routine rocksdb-writebatch-putv void |
|
135 | (batch (* rocksdb-writebatch)) |
|
136 | (num-keys int) |
|
137 | (keys-list (array (array unsigned-char))) |
|
138 | (keys-sizes (array size-t)) |
|
139 | (num-values int) |
|
140 | (values-list (array (array unsigned-char))) |
|
141 | (values-list-sizes (array size-t))) |
|
606 | 142 | |
610 | 143 | (define-alien-routine rocksdb-writebatch-putv-cf void |
144 | (batch (* rocksdb-writebatch)) |
|
145 | (cf (* rocksdb-column-family-handle)) |
|
146 | (num-keys int) |
|
147 | (keys-list (array (array unsigned-char))) |
|
148 | (keys-sizes (array size-t)) |
|
149 | (num-values int) |
|
150 | (values-list (array (array unsigned-char))) |
|
151 | (values-list-sizes (array size-t))) |
|
152 | ||
153 | ;; delete |
|
154 | (define-alien-routine rocksdb-writebatch-delete void |
|
155 | (batch (* rocksdb-writebatch)) |
|
156 | (key (array unsigned-char)) |
|
157 | (klen size-t)) |
|
158 | ||
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
159 | (define-alien-routine rocksdb-writebatch-singledelete void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
160 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
161 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
162 | (klen size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
163 | |
610 | 164 | (define-alien-routine rocksdb-writebatch-delete-cf void |
165 | (batch (* rocksdb-writebatch)) |
|
166 | (cf (* rocksdb-column-family-handle)) |
|
167 | (key (array unsigned-char)) |
|
168 | (klen size-t)) |
|
606 | 169 | |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
170 | (define-alien-routine rocksdb-writebatch-singledelete-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
171 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
172 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
173 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
174 | (klen size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
175 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
176 | (define-alien-routine rocksdb-writebatch-singledelete-cf-with-ts void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
177 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
178 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
179 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
180 | (klen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
181 | (ts (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
182 | (tslen size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
183 | |
610 | 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)) |
|
188 | (klen size-t) |
|
189 | (ts (array unsigned-char)) |
|
190 | (tslen size-t)) |
|
191 | ||
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
192 | (define-alien-routine rocksdb-writebatch-deletev void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
193 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
194 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
195 | (keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
196 | (keys-list-sizes (array size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
197 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
198 | (define-alien-routine rocksdb-writebatch-deletev-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
199 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
200 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
201 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
202 | (keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
203 | (keys-list-sizes (array size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
204 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
205 | (define-alien-routine rocksdb-writebatch-delete-range void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
206 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
207 | (start-key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
208 | (start-key-len size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
209 | (end-key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
210 | (end-key-len size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
211 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
212 | (define-alien-routine rocksdb-writebatch-delete-range-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
213 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
214 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
215 | (start-key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
216 | (start-key-len size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
217 | (end-key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
218 | (end-key-len size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
219 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
220 | (define-alien-routine rocksdb-writebatch-delete-rangev void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
221 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
222 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
223 | (start-keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
224 | (start-keys-list-sizes (array size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
225 | (end-keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
226 | (end-keys-list-sizes (array size-t))) |
610 | 227 | |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
228 | (define-alien-routine rocksdb-writebatch-delete-rangev-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
229 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
230 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
231 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
232 | (start-keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
233 | (start-keys-list-sizes (array size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
234 | (end-keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
235 | (end-keys-list-sizes (array size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
236 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
237 | ;; merge |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
238 | (define-alien-routine rocksdb-writebatch-merge void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
239 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
240 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
241 | (klen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
242 | (val (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
243 | (vlen size-t)) |
610 | 244 | |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
245 | (define-alien-routine rocksdb-writebatch-merge-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
246 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
247 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
248 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
249 | (klen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
250 | (val (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
251 | (vlen size-t)) |
606 | 252 | |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
253 | (define-alien-routine rocksdb-writebatch-mergev void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
254 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
255 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
256 | (keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
257 | (keys-list-sizes (array size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
258 | (num-values int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
259 | (values-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
260 | (values-list-sizes (array size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
261 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
262 | (define-alien-routine rocksdb-writebatch-mergev-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
263 | (batch (* rocksdb-writebatch)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
264 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
265 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
266 | (keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
267 | (keys-list-sizes (array size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
268 | (num-values int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
269 | (values-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
270 | (values-list-sizes (array size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
271 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
272 | ;;; with-index (wi) |
610 | 273 | (define-alien-routine rocksdb-writebatch-wi-create (* rocksdb-writebatch-wi) |
274 | (reserved-bytes size-t) |
|
275 | (overwrite-keys unsigned-char)) |
|
276 | ||
277 | (define-alien-routine rocksdb-writebatch-wi-create-from (* rocksdb-writebatch-wi) |
|
278 | (rep (array unsigned-char)) |
|
279 | (size size-t)) |
|
280 | ||
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) |
|
285 | (max-bytes size-t) |
|
286 | (protection-bytes-per-key size-t)) |
|
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
287 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
288 | (define-alien-routine rocksdb-writebatch-wi-destroy void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
289 | (batch (* rocksdb-writebatch-wi))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
290 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
291 | (define-alien-routine rocksdb-writebatch-wi-clear void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
292 | (batch (* rocksdb-writebatch-wi))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
293 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
294 | (define-alien-routine rocksdb-writebatch-wi-count void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
295 | (batch (* rocksdb-writebatch-wi))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
296 | |
612
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
297 | (define-alien-routine rocksdb-writebatch-wi-put-log-data void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
298 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
299 | (blob (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
300 | (len size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
301 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
302 | (define-alien-routine rocksdb-writebatch-wi-iterate void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
303 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
304 | (state (* t)) |
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
305 | (put (* rocksdb-put-function)) |
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
306 | (deleted (* rocksdb-deleted-function))) |
612
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
307 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
308 | (define-alien-routine rocksdb-writebatch-wi-data (array unsigned-char) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
309 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
310 | (size (* size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
311 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
312 | (define-alien-routine rocksdb-writebatch-wi-set-save-point void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
313 | (batch (* rocksdb-writebatch-wi))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
314 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
315 | (def-with-errptr rocksdb-writebatch-wi-rollback-to-save-point void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
316 | (batch (* rocksdb-writebatch-wi))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
317 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
318 | (def-with-errptr rocksdb-writebatch-wi-get-from-batch (array unsigned-char) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
319 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
320 | (opts (* rocksdb-options)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
321 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
322 | (keylen size-t) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
323 | (vallen (* size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
324 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
325 | (def-with-errptr rocksdb-writebatch-wi-get-from-batch-cf (array unsigned-char) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
326 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
327 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
328 | (opts (* rocksdb-options)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
329 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
330 | (keylen size-t) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
331 | (vallen (* size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
332 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
333 | (def-with-errptr rocksdb-writebatch-wi-get-from-batch-and-db (array unsigned-char) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
334 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
335 | (db (* rocksdb)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
336 | (readopts (* rocksdb-readoptions)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
337 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
338 | (keylen size-t) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
339 | (vallen (* size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
340 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
341 | (def-with-errptr rocksdb-writebatch-wi-get-from-batch-and-db-cf (array unsigned-char) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
342 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
343 | (db (* rocksdb)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
344 | (readopts (* rocksdb-readoptions)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
345 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
346 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
347 | (keylen size-t) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
348 | (vallen (* size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
349 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
350 | (def-with-errptr rocksdb-write-writebatch-wi void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
351 | (db (* rocksdb)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
352 | (wopts (* rocksdb-writeoptions)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
353 | (wbwi (* rocksdb-writebatch-wi))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
354 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
355 | (define-alien-routine rocksdb-writebatch-wi-create-iterator-with-base (* rocksdb-iterator) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
356 | (wbwi (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
357 | (base-iterator (* rocksdb-iterator))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
358 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
359 | (define-alien-routine rocksdb-writebatch-wi-create-iterator-with-base-cf (* rocksdb-iterator) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
360 | (wbwi (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
361 | (base-iterator (* rocksdb-iterator)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
362 | (cf (* rocksdb-column-family-handle))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
363 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
364 | (def-with-errptr rocksdb-writebatch-wi-update-timestamps void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
365 | (wbwi (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
366 | (ts (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
367 | (tslen size-t) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
368 | (state (* t)) |
616
c48704d7b06f
writebatch callbacks and fixes
Richard Westhaver <ellis@rwest.io>
parents:
612
diff
changeset
|
369 | (get-ts-size (* rocksdb-get-ts-size-function))) |
612
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
370 | |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
371 | (define-alien-routine rocksdb-writebatch-wi-put void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
372 | (batch (* rocksdb-writebatch-wi)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
373 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
374 | (klen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
375 | (val (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
376 | (vlen size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
377 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
378 | (define-alien-routine rocksdb-writebatch-wi-put-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
379 | (batch (* rocksdb-writebatch-wi)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
380 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
381 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
382 | (klen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
383 | (val (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
384 | (vlen size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
385 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
386 | (define-alien-routine rocksdb-writebatch-wi-putv void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
387 | (batch (* rocksdb-writebatch-wi)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
388 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
389 | (keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
390 | (keys-list-sizes (array size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
391 | (num-values int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
392 | (values-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
393 | (values-list-sizes (array size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
394 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
395 | (define-alien-routine rocksdb-writebatch-wi-putv-cf void |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
396 | (batch (* rocksdb-writebatch-wi)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
397 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
398 | (num-keys int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
399 | (keys-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
400 | (keys-list-sizes (array size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
401 | (num-values int) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
402 | (values-list (array (array unsigned-char))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
403 | (values-list-sizes (array size-t))) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
404 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
405 | (define-alien-routine rocksdb-writebatch-wi-merge void |
612
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
406 | (batch (* rocksdb-writebatch-wi)) |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
407 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
408 | (klen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
409 | (val (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
410 | (vlen size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
411 | |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
412 | (define-alien-routine rocksdb-writebatch-wi-merge-cf void |
612
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
413 | (batch (* rocksdb-writebatch-wi)) |
611
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
414 | (cf (* rocksdb-column-family-handle)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
415 | (key (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
416 | (klen size-t) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
417 | (val (array unsigned-char)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
418 | (vlen size-t)) |
57813b8ee029
more rocksdb work, slice -> slicetransform
Richard Westhaver <ellis@rwest.io>
parents:
610
diff
changeset
|
419 | |
612
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
420 | (define-alien-routine rocksdb-writebatch-wi-mergev void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
421 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
422 | (num-keys int) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
423 | (keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
424 | (keys-list-sizes (array size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
425 | (num-values int) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
426 | (values-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
427 | (values-list-sizes (array size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
428 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
429 | (define-alien-routine rocksdb-writebatch-wi-mergev-cf void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
430 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
431 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
432 | (num-keys int) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
433 | (keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
434 | (keys-list-sizes (array size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
435 | (num-values int) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
436 | (values-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
437 | (values-list-sizes (array size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
438 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
439 | (define-alien-routine rocksdb-writebatch-wi-delete void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
440 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
441 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
442 | (klen size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
443 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
444 | (define-alien-routine rocksdb-writebatch-wi-singledelete void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
445 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
446 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
447 | (klen size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
448 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
449 | (define-alien-routine rocksdb-writebatch-wi-delete-cf void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
450 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
451 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
452 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
453 | (klen size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
454 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
455 | (define-alien-routine rocksdb-writebatch-wi-singledelete-cf void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
456 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
457 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
458 | (key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
459 | (klen size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
460 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
461 | (define-alien-routine rocksdb-writebatch-wi-deletev void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
462 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
463 | (num-keys int) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
464 | (keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
465 | (keys-list-sizes (array size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
466 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
467 | (define-alien-routine rocksdb-writebatch-wi-deletev-cf void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
468 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
469 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
470 | (num-keys int) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
471 | (keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
472 | (keys-list-sizes (array size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
473 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
474 | ;;; DO NOT USE |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
475 | (define-alien-routine rocksdb-writebatch-wi-delete-range void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
476 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
477 | (start-key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
478 | (start-key-len size-t) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
479 | (end-key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
480 | (end-key-len size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
481 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
482 | (define-alien-routine rocksdb-writebatch-wi-delete-range-cf void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
483 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
484 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
485 | (start-key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
486 | (start-key-len size-t) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
487 | (end-key (array unsigned-char)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
488 | (end-key-len size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
489 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
490 | (define-alien-routine rocksdb-writebatch-wi-delete-rangev void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
491 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
492 | (start-keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
493 | (start-keys-list-sizes (array size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
494 | (end-keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
495 | (end-keys-list-sizes (array size-t))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
496 | |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
497 | (define-alien-routine rocksdb-writebatch-wi-delete-rangev-cf void |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
498 | (batch (* rocksdb-writebatch-wi)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
499 | (cf (* rocksdb-column-family-handle)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
500 | (start-keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
501 | (start-keys-list-sizes (array size-t)) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
502 | (end-keys-list (array (array unsigned-char))) |
9238c034b97e
rocksdb writebatch alien routines, just need callback impls then done
Richard Westhaver <ellis@rwest.io>
parents:
611
diff
changeset
|
503 | (end-keys-list-sizes (array size-t))) |