/* sdb - MIT - Copyright 2011-2022 - pancake */

#include "sdb_private.h"

// check if key exists and if it's a number.. rename?
SDB_API bool sdb_num_exists (Sdb *s, const char *key) {
	const char *o = sdb_const_get (s, key, NULL);
	return o ? (*o >= '0' && *o <= '9'): false;
}

static ut64 sdb_num_parse(const char *v) {
	return (!v || *v == '-') ? 0LL : sdb_atoi (v);
}

SDB_API ut64 sdb_num_get(Sdb *s, const char *key, ut32 *cas) {
	return sdb_num_parse (sdb_const_get (s, key, cas));
}

SDB_API ut64 sdb_num_getf(Sdb *s, ut32 *cas, const char *fmt, ...) {
	va_list ap;
	va_start (ap, fmt);
	ut64 value = sdb_num_parse (sdb_const_vgetf (s, cas, fmt, ap));
	va_end (ap);
	return value;
}

SDB_API bool sdb_num_add(Sdb *s, const char *key, ut64 v, ut32 cas) {
	char *val, b[SDB_NUM_BUFSZ];
	int numbase = sdb_num_base (sdb_const_get (s, key, NULL));
	val = sdb_itoa (v, numbase, b, sizeof (b));
	return sdb_add (s, key, val, cas);
}

SDB_API bool sdb_num_set(Sdb *s, const char *key, ut64 v, ut32 cas) {
	char *val, b[SDB_NUM_BUFSZ];
	int numbase = sdb_num_base (sdb_const_get (s, key, NULL));
	val = sdb_itoa (v, numbase, b, sizeof (b));
	return sdb_set (s, key, val, cas);
}

SDB_API bool sdb_num_setf(Sdb *s, ut64 v, ut32 cas, const char *fmt, ...) {
	va_list ap;
	char key[SDB_MAX_KEY];
	va_start (ap, fmt);
	bool ok = sdb_vfmtkey (key, fmt, ap);
	va_end (ap);
	return ok? sdb_num_set (s, key, v, cas): 0;
}

SDB_API ut64 sdb_num_inc(Sdb *s, const char *key, ut64 n2, ut32 cas) {
	ut32 c;
	ut64 n = sdb_num_get (s, key, &c);
	ut64 res = n + n2;
	if ((cas && c != cas) || res < n) {
		return 0LL;
	}
	sdb_num_set (s, key, res, cas);
	return res;
}

SDB_API ut64 sdb_num_dec(Sdb *s, const char *key, ut64 n2, ut32 cas) {
	ut32 c;
	ut64 n = sdb_num_get (s, key, &c);
	if (cas && c != cas) {
		return 0LL;
	}
	if (n2 > n) {
		sdb_set (s, key, "0", cas);
		return 0LL; // XXX must be -1LL?
	}
	n -= n2;
	sdb_num_set (s, key, n, cas);
	return n;
}

SDB_API bool sdb_num_min(Sdb *db, const char*k, ut64 n, ut32 cas) {
	ut32 c;
	const char* a = sdb_const_get (db, k, &c);
	if (cas && c != cas) {
		return 0;
	}
	return (!a || n < sdb_atoi (a))
		? sdb_num_set (db, k, n, cas): 0;
}

SDB_API bool sdb_num_max(Sdb *db, const char*k, ut64 n, ut32 cas) {
	ut32 c;
	const char* a = sdb_const_get (db, k, &c);
	if (cas && c != cas) {
		return 0;
	}
	return (!a || n > sdb_atoi (a))
		? sdb_num_set (db, k, n, cas): 0;
}

SDB_API bool sdb_bool_set(Sdb *db, const char *str, bool v, ut32 cas) {
	return sdb_set (db, str, v? "true": "false", cas);
}

SDB_API bool sdb_bool_get(Sdb *db, const char *str, ut32 *cas) {
	const char *b = sdb_const_get (db, str, cas);
	return b && (!strcmp (b, "1") || !strcmp (b, "true"));
}

/* pointers */

SDB_API bool sdb_ptr_set(Sdb *db, const char *key, void *p, ut32 cas) {
	return sdb_num_set (db, key, (ut64)(size_t)p, cas);
}

SDB_API void* sdb_ptr_get(Sdb *db, const char *key, ut32 *cas) {
	return (void*)(size_t)sdb_num_get (db, key, cas);
}