Mercurial > vba-clojure

     1 /*

     2 ** $Id: ltm.h,v 2.6.1.1 2007/12/27 13:02:25 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_EQ,  /* last tag method with `fast' access */

    24   TM_ADD,

    25   TM_SUB,

    26   TM_MUL,

    27   TM_DIV,

    28   TM_MOD,

    29   TM_POW,

    30   TM_UNM,

    31   TM_LEN,

    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 LUAI_DATA const char *const luaT_typenames[];

    47 

    48 

    49 LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename);

    50 LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o,

    51                                                        TMS event);

    52 LUAI_FUNC void luaT_init (lua_State *L);

    53 

    54 #endif
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 01 Sep 2012 13:32:19 -0500
parents	27763b933818
children