RepoMirrors/haproxy
1
0
Fork 0
mirror of http://git.haproxy.org/git/haproxy.git/ synced 2025-02-01 11:01:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

MINOR: lua: identify userdata objects

Browse Source 
This patch adds lua primitives for identifying lua class
associated with userdata.
This commit is contained in:
Thierry FOURNIER 2015-09-18 07:35:06 +02:00 committed by Willy Tarreau
parent a7b536b53b
commit d2a3dcc8bd
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/hlua.c
View File

@ -254,6 +254,13 @@ __LJMP static inline void hlua_class_function(lua_State *L, const char *name,
lua_settable(L, -3);
}
__LJMP static int hlua_dump_object(struct lua_State *L)
{
const char *name = (const char *)lua_tostring(L, lua_upvalueindex(1));
lua_pushfstring(L, "HAProxy class %s", name);
return 1;
}
/* This function check the number of arguments available in the
* stack. If the number of arguments available is not the same
* then <nb> an error is throwed.
@ -4917,6 +4924,12 @@ void hlua_init(void)
/* Create and fill the metatable. */
lua_newtable(gL.T);
/* Create the __tostring identifier */
lua_pushstring(gL.T, "__tostring");
lua_pushstring(gL.T, CLASS_MAP);
lua_pushcclosure(gL.T, hlua_dump_object, 1);
lua_rawset(gL.T, -3);
/* Create and fille the __index entry. */
lua_pushstring(gL.T, "__index");
lua_newtable(gL.T);
@ -4948,6 +4961,12 @@ void hlua_init(void)
/* Create and fill the metatable. */
lua_newtable(gL.T);
/* Create the __tostring identifier */
lua_pushstring(gL.T, "__tostring");
lua_pushstring(gL.T, CLASS_CHANNEL);
lua_pushcclosure(gL.T, hlua_dump_object, 1);
lua_rawset(gL.T, -3);
/* Create and fille the __index entry. */
lua_pushstring(gL.T, "__index");
lua_newtable(gL.T);
@ -4979,6 +4998,12 @@ void hlua_init(void)
/* Create and fill the metatable. */
lua_newtable(gL.T);
/* Create the __tostring identifier */
lua_pushstring(gL.T, "__tostring");
lua_pushstring(gL.T, CLASS_FETCHES);
lua_pushcclosure(gL.T, hlua_dump_object, 1);
lua_rawset(gL.T, -3);
/* Create and fille the __index entry. */
lua_pushstring(gL.T, "__index");
lua_newtable(gL.T);
@ -5029,6 +5054,12 @@ void hlua_init(void)
/* Create and fill the metatable. */
lua_newtable(gL.T);
/* Create the __tostring identifier */
lua_pushstring(gL.T, "__tostring");
lua_pushstring(gL.T, CLASS_CONVERTERS);
lua_pushcclosure(gL.T, hlua_dump_object, 1);
lua_rawset(gL.T, -3);
/* Create and fill the __index entry. */
lua_pushstring(gL.T, "__index");
lua_newtable(gL.T);
@ -5076,6 +5107,12 @@ void hlua_init(void)
/* Create and fill the metatable. */
lua_newtable(gL.T);
/* Create the __tostring identifier */
lua_pushstring(gL.T, "__tostring");
lua_pushstring(gL.T, CLASS_HTTP);
lua_pushcclosure(gL.T, hlua_dump_object, 1);
lua_rawset(gL.T, -3);
/* Create and fille the __index entry. */
lua_pushstring(gL.T, "__index");
lua_newtable(gL.T);
@ -5116,6 +5153,12 @@ void hlua_init(void)
/* Create and fill the metatable. */
lua_newtable(gL.T);
/* Create the __tostring identifier */
lua_pushstring(gL.T, "__tostring");
lua_pushstring(gL.T, CLASS_TXN);
lua_pushcclosure(gL.T, hlua_dump_object, 1);
lua_rawset(gL.T, -3);
/* Create and fille the __index entry. */
lua_pushstring(gL.T, "__index");
lua_newtable(gL.T);
@ -5152,6 +5195,12 @@ void hlua_init(void)
/* Create and fill the metatable. */
lua_newtable(gL.T);
/* Create the __tostring identifier */
lua_pushstring(gL.T, "__tostring");
lua_pushstring(gL.T, CLASS_SOCKET);
lua_pushcclosure(gL.T, hlua_dump_object, 1);
lua_rawset(gL.T, -3);
/* Create and fille the __index entry. */
lua_pushstring(gL.T, "__index");
lua_newtable(gL.T);