#include "config.h"

#include "PluginAPI.h"

#include "Process.h"

#ifdef HAVE_LUA

/*{

#include <lua.h>

#include <lualib.h>

#include <lauxlib.h>

#define check_field(_name, _type, _err) \

do { \

int typ = lua_getfield(L, 1, _name); \

if (typ != _type) { \

lua_settop(L, 0); \

lua_pushnil(L); \

lua_pushliteral(L, _err); \

return 2; \

} \

lua_pop(L, 1); \

} while(0)

#define assign_string(_var, _idx, _field) \

do { \

lua_getfield(L, _idx, _field); \

_var = xStrdup(lua_tostring(L, -1)); \

lua_pop(L, 1); \

} while(0)

}*/

int PluginAPI_newColumn(lua_State* L) {

luaL_checktype(L, 1, LUA_TTABLE);

check_field("name", LUA_TSTRING, "expected 'name' field of type string");

check_field("description", LUA_TSTRING, "expected 'description' field of type string");

check_field("header", LUA_TSTRING, "expected 'header' field of type string");

check_field("format", LUA_TSTRING, "expected 'format' field of type string");

check_field("run", LUA_TFUNCTION, "expected 'run' field of type function");

lua_getfield(L, LUA_REGISTRYINDEX, "htop_columns");

lua_len(L, -1);

int len = lua_tonumber(L, -1);

lua_pop(L, 1);

ProcessFieldData* pfd = lua_newuserdata(L, sizeof(ProcessFieldData));

assign_string(pfd->name, 1, "name");

assign_string(pfd->description, 1, "description");

assign_string(pfd->title, 1, "header");

assign_string(pfd->format, 1, "format");

lua_seti(L, -2, len + 1);

lua_settop(L, 0);

lua_pushboolean(L, 1);

return 1;

}

static luaL_Reg PluginAPI_functions[] = {

{ .name = "new_column", .func = PluginAPI_newColumn },

{ .name = NULL, .func = NULL },

};

int PluginAPI_new(lua_State* L) {

lua_settop(L, 0);

lua_newtable(L);

lua_setfield(L, LUA_REGISTRYINDEX, "htop_columns");

lua_newtable(L);

luaL_setfuncs(L, PluginAPI_functions, 0);

return 1;

}

#endif