lua

A copy of the Lua development repository
Log | Files | Refs | README

ltm.h (3014B)


      1 /*
      2 ** $Id: ltm.h $
      3 ** Tag methods
      4 ** See Copyright Notice in lua.h
      5 */
      6 
      7 #ifndef ltm_h
      8 #define ltm_h
      9 
     10 
     11 #include "lobject.h"
     12 
     13 
     14 /*
     15 * WARNING: if you change the order of this enumeration,
     16 * grep "ORDER TM" and "ORDER OP"
     17 */
     18 typedef enum {
     19   TM_INDEX,
     20   TM_NEWINDEX,
     21   TM_GC,
     22   TM_MODE,
     23   TM_LEN,
     24   TM_EQ,  /* last tag method with fast access */
     25   TM_ADD,
     26   TM_SUB,
     27   TM_MUL,
     28   TM_MOD,
     29   TM_POW,
     30   TM_DIV,
     31   TM_IDIV,
     32   TM_BAND,
     33   TM_BOR,
     34   TM_BXOR,
     35   TM_SHL,
     36   TM_SHR,
     37   TM_UNM,
     38   TM_BNOT,
     39   TM_LT,
     40   TM_LE,
     41   TM_CONCAT,
     42   TM_CALL,
     43   TM_CLOSE,
     44   TM_N		/* number of elements in the enum */
     45 } TMS;
     46 
     47 
     48 /*
     49 ** Mask with 1 in all fast-access methods. A 1 in any of these bits
     50 ** in the flag of a (meta)table means the metatable does not have the
     51 ** corresponding metamethod field. (Bit 6 of the flag indicates that
     52 ** the table is using the dummy node; bit 7 is used for 'isrealasize'.)
     53 */
     54 #define maskflags	cast_byte(~(~0u << (TM_EQ + 1)))
     55 
     56 
     57 /*
     58 ** Test whether there is no tagmethod.
     59 ** (Because tagmethods use raw accesses, the result may be an "empty" nil.)
     60 */
     61 #define notm(tm)	ttisnil(tm)
     62 
     63 #define checknoTM(mt,e)	((mt) == NULL || (mt)->flags & (1u<<(e)))
     64 
     65 #define gfasttm(g,mt,e)  \
     66   (checknoTM(mt, e) ? NULL : luaT_gettm(mt, e, (g)->tmname[e]))
     67 
     68 #define fasttm(l,mt,e)	gfasttm(G(l), mt, e)
     69 
     70 #define ttypename(x)	luaT_typenames_[(x) + 1]
     71 
     72 LUAI_DDEC(const char *const luaT_typenames_[LUA_TOTALTYPES];)
     73 
     74 
     75 LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o);
     76 
     77 LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);
     78 LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
     79                                                        TMS event);
     80 LUAI_FUNC void luaT_init (lua_State *L);
     81 
     82 LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1,
     83                             const TValue *p2, const TValue *p3);
     84 LUAI_FUNC lu_byte luaT_callTMres (lua_State *L, const TValue *f,
     85                                const TValue *p1, const TValue *p2, StkId p3);
     86 LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2,
     87                               StkId res, TMS event);
     88 LUAI_FUNC void luaT_tryconcatTM (lua_State *L);
     89 LUAI_FUNC void luaT_trybinassocTM (lua_State *L, const TValue *p1,
     90        const TValue *p2, int inv, StkId res, TMS event);
     91 LUAI_FUNC void luaT_trybiniTM (lua_State *L, const TValue *p1, lua_Integer i2,
     92                                int inv, StkId res, TMS event);
     93 LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1,
     94                                 const TValue *p2, TMS event);
     95 LUAI_FUNC int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2,
     96                                  int inv, int isfloat, TMS event);
     97 
     98 LUAI_FUNC void luaT_adjustvarargs (lua_State *L, int nfixparams,
     99                                    struct CallInfo *ci, const Proto *p);
    100 LUAI_FUNC void luaT_getvarargs (lua_State *L, struct CallInfo *ci,
    101                                               StkId where, int wanted);
    102 
    103 
    104 #endif