diff options
author | Robert Pösel <robyer@seznam.cz> | 2013-10-29 22:16:11 +0000 |
---|---|---|
committer | Robert Pösel <robyer@seznam.cz> | 2013-10-29 22:16:11 +0000 |
commit | cefd567c318f33992d7caf5ad1cadcc72c237de2 (patch) | |
tree | d9ba2d4c2482bb9a6cb26b79f68b5ea603f97828 /plugins/!NotAdopted/SmartAutoReplier/lualib/ltm.c | |
parent | 345930435561acd026c9356f01065e7ee0e92101 (diff) |
Cleanup !NotAdopted folder
git-svn-id: http://svn.miranda-ng.org/main/trunk@6694 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/!NotAdopted/SmartAutoReplier/lualib/ltm.c')
-rw-r--r-- | plugins/!NotAdopted/SmartAutoReplier/lualib/ltm.c | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/plugins/!NotAdopted/SmartAutoReplier/lualib/ltm.c b/plugins/!NotAdopted/SmartAutoReplier/lualib/ltm.c deleted file mode 100644 index 1b3e515e57..0000000000 --- a/plugins/!NotAdopted/SmartAutoReplier/lualib/ltm.c +++ /dev/null @@ -1,70 +0,0 @@ -/* -** $Id: ltm.c,v 1.106 2003/04/03 13:35:34 roberto Exp $ -** Tag methods -** See Copyright Notice in lua.h -*/ - - -#include <string.h> - -#define ltm_c - -#include "lua.h" - -#include "lobject.h" -#include "lstate.h" -#include "lstring.h" -#include "ltable.h" -#include "ltm.h" - - - -const char *const luaT_typenames[] = { - "nil", "boolean", "userdata", "number", - "string", "table", "function", "userdata", "thread" -}; - - -void luaT_init (lua_State *L) { - static const char *const luaT_eventname[] = { /* ORDER TM */ - "__index", "__newindex", - "__gc", "__mode", "__eq", - "__add", "__sub", "__mul", "__div", - "__pow", "__unm", "__lt", "__le", - "__concat", "__call" - }; - int i; - for (i=0; i<TM_N; i++) { - G(L)->tmname[i] = luaS_new(L, luaT_eventname[i]); - luaS_fix(G(L)->tmname[i]); /* never collect these names */ - } -} - - -/* -** function to be used with macro "fasttm": optimized for absence of -** tag methods -*/ -const TObject *luaT_gettm (Table *events, TMS event, TString *ename) { - const TObject *tm = luaH_getstr(events, ename); - lua_assert(event <= TM_EQ); - if (ttisnil(tm)) { /* no tag method? */ - events->flags |= cast(lu_byte, 1u<<event); /* cache this fact */ - return NULL; - } - else return tm; -} - - -const TObject *luaT_gettmbyobj (lua_State *L, const TObject *o, TMS event) { - TString *ename = G(L)->tmname[event]; - switch (ttype(o)) { - case LUA_TTABLE: - return luaH_getstr(hvalue(o)->metatable, ename); - case LUA_TUSERDATA: - return luaH_getstr(uvalue(o)->uv.metatable, ename); - default: - return &luaO_nilobject; - } -} - |