Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

  1. /*
  2. ** $Id: ltm.h,v 2.10 2010/04/13 20:48:12 roberto Exp $
  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"
  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_DIV,
  29.   TM_MOD,
  30.   TM_POW,
  31.   TM_UNM,
  32.   TM_LT,
  33.   TM_LE,
  34.   TM_CONCAT,
  35.   TM_CALL,
  36.   TM_N          /* number of elements in the enum */
  37. } TMS;
  38.  
  39.  
  40.  
  41. #define gfasttm(g,et,e) ((et) == NULL ? NULL : \
  42.   ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e]))
  43.  
  44. #define fasttm(l,et,e)  gfasttm(G(l), et, e)
  45.  
  46. #define ttypename(x)    luaT_typenames_[(x) + 1]
  47. #define objtypename(x)  ttypename(ttypenv(x))
  48.  
  49. LUAI_DDEC const char *const luaT_typenames_[];
  50.  
  51.  
  52. LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);
  53. LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,
  54.                                                        TMS event);
  55. LUAI_FUNC void luaT_init (lua_State *L);
  56.  
  57. #endif
  58.