changelog shortlog graph tags branches changeset files file revisions raw help

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

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