aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/libucl
diff options
context:
space:
mode:
authorVsevolod Stakhov <vsevolod@rspamd.com>2024-03-18 18:56:33 +0000
committerVsevolod Stakhov <vsevolod@rspamd.com>2024-03-18 18:56:33 +0000
commit14c13854d3cae9d93c3d148be30fb72f1eaffe55 (patch)
tree7b1a3e41b75490fac4d45722c90a1847543c6796 /contrib/libucl
parent6b2b4167187fee09365271cca182866ecb029af3 (diff)
downloadrspamd-14c13854d3cae9d93c3d148be30fb72f1eaffe55.tar.gz
rspamd-14c13854d3cae9d93c3d148be30fb72f1eaffe55.zip
[Rework] Further types conversion (no functional changes)
Diffstat (limited to 'contrib/libucl')
-rw-r--r--contrib/libucl/lua_ucl.c907
-rw-r--r--contrib/libucl/ucl_hash.c236
2 files changed, 574 insertions, 569 deletions
diff --git a/contrib/libucl/lua_ucl.c b/contrib/libucl/lua_ucl.c
index c2e39c462..a9edb3e4d 100644
--- a/contrib/libucl/lua_ucl.c
+++ b/contrib/libucl/lua_ucl.c
@@ -74,11 +74,11 @@ func = "huh";
#define UCL_ARRAY_TYPE_META "ucl.type.array"
#define UCL_IMPL_ARRAY_TYPE_META "ucl.type.impl_array"
-static int ucl_object_lua_push_array (lua_State *L, const ucl_object_t *obj, int flags);
-static int ucl_object_lua_push_scalar (lua_State *L, const ucl_object_t *obj, int flags);
-static int ucl_object_push_lua_common (lua_State *L, const ucl_object_t *obj, int flags);
-static ucl_object_t* ucl_object_lua_fromtable (lua_State *L, int idx, ucl_string_flags_t flags);
-static ucl_object_t* ucl_object_lua_fromelt (lua_State *L, int idx, ucl_string_flags_t flags);
+static int ucl_object_lua_push_array(lua_State *L, const ucl_object_t *obj, int flags);
+static int ucl_object_lua_push_scalar(lua_State *L, const ucl_object_t *obj, int flags);
+static int ucl_object_push_lua_common(lua_State *L, const ucl_object_t *obj, int flags);
+static ucl_object_t *ucl_object_lua_fromtable(lua_State *L, int idx, ucl_string_flags_t flags);
+static ucl_object_t *ucl_object_lua_fromelt(lua_State *L, int idx, ucl_string_flags_t flags);
static void *ucl_null;
@@ -101,46 +101,46 @@ enum lua_ucl_push_flags {
* @param obj
*/
static void
-ucl_object_lua_push_element (lua_State *L, const char *key,
- const ucl_object_t *obj, int flags)
+ucl_object_lua_push_element(lua_State *L, const char *key,
+ const ucl_object_t *obj, int flags)
{
- lua_pushstring (L, key);
- ucl_object_push_lua_common (L, obj, flags|LUA_UCL_ALLOW_ARRAY);
- lua_settable (L, -3);
+ lua_pushstring(L, key);
+ ucl_object_push_lua_common(L, obj, flags | LUA_UCL_ALLOW_ARRAY);
+ lua_settable(L, -3);
}
static void
-lua_ucl_userdata_dtor (void *ud)
+lua_ucl_userdata_dtor(void *ud)
{
- struct ucl_lua_funcdata *fd = (struct ucl_lua_funcdata *)ud;
+ struct ucl_lua_funcdata *fd = (struct ucl_lua_funcdata *) ud;
- luaL_unref (fd->L, LUA_REGISTRYINDEX, fd->idx);
+ luaL_unref(fd->L, LUA_REGISTRYINDEX, fd->idx);
if (fd->ret != NULL) {
- free (fd->ret);
+ free(fd->ret);
}
- free (fd);
+ free(fd);
}
static const char *
-lua_ucl_userdata_emitter (void *ud)
+lua_ucl_userdata_emitter(void *ud)
{
- struct ucl_lua_funcdata *fd = (struct ucl_lua_funcdata *)ud;
+ struct ucl_lua_funcdata *fd = (struct ucl_lua_funcdata *) ud;
const char *out = "";
- lua_rawgeti (fd->L, LUA_REGISTRYINDEX, fd->idx);
+ lua_rawgeti(fd->L, LUA_REGISTRYINDEX, fd->idx);
- lua_pcall (fd->L, 0, 1, 0);
- out = lua_tostring (fd->L, -1);
+ lua_pcall(fd->L, 0, 1, 0);
+ out = lua_tostring(fd->L, -1);
if (out != NULL) {
/* We need to store temporary string in a more appropriate place */
if (fd->ret) {
- free (fd->ret);
+ free(fd->ret);
}
- fd->ret = strdup (out);
+ fd->ret = strdup(out);
}
- lua_settop (fd->L, 0);
+ lua_settop(fd->L, 0);
return fd->ret;
}
@@ -152,26 +152,26 @@ lua_ucl_userdata_emitter (void *ud)
* @return
*/
static int
-ucl_object_lua_push_object (lua_State *L, const ucl_object_t *obj,
- int flags)
+ucl_object_lua_push_object(lua_State *L, const ucl_object_t *obj,
+ int flags)
{
const ucl_object_t *cur;
ucl_object_iter_t it = NULL;
if ((flags & LUA_UCL_ALLOW_ARRAY) && obj->next != NULL) {
/* Actually we need to push this as an array */
- return ucl_object_lua_push_array (L, obj, flags);
+ return ucl_object_lua_push_array(L, obj, flags);
}
- lua_createtable (L, 0, obj->len);
+ lua_createtable(L, 0, obj->len);
it = NULL;
- while ((cur = ucl_object_iterate (obj, &it, true)) != NULL) {
- ucl_object_lua_push_element (L, ucl_object_key (cur), cur, flags);
+ while ((cur = ucl_object_iterate(obj, &it, true)) != NULL) {
+ ucl_object_lua_push_element(L, ucl_object_key(cur), cur, flags);
}
- luaL_getmetatable (L, UCL_OBJECT_TYPE_META);
- lua_setmetatable (L, -2);
+ luaL_getmetatable(L, UCL_OBJECT_TYPE_META);
+ lua_setmetatable(L, -2);
return 1;
}
@@ -183,7 +183,7 @@ ucl_object_lua_push_object (lua_State *L, const ucl_object_t *obj,
* @return
*/
static int
-ucl_object_lua_push_array (lua_State *L, const ucl_object_t *obj, int flags)
+ucl_object_lua_push_array(lua_State *L, const ucl_object_t *obj, int flags)
{
const ucl_object_t *cur;
ucl_object_iter_t it;
@@ -191,36 +191,38 @@ ucl_object_lua_push_array (lua_State *L, const ucl_object_t *obj, int flags)
if (obj->type == UCL_ARRAY) {
nelt = obj->len;
- it = ucl_object_iterate_new (obj);
- lua_createtable (L, nelt, 0);
+ it = ucl_object_iterate_new(obj);
+ lua_createtable(L, nelt, 0);
- while ((cur = ucl_object_iterate_safe (it, true))) {
- ucl_object_push_lua (L, cur, (flags & ~LUA_UCL_ALLOW_ARRAY));
- lua_rawseti (L, -2, i);
- i ++;
+ while ((cur = ucl_object_iterate_safe(it, true))) {
+ ucl_object_push_lua(L, cur, (flags & ~LUA_UCL_ALLOW_ARRAY));
+ lua_rawseti(L, -2, i);
+ i++;
}
- luaL_getmetatable (L, UCL_ARRAY_TYPE_META);
- lua_setmetatable (L, -2);
+ luaL_getmetatable(L, UCL_ARRAY_TYPE_META);
+ lua_setmetatable(L, -2);
- ucl_object_iterate_free (it);
+ ucl_object_iterate_free(it);
}
else {
/* Optimize allocation by preallocation of table */
- LL_FOREACH (obj, cur) {
- nelt ++;
+ LL_FOREACH(obj, cur)
+ {
+ nelt++;
}
- lua_createtable (L, nelt, 0);
+ lua_createtable(L, nelt, 0);
- LL_FOREACH (obj, cur) {
- ucl_object_push_lua (L, cur, (flags & ~LUA_UCL_ALLOW_ARRAY));
- lua_rawseti (L, -2, i);
- i ++;
+ LL_FOREACH(obj, cur)
+ {
+ ucl_object_push_lua(L, cur, (flags & ~LUA_UCL_ALLOW_ARRAY));
+ lua_rawseti(L, -2, i);
+ i++;
}
- luaL_getmetatable (L, UCL_IMPL_ARRAY_TYPE_META);
- lua_setmetatable (L, -2);
+ luaL_getmetatable(L, UCL_IMPL_ARRAY_TYPE_META);
+ lua_setmetatable(L, -2);
}
return 1;
@@ -230,48 +232,48 @@ ucl_object_lua_push_array (lua_State *L, const ucl_object_t *obj, int flags)
* Push a simple object to lua depending on its actual type
*/
static int
-ucl_object_lua_push_scalar (lua_State *L, const ucl_object_t *obj,
- int flags)
+ucl_object_lua_push_scalar(lua_State *L, const ucl_object_t *obj,
+ int flags)
{
struct ucl_lua_funcdata *fd;
if ((flags & LUA_UCL_ALLOW_ARRAY) && obj->next != NULL) {
/* Actually we need to push this as an array */
- return ucl_object_lua_push_array (L, obj, flags);
+ return ucl_object_lua_push_array(L, obj, flags);
}
switch (obj->type) {
case UCL_BOOLEAN:
- lua_pushboolean (L, ucl_obj_toboolean (obj));
+ lua_pushboolean(L, ucl_obj_toboolean(obj));
break;
case UCL_STRING:
- lua_pushlstring (L, ucl_obj_tostring (obj), obj->len);
+ lua_pushlstring(L, ucl_obj_tostring(obj), obj->len);
break;
case UCL_INT:
#if LUA_VERSION_NUM >= 501
- lua_pushinteger (L, ucl_obj_toint (obj));
+ lua_pushinteger(L, ucl_obj_toint(obj));
#else
- lua_pushnumber (L, ucl_obj_toint (obj));
+ lua_pushnumber(L, ucl_obj_toint(obj));
#endif
break;
case UCL_FLOAT:
case UCL_TIME:
- lua_pushnumber (L, ucl_obj_todouble (obj));
+ lua_pushnumber(L, ucl_obj_todouble(obj));
break;
case UCL_NULL:
if (flags & LUA_UCL_CONVERT_NIL) {
- lua_pushboolean (L, false);
+ lua_pushboolean(L, false);
}
else {
- lua_getfield (L, LUA_REGISTRYINDEX, "ucl.null");
+ lua_getfield(L, LUA_REGISTRYINDEX, "ucl.null");
}
break;
case UCL_USERDATA:
- fd = (struct ucl_lua_funcdata *)obj->value.ud;
- lua_rawgeti (L, LUA_REGISTRYINDEX, fd->idx);
+ fd = (struct ucl_lua_funcdata *) obj->value.ud;
+ lua_rawgeti(L, LUA_REGISTRYINDEX, fd->idx);
break;
default:
- lua_pushnil (L);
+ lua_pushnil(L);
break;
}
@@ -279,15 +281,15 @@ ucl_object_lua_push_scalar (lua_State *L, const ucl_object_t *obj,
}
static int
-ucl_object_push_lua_common (lua_State *L, const ucl_object_t *obj, int flags)
+ucl_object_push_lua_common(lua_State *L, const ucl_object_t *obj, int flags)
{
switch (obj->type) {
case UCL_OBJECT:
- return ucl_object_lua_push_object (L, obj, flags);
+ return ucl_object_lua_push_object(L, obj, flags);
case UCL_ARRAY:
- return ucl_object_lua_push_array (L, obj, flags);
+ return ucl_object_lua_push_array(L, obj, flags);
default:
- return ucl_object_lua_push_scalar (L, obj, flags);
+ return ucl_object_lua_push_scalar(L, obj, flags);
}
}
@@ -306,19 +308,16 @@ ucl_object_push_lua_common (lua_State *L, const ucl_object_t *obj, int flags)
* @param {bool} allow_array expand implicit arrays (should be true for all but partial arrays)
* @return {int} `1` if an object is pushed to lua
*/
-int
-ucl_object_push_lua (lua_State *L, const ucl_object_t *obj, bool allow_array)
+int ucl_object_push_lua(lua_State *L, const ucl_object_t *obj, bool allow_array)
{
- return ucl_object_push_lua_common (L, obj,
- allow_array ? LUA_UCL_ALLOW_ARRAY : LUA_UCL_DEFAULT_FLAGS);
+ return ucl_object_push_lua_common(L, obj,
+ allow_array ? LUA_UCL_ALLOW_ARRAY : LUA_UCL_DEFAULT_FLAGS);
}
-int
-ucl_object_push_lua_filter_nil (lua_State *L, const ucl_object_t *obj, bool allow_array)
+int ucl_object_push_lua_filter_nil(lua_State *L, const ucl_object_t *obj, bool allow_array)
{
- return ucl_object_push_lua_common (L, obj,
- allow_array ? (LUA_UCL_ALLOW_ARRAY|LUA_UCL_CONVERT_NIL) :
- (LUA_UCL_DEFAULT_FLAGS|LUA_UCL_CONVERT_NIL));
+ return ucl_object_push_lua_common(L, obj,
+ allow_array ? (LUA_UCL_ALLOW_ARRAY | LUA_UCL_CONVERT_NIL) : (LUA_UCL_DEFAULT_FLAGS | LUA_UCL_CONVERT_NIL));
}
/**
@@ -328,7 +327,7 @@ ucl_object_push_lua_filter_nil (lua_State *L, const ucl_object_t *obj, bool allo
* @param idx
*/
static ucl_object_t *
-ucl_object_lua_fromtable (lua_State *L, int idx, ucl_string_flags_t flags)
+ucl_object_lua_fromtable(lua_State *L, int idx, ucl_string_flags_t flags)
{
ucl_object_t *obj, *top = NULL, *cur;
size_t keylen;
@@ -338,52 +337,54 @@ ucl_object_lua_fromtable (lua_State *L, int idx, ucl_string_flags_t flags)
if (idx < 0) {
/* For negative indicies we want to invert them */
- idx = lua_gettop (L) + idx + 1;
+ idx = lua_gettop(L) + idx + 1;
}
/* First, we check from metatable */
- if (luaL_getmetafield (L, idx, "class") != 0) {
+ if (luaL_getmetafield(L, idx, "class") != 0) {
- if (lua_type (L, -1) == LUA_TSTRING) {
- const char *classname = lua_tostring (L, -1);
+ if (lua_type(L, -1) == LUA_TSTRING) {
+ const char *classname = lua_tostring(L, -1);
- if (strcmp (classname, UCL_OBJECT_TYPE_META) == 0) {
+ if (strcmp(classname, UCL_OBJECT_TYPE_META) == 0) {
is_array = false;
found_mt = true;
- } else if (strcmp (classname, UCL_ARRAY_TYPE_META) == 0) {
+ }
+ else if (strcmp(classname, UCL_ARRAY_TYPE_META) == 0) {
is_array = true;
found_mt = true;
#if LUA_VERSION_NUM >= 502
- max = lua_rawlen (L, idx);
+ max = lua_rawlen(L, idx);
#else
- max = lua_objlen (L, idx);
+ max = lua_objlen(L, idx);
#endif
nelts = max;
- } else if (strcmp (classname, UCL_IMPL_ARRAY_TYPE_META) == 0) {
+ }
+ else if (strcmp(classname, UCL_IMPL_ARRAY_TYPE_META) == 0) {
is_array = true;
is_implicit = true;
found_mt = true;
#if LUA_VERSION_NUM >= 502
- max = lua_rawlen (L, idx);
+ max = lua_rawlen(L, idx);
#else
- max = lua_objlen (L, idx);
+ max = lua_objlen(L, idx);
#endif
nelts = max;
}
}
- lua_pop (L, 1);
+ lua_pop(L, 1);
}
if (!found_mt) {
/* Check for array (it is all inefficient) */
- lua_pushnil (L);
+ lua_pushnil(L);
- while (lua_next (L, idx) != 0) {
- lua_pushvalue (L, -2);
+ while (lua_next(L, idx) != 0) {
+ lua_pushvalue(L, -2);
- if (lua_type (L, -1) == LUA_TNUMBER) {
- double num = lua_tonumber (L, -1);
+ if (lua_type(L, -1) == LUA_TNUMBER) {
+ double num = lua_tonumber(L, -1);
if (num == (int) num) {
if (num > max) {
max = num;
@@ -399,8 +400,8 @@ ucl_object_lua_fromtable (lua_State *L, int idx, ucl_string_flags_t flags)
is_array = false;
}
- lua_pop (L, 2);
- nelts ++;
+ lua_pop(L, 2);
+ nelts++;
}
}
@@ -409,52 +410,53 @@ ucl_object_lua_fromtable (lua_State *L, int idx, ucl_string_flags_t flags)
int i;
if (!is_implicit) {
- top = ucl_object_typed_new (UCL_ARRAY);
- ucl_object_reserve (top, nelts);
+ top = ucl_object_typed_new(UCL_ARRAY);
+ ucl_object_reserve(top, nelts);
}
else {
top = NULL;
}
- for (i = 1; i <= max; i ++) {
- lua_pushinteger (L, i);
- lua_gettable (L, idx);
+ for (i = 1; i <= max; i++) {
+ lua_pushinteger(L, i);
+ lua_gettable(L, idx);
- obj = ucl_object_lua_fromelt (L, lua_gettop (L), flags);
+ obj = ucl_object_lua_fromelt(L, lua_gettop(L), flags);
if (obj != NULL) {
if (is_implicit) {
- DL_APPEND (top, obj);
+ DL_APPEND(top, obj);
}
else {
- ucl_array_append (top, obj);
+ ucl_array_append(top, obj);
}
}
- lua_pop (L, 1);
+ lua_pop(L, 1);
}
}
else {
- lua_pushnil (L);
- top = ucl_object_typed_new (UCL_OBJECT);
- ucl_object_reserve (top, nelts);
+ lua_pushnil(L);
+ top = ucl_object_typed_new(UCL_OBJECT);
+ ucl_object_reserve(top, nelts);
- while (lua_next (L, idx) != 0) {
+ while (lua_next(L, idx) != 0) {
/* copy key to avoid modifications */
- lua_pushvalue (L, -2);
- k = lua_tolstring (L, -1, &keylen);
- obj = ucl_object_lua_fromelt (L, lua_gettop (L) - 1, flags);
+ lua_pushvalue(L, -2);
+ k = lua_tolstring(L, -1, &keylen);
+ obj = ucl_object_lua_fromelt(L, lua_gettop(L) - 1, flags);
if (obj != NULL) {
- ucl_object_insert_key (top, obj, k, keylen, true);
+ ucl_object_insert_key(top, obj, k, keylen, true);
- DL_FOREACH (obj, cur) {
+ DL_FOREACH(obj, cur)
+ {
if (cur->keylen == 0) {
cur->keylen = obj->keylen;
cur->key = obj->key;
}
}
}
- lua_pop (L, 2);
+ lua_pop(L, 2);
}
}
@@ -468,7 +470,7 @@ ucl_object_lua_fromtable (lua_State *L, int idx, ucl_string_flags_t flags)
* @param idx
*/
static ucl_object_t *
-ucl_object_lua_fromelt (lua_State *L, int idx, ucl_string_flags_t flags)
+ucl_object_lua_fromelt(lua_State *L, int idx, ucl_string_flags_t flags)
{
int type;
double num;
@@ -477,11 +479,11 @@ ucl_object_lua_fromelt (lua_State *L, int idx, ucl_string_flags_t flags)
const char *str;
size_t sz;
- type = lua_type (L, idx);
+ type = lua_type(L, idx);
switch (type) {
case LUA_TSTRING:
- str = lua_tolstring (L, idx, &sz);
+ str = lua_tolstring(L, idx, &sz);
if (str) {
/*
@@ -496,31 +498,31 @@ ucl_object_lua_fromelt (lua_State *L, int idx, ucl_string_flags_t flags)
}
}
else {
- obj = ucl_object_typed_new (UCL_NULL);
+ obj = ucl_object_typed_new(UCL_NULL);
}
break;
case LUA_TNUMBER:
- num = lua_tonumber (L, idx);
- if (num == (int64_t)num) {
- obj = ucl_object_fromint (num);
+ num = lua_tonumber(L, idx);
+ if (num == (int64_t) num) {
+ obj = ucl_object_fromint(num);
}
else {
- obj = ucl_object_fromdouble (num);
+ obj = ucl_object_fromdouble(num);
}
break;
case LUA_TBOOLEAN:
- obj = ucl_object_frombool (lua_toboolean (L, idx));
+ obj = ucl_object_frombool(lua_toboolean(L, idx));
break;
case LUA_TUSERDATA:
- if (lua_topointer (L, idx) == ucl_null) {
- obj = ucl_object_typed_new (UCL_NULL);
+ if (lua_topointer(L, idx) == ucl_null) {
+ obj = ucl_object_typed_new(UCL_NULL);
}
else {
/* Assume it is a text like object */
- struct _rspamd_lua_text *t = lua_touserdata (L, idx);
+ struct _rspamd_lua_text *t = lua_touserdata(L, idx);
if (t) {
- if (t->len >0) {
+ if (t->len > 0) {
obj = ucl_object_fromstring_common(t->start, t->len, 0);
}
else {
@@ -537,30 +539,30 @@ ucl_object_lua_fromelt (lua_State *L, int idx, ucl_string_flags_t flags)
case LUA_TTABLE:
case LUA_TFUNCTION:
case LUA_TTHREAD:
- if (luaL_getmetafield (L, idx, "__gen_ucl")) {
- if (lua_isfunction (L, -1)) {
- lua_settop (L, 3); /* gen, obj, func */
- lua_insert (L, 1); /* func, gen, obj */
- lua_insert (L, 2); /* func, obj, gen */
+ if (luaL_getmetafield(L, idx, "__gen_ucl")) {
+ if (lua_isfunction(L, -1)) {
+ lua_settop(L, 3); /* gen, obj, func */
+ lua_insert(L, 1); /* func, gen, obj */
+ lua_insert(L, 2); /* func, obj, gen */
lua_call(L, 2, 1);
- obj = ucl_object_lua_fromelt (L, 1, flags);
+ obj = ucl_object_lua_fromelt(L, 1, flags);
}
- lua_pop (L, 2);
+ lua_pop(L, 2);
}
else {
if (type == LUA_TTABLE) {
- obj = ucl_object_lua_fromtable (L, idx, flags);
+ obj = ucl_object_lua_fromtable(L, idx, flags);
}
else if (type == LUA_TFUNCTION) {
- fd = malloc (sizeof (*fd));
+ fd = malloc(sizeof(*fd));
if (fd != NULL) {
- lua_pushvalue (L, idx);
+ lua_pushvalue(L, idx);
fd->L = L;
fd->ret = NULL;
- fd->idx = luaL_ref (L, LUA_REGISTRYINDEX);
+ fd->idx = luaL_ref(L, LUA_REGISTRYINDEX);
- obj = ucl_object_new_userdata (lua_ucl_userdata_dtor,
- lua_ucl_userdata_emitter, (void *)fd);
+ obj = ucl_object_new_userdata(lua_ucl_userdata_dtor,
+ lua_ucl_userdata_emitter, (void *) fd);
}
}
}
@@ -580,18 +582,18 @@ ucl_object_lua_fromelt (lua_State *L, int idx, ucl_string_flags_t flags)
* this object thus needs to be unref'ed after usage.
*/
ucl_object_t *
-ucl_object_lua_import (lua_State *L, int idx)
+ucl_object_lua_import(lua_State *L, int idx)
{
ucl_object_t *obj;
int t;
- t = lua_type (L, idx);
+ t = lua_type(L, idx);
switch (t) {
case LUA_TTABLE:
- obj = ucl_object_lua_fromtable (L, idx, UCL_STRING_RAW);
+ obj = ucl_object_lua_fromtable(L, idx, UCL_STRING_RAW);
break;
default:
- obj = ucl_object_lua_fromelt (L, idx, UCL_STRING_RAW);
+ obj = ucl_object_lua_fromelt(L, idx, UCL_STRING_RAW);
break;
}
@@ -608,18 +610,18 @@ ucl_object_lua_import (lua_State *L, int idx)
* this object thus needs to be unref'ed after usage.
*/
ucl_object_t *
-ucl_object_lua_import_escape (lua_State *L, int idx)
+ucl_object_lua_import_escape(lua_State *L, int idx)
{
ucl_object_t *obj;
int t;
- t = lua_type (L, idx);
+ t = lua_type(L, idx);
switch (t) {
case LUA_TTABLE:
- obj = ucl_object_lua_fromtable (L, idx, UCL_STRING_ESCAPE);
+ obj = ucl_object_lua_fromtable(L, idx, UCL_STRING_ESCAPE);
break;
default:
- obj = ucl_object_lua_fromelt (L, idx, UCL_STRING_ESCAPE);
+ obj = ucl_object_lua_fromelt(L, idx, UCL_STRING_ESCAPE);
break;
}
@@ -627,84 +629,84 @@ ucl_object_lua_import_escape (lua_State *L, int idx)
}
static int
-lua_ucl_to_string (lua_State *L, const ucl_object_t *obj, enum ucl_emitter type)
+lua_ucl_to_string(lua_State *L, const ucl_object_t *obj, enum ucl_emitter type)
{
unsigned char *result;
size_t outlen;
- result = ucl_object_emit_len (obj, type, &outlen);
+ result = ucl_object_emit_len(obj, type, &outlen);
if (result != NULL) {
- lua_pushlstring (L, (const char *)result, outlen);
- free (result);
+ lua_pushlstring(L, (const char *) result, outlen);
+ free(result);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return 1;
}
static int
-lua_ucl_parser_init (lua_State *L)
+lua_ucl_parser_init(lua_State *L)
{
struct ucl_parser *parser, **pparser;
int flags = UCL_PARSER_NO_FILEVARS;
- if (lua_gettop (L) >= 1) {
- flags = lua_tonumber (L, 1);
+ if (lua_gettop(L) >= 1) {
+ flags = lua_tonumber(L, 1);
}
- parser = ucl_parser_new (flags);
+ parser = ucl_parser_new(flags);
if (parser == NULL) {
- lua_pushnil (L);
+ lua_pushnil(L);
}
- pparser = lua_newuserdata (L, sizeof (parser));
+ pparser = lua_newuserdata(L, sizeof(parser));
*pparser = parser;
- luaL_getmetatable (L, PARSER_META);
- lua_setmetatable (L, -2);
+ luaL_getmetatable(L, PARSER_META);
+ lua_setmetatable(L, -2);
return 1;
}
static struct ucl_parser *
-lua_ucl_parser_get (lua_State *L, int index)
+lua_ucl_parser_get(lua_State *L, int index)
{
return *((struct ucl_parser **) luaL_checkudata(L, index, PARSER_META));
}
static ucl_object_t *
-lua_ucl_object_get (lua_State *L, int index)
+lua_ucl_object_get(lua_State *L, int index)
{
return *((ucl_object_t **) luaL_checkudata(L, index, OBJECT_META));
}
static void
-lua_ucl_push_opaque (lua_State *L, ucl_object_t *obj)
+lua_ucl_push_opaque(lua_State *L, ucl_object_t *obj)
{
ucl_object_t **pobj;
- pobj = lua_newuserdata (L, sizeof (*pobj));
+ pobj = lua_newuserdata(L, sizeof(*pobj));
*pobj = obj;
- luaL_getmetatable (L, OBJECT_META);
- lua_setmetatable (L, -2);
+ luaL_getmetatable(L, OBJECT_META);
+ lua_setmetatable(L, -2);
}
static inline enum ucl_parse_type
-lua_ucl_str_to_parse_type (const char *str)
+lua_ucl_str_to_parse_type(const char *str)
{
enum ucl_parse_type type = UCL_PARSE_UCL;
if (str != NULL) {
- if (strcasecmp (str, "msgpack") == 0) {
+ if (strcasecmp(str, "msgpack") == 0) {
type = UCL_PARSE_MSGPACK;
}
- else if (strcasecmp (str, "sexp") == 0 ||
- strcasecmp (str, "csexp") == 0) {
+ else if (strcasecmp(str, "sexp") == 0 ||
+ strcasecmp(str, "csexp") == 0) {
type = UCL_PARSE_CSEXP;
}
- else if (strcasecmp (str, "auto") == 0) {
+ else if (strcasecmp(str, "auto") == 0) {
type = UCL_PARSE_AUTO;
}
}
@@ -728,28 +730,28 @@ else
end
*/
static int
-lua_ucl_parser_parse_file (lua_State *L)
+lua_ucl_parser_parse_file(lua_State *L)
{
struct ucl_parser *parser;
const char *file;
int ret = 2;
- parser = lua_ucl_parser_get (L, 1);
- file = luaL_checkstring (L, 2);
+ parser = lua_ucl_parser_get(L, 1);
+ file = luaL_checkstring(L, 2);
if (parser != NULL && file != NULL) {
- if (ucl_parser_add_file (parser, file)) {
- lua_pushboolean (L, true);
+ if (ucl_parser_add_file(parser, file)) {
+ lua_pushboolean(L, true);
ret = 1;
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, ucl_parser_get_error (parser));
+ lua_pushboolean(L, false);
+ lua_pushstring(L, ucl_parser_get_error(parser));
}
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, "invalid arguments");
+ lua_pushboolean(L, false);
+ lua_pushstring(L, "invalid arguments");
}
return ret;
@@ -766,23 +768,23 @@ local parser = ucl.parser()
local res = parser:register_variable('CONFDIR', '/etc/foo')
*/
static int
-lua_ucl_parser_register_variable (lua_State *L)
+lua_ucl_parser_register_variable(lua_State *L)
{
struct ucl_parser *parser;
const char *name, *value;
int ret = 2;
- parser = lua_ucl_parser_get (L, 1);
- name = luaL_checkstring (L, 2);
- value = luaL_checkstring (L, 3);
+ parser = lua_ucl_parser_get(L, 1);
+ name = luaL_checkstring(L, 2);
+ value = luaL_checkstring(L, 3);
if (parser != NULL && name != NULL && value != NULL) {
- ucl_parser_register_variable (parser, name, value);
- lua_pushboolean (L, true);
+ ucl_parser_register_variable(parser, name, value);
+ lua_pushboolean(L, true);
ret = 1;
}
else {
- return luaL_error (L, "invalid arguments");
+ return luaL_error(L, "invalid arguments");
}
return ret;
@@ -798,28 +800,28 @@ local parser = ucl.parser()
local res = parser:register_variables({CONFDIR = '/etc/foo', VARDIR = '/var'})
*/
static int
-lua_ucl_parser_register_variables (lua_State *L)
+lua_ucl_parser_register_variables(lua_State *L)
{
struct ucl_parser *parser;
const char *name, *value;
int ret = 2;
- parser = lua_ucl_parser_get (L, 1);
+ parser = lua_ucl_parser_get(L, 1);
- if (parser != NULL && lua_type (L, 2) == LUA_TTABLE) {
- for (lua_pushnil (L); lua_next (L, 2); lua_pop (L, 1)) {
- lua_pushvalue (L, -2);
- name = luaL_checkstring (L, -1);
- value = luaL_checkstring (L, -2);
- ucl_parser_register_variable (parser, name, value);
- lua_pop (L, 1);
+ if (parser != NULL && lua_type(L, 2) == LUA_TTABLE) {
+ for (lua_pushnil(L); lua_next(L, 2); lua_pop(L, 1)) {
+ lua_pushvalue(L, -2);
+ name = luaL_checkstring(L, -1);
+ value = luaL_checkstring(L, -2);
+ ucl_parser_register_variable(parser, name, value);
+ lua_pop(L, 1);
}
- lua_pushboolean (L, true);
+ lua_pushboolean(L, true);
ret = 1;
}
else {
- return luaL_error (L, "invalid arguments");
+ return luaL_error(L, "invalid arguments");
}
return ret;
@@ -832,7 +834,7 @@ lua_ucl_parser_register_variables (lua_State *L)
* @return {bool[, string]} if res is `true` then file has been parsed successfully, otherwise an error string is also returned
*/
static int
-lua_ucl_parser_parse_string (lua_State *L)
+lua_ucl_parser_parse_string(lua_State *L)
{
struct ucl_parser *parser;
const char *string;
@@ -840,27 +842,27 @@ lua_ucl_parser_parse_string (lua_State *L)
enum ucl_parse_type type = UCL_PARSE_UCL;
int ret = 2;
- parser = lua_ucl_parser_get (L, 1);
- string = luaL_checklstring (L, 2, &llen);
+ parser = lua_ucl_parser_get(L, 1);
+ string = luaL_checklstring(L, 2, &llen);
- if (lua_type (L, 3) == LUA_TSTRING) {
- type = lua_ucl_str_to_parse_type (lua_tostring (L, 3));
+ if (lua_type(L, 3) == LUA_TSTRING) {
+ type = lua_ucl_str_to_parse_type(lua_tostring(L, 3));
}
if (parser != NULL && string != NULL) {
- if (ucl_parser_add_chunk_full (parser, (const unsigned char *)string,
- llen, 0, UCL_DUPLICATE_APPEND, type)) {
- lua_pushboolean (L, true);
+ if (ucl_parser_add_chunk_full(parser, (const unsigned char *) string,
+ llen, 0, UCL_DUPLICATE_APPEND, type)) {
+ lua_pushboolean(L, true);
ret = 1;
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, ucl_parser_get_error (parser));
+ lua_pushboolean(L, false);
+ lua_pushstring(L, ucl_parser_get_error(parser));
}
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, "invalid arguments");
+ lua_pushboolean(L, false);
+ lua_pushstring(L, "invalid arguments");
}
return ret;
@@ -873,24 +875,24 @@ lua_ucl_parser_parse_string (lua_State *L)
* @return {bool[, string]} if res is `true` then file has been parsed successfully, otherwise an error string is also returned
*/
static int
-lua_ucl_parser_parse_text (lua_State *L)
+lua_ucl_parser_parse_text(lua_State *L)
{
struct ucl_parser *parser;
struct _rspamd_lua_text *t;
enum ucl_parse_type type = UCL_PARSE_UCL;
int ret = 2;
- parser = lua_ucl_parser_get (L, 1);
+ parser = lua_ucl_parser_get(L, 1);
- if (lua_type (L, 2) == LUA_TUSERDATA) {
- t = lua_touserdata (L, 2);
+ if (lua_type(L, 2) == LUA_TUSERDATA) {
+ t = lua_touserdata(L, 2);
}
- else if (lua_type (L, 2) == LUA_TSTRING) {
- const gchar *s;
+ else if (lua_type(L, 2) == LUA_TSTRING) {
+ const char *s;
gsize len;
static struct _rspamd_lua_text st_t;
- s = lua_tolstring (L, 2, &len);
+ s = lua_tolstring(L, 2, &len);
st_t.start = s;
st_t.len = len;
@@ -900,24 +902,24 @@ lua_ucl_parser_parse_text (lua_State *L)
return luaL_error(L, "invalid argument as input, expected userdata or a string");
}
- if (lua_type (L, 3) == LUA_TSTRING) {
- type = lua_ucl_str_to_parse_type (lua_tostring (L, 3));
+ if (lua_type(L, 3) == LUA_TSTRING) {
+ type = lua_ucl_str_to_parse_type(lua_tostring(L, 3));
}
if (parser != NULL && t != NULL) {
- if (ucl_parser_add_chunk_full (parser, (const unsigned char *)t->start,
- t->len, 0, UCL_DUPLICATE_APPEND, type)) {
- lua_pushboolean (L, true);
+ if (ucl_parser_add_chunk_full(parser, (const unsigned char *) t->start,
+ t->len, 0, UCL_DUPLICATE_APPEND, type)) {
+ lua_pushboolean(L, true);
ret = 1;
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, ucl_parser_get_error (parser));
+ lua_pushboolean(L, false);
+ lua_pushstring(L, ucl_parser_get_error(parser));
}
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, "invalid arguments");
+ lua_pushboolean(L, false);
+ lua_pushstring(L, "invalid arguments");
}
return ret;
@@ -929,22 +931,22 @@ lua_ucl_parser_parse_text (lua_State *L)
* @return {variant or nil} ucl object as lua native variable
*/
static int
-lua_ucl_parser_get_object (lua_State *L)
+lua_ucl_parser_get_object(lua_State *L)
{
struct ucl_parser *parser;
ucl_object_t *obj;
int ret = 1;
- parser = lua_ucl_parser_get (L, 1);
- obj = ucl_parser_get_object (parser);
+ parser = lua_ucl_parser_get(L, 1);
+ obj = ucl_parser_get_object(parser);
if (obj != NULL) {
- ret = ucl_object_push_lua (L, obj, false);
+ ret = ucl_object_push_lua(L, obj, false);
/* no need to keep reference */
- ucl_object_unref (obj);
+ ucl_object_unref(obj);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return ret;
@@ -957,20 +959,20 @@ lua_ucl_parser_get_object (lua_State *L)
* @return {ucl.object or nil} ucl object wrapped variable
*/
static int
-lua_ucl_parser_get_object_wrapped (lua_State *L)
+lua_ucl_parser_get_object_wrapped(lua_State *L)
{
struct ucl_parser *parser;
ucl_object_t *obj;
int ret = 1;
- parser = lua_ucl_parser_get (L, 1);
- obj = ucl_parser_get_object (parser);
+ parser = lua_ucl_parser_get(L, 1);
+ obj = ucl_parser_get_object(parser);
if (obj != NULL) {
- lua_ucl_push_opaque (L, obj);
+ lua_ucl_push_opaque(L, obj);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return ret;
@@ -986,76 +988,78 @@ lua_ucl_parser_get_object_wrapped (lua_State *L)
*
*/
static int
-lua_ucl_parser_validate (lua_State *L)
+lua_ucl_parser_validate(lua_State *L)
{
struct ucl_parser *parser, *schema_parser;
ucl_object_t *schema;
const char *schema_file;
struct ucl_schema_error err;
- parser = lua_ucl_parser_get (L, 1);
+ parser = lua_ucl_parser_get(L, 1);
if (parser && parser->top_obj) {
- if (lua_type (L, 2) == LUA_TTABLE) {
- schema = ucl_object_lua_import (L, 2);
+ if (lua_type(L, 2) == LUA_TTABLE) {
+ schema = ucl_object_lua_import(L, 2);
if (schema == NULL) {
- lua_pushboolean (L, false);
- lua_pushstring (L, "cannot load schema from lua table");
+ lua_pushboolean(L, false);
+ lua_pushstring(L, "cannot load schema from lua table");
return 2;
}
}
- else if (lua_type (L, 2) == LUA_TSTRING) {
- schema_parser = ucl_parser_new (0);
- schema_file = luaL_checkstring (L, 2);
+ else if (lua_type(L, 2) == LUA_TSTRING) {
+ schema_parser = ucl_parser_new(0);
+ schema_file = luaL_checkstring(L, 2);
- if (!ucl_parser_add_file (schema_parser, schema_file)) {
- lua_pushboolean (L, false);
- lua_pushfstring (L, "cannot parse schema file \"%s\": "
- "%s", schema_file, ucl_parser_get_error (parser));
- ucl_parser_free (schema_parser);
+ if (!ucl_parser_add_file(schema_parser, schema_file)) {
+ lua_pushboolean(L, false);
+ lua_pushfstring(L, "cannot parse schema file \"%s\": "
+ "%s",
+ schema_file, ucl_parser_get_error(parser));
+ ucl_parser_free(schema_parser);
return 2;
}
- schema = ucl_parser_get_object (schema_parser);
- ucl_parser_free (schema_parser);
+ schema = ucl_parser_get_object(schema_parser);
+ ucl_parser_free(schema_parser);
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, "invalid schema argument");
+ lua_pushboolean(L, false);
+ lua_pushstring(L, "invalid schema argument");
return 2;
}
- if (!ucl_object_validate (schema, parser->top_obj, &err)) {
- lua_pushboolean (L, false);
- lua_pushfstring (L, "validation error: "
- "%s", err.msg);
+ if (!ucl_object_validate(schema, parser->top_obj, &err)) {
+ lua_pushboolean(L, false);
+ lua_pushfstring(L, "validation error: "
+ "%s",
+ err.msg);
}
else {
- lua_pushboolean (L, true);
- lua_pushnil (L);
+ lua_pushboolean(L, true);
+ lua_pushnil(L);
}
- ucl_object_unref (schema);
+ ucl_object_unref(schema);
}
else {
- lua_pushboolean (L, false);
- lua_pushstring (L, "invalid parser or empty top object");
+ lua_pushboolean(L, false);
+ lua_pushstring(L, "invalid parser or empty top object");
}
return 2;
}
static int
-lua_ucl_parser_gc (lua_State *L)
+lua_ucl_parser_gc(lua_State *L)
{
struct ucl_parser *parser;
- parser = lua_ucl_parser_get (L, 1);
- ucl_parser_free (parser);
+ parser = lua_ucl_parser_get(L, 1);
+ ucl_parser_free(parser);
return 0;
}
@@ -1066,38 +1070,38 @@ lua_ucl_parser_gc (lua_State *L)
* @return {variant} any lua object
*/
static int
-lua_ucl_object_unwrap (lua_State *L)
+lua_ucl_object_unwrap(lua_State *L)
{
ucl_object_t *obj;
- obj = lua_ucl_object_get (L, 1);
+ obj = lua_ucl_object_get(L, 1);
if (obj) {
- ucl_object_push_lua (L, obj, true);
+ ucl_object_push_lua(L, obj, true);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return 1;
}
static inline enum ucl_emitter
-lua_ucl_str_to_emit_type (const char *strtype)
+lua_ucl_str_to_emit_type(const char *strtype)
{
enum ucl_emitter format = UCL_EMIT_JSON_COMPACT;
- if (strcasecmp (strtype, "json") == 0) {
+ if (strcasecmp(strtype, "json") == 0) {
format = UCL_EMIT_JSON;
}
- else if (strcasecmp (strtype, "json-compact") == 0) {
+ else if (strcasecmp(strtype, "json-compact") == 0) {
format = UCL_EMIT_JSON_COMPACT;
}
- else if (strcasecmp (strtype, "yaml") == 0) {
+ else if (strcasecmp(strtype, "yaml") == 0) {
format = UCL_EMIT_YAML;
}
- else if (strcasecmp (strtype, "config") == 0 ||
- strcasecmp (strtype, "ucl") == 0) {
+ else if (strcasecmp(strtype, "config") == 0 ||
+ strcasecmp(strtype, "ucl") == 0) {
format = UCL_EMIT_CONFIG;
}
@@ -1118,26 +1122,26 @@ lua_ucl_str_to_emit_type (const char *strtype)
* @return {string} string representation of the opaque ucl object
*/
static int
-lua_ucl_object_tostring (lua_State *L)
+lua_ucl_object_tostring(lua_State *L)
{
ucl_object_t *obj;
enum ucl_emitter format = UCL_EMIT_JSON_COMPACT;
- obj = lua_ucl_object_get (L, 1);
+ obj = lua_ucl_object_get(L, 1);
if (obj) {
- if (lua_gettop (L) > 1) {
- if (lua_type (L, 2) == LUA_TSTRING) {
- const char *strtype = lua_tostring (L, 2);
+ if (lua_gettop(L) > 1) {
+ if (lua_type(L, 2) == LUA_TSTRING) {
+ const char *strtype = lua_tostring(L, 2);
- format = lua_ucl_str_to_emit_type (strtype);
+ format = lua_ucl_str_to_emit_type(strtype);
}
}
- return lua_ucl_to_string (L, obj, format);
+ return lua_ucl_to_string(L, obj, format);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return 1;
@@ -1156,7 +1160,7 @@ lua_ucl_object_tostring (lua_State *L)
* ucl object as {result,err,ext_refs}
*/
static int
-lua_ucl_object_validate (lua_State *L)
+lua_ucl_object_validate(lua_State *L)
{
ucl_object_t *obj, *schema, *ext_refs = NULL;
const ucl_object_t *schema_elt;
@@ -1164,34 +1168,34 @@ lua_ucl_object_validate (lua_State *L)
struct ucl_schema_error err;
const char *path = NULL;
- obj = lua_ucl_object_get (L, 1);
- schema = lua_ucl_object_get (L, 2);
+ obj = lua_ucl_object_get(L, 1);
+ schema = lua_ucl_object_get(L, 2);
- if (schema && obj && ucl_object_type (schema) == UCL_OBJECT) {
- if (lua_gettop (L) > 2) {
- if (lua_type (L, 3) == LUA_TSTRING) {
- path = lua_tostring (L, 3);
+ if (schema && obj && ucl_object_type(schema) == UCL_OBJECT) {
+ if (lua_gettop(L) > 2) {
+ if (lua_type(L, 3) == LUA_TSTRING) {
+ path = lua_tostring(L, 3);
if (path[0] == '#') {
path++;
}
}
- else if (lua_type (L, 3) == LUA_TUSERDATA || lua_type (L, 3) ==
- LUA_TTABLE) {
+ else if (lua_type(L, 3) == LUA_TUSERDATA || lua_type(L, 3) ==
+ LUA_TTABLE) {
/* External refs */
- ext_refs = lua_ucl_object_get (L, 3);
+ ext_refs = lua_ucl_object_get(L, 3);
}
- if (lua_gettop (L) > 3) {
- if (lua_type (L, 4) == LUA_TUSERDATA || lua_type (L, 4) ==
- LUA_TTABLE) {
+ if (lua_gettop(L) > 3) {
+ if (lua_type(L, 4) == LUA_TUSERDATA || lua_type(L, 4) ==
+ LUA_TTABLE) {
/* External refs */
- ext_refs = lua_ucl_object_get (L, 4);
+ ext_refs = lua_ucl_object_get(L, 4);
}
}
}
if (path) {
- schema_elt = ucl_object_lookup_path_char (schema, path, '/');
+ schema_elt = ucl_object_lookup_path_char(schema, path, '/');
}
else {
/* Use the top object */
@@ -1199,39 +1203,39 @@ lua_ucl_object_validate (lua_State *L)
}
if (schema_elt) {
- res = ucl_object_validate_root_ext (schema_elt, obj, schema,
- ext_refs, &err);
+ res = ucl_object_validate_root_ext(schema_elt, obj, schema,
+ ext_refs, &err);
if (res) {
- lua_pushboolean (L, res);
- lua_pushnil (L);
+ lua_pushboolean(L, res);
+ lua_pushnil(L);
if (ext_refs) {
- lua_ucl_push_opaque (L, ext_refs);
+ lua_ucl_push_opaque(L, ext_refs);
}
}
else {
- lua_pushboolean (L, res);
- lua_pushfstring (L, "validation error: %s", err.msg);
+ lua_pushboolean(L, res);
+ lua_pushfstring(L, "validation error: %s", err.msg);
if (ext_refs) {
- lua_ucl_push_opaque (L, ext_refs);
+ lua_ucl_push_opaque(L, ext_refs);
}
}
}
else {
- lua_pushboolean (L, res);
+ lua_pushboolean(L, res);
- lua_pushfstring (L, "cannot find the requested path: %s", path);
+ lua_pushfstring(L, "cannot find the requested path: %s", path);
if (ext_refs) {
- lua_ucl_push_opaque (L, ext_refs);
+ lua_ucl_push_opaque(L, ext_refs);
}
}
}
else {
- lua_pushboolean (L, res);
- lua_pushstring (L, "invalid object or schema");
+ lua_pushboolean(L, res);
+ lua_pushstring(L, "invalid object or schema");
}
if (ext_refs) {
@@ -1242,166 +1246,166 @@ lua_ucl_object_validate (lua_State *L)
}
static int
-lua_ucl_object_gc (lua_State *L)
+lua_ucl_object_gc(lua_State *L)
{
ucl_object_t *obj;
- obj = lua_ucl_object_get (L, 1);
+ obj = lua_ucl_object_get(L, 1);
- ucl_object_unref (obj);
+ ucl_object_unref(obj);
return 0;
}
static void
-lua_ucl_parser_mt (lua_State *L)
+lua_ucl_parser_mt(lua_State *L)
{
- luaL_newmetatable (L, PARSER_META);
+ luaL_newmetatable(L, PARSER_META);
lua_pushvalue(L, -1);
lua_setfield(L, -2, "__index");
- lua_pushcfunction (L, lua_ucl_parser_gc);
- lua_setfield (L, -2, "__gc");
+ lua_pushcfunction(L, lua_ucl_parser_gc);
+ lua_setfield(L, -2, "__gc");
- lua_pushcfunction (L, lua_ucl_parser_parse_file);
- lua_setfield (L, -2, "parse_file");
+ lua_pushcfunction(L, lua_ucl_parser_parse_file);
+ lua_setfield(L, -2, "parse_file");
- lua_pushcfunction (L, lua_ucl_parser_parse_string);
- lua_setfield (L, -2, "parse_string");
+ lua_pushcfunction(L, lua_ucl_parser_parse_string);
+ lua_setfield(L, -2, "parse_string");
- lua_pushcfunction (L, lua_ucl_parser_parse_text);
- lua_setfield (L, -2, "parse_text");
+ lua_pushcfunction(L, lua_ucl_parser_parse_text);
+ lua_setfield(L, -2, "parse_text");
- lua_pushcfunction (L, lua_ucl_parser_register_variable);
- lua_setfield (L, -2, "register_variable");
+ lua_pushcfunction(L, lua_ucl_parser_register_variable);
+ lua_setfield(L, -2, "register_variable");
- lua_pushcfunction (L, lua_ucl_parser_register_variables);
- lua_setfield (L, -2, "register_variables");
+ lua_pushcfunction(L, lua_ucl_parser_register_variables);
+ lua_setfield(L, -2, "register_variables");
- lua_pushcfunction (L, lua_ucl_parser_get_object);
- lua_setfield (L, -2, "get_object");
+ lua_pushcfunction(L, lua_ucl_parser_get_object);
+ lua_setfield(L, -2, "get_object");
- lua_pushcfunction (L, lua_ucl_parser_get_object_wrapped);
- lua_setfield (L, -2, "get_object_wrapped");
+ lua_pushcfunction(L, lua_ucl_parser_get_object_wrapped);
+ lua_setfield(L, -2, "get_object_wrapped");
- lua_pushcfunction (L, lua_ucl_parser_validate);
- lua_setfield (L, -2, "validate");
+ lua_pushcfunction(L, lua_ucl_parser_validate);
+ lua_setfield(L, -2, "validate");
- lua_pop (L, 1);
+ lua_pop(L, 1);
}
static void
-lua_ucl_object_mt (lua_State *L)
+lua_ucl_object_mt(lua_State *L)
{
- luaL_newmetatable (L, OBJECT_META);
+ luaL_newmetatable(L, OBJECT_META);
lua_pushvalue(L, -1);
lua_setfield(L, -2, "__index");
- lua_pushcfunction (L, lua_ucl_object_gc);
- lua_setfield (L, -2, "__gc");
+ lua_pushcfunction(L, lua_ucl_object_gc);
+ lua_setfield(L, -2, "__gc");
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "__tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "__tostring");
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "tostring");
- lua_pushcfunction (L, lua_ucl_object_unwrap);
- lua_setfield (L, -2, "unwrap");
+ lua_pushcfunction(L, lua_ucl_object_unwrap);
+ lua_setfield(L, -2, "unwrap");
- lua_pushcfunction (L, lua_ucl_object_unwrap);
- lua_setfield (L, -2, "tolua");
+ lua_pushcfunction(L, lua_ucl_object_unwrap);
+ lua_setfield(L, -2, "tolua");
- lua_pushcfunction (L, lua_ucl_object_validate);
- lua_setfield (L, -2, "validate");
+ lua_pushcfunction(L, lua_ucl_object_validate);
+ lua_setfield(L, -2, "validate");
- lua_pushstring (L, OBJECT_META);
- lua_setfield (L, -2, "class");
+ lua_pushstring(L, OBJECT_META);
+ lua_setfield(L, -2, "class");
- lua_pop (L, 1);
+ lua_pop(L, 1);
}
static void
-lua_ucl_types_mt (lua_State *L)
+lua_ucl_types_mt(lua_State *L)
{
- luaL_newmetatable (L, UCL_OBJECT_TYPE_META);
+ luaL_newmetatable(L, UCL_OBJECT_TYPE_META);
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "__tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "__tostring");
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "tostring");
- lua_pushstring (L, UCL_OBJECT_TYPE_META);
- lua_setfield (L, -2, "class");
+ lua_pushstring(L, UCL_OBJECT_TYPE_META);
+ lua_setfield(L, -2, "class");
- lua_pop (L, 1);
+ lua_pop(L, 1);
- luaL_newmetatable (L, UCL_ARRAY_TYPE_META);
+ luaL_newmetatable(L, UCL_ARRAY_TYPE_META);
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "__tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "__tostring");
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "tostring");
- lua_pushstring (L, UCL_ARRAY_TYPE_META);
- lua_setfield (L, -2, "class");
+ lua_pushstring(L, UCL_ARRAY_TYPE_META);
+ lua_setfield(L, -2, "class");
- lua_pop (L, 1);
+ lua_pop(L, 1);
- luaL_newmetatable (L, UCL_IMPL_ARRAY_TYPE_META);
+ luaL_newmetatable(L, UCL_IMPL_ARRAY_TYPE_META);
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "__tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "__tostring");
- lua_pushcfunction (L, lua_ucl_object_tostring);
- lua_setfield (L, -2, "tostring");
+ lua_pushcfunction(L, lua_ucl_object_tostring);
+ lua_setfield(L, -2, "tostring");
- lua_pushstring (L, UCL_IMPL_ARRAY_TYPE_META);
- lua_setfield (L, -2, "class");
+ lua_pushstring(L, UCL_IMPL_ARRAY_TYPE_META);
+ lua_setfield(L, -2, "class");
- lua_pop (L, 1);
+ lua_pop(L, 1);
}
static int
-lua_ucl_to_json (lua_State *L)
+lua_ucl_to_json(lua_State *L)
{
ucl_object_t *obj;
int format = UCL_EMIT_JSON;
- if (lua_gettop (L) > 1) {
- if (lua_toboolean (L, 2)) {
+ if (lua_gettop(L) > 1) {
+ if (lua_toboolean(L, 2)) {
format = UCL_EMIT_JSON_COMPACT;
}
}
- obj = ucl_object_lua_import (L, 1);
+ obj = ucl_object_lua_import(L, 1);
if (obj != NULL) {
- lua_ucl_to_string (L, obj, format);
- ucl_object_unref (obj);
+ lua_ucl_to_string(L, obj, format);
+ ucl_object_unref(obj);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return 1;
}
static int
-lua_ucl_to_config (lua_State *L)
+lua_ucl_to_config(lua_State *L)
{
ucl_object_t *obj;
- obj = ucl_object_lua_import (L, 1);
+ obj = ucl_object_lua_import(L, 1);
if (obj != NULL) {
- lua_ucl_to_string (L, obj, UCL_EMIT_CONFIG);
- ucl_object_unref (obj);
+ lua_ucl_to_string(L, obj, UCL_EMIT_CONFIG);
+ ucl_object_unref(obj);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return 1;
@@ -1442,133 +1446,132 @@ func = "huh";
--]]
*/
static int
-lua_ucl_to_format (lua_State *L)
+lua_ucl_to_format(lua_State *L)
{
ucl_object_t *obj;
int format = UCL_EMIT_JSON;
bool sort = false;
- if (lua_gettop (L) > 1) {
- if (lua_type (L, 2) == LUA_TNUMBER) {
- format = lua_tonumber (L, 2);
+ if (lua_gettop(L) > 1) {
+ if (lua_type(L, 2) == LUA_TNUMBER) {
+ format = lua_tonumber(L, 2);
if (format < 0 || format >= UCL_EMIT_YAML) {
- lua_pushnil (L);
+ lua_pushnil(L);
return 1;
}
}
- else if (lua_type (L, 2) == LUA_TSTRING) {
- const char *strtype = lua_tostring (L, 2);
+ else if (lua_type(L, 2) == LUA_TSTRING) {
+ const char *strtype = lua_tostring(L, 2);
- if (strcasecmp (strtype, "json") == 0) {
+ if (strcasecmp(strtype, "json") == 0) {
format = UCL_EMIT_JSON;
}
- else if (strcasecmp (strtype, "json-compact") == 0) {
+ else if (strcasecmp(strtype, "json-compact") == 0) {
format = UCL_EMIT_JSON_COMPACT;
}
- else if (strcasecmp (strtype, "yaml") == 0) {
+ else if (strcasecmp(strtype, "yaml") == 0) {
format = UCL_EMIT_YAML;
}
- else if (strcasecmp (strtype, "config") == 0 ||
- strcasecmp (strtype, "ucl") == 0) {
+ else if (strcasecmp(strtype, "config") == 0 ||
+ strcasecmp(strtype, "ucl") == 0) {
format = UCL_EMIT_CONFIG;
}
- else if (strcasecmp (strtype, "msgpack") == 0 ||
- strcasecmp (strtype, "messagepack") == 0) {
+ else if (strcasecmp(strtype, "msgpack") == 0 ||
+ strcasecmp(strtype, "messagepack") == 0) {
format = UCL_EMIT_MSGPACK;
}
}
- if (lua_isboolean (L, 3)) {
- sort = lua_toboolean (L, 3);
+ if (lua_isboolean(L, 3)) {
+ sort = lua_toboolean(L, 3);
}
}
- obj = ucl_object_lua_import (L, 1);
+ obj = ucl_object_lua_import(L, 1);
if (obj != NULL) {
if (sort) {
- if (ucl_object_type (obj) == UCL_OBJECT) {
- ucl_object_sort_keys (obj, UCL_SORT_KEYS_RECURSIVE);
+ if (ucl_object_type(obj) == UCL_OBJECT) {
+ ucl_object_sort_keys(obj, UCL_SORT_KEYS_RECURSIVE);
}
}
- lua_ucl_to_string (L, obj, format);
- ucl_object_unref (obj);
+ lua_ucl_to_string(L, obj, format);
+ ucl_object_unref(obj);
}
else {
- lua_pushnil (L);
+ lua_pushnil(L);
}
return 1;
}
static int
-lua_ucl_null_tostring (lua_State* L)
+lua_ucl_null_tostring(lua_State *L)
{
- lua_pushstring (L, "null");
+ lua_pushstring(L, "null");
return 1;
}
static void
-lua_ucl_null_mt (lua_State *L)
+lua_ucl_null_mt(lua_State *L)
{
- luaL_newmetatable (L, NULL_META);
+ luaL_newmetatable(L, NULL_META);
- lua_pushcfunction (L, lua_ucl_null_tostring);
- lua_setfield (L, -2, "__tostring");
+ lua_pushcfunction(L, lua_ucl_null_tostring);
+ lua_setfield(L, -2, "__tostring");
- lua_pop (L, 1);
+ lua_pop(L, 1);
}
-int
-luaopen_ucl (lua_State *L)
+int luaopen_ucl(lua_State *L)
{
- lua_ucl_parser_mt (L);
- lua_ucl_null_mt (L);
- lua_ucl_object_mt (L);
- lua_ucl_types_mt (L);
+ lua_ucl_parser_mt(L);
+ lua_ucl_null_mt(L);
+ lua_ucl_object_mt(L);
+ lua_ucl_types_mt(L);
/* Create the refs weak table: */
- lua_createtable (L, 0, 2);
- lua_pushliteral (L, "v"); /* tbl, "v" */
- lua_setfield (L, -2, "__mode");
- lua_pushvalue (L, -1); /* tbl, tbl */
- lua_setmetatable (L, -2); /* tbl */
- lua_setfield (L, LUA_REGISTRYINDEX, "ucl.refs");
+ lua_createtable(L, 0, 2);
+ lua_pushliteral(L, "v"); /* tbl, "v" */
+ lua_setfield(L, -2, "__mode");
+ lua_pushvalue(L, -1); /* tbl, tbl */
+ lua_setmetatable(L, -2); /* tbl */
+ lua_setfield(L, LUA_REGISTRYINDEX, "ucl.refs");
- lua_newtable (L);
+ lua_newtable(L);
- lua_pushcfunction (L, lua_ucl_parser_init);
- lua_setfield (L, -2, "parser");
+ lua_pushcfunction(L, lua_ucl_parser_init);
+ lua_setfield(L, -2, "parser");
- lua_pushcfunction (L, lua_ucl_to_json);
- lua_setfield (L, -2, "to_json");
+ lua_pushcfunction(L, lua_ucl_to_json);
+ lua_setfield(L, -2, "to_json");
- lua_pushcfunction (L, lua_ucl_to_config);
- lua_setfield (L, -2, "to_config");
+ lua_pushcfunction(L, lua_ucl_to_config);
+ lua_setfield(L, -2, "to_config");
- lua_pushcfunction (L, lua_ucl_to_format);
- lua_setfield (L, -2, "to_format");
+ lua_pushcfunction(L, lua_ucl_to_format);
+ lua_setfield(L, -2, "to_format");
- ucl_null = lua_newuserdata (L, 0);
- luaL_getmetatable (L, NULL_META);
- lua_setmetatable (L, -2);
+ ucl_null = lua_newuserdata(L, 0);
+ luaL_getmetatable(L, NULL_META);
+ lua_setmetatable(L, -2);
- lua_pushvalue (L, -1);
- lua_setfield (L, LUA_REGISTRYINDEX, "ucl.null");
+ lua_pushvalue(L, -1);
+ lua_setfield(L, LUA_REGISTRYINDEX, "ucl.null");
- lua_setfield (L, -2, "null");
+ lua_setfield(L, -2, "null");
return 1;
}
-struct ucl_lua_funcdata*
-ucl_object_toclosure (const ucl_object_t *obj)
+struct ucl_lua_funcdata *
+ucl_object_toclosure(const ucl_object_t *obj)
{
if (obj == NULL || obj->type != UCL_USERDATA) {
return NULL;
}
- return (struct ucl_lua_funcdata*)obj->value.ud;
+ return (struct ucl_lua_funcdata *) obj->value.ud;
}
diff --git a/contrib/libucl/ucl_hash.c b/contrib/libucl/ucl_hash.c
index a26c26f9f..eb2053ba1 100644
--- a/contrib/libucl/ucl_hash.c
+++ b/contrib/libucl/ucl_hash.c
@@ -45,7 +45,7 @@ struct ucl_hash_struct {
};
static uint64_t
-ucl_hash_seed (void)
+ucl_hash_seed(void)
{
static uint64_t seed;
if (seed == 0) {
@@ -53,41 +53,41 @@ ucl_hash_seed (void)
seed = UCL_RANDOM_FUNCTION;
#else
/* Not very random but can be useful for our purposes */
- seed = time (NULL);
+ seed = time(NULL);
#endif
}
return seed;
}
-extern const guchar lc_map[256];
+extern const unsigned char lc_map[256];
static inline uint32_t
-ucl_hash_func (const ucl_object_t *o)
+ucl_hash_func(const ucl_object_t *o)
{
- return (uint32_t)rspamd_cryptobox_fast_hash (o->key, o->keylen, 0xb9a1ef83c4561c95ULL);
+ return (uint32_t) rspamd_cryptobox_fast_hash(o->key, o->keylen, 0xb9a1ef83c4561c95ULL);
}
static inline int
-ucl_hash_equal (const ucl_object_t *k1, const ucl_object_t *k2)
+ucl_hash_equal(const ucl_object_t *k1, const ucl_object_t *k2)
{
if (k1->keylen == k2->keylen) {
- return memcmp (k1->key, k2->key, k1->keylen) == 0;
+ return memcmp(k1->key, k2->key, k1->keylen) == 0;
}
return 0;
}
-KHASH_INIT (ucl_hash_node, const ucl_object_t *, struct ucl_hash_elt *, 1,
- ucl_hash_func, ucl_hash_equal)
+KHASH_INIT(ucl_hash_node, const ucl_object_t *, struct ucl_hash_elt *, 1,
+ ucl_hash_func, ucl_hash_equal)
static inline uint32_t
-ucl_hash_caseless_func (const ucl_object_t *o)
+ucl_hash_caseless_func(const ucl_object_t *o)
{
unsigned len = o->keylen;
unsigned leftover = o->keylen % 4;
unsigned fp, i;
- const uint8_t* s = (const uint8_t*)o->key;
+ const uint8_t *s = (const uint8_t *) o->key;
union {
struct {
unsigned char c1, c2, c3, c4;
@@ -98,7 +98,7 @@ ucl_hash_caseless_func (const ucl_object_t *o)
rspamd_cryptobox_fast_hash_state_t hst;
fp = len - leftover;
- rspamd_cryptobox_fast_hash_init (&hst, h);
+ rspamd_cryptobox_fast_hash_init(&hst, h);
for (i = 0; i != fp; i += 4) {
u.c.c1 = s[i], u.c.c2 = s[i + 1], u.c.c3 = s[i + 2], u.c.c4 = s[i + 3];
@@ -106,58 +106,58 @@ ucl_hash_caseless_func (const ucl_object_t *o)
u.c.c2 = lc_map[u.c.c2];
u.c.c3 = lc_map[u.c.c3];
u.c.c4 = lc_map[u.c.c4];
- rspamd_cryptobox_fast_hash_update (&hst, &u, sizeof (u));
+ rspamd_cryptobox_fast_hash_update(&hst, &u, sizeof(u));
}
u.pp = 0;
switch (leftover) {
case 3:
- u.c.c3 = lc_map[(unsigned char)s[i++]];
+ u.c.c3 = lc_map[(unsigned char) s[i++]];
case 2:
/* fallthrough */
- u.c.c2 = lc_map[(unsigned char)s[i++]];
+ u.c.c2 = lc_map[(unsigned char) s[i++]];
case 1:
/* fallthrough */
- u.c.c1 = lc_map[(unsigned char)s[i]];
- rspamd_cryptobox_fast_hash_update (&hst, &u, sizeof (u));
+ u.c.c1 = lc_map[(unsigned char) s[i]];
+ rspamd_cryptobox_fast_hash_update(&hst, &u, sizeof(u));
break;
}
- return (uint32_t)rspamd_cryptobox_fast_hash_final (&hst);
+ return (uint32_t) rspamd_cryptobox_fast_hash_final(&hst);
}
static inline bool
-ucl_hash_caseless_equal (const ucl_object_t *k1, const ucl_object_t *k2)
+ucl_hash_caseless_equal(const ucl_object_t *k1, const ucl_object_t *k2)
{
if (k1->keylen == k2->keylen) {
- return rspamd_lc_cmp (k1->key, k2->key, k1->keylen) == 0;
+ return rspamd_lc_cmp(k1->key, k2->key, k1->keylen) == 0;
}
return false;
}
-KHASH_INIT (ucl_hash_caseless_node, const ucl_object_t *, struct ucl_hash_elt *, 1,
- ucl_hash_caseless_func, ucl_hash_caseless_equal)
+KHASH_INIT(ucl_hash_caseless_node, const ucl_object_t *, struct ucl_hash_elt *, 1,
+ ucl_hash_caseless_func, ucl_hash_caseless_equal)
-ucl_hash_t*
-ucl_hash_create (bool ignore_case)
+ucl_hash_t *
+ucl_hash_create(bool ignore_case)
{
ucl_hash_t *new;
- new = UCL_ALLOC (sizeof (ucl_hash_t));
+ new = UCL_ALLOC(sizeof(ucl_hash_t));
if (new != NULL) {
void *h;
new->head = NULL;
new->caseless = ignore_case;
if (ignore_case) {
- h = (void *)kh_init (ucl_hash_caseless_node);
+ h = (void *) kh_init(ucl_hash_caseless_node);
}
else {
- h = (void *)kh_init (ucl_hash_node);
+ h = (void *) kh_init(ucl_hash_node);
}
if (h == NULL) {
- UCL_FREE (sizeof (ucl_hash_t), new);
+ UCL_FREE(sizeof(ucl_hash_t), new);
return NULL;
}
new->hash = h;
@@ -165,7 +165,7 @@ ucl_hash_create (bool ignore_case)
return new;
}
-void ucl_hash_destroy (ucl_hash_t* hashlin, ucl_hash_free_func func)
+void ucl_hash_destroy(ucl_hash_t *hashlin, ucl_hash_free_func func)
{
if (hashlin == NULL) {
@@ -175,16 +175,16 @@ void ucl_hash_destroy (ucl_hash_t* hashlin, ucl_hash_free_func func)
if (func != NULL) {
/* Iterate over the hash first */
khash_t(ucl_hash_node) *h = (khash_t(ucl_hash_node) *)
- hashlin->hash;
+ hashlin->hash;
khiter_t k;
const ucl_object_t *cur, *tmp;
- for (k = kh_begin (h); k != kh_end (h); ++k) {
- if (kh_exist (h, k)) {
- cur = (kh_value (h, k))->obj;
+ for (k = kh_begin(h); k != kh_end(h); ++k) {
+ if (kh_exist(h, k)) {
+ cur = (kh_value(h, k))->obj;
while (cur != NULL) {
tmp = cur->next;
- func (__DECONST (ucl_object_t *, cur));
+ func(__DECONST(ucl_object_t *, cur));
cur = tmp;
}
}
@@ -193,27 +193,27 @@ void ucl_hash_destroy (ucl_hash_t* hashlin, ucl_hash_free_func func)
if (hashlin->caseless) {
khash_t(ucl_hash_caseless_node) *h = (khash_t(ucl_hash_caseless_node) *)
- hashlin->hash;
- kh_destroy (ucl_hash_caseless_node, h);
+ hashlin->hash;
+ kh_destroy(ucl_hash_caseless_node, h);
}
else {
khash_t(ucl_hash_node) *h = (khash_t(ucl_hash_node) *)
- hashlin->hash;
- kh_destroy (ucl_hash_node, h);
+ hashlin->hash;
+ kh_destroy(ucl_hash_node, h);
}
struct ucl_hash_elt *cur, *tmp;
- DL_FOREACH_SAFE(hashlin->head, cur, tmp) {
+ DL_FOREACH_SAFE(hashlin->head, cur, tmp)
+ {
UCL_FREE(sizeof(*cur), cur);
}
- UCL_FREE (sizeof (*hashlin), hashlin);
+ UCL_FREE(sizeof(*hashlin), hashlin);
}
-bool
-ucl_hash_insert (ucl_hash_t* hashlin, const ucl_object_t *obj,
- const char *key, unsigned keylen)
+bool ucl_hash_insert(ucl_hash_t *hashlin, const ucl_object_t *obj,
+ const char *key, unsigned keylen)
{
khiter_t k;
int ret;
@@ -225,11 +225,11 @@ ucl_hash_insert (ucl_hash_t* hashlin, const ucl_object_t *obj,
if (hashlin->caseless) {
khash_t(ucl_hash_caseless_node) *h = (khash_t(ucl_hash_caseless_node) *)
- hashlin->hash;
- k = kh_put (ucl_hash_caseless_node, h, obj, &ret);
+ hashlin->hash;
+ k = kh_put(ucl_hash_caseless_node, h, obj, &ret);
if (ret > 0) {
elt = UCL_ALLOC(sizeof(*elt));
- pelt = &kh_value (h, k);
+ pelt = &kh_value(h, k);
*pelt = elt;
DL_APPEND(hashlin->head, elt);
elt->obj = obj;
@@ -240,25 +240,26 @@ ucl_hash_insert (ucl_hash_t* hashlin, const ucl_object_t *obj,
}
else {
khash_t(ucl_hash_node) *h = (khash_t(ucl_hash_node) *)
- hashlin->hash;
- k = kh_put (ucl_hash_node, h, obj, &ret);
+ hashlin->hash;
+ k = kh_put(ucl_hash_node, h, obj, &ret);
if (ret > 0) {
elt = UCL_ALLOC(sizeof(*elt));
- pelt = &kh_value (h, k);
+ pelt = &kh_value(h, k);
*pelt = elt;
DL_APPEND(hashlin->head, elt);
elt->obj = obj;
- } else if (ret < 0) {
+ }
+ else if (ret < 0) {
goto e0;
}
}
return true;
- e0:
+e0:
return false;
}
-void ucl_hash_replace (ucl_hash_t* hashlin, const ucl_object_t *old,
- const ucl_object_t *new)
+void ucl_hash_replace(ucl_hash_t *hashlin, const ucl_object_t *old,
+ const ucl_object_t *new)
{
khiter_t k;
int ret;
@@ -270,12 +271,12 @@ void ucl_hash_replace (ucl_hash_t* hashlin, const ucl_object_t *old,
if (hashlin->caseless) {
khash_t(ucl_hash_caseless_node) *h = (khash_t(ucl_hash_caseless_node) *)
- hashlin->hash;
- k = kh_put (ucl_hash_caseless_node, h, old, &ret);
+ hashlin->hash;
+ k = kh_put(ucl_hash_caseless_node, h, old, &ret);
if (ret == 0) {
elt = kh_value(h, k);
- kh_del (ucl_hash_caseless_node, h, k);
- k = kh_put (ucl_hash_caseless_node, h, new, &ret);
+ kh_del(ucl_hash_caseless_node, h, k);
+ k = kh_put(ucl_hash_caseless_node, h, new, &ret);
nelt = UCL_ALLOC(sizeof(*nelt));
nelt->obj = new;
kh_value(h, k) = nelt;
@@ -285,12 +286,12 @@ void ucl_hash_replace (ucl_hash_t* hashlin, const ucl_object_t *old,
}
else {
khash_t(ucl_hash_node) *h = (khash_t(ucl_hash_node) *)
- hashlin->hash;
- k = kh_put (ucl_hash_node, h, old, &ret);
+ hashlin->hash;
+ k = kh_put(ucl_hash_node, h, old, &ret);
if (ret == 0) {
- elt = kh_value (h, k);
- kh_del (ucl_hash_node, h, k);
- k = kh_put (ucl_hash_node, h, new, &ret);
+ elt = kh_value(h, k);
+ kh_del(ucl_hash_node, h, k);
+ k = kh_put(ucl_hash_node, h, new, &ret);
nelt = UCL_ALLOC(sizeof(*nelt));
nelt->obj = new;
kh_value(h, k) = nelt;
@@ -304,12 +305,15 @@ struct ucl_hash_real_iter {
const struct ucl_hash_elt *cur;
};
-#define UHI_SETERR(ep, ern) {if (ep != NULL) *ep = (ern);}
+#define UHI_SETERR(ep, ern) \
+ { \
+ if (ep != NULL) *ep = (ern); \
+ }
-const void*
-ucl_hash_iterate2 (ucl_hash_t *hashlin, ucl_hash_iter_t *iter, int *ep)
+const void *
+ucl_hash_iterate2(ucl_hash_t *hashlin, ucl_hash_iter_t *iter, int *ep)
{
- struct ucl_hash_real_iter *it = (struct ucl_hash_real_iter *)(*iter);
+ struct ucl_hash_real_iter *it = (struct ucl_hash_real_iter *) (*iter);
const ucl_object_t *ret = NULL;
if (hashlin == NULL) {
@@ -318,7 +322,7 @@ ucl_hash_iterate2 (ucl_hash_t *hashlin, ucl_hash_iter_t *iter, int *ep)
}
if (it == NULL) {
- it = UCL_ALLOC (sizeof (*it));
+ it = UCL_ALLOC(sizeof(*it));
if (it == NULL) {
UHI_SETERR(ep, ENOMEM);
@@ -334,7 +338,7 @@ ucl_hash_iterate2 (ucl_hash_t *hashlin, ucl_hash_iter_t *iter, int *ep)
it->cur = it->cur->next;
}
else {
- UCL_FREE (sizeof (*it), it);
+ UCL_FREE(sizeof(*it), it);
*iter = NULL;
return NULL;
}
@@ -344,17 +348,16 @@ ucl_hash_iterate2 (ucl_hash_t *hashlin, ucl_hash_iter_t *iter, int *ep)
return ret;
}
-bool
-ucl_hash_iter_has_next (ucl_hash_t *hashlin, ucl_hash_iter_t iter)
+bool ucl_hash_iter_has_next(ucl_hash_t *hashlin, ucl_hash_iter_t iter)
{
- struct ucl_hash_real_iter *it = (struct ucl_hash_real_iter *)(iter);
+ struct ucl_hash_real_iter *it = (struct ucl_hash_real_iter *) (iter);
return it->cur != NULL;
}
-const ucl_object_t*
-ucl_hash_search (ucl_hash_t* hashlin, const char *key, unsigned keylen)
+const ucl_object_t *
+ucl_hash_search(ucl_hash_t *hashlin, const char *key, unsigned keylen)
{
khiter_t k;
const ucl_object_t *ret = NULL;
@@ -370,20 +373,20 @@ ucl_hash_search (ucl_hash_t* hashlin, const char *key, unsigned keylen)
if (hashlin->caseless) {
khash_t(ucl_hash_caseless_node) *h = (khash_t(ucl_hash_caseless_node) *)
- hashlin->hash;
+ hashlin->hash;
- k = kh_get (ucl_hash_caseless_node, h, &search);
- if (k != kh_end (h)) {
- elt = kh_value (h, k);
+ k = kh_get(ucl_hash_caseless_node, h, &search);
+ if (k != kh_end(h)) {
+ elt = kh_value(h, k);
ret = elt->obj;
}
}
else {
khash_t(ucl_hash_node) *h = (khash_t(ucl_hash_node) *)
- hashlin->hash;
- k = kh_get (ucl_hash_node, h, &search);
- if (k != kh_end (h)) {
- elt = kh_value (h, k);
+ hashlin->hash;
+ k = kh_get(ucl_hash_node, h, &search);
+ if (k != kh_end(h)) {
+ elt = kh_value(h, k);
ret = elt->obj;
}
}
@@ -391,8 +394,7 @@ ucl_hash_search (ucl_hash_t* hashlin, const char *key, unsigned keylen)
return ret;
}
-void
-ucl_hash_delete (ucl_hash_t* hashlin, const ucl_object_t *obj)
+void ucl_hash_delete(ucl_hash_t *hashlin, const ucl_object_t *obj)
{
khiter_t k;
struct ucl_hash_elt *elt;
@@ -403,46 +405,46 @@ ucl_hash_delete (ucl_hash_t* hashlin, const ucl_object_t *obj)
if (hashlin->caseless) {
khash_t(ucl_hash_caseless_node) *h = (khash_t(ucl_hash_caseless_node) *)
- hashlin->hash;
+ hashlin->hash;
- k = kh_get (ucl_hash_caseless_node, h, obj);
- if (k != kh_end (h)) {
- elt = kh_value (h, k);
+ k = kh_get(ucl_hash_caseless_node, h, obj);
+ if (k != kh_end(h)) {
+ elt = kh_value(h, k);
DL_DELETE(hashlin->head, elt);
- kh_del (ucl_hash_caseless_node, h, k);
+ kh_del(ucl_hash_caseless_node, h, k);
UCL_FREE(sizeof(*elt), elt);
}
}
else {
khash_t(ucl_hash_node) *h = (khash_t(ucl_hash_node) *)
- hashlin->hash;
- k = kh_get (ucl_hash_node, h, obj);
- if (k != kh_end (h)) {
- elt = kh_value (h, k);
+ hashlin->hash;
+ k = kh_get(ucl_hash_node, h, obj);
+ if (k != kh_end(h)) {
+ elt = kh_value(h, k);
DL_DELETE(hashlin->head, elt);
- kh_del (ucl_hash_node, h, k);
+ kh_del(ucl_hash_node, h, k);
UCL_FREE(sizeof(*elt), elt);
}
}
}
-bool
-ucl_hash_reserve (ucl_hash_t *hashlin, size_t sz)
+bool ucl_hash_reserve(ucl_hash_t *hashlin, size_t sz)
{
if (hashlin == NULL) {
return false;
}
- if (sz > kh_size((khash_t(ucl_hash_node) *)hashlin->hash)) {
+ if (sz > kh_size((khash_t(ucl_hash_node) *) hashlin->hash)) {
if (hashlin->caseless) {
khash_t(ucl_hash_caseless_node) *h = (khash_t(
- ucl_hash_caseless_node) *)
- hashlin->hash;
- kh_resize (ucl_hash_caseless_node, h, sz * 2);
- } else {
+ ucl_hash_caseless_node) *)
+ hashlin->hash;
+ kh_resize(ucl_hash_caseless_node, h, sz * 2);
+ }
+ else {
khash_t(ucl_hash_node) *h = (khash_t(ucl_hash_node) *)
- hashlin->hash;
- kh_resize (ucl_hash_node, h, sz * 2);
+ hashlin->hash;
+ kh_resize(ucl_hash_node, h, sz * 2);
}
}
@@ -450,33 +452,32 @@ ucl_hash_reserve (ucl_hash_t *hashlin, size_t sz)
}
static int
-ucl_hash_cmp_icase (const void *a, const void *b)
+ucl_hash_cmp_icase(const void *a, const void *b)
{
- const struct ucl_hash_elt *oa = (const struct ucl_hash_elt *)a,
- *ob = (const struct ucl_hash_elt *)b;
+ const struct ucl_hash_elt *oa = (const struct ucl_hash_elt *) a,
+ *ob = (const struct ucl_hash_elt *) b;
if (oa->obj->keylen == ob->obj->keylen) {
- return rspamd_lc_cmp (oa->obj->key, ob->obj->key, oa->obj->keylen);
+ return rspamd_lc_cmp(oa->obj->key, ob->obj->key, oa->obj->keylen);
}
- return ((int)(oa->obj->keylen)) - ob->obj->keylen;
+ return ((int) (oa->obj->keylen)) - ob->obj->keylen;
}
static int
-ucl_hash_cmp_case_sens (const void *a, const void *b)
+ucl_hash_cmp_case_sens(const void *a, const void *b)
{
- const struct ucl_hash_elt *oa = (const struct ucl_hash_elt *)a,
- *ob = (const struct ucl_hash_elt *)b;
+ const struct ucl_hash_elt *oa = (const struct ucl_hash_elt *) a,
+ *ob = (const struct ucl_hash_elt *) b;
if (oa->obj->keylen == ob->obj->keylen) {
- return memcmp (oa->obj->key, ob->obj->key, oa->obj->keylen);
+ return memcmp(oa->obj->key, ob->obj->key, oa->obj->keylen);
}
- return ((int)(oa->obj->keylen)) - ob->obj->keylen;
+ return ((int) (oa->obj->keylen)) - ob->obj->keylen;
}
-void
-ucl_hash_sort (ucl_hash_t *hashlin, enum ucl_object_keys_sort_flags fl)
+void ucl_hash_sort(ucl_hash_t *hashlin, enum ucl_object_keys_sort_flags fl)
{
if (fl & UCL_SORT_KEYS_ICASE) {
@@ -489,9 +490,10 @@ ucl_hash_sort (ucl_hash_t *hashlin, enum ucl_object_keys_sort_flags fl)
if (fl & UCL_SORT_KEYS_RECURSIVE) {
struct ucl_hash_elt *elt;
- DL_FOREACH(hashlin->head, elt) {
- if (ucl_object_type (elt->obj) == UCL_OBJECT) {
- ucl_hash_sort (elt->obj->value.ov, fl);
+ DL_FOREACH(hashlin->head, elt)
+ {
+ if (ucl_object_type(elt->obj) == UCL_OBJECT) {
+ ucl_hash_sort(elt->obj->value.ov, fl);
}
}
}