prosody: util-src/table.c@d278a770eddc (annotated)

6613 7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	1	#include <lua.h>
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	2	#include <lauxlib.h>
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	3
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	4	static int Lcreate_table(lua_State* L) {
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	5	lua_createtable(L, luaL_checkinteger(L, 1), luaL_checkinteger(L, 2));
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	6	return 1;
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	7	}
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	8
7522 d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	9	static int Lpack(lua_State* L) {
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	10	unsigned int n_args = lua_gettop(L);
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	11	lua_createtable(L, n_args, 1);
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	12	lua_insert(L, 1);
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	13	for(int arg = n_args; arg >= 1; arg--) {
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	14	lua_rawseti(L, 1, arg);
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	15	}
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	16	lua_pushinteger(L, n_args);
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	17	lua_setfield(L, -2, "n");
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	18	return 1;
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	19	}
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	20
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	21
6618 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6613 diff changeset	22	int luaopen_util_table(lua_State* L) {
6613 7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	23	lua_newtable(L);
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	24	lua_pushcfunction(L, Lcreate_table);
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	25	lua_setfield(L, -2, "create");
7522 d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	26	lua_pushcfunction(L, Lpack);
d278a770eddc util.table: Add pack() function (this is already available in Lua 5.2+) Matthew Wild <mwild1@gmail.com> parents: 6618 diff changeset	27	lua_setfield(L, -2, "pack");
6613 7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	28	return 1;
7c4cf87f4dff util.table, Makefile: New C module that allows pre-allocation of tables to improve performance and decrease memory fragmentation Matthew Wild <mwild1@gmail.com> parents: diff changeset	29	}

author	Matthew Wild <mwild1@gmail.com>
	Wed, 27 Jul 2016 13:39:19 +0100
changeset 7522	d278a770eddc
parent 6618	8e4572a642cb
child 7541	a3a4ed0d34f4
permissions	-rw-r--r--