changeset 602: | 111d0cfc5da1 |
parent: | fea71448569b |
child: | 6fc04c4d465c |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Fri, 16 Aug 2024 21:23:35 -0400 |
permissions: | -rw-r--r-- |
description: | fix duplicate rocksdb-write export |
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 | |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
413 | (define-alien-routine rocksdb-create-iterator-cf (* rocksdb-iterator) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
414 | (db (* rocksdb)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
415 | (opt (* rocksdb-readoptions)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
416 | (cf (* rocksdb-column-family-handle))) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
417 | |
87 | 418 | (define-alien-routine rocksdb-iter-destroy void |
419 | (iter (* rocksdb-iterator))) |
|
420 | (define-alien-routine rocksdb-iter-seek-to-first void |
|
421 | (iter (* rocksdb-iterator))) |
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
422 | (define-alien-routine rocksdb-iter-seek-to-last void |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
423 | (iter (* rocksdb-iterator))) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
424 | (define-alien-routine rocksdb-iter-seek void |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
425 | (iter (* rocksdb-iterator)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
426 | (k (* unsigned-char)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
427 | (klen size-t)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
428 | (define-alien-routine rocksdb-iter-seek-for-prev void |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
429 | (iter (* rocksdb-iterator)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
430 | (k (* unsigned-char)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
431 | (klen size-t)) |
87 | 432 | (define-alien-routine rocksdb-iter-valid boolean |
433 | (iter (* rocksdb-iterator))) |
|
434 | (define-alien-routine rocksdb-iter-next void |
|
435 | (iter (* rocksdb-iterator))) |
|
436 | (define-alien-routine rocksdb-iter-prev void |
|
437 | (iter (* rocksdb-iterator))) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
438 | (define-alien-routine rocksdb-iter-key (* unsigned-char) |
87 | 439 | (iter (* rocksdb-iterator)) |
440 | (klen-ptr (* size-t))) |
|
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
441 | (define-alien-routine rocksdb-iter-value (* unsigned-char) |
87 | 442 | (iter (* rocksdb-iterator)) |
443 | (vlen-ptr (* size-t))) |
|
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
444 | (define-alien-routine rocksdb-iter-timestamp (* unsigned-char) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
445 | (iter (* rocksdb-iterator)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
446 | (tslen (* size-t))) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
447 | (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
|
448 | (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
|
449 | (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
|
450 | (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
|
451 | (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
|
452 | (iter (* rocksdb-wal-iterator)) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
453 | (seq (* (unsigned 64)))) |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
454 | (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
|
455 | (define-alien-routine rocksdb-wal-iter-destroy void |
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
456 | (iter (* rocksdb-wal-iterator))) |
87 | 457 | |
458 | ;;; Backup |
|
599 | 459 | (def-with-errptr rocksdb-backup-engine-verify-backup void |
460 | (be (* rocksdb-backup-engine)) |
|
461 | (backup-id (unsigned 32))) |
|
462 | ||
87 | 463 | (def-with-errptr rocksdb-backup-engine-open |
464 | (* rocksdb-backup-engine) |
|
465 | (opts (* rocksdb-options)) |
|
112 | 466 | (path c-string)) |
87 | 467 | |
468 | (def-with-errptr rocksdb-backup-engine-create-new-backup |
|
469 | void |
|
470 | (be (* rocksdb-backup-engine)) |
|
471 | (db (* rocksdb))) |
|
472 | ||
473 | (def-with-errptr rocksdb-backup-engine-restore-db-from-latest-backup |
|
474 | void |
|
475 | (be (* rocksdb-backup-engine)) |
|
112 | 476 | (db-dir c-string) |
477 | (wal-dir c-string) |
|
87 | 478 | (res-opts (* rocksdb-restore-options))) |
479 | ||
480 | (def-with-errptr rocksdb-backup-engine-restore-db-from-backup |
|
481 | void |
|
482 | (be (* rocksdb-backup-engine)) |
|
112 | 483 | (db-dir c-string) |
484 | (wal-dir c-string) |
|
87 | 485 | (res-opts (* rocksdb-restore-options)) |
486 | (backup-id unsigned-int)) |
|
487 | ||
488 | (define-alien-routine rocksdb-backup-engine-close void |
|
489 | (be (* rocksdb-backup-engine))) |
|
490 | ||
599 | 491 | (define-alien-routine rocksdb-backup-engine-get-backup-info (* rocksdb-backup-engine-info) |
492 | (be (* rocksdb-backup-engine))) |
|
493 | (define-alien-routine rocksdb-backup-engine-info-count int |
|
494 | (info (* rocksdb-backup-engine-info))) |
|
495 | (define-alien-routine rocksdb-backup-engine-info-timestamp (signed 64) |
|
496 | (info (* rocksdb-backup-engine-info)) |
|
497 | (index int)) |
|
498 | (define-alien-routine rocksdb-backup-engine-info-backup-id (unsigned 64) |
|
499 | (info (* rocksdb-backup-engine-info)) |
|
500 | (index int)) |
|
501 | (define-alien-routine rocksdb-backup-engine-info-size (unsigned 64) |
|
502 | (info (* rocksdb-backup-engine-info)) |
|
503 | (index int)) |
|
504 | (define-alien-routine rocksdb-backup-engine-info-num-files (unsigned 32) |
|
505 | (info (* rocksdb-backup-engine-info)) |
|
506 | (index int)) |
|
507 | (define-alien-routine rocksdb-backup-engine-info-destroy void |
|
508 | (info (* rocksdb-backup-engine-info))) |
|
509 | ||
87 | 510 | ;;; Transactions |
268
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
511 | (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
|
512 | (txn-db (* rocksdb-transactiondb)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
513 | (cf-options (* rocksdb-options)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
514 | (cf-name c-string)) |
87 | 515 | |
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
|
516 | (def-with-errptr rocksdb-transactiondb-open (* rocksdb-transactiondb) |
87 | 517 | (opts (* rocksdb-options)) |
518 | (topts (* rocksdb-transactiondb-options)) |
|
112 | 519 | (name c-string)) |
87 | 520 | |
268
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
521 | (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
|
522 | (opts (* rocksdb-options)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
523 | (txn-db-opts (* rocksdb-transactiondb-options)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
524 | (name c-string) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
525 | (num-cfs int) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
526 | (cf-names (array c-string)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
527 | (cf-opfs (* rocksdb-options)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
528 | (cf-handles (array (* rocksdb-column-family-handle)))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
529 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
530 | (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
|
531 | (txn-db (* rocksdb-transactiondb)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
532 | (snapshot (* rocksdb-snapshot))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
533 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
534 | (define-alien-routine rocksdb-transactiondb-release-snapshot void |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
535 | (txn-db (* rocksdb-transactiondb)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
536 | (snapshot (* rocksdb-snapshot))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
537 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
538 | (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
|
539 | (db (* rocksdb-transactiondb)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
540 | (propname c-string)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
541 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
542 | (define-alien-routine rocksdb-transactiondb-property-int int |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
543 | (db (* rocksdb-transactiondb)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
544 | (propname c-string) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
545 | (out-val (unsigned 64))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
546 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
547 | (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
|
548 | (txn-db (* rocksdb-transactiondb))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
549 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
550 | (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
|
551 | (base-db (* rocksdb))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
552 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
553 | (define-alien-routine rocksdb-transaction-begin (* rocksdb-transaction) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
554 | (wopts (* rocksdb-writeoptions)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
555 | (topts (* rocksdb-transaction-options)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
556 | (told (* rocksdb-transaction))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
557 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
558 | (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
|
559 | (txn-db (* rocksdb-transactiondb)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
560 | (cnt (* size-t))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
561 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
562 | (def-with-errptr rocksdb-transaction-set-name void |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
563 | (txn (* rocksdb-transaction)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
564 | (name c-string) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
565 | (name-len size-t)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
566 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
567 | (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
|
568 | (txn (* rocksdb-transaction)) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
569 | (name-len (* size-t))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
570 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
571 | (def-with-errptr rocksdb-transaction-prepare void |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
572 | (txn (* rocksdb-transaction))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
573 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
574 | (def-with-errptr rocksdb-transaction-commit void |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
575 | (txn (* rocksdb-transaction))) |
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 | (def-with-errptr rocksdb-transaction-rollback void |
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 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
580 | (define-alien-routine rocksdb-transaction-set-savepoint void |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
581 | (txn (* rocksdb-transaction))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
582 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
583 | (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
|
584 | (txn (* rocksdb-transaction))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
585 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
586 | (define-alien-routine rocksdb-transaction-destroy void |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
587 | (txn (* rocksdb-transaction))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
588 | |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
589 | (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
|
590 | (txn (* rocksdb-transaction))) |
a52d42f30617
rocksdb alien functions and cargo fmt
Richard Westhaver <ellis@rwest.io>
parents:
267
diff
changeset
|
591 | |
269 | 592 | (def-with-errptr rocksdb-transaction-delete void |
593 | (txn (* rocksdb-transaction)) |
|
594 | (key c-string) |
|
595 | (klen size-t)) |
|
596 | ||
597 | (def-with-errptr rocksdb-transaction-delete-cf void |
|
598 | (txn (* rocksdb-transaction)) |
|
599 | (cf (* rocksdb-column-family-handle)) |
|
600 | (key c-string) |
|
601 | (klen size-t)) |
|
602 | ||
603 | (def-with-errptr rocksdb-transactiondb-delete void |
|
604 | (txndb (* rocksdb-transactiondb)) |
|
605 | (opts (* rocksdb-writeoptions)) |
|
606 | (key c-string) |
|
607 | (klen size-t)) |
|
608 | ||
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
609 | (def-with-errptr rocksdb-transactiondb-delete-cf void |
269 | 610 | (txndb (* rocksdb-transactiondb)) |
611 | (opts (* rocksdb-writeoptions)) |
|
612 | (cf (* rocksdb-column-family-handle)) |
|
613 | (key c-string) |
|
614 | (klen size-t)) |
|
615 | ||
616 | (define-alien-routine rocksdb-transaction-create-iterator (* rocksdb-iterator) |
|
617 | (txn (* rocksdb-transaction)) |
|
618 | (opts (* rocksdb-readoptions))) |
|
619 | ||
620 | (define-alien-routine rocksdb-transaction-create-iterator-cf (* rocksdb-iterator) |
|
621 | (txn (* rocksdb-transaction)) |
|
622 | (opts (* rocksdb-readoptions)) |
|
623 | (cf (* rocksdb-column-family-handle))) |
|
624 | ||
625 | (define-alien-routine rocksdb-transactiondb-create-iterator (* rocksdb-iterator) |
|
626 | (txndb (* rocksdb-transactiondb)) |
|
627 | (opts (* rocksdb-readoptions))) |
|
628 | ||
629 | (define-alien-routine rocksdb-transactiondb-create-iterator-cf (* rocksdb-iterator) |
|
630 | (txndb (* rocksdb-transactiondb)) |
|
631 | (opts (* rocksdb-readoptions)) |
|
632 | (cf (* rocksdb-column-family-handle))) |
|
633 | ||
87 | 634 | (define-alien-routine rocksdb-transactiondb-close void |
635 | (tdb (* rocksdb-transactiondb))) |
|
636 | ||
269 | 637 | (def-with-errptr rocksdb-transactiondb-flush void |
638 | (txndb (* rocksdb-transactiondb)) |
|
639 | (opts (* rocksdb-flushoptions))) |
|
640 | ||
641 | (def-with-errptr rocksdb-transactiondb-flush-cf void |
|
642 | (txndb (* rocksdb-transactiondb)) |
|
643 | (opts (* rocksdb-flushoptions)) |
|
644 | (cf (* rocksdb-column-family-handle))) |
|
645 | ||
646 | (def-with-errptr rocksdb-transactiondb-flush-cfs void |
|
647 | (txndb (* rocksdb-transactiondb)) |
|
648 | (opts (* rocksdb-flushoptions)) |
|
649 | (cfs (array (* rocksdb-column-family-handle))) |
|
650 | (ncfs int)) |
|
651 | ||
273
6d56c4950fa2
rocksdb iter,metadata,and more
Richard Westhaver <ellis@rwest.io>
parents:
272
diff
changeset
|
652 | (def-with-errptr rocksdb-transactiondb-flush-wal void |
269 | 653 | (txndb (* rocksdb-transactiondb)) |
654 | (sync unsigned-char)) |
|
655 | ||
656 | (def-with-errptr rocksdb-transactiondb-checkpoint-object-create (* rocksdb-checkpoint) |
|
657 | (txn-db (* rocksdb-transactiondb))) |
|
658 | ||
659 | (def-with-errptr rocksdb-optimistictransactiondb-open (* rocksdb-optimistictransactiondb) |
|
660 | (opts (* rocksdb-options)) |
|
661 | (name c-string)) |
|
662 | ||
663 | (def-with-errptr rocksdb-optimistictransactiondb-open-column-families (* rocksdb-optimistictransactiondb) |
|
664 | (opts (* rocksdb-options)) |
|
665 | (name c-string) |
|
666 | (ncfs int) |
|
667 | (cf-names (array c-string)) |
|
668 | (cf-opts (array (* rocksdb-options))) |
|
669 | (cf-handles (array (* rocksdb-column-family-handle)))) |
|
670 | ||
671 | (define-alien-routine rocksdb-optimistictransactiondb-get-base-db (* rocksdb) |
|
672 | (otxn-db (* rocksdb-optimistictransactiondb))) |
|
673 | ||
674 | (define-alien-routine rocksdb-optimistictransactiondb-close-base-db void |
|
675 | (base-db (* rocksdb))) |
|
676 | ||
677 | (define-alien-routine rocksdb-optimistictransaction-begin (* rocksdb-transaction) |
|
678 | (otxn-db (* rocksdb-optimistictransactiondb)) |
|
679 | (wopts (* rocksdb-writeoptions)) |
|
680 | (otxn-opts (* rocksdb-optimistictransaction-options)) |
|
681 | (old-txn (* rocksdb-transaction))) |
|
682 | ||
683 | (def-with-errptr rocksdb-optimistictransactiondb-write void |
|
684 | (otxn-db (* rocksdb-optimistictransactiondb)) |
|
685 | (wopts (* rocksdb-writeoptions)) |
|
686 | (batch (* rocksdb-writebatch))) |
|
687 | ||
688 | (define-alien-routine rocksdb-optimistictransactiondb-close void |
|
689 | (otxn-db (* rocksdb-optimistictransactiondb))) |
|
690 | ||
691 | (def-with-errptr rocksdb-optimistictransactiondb-checkpoint-object-create (* rocksdb-checkpoint) |
|
692 | (otxn-db (* rocksdb-optimistictransactiondb))) |
|
693 | ||
94 | 694 | ;;; Perfcontext |
695 | (define-alien-routine rocksdb-set-perf-level void (val int)) |
|
696 | ||
697 | (define-alien-routine rocksdb-perfcontext-create (* rocksdb-perfcontext)) |
|
698 | ||
269 | 699 | (define-alien-routine rocksdb-perfcontext-reset void (ctx (* rocksdb-perfcontext))) |
94 | 700 | |
267
f3d814fb136a
db upgrades, alik, ignoring c files (for now)
Richard Westhaver <ellis@rwest.io>
parents:
113
diff
changeset
|
701 | (define-alien-routine rocksdb-perfcontext-report (* unsigned-char) |
94 | 702 | (context (* rocksdb-perfcontext)) |
703 | (exclude-zero-counters unsigned-char)) |
|
704 | ||
705 | (define-alien-routine rocksdb-perfcontext-metric unsigned-long |
|
706 | (context (* rocksdb-perfcontext)) (metric int)) |
|
707 | ||
365
49c3f3d11432
bug fixes and more tweaks for test macros
Richard Westhaver <ellis@rwest.io>
parents:
314
diff
changeset
|
708 | ;; 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
|
709 | ;; (define-alien-routine rocksdb-perfcontext-destroy void (* rocksdb-perfcontext)) |
94 | 710 | |
711 | ;;; Filter Policy |
|
712 | (define-alien-routine rocksdb-filterpolicy-destroy void (self (* rocksdb-filterpolicy))) |
|
713 | ||
714 | (define-alien-routine rocksdb-filterpolicy-create-bloom (* rocksdb-filterpolicy) |
|
715 | (bits-per-key double)) |
|
716 | ||
717 | (define-alien-routine rocksdb-filterpolicy-create-bloom-full (* rocksdb-filterpolicy) |
|
718 | (bits-per-key double)) |
|
719 | ||
720 | (define-alien-routine rocksdb-filterpolicy-create-ribbon (* rocksdb-filterpolicy) |
|
721 | (bloom-equivalent-bits-per-key double)) |
|
722 | ||
723 | (define-alien-routine rocksdb-filterpolicy-create-ribbon-hybrid (* rocksdb-filterpolicy) |
|
724 | (bloom-equivalent-bits-per-key double) |
|
725 | (bloom-before-level int)) |
|
726 | ||
272
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
727 | ;;; Snapshot |
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
728 | (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
|
729 | (db (* rocksdb))) |
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
730 | |
314
5ff2542d5f38
expose compaction pri: #[12604]
Richard Westhaver <ellis@rwest.io>
parents:
273
diff
changeset
|
731 | (define-alien-routine rocksdb-snapshot-get-sequence-number (unsigned 64) |
5ff2542d5f38
expose compaction pri: #[12604]
Richard Westhaver <ellis@rwest.io>
parents:
273
diff
changeset
|
732 | (snapshot (* rocksdb-snapshot))) |
5ff2542d5f38
expose compaction pri: #[12604]
Richard Westhaver <ellis@rwest.io>
parents:
273
diff
changeset
|
733 | |
272
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
734 | (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
|
735 | (db (* rocksdb)) |
0a5e37693fdf
db protocol stuff, prep for tao, tests, with-temp-db
Richard Westhaver <ellis@rwest.io>
parents:
271
diff
changeset
|
736 | (snapshot (* rocksdb-snapshot))) |