2 #include <ccan/asprintf/asprintf.h>
5 static enum TDB_ERROR update_rec_hdr(struct tdb_context *tdb,
9 struct tdb_used_record *rec,
12 uint64_t dataroom = rec_data_length(rec) + rec_extra_padding(rec);
15 ecode = set_header(tdb, rec, TDB_USED_MAGIC, keylen, datalen,
16 keylen + dataroom, h);
17 if (ecode == TDB_SUCCESS) {
18 ecode = tdb_write_convert(tdb, off, rec, sizeof(*rec));
23 static enum TDB_ERROR replace_data(struct tdb_context *tdb,
25 struct tdb_data key, struct tdb_data dbuf,
26 tdb_off_t old_off, tdb_len_t old_room,
32 /* Allocate a new record. */
33 new_off = alloc(tdb, key.dsize, dbuf.dsize, h->h, TDB_USED_MAGIC,
35 if (TDB_OFF_IS_ERR(new_off)) {
39 /* We didn't like the existing one: remove it. */
42 ecode = add_free_record(tdb, old_off,
43 sizeof(struct tdb_used_record)
44 + key.dsize + old_room,
46 if (ecode == TDB_SUCCESS)
47 ecode = replace_in_hash(tdb, h, new_off);
49 ecode = add_to_hash(tdb, h, new_off);
51 if (ecode != TDB_SUCCESS) {
55 new_off += sizeof(struct tdb_used_record);
56 ecode = tdb->methods->twrite(tdb, new_off, key.dptr, key.dsize);
57 if (ecode != TDB_SUCCESS) {
62 ecode = tdb->methods->twrite(tdb, new_off, dbuf.dptr, dbuf.dsize);
63 if (ecode != TDB_SUCCESS) {
67 if (tdb->flags & TDB_SEQNUM)
73 static enum TDB_ERROR update_data(struct tdb_context *tdb,
80 ecode = tdb->methods->twrite(tdb, off, dbuf.dptr, dbuf.dsize);
81 if (ecode == TDB_SUCCESS && extra) {
82 /* Put a zero in; future versions may append other data. */
83 ecode = tdb->methods->twrite(tdb, off + dbuf.dsize, "", 1);
85 if (tdb->flags & TDB_SEQNUM)
91 enum TDB_ERROR tdb_store(struct tdb_context *tdb,
92 struct tdb_data key, struct tdb_data dbuf, int flag)
96 tdb_len_t old_room = 0;
97 struct tdb_used_record rec;
100 off = find_and_lock(tdb, key, F_WRLCK, &h, &rec, NULL);
101 if (TDB_OFF_IS_ERR(off)) {
102 return tdb->last_error = off;
105 /* Now we have lock on this hash bucket. */
106 if (flag == TDB_INSERT) {
108 ecode = TDB_ERR_EXISTS;
113 old_room = rec_data_length(&rec)
114 + rec_extra_padding(&rec);
115 if (old_room >= dbuf.dsize) {
116 /* Can modify in-place. Easy! */
117 ecode = update_rec_hdr(tdb, off,
118 key.dsize, dbuf.dsize,
120 if (ecode != TDB_SUCCESS) {
123 ecode = update_data(tdb,
126 old_room - dbuf.dsize);
127 if (ecode != TDB_SUCCESS) {
130 tdb_unlock_hashes(tdb, h.hlock_start,
131 h.hlock_range, F_WRLCK);
132 return tdb->last_error = TDB_SUCCESS;
135 if (flag == TDB_MODIFY) {
136 /* if the record doesn't exist and we
137 are in TDB_MODIFY mode then we should fail
139 ecode = TDB_ERR_NOEXIST;
145 /* If we didn't use the old record, this implies we're growing. */
146 ecode = replace_data(tdb, &h, key, dbuf, off, old_room, off);
148 tdb_unlock_hashes(tdb, h.hlock_start, h.hlock_range, F_WRLCK);
149 return tdb->last_error = ecode;
152 enum TDB_ERROR tdb_append(struct tdb_context *tdb,
153 struct tdb_data key, struct tdb_data dbuf)
157 struct tdb_used_record rec;
158 tdb_len_t old_room = 0, old_dlen;
159 unsigned char *newdata;
160 struct tdb_data new_dbuf;
161 enum TDB_ERROR ecode;
163 off = find_and_lock(tdb, key, F_WRLCK, &h, &rec, NULL);
164 if (TDB_OFF_IS_ERR(off)) {
165 return tdb->last_error = off;
169 old_dlen = rec_data_length(&rec);
170 old_room = old_dlen + rec_extra_padding(&rec);
172 /* Fast path: can append in place. */
173 if (rec_extra_padding(&rec) >= dbuf.dsize) {
174 ecode = update_rec_hdr(tdb, off, key.dsize,
175 old_dlen + dbuf.dsize, &rec,
177 if (ecode != TDB_SUCCESS) {
181 off += sizeof(rec) + key.dsize + old_dlen;
182 ecode = update_data(tdb, off, dbuf,
183 rec_extra_padding(&rec));
188 newdata = malloc(key.dsize + old_dlen + dbuf.dsize);
190 ecode = tdb_logerr(tdb, TDB_ERR_OOM, TDB_LOG_ERROR,
192 " failed to allocate %zu bytes",
193 (size_t)(key.dsize + old_dlen
197 ecode = tdb->methods->tread(tdb, off + sizeof(rec) + key.dsize,
199 if (ecode != TDB_SUCCESS) {
200 goto out_free_newdata;
202 memcpy(newdata + old_dlen, dbuf.dptr, dbuf.dsize);
203 new_dbuf.dptr = newdata;
204 new_dbuf.dsize = old_dlen + dbuf.dsize;
210 /* If they're using tdb_append(), it implies they're growing record. */
211 ecode = replace_data(tdb, &h, key, new_dbuf, off, old_room, true);
216 tdb_unlock_hashes(tdb, h.hlock_start, h.hlock_range, F_WRLCK);
217 return tdb->last_error = ecode;
220 enum TDB_ERROR tdb_fetch(struct tdb_context *tdb, struct tdb_data key,
221 struct tdb_data *data)
224 struct tdb_used_record rec;
226 enum TDB_ERROR ecode;
228 off = find_and_lock(tdb, key, F_RDLCK, &h, &rec, NULL);
229 if (TDB_OFF_IS_ERR(off)) {
230 return tdb->last_error = off;
234 ecode = TDB_ERR_NOEXIST;
236 data->dsize = rec_data_length(&rec);
237 data->dptr = tdb_alloc_read(tdb, off + sizeof(rec) + key.dsize,
239 if (TDB_PTR_IS_ERR(data->dptr)) {
240 ecode = TDB_PTR_ERR(data->dptr);
245 tdb_unlock_hashes(tdb, h.hlock_start, h.hlock_range, F_RDLCK);
246 return tdb->last_error = ecode;
249 bool tdb_exists(struct tdb_context *tdb, TDB_DATA key)
252 struct tdb_used_record rec;
255 off = find_and_lock(tdb, key, F_RDLCK, &h, &rec, NULL);
256 if (TDB_OFF_IS_ERR(off)) {
257 tdb->last_error = off;
260 tdb_unlock_hashes(tdb, h.hlock_start, h.hlock_range, F_RDLCK);
262 tdb->last_error = TDB_SUCCESS;
263 return off ? true : false;
266 enum TDB_ERROR tdb_delete(struct tdb_context *tdb, struct tdb_data key)
269 struct tdb_used_record rec;
271 enum TDB_ERROR ecode;
273 off = find_and_lock(tdb, key, F_WRLCK, &h, &rec, NULL);
274 if (TDB_OFF_IS_ERR(off)) {
275 return tdb->last_error = off;
279 ecode = TDB_ERR_NOEXIST;
283 ecode = delete_from_hash(tdb, &h);
284 if (ecode != TDB_SUCCESS) {
288 /* Free the deleted entry. */
290 ecode = add_free_record(tdb, off,
291 sizeof(struct tdb_used_record)
292 + rec_key_length(&rec)
293 + rec_data_length(&rec)
294 + rec_extra_padding(&rec),
295 TDB_LOCK_WAIT, true);
297 if (tdb->flags & TDB_SEQNUM)
301 tdb_unlock_hashes(tdb, h.hlock_start, h.hlock_range, F_WRLCK);
302 return tdb->last_error = ecode;
305 unsigned int tdb_get_flags(struct tdb_context *tdb)
310 void tdb_add_flag(struct tdb_context *tdb, unsigned flag)
312 if (tdb->flags & TDB_INTERNAL) {
313 tdb->last_error = tdb_logerr(tdb, TDB_ERR_EINVAL,
315 "tdb_add_flag: internal db");
320 tdb->flags |= TDB_NOLOCK;
323 tdb->flags |= TDB_NOMMAP;
324 tdb_munmap(tdb->file);
327 tdb->flags |= TDB_NOSYNC;
330 tdb->flags |= TDB_SEQNUM;
332 case TDB_ALLOW_NESTING:
333 tdb->flags |= TDB_ALLOW_NESTING;
336 tdb->last_error = tdb_logerr(tdb, TDB_ERR_EINVAL,
338 "tdb_add_flag: Unknown flag %u",
343 void tdb_remove_flag(struct tdb_context *tdb, unsigned flag)
345 if (tdb->flags & TDB_INTERNAL) {
346 tdb->last_error = tdb_logerr(tdb, TDB_ERR_EINVAL,
348 "tdb_remove_flag: internal db");
353 tdb->flags &= ~TDB_NOLOCK;
356 tdb->flags &= ~TDB_NOMMAP;
360 tdb->flags &= ~TDB_NOSYNC;
363 tdb->flags &= ~TDB_SEQNUM;
365 case TDB_ALLOW_NESTING:
366 tdb->flags &= ~TDB_ALLOW_NESTING;
369 tdb->last_error = tdb_logerr(tdb, TDB_ERR_EINVAL,
371 "tdb_remove_flag: Unknown flag %u",
376 const char *tdb_errorstr(enum TDB_ERROR ecode)
378 /* Gcc warns if you miss a case in the switch, so use that. */
380 case TDB_SUCCESS: return "Success";
381 case TDB_ERR_CORRUPT: return "Corrupt database";
382 case TDB_ERR_IO: return "IO Error";
383 case TDB_ERR_LOCK: return "Locking error";
384 case TDB_ERR_OOM: return "Out of memory";
385 case TDB_ERR_EXISTS: return "Record exists";
386 case TDB_ERR_EINVAL: return "Invalid parameter";
387 case TDB_ERR_NOEXIST: return "Record does not exist";
388 case TDB_ERR_RDONLY: return "write not permitted";
390 return "Invalid error code";
393 enum TDB_ERROR tdb_error(struct tdb_context *tdb)
395 return tdb->last_error;
398 enum TDB_ERROR COLD tdb_logerr(struct tdb_context *tdb,
399 enum TDB_ERROR ecode,
400 enum tdb_log_level level,
401 const char *fmt, ...)
406 /* tdb_open paths care about errno, so save it. */
407 int saved_errno = errno;
413 len = vasprintf(&message, fmt, ap);
417 tdb->log_fn(tdb, TDB_LOG_ERROR,
418 "out of memory formatting message:", tdb->log_data);
419 tdb->log_fn(tdb, level, fmt, tdb->log_data);
421 tdb->log_fn(tdb, level, message, tdb->log_data);
428 enum TDB_ERROR tdb_parse_record_(struct tdb_context *tdb,
430 enum TDB_ERROR (*parse)(TDB_DATA k,
436 struct tdb_used_record rec;
438 enum TDB_ERROR ecode;
440 off = find_and_lock(tdb, key, F_RDLCK, &h, &rec, NULL);
441 if (TDB_OFF_IS_ERR(off)) {
442 return tdb->last_error = off;
446 ecode = TDB_ERR_NOEXIST;
449 dptr = tdb_access_read(tdb, off + sizeof(rec) + key.dsize,
450 rec_data_length(&rec), false);
451 if (TDB_PTR_IS_ERR(dptr)) {
452 ecode = TDB_PTR_ERR(dptr);
454 TDB_DATA d = tdb_mkdata(dptr, rec_data_length(&rec));
456 ecode = parse(key, d, data);
457 tdb_access_release(tdb, dptr);
461 tdb_unlock_hashes(tdb, h.hlock_start, h.hlock_range, F_RDLCK);
462 return tdb->last_error = ecode;
465 const char *tdb_name(const struct tdb_context *tdb)
470 int64_t tdb_get_seqnum(struct tdb_context *tdb)
472 tdb_off_t off = tdb_read_off(tdb, offsetof(struct tdb_header, seqnum));
473 if (TDB_OFF_IS_ERR(off))
474 tdb->last_error = off;
476 tdb->last_error = TDB_SUCCESS;
481 int tdb_fd(const struct tdb_context *tdb)
483 return tdb->file->fd;