diff options
author | Remko Tronçon <git@el-tramo.be> | 2011-02-23 21:12:18 (GMT) |
---|---|---|
committer | Remko Tronçon <git@el-tramo.be> | 2011-02-24 18:14:46 (GMT) |
commit | 442420335b9533b2a43c6e3f09758a94af045a84 (patch) | |
tree | 3fa350e115340f7db4dfbf1a4aa5845bf4a724c5 /3rdParty/Lua/src/ltm.c | |
parent | f0142e0ea71a1f89b8c46ab6bde7e188c0bc79f4 (diff) | |
download | swift-contrib-442420335b9533b2a43c6e3f09758a94af045a84.zip swift-contrib-442420335b9533b2a43c6e3f09758a94af045a84.tar.bz2 |
Added initial version of Sluift.
Diffstat (limited to '3rdParty/Lua/src/ltm.c')
-rw-r--r-- | 3rdParty/Lua/src/ltm.c | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/3rdParty/Lua/src/ltm.c b/3rdParty/Lua/src/ltm.c new file mode 100644 index 0000000..c27f0f6 --- /dev/null +++ b/3rdParty/Lua/src/ltm.c @@ -0,0 +1,75 @@ +/* +** $Id: ltm.c,v 2.8.1.1 2007/12/27 13:02:25 roberto Exp $ +** Tag methods +** See Copyright Notice in lua.h +*/ + + +#include <string.h> + +#define ltm_c +#define LUA_CORE + +#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", + "proto", "upval" +}; + + +void luaT_init (lua_State *L) { + static const char *const luaT_eventname[] = { /* ORDER TM */ + "__index", "__newindex", + "__gc", "__mode", "__eq", + "__add", "__sub", "__mul", "__div", "__mod", + "__pow", "__unm", "__len", "__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 TValue *luaT_gettm (Table *events, TMS event, TString *ename) { + const TValue *tm = luaH_getstr(events, ename); + lua_assert(event <= TM_EQ); + if (ttisnil(tm)) { /* no tag method? */ + events->flags |= cast_byte(1u<<event); /* cache this fact */ + return NULL; + } + else return tm; +} + + +const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, TMS event) { + Table *mt; + switch (ttype(o)) { + case LUA_TTABLE: + mt = hvalue(o)->metatable; + break; + case LUA_TUSERDATA: + mt = uvalue(o)->metatable; + break; + default: + mt = G(L)->mt[ttype(o)]; + } + return (mt ? luaH_getstr(mt, G(L)->tmname[event]) : luaO_nilobject); +} + |