C:\JS_KRESREAL\HBP_konverzia\lua\ltm.h C:\JS_LUA\lua-5.2.0\src\ltm.h
/* /*
** $Id: ltm.h,v 2.11 2011/02/28 17:32:10 roberto Exp $ ** $Id: ltm.h,v 2.11 2011/02/28 17:32:10 roberto Exp $
** Tag methods ** Tag methods
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/  */ 
   
#ifndef ltm_h #ifndef ltm_h
#define ltm_h #define ltm_h
   
   
#include "lobject.h" #include "lobject.h"
   
   
/* /*
* WARNING: if you change the order of this enumeration, * WARNING: if you change the order of this enumeration,
* grep "ORDER TM" * grep "ORDER TM"
*/  */ 
typedef enum { typedef enum {
 TM_INDEX,  TM_INDEX,
 TM_NEWINDEX,  TM_NEWINDEX,
 TM_GC,  TM_GC,
 TM_MODE,  TM_MODE,
 TM_LEN,  TM_LEN,
 TM_EQ,  /* last tag method with `fast' access */   TM_EQ,  /* last tag method with `fast' access */ 
 TM_ADD,  TM_ADD,
 TM_SUB,  TM_SUB,
 TM_MUL,  TM_MUL,
 TM_DIV,  TM_DIV,
 TM_MOD,  TM_MOD,
 TM_POW,  TM_POW,
#ifdef GCW_BIT  
 TM_BAND,  
 TM_BOR,  
 TM_BXOR,  
 TM_BLSH,  
 TM_BRSH,  
 TM_LAND,  
 TM_LOR,  
 TM_BNOT,  
 TM_LNOT,  
#endif  
 TM_UNM,  TM_UNM,
 TM_LT,  TM_LT,
 TM_LE,  TM_LE,
 TM_CONCAT,  TM_CONCAT,
 TM_CALL,  TM_CALL,
 TM_N        /* number of elements in the enum */   TM_N        /* number of elements in the enum */ 
} TMS; } TMS;
   
   
   
#define gfasttm(g,et,e) ((et) == NULL ? NULL : \ #define gfasttm(g,et,e) ((et) == NULL ? NULL : \
 ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))  ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))
   
#define fasttm(l,et,e)  gfasttm(G(l), et, e) #define fasttm(l,et,e)  gfasttm(G(l), et, e)
   
#define ttypename(x)    luaT_typenames_[(x) + 1] #define ttypename(x)    luaT_typenames_[(x) + 1]
#define objtypename(x)  ttypename(ttypenv(x)) #define objtypename(x)  ttypename(ttypenv(x))
   
LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS]; LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS];
   
   
LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);
LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
                                                      TMS event);                                                       TMS event);
LUAI_FUNC void luaT_init (lua_State *L); LUAI_FUNC void luaT_init (lua_State *L);
   
#endif #endif