changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/ffi/rocksdb/writebatch.lisp

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
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1
 ;;; writebatch.lisp --- RocksDB Writebatches
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2
 
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3
 ;; RocksDB Writebatch Lisp FFI
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4
 
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5
 ;;; Code:
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6
 (in-package :rocksdb)
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
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
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
54
 (define-alien-routine rocksdb-writebatch-create (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
55
 (define-alien-routine rocksdb-writebatch-create-from (* rocksdb-writebatch)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
56
   (rep c-string)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
57
   (size size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
58
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
59
 (define-alien-routine rocksdb-writebatch-create-with-params (* rocksdb-writebatch)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
60
   (reserved-bytes size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
61
   (max-bytes size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
62
   (protection-bytes-per-key size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
63
   (default-cf-ts-sz size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
64
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
65
 (define-alien-routine rocksdb-writebatch-destroy void (batch (* rocksdb-writebatch)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
66
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
67
 (define-alien-routine rocksdb-writebatch-clear void (b (* rocksdb-writebatch)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
68
 (define-alien-routine rocksdb-writebatch-count int (b (* rocksdb-writebatch)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
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
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
108
 ;; put
610
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
109
 (define-alien-routine rocksdb-writebatch-put void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
110
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
111
   (key (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
112
   (klen size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
113
   (val (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
114
   (vlen size-t))
606
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
115
 
610
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
116
 (define-alien-routine rocksdb-writebatch-put-cf void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
117
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
118
   (cf (* rocksdb-column-family-handle))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
119
   (key (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
120
   (klen size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
121
   (val (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
122
   (vlen size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
123
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
124
 (define-alien-routine rocksdb-writebatch-put-cf-with-ts void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
125
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
126
   (cf (* rocksdb-column-family-handle))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
127
   (key (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
128
   (klen size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
129
   (ts (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
130
   (tslen size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
131
   (val (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
132
   (vlen size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
133
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
134
 (define-alien-routine rocksdb-writebatch-putv void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
135
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
136
   (num-keys int)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
137
   (keys-list (array (array unsigned-char)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
138
   (keys-sizes (array size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
139
   (num-values int)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
140
   (values-list (array (array unsigned-char)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
141
   (values-list-sizes (array size-t)))
606
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
142
 
610
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
143
 (define-alien-routine rocksdb-writebatch-putv-cf void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
144
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
145
   (cf (* rocksdb-column-family-handle))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
146
   (num-keys int)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
147
   (keys-list (array (array unsigned-char)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
148
   (keys-sizes (array size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
149
   (num-values int)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
150
   (values-list (array (array unsigned-char)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
151
   (values-list-sizes (array size-t)))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
152
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
153
 ;; delete
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
154
 (define-alien-routine rocksdb-writebatch-delete void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
155
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
156
   (key (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
157
   (klen size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
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
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
164
 (define-alien-routine rocksdb-writebatch-delete-cf void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
165
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
166
   (cf (* rocksdb-column-family-handle))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
167
   (key (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
168
   (klen size-t))
606
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
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
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
184
 (define-alien-routine rocksdb-writebatch-delete-cf-with-ts void
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
185
   (batch (* rocksdb-writebatch))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
186
   (cf (* rocksdb-column-family-handle))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
187
   (key (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
188
   (klen size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
189
   (ts (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
190
   (tslen size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
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
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
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
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
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
6fc04c4d465c emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
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
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
273
 (define-alien-routine rocksdb-writebatch-wi-create (* rocksdb-writebatch-wi)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
274
   (reserved-bytes size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
275
   (overwrite-keys unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
276
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
277
 (define-alien-routine rocksdb-writebatch-wi-create-from (* rocksdb-writebatch-wi)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
278
   (rep (array unsigned-char))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
279
   (size size-t))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
280
 
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
281
 (define-alien-routine rocksdb-writebatch-wi-create-with-params (* rocksdb-writebatch-wi)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
282
   (backup-index-comparator (* rocksdb-comparator))
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
283
   (reserved-bytes size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
284
   (overwrite-key unsigned-char)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
285
   (max-bytes size-t)
3dc5c63cdba7 init writebatch
Richard Westhaver <ellis@rwest.io>
parents: 606
diff changeset
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)))