external/mit/lua/dist/src/lvm.h

   1 /*      $NetBSD: lvm.h,v 1.5 2015/10/08 13:40:16 mbalmer Exp $  */
   2
   3 /*
   4 ** Id: lvm.h,v 2.35 2015/02/20 14:27:53 roberto Exp
   5 ** Lua virtual machine
   6 ** See Copyright Notice in lua.h
   7 */
   8
   9 #ifndef lvm_h
  10 #define lvm_h
  11
  12
  13 #include "ldo.h"
  14 #include "lobject.h"
  15 #include "ltm.h"
  16
  17
  18 #if !defined(LUA_NOCVTN2S)
  19 #define cvt2str(o)      ttisnumber(o)
  20 #else
  21 #define cvt2str(o)      0       /* no conversion from numbers to strings */
  22 #endif
  23
  24
  25 #if !defined(LUA_NOCVTS2N)
  26 #define cvt2num(o)      ttisstring(o)
  27 #else
  28 #define cvt2num(o)      0       /* no conversion from strings to numbers */
  29 #endif
  30
  31
  32 /*
  33 ** You can define LUA_FLOORN2I if you want to convert floats to integers
  34 ** by flooring them (instead of raising an error if they are not
  35 ** integral values)
  36 */
  37 #if !defined(LUA_FLOORN2I)
  38 #define LUA_FLOORN2I            0
  39 #endif
  40
  41
  42 #ifndef _KERNEL
  43 #define tonumber(o,n) \
  44         (ttisfloat(o) ? (*(n) = fltvalue(o), 1) : luaV_tonumber_(o,n))
  45 #else /* _KERNEL */
  46 #define tonumber       tointeger
  47 #endif
  48
  49 #define tointeger(o,i) \
  50     (ttisinteger(o) ? (*(i) = ivalue(o), 1) : luaV_tointeger(o,i,LUA_FLOORN2I))
  51
  52 #define intop(op,v1,v2) l_castU2S(l_castS2U(v1) op l_castS2U(v2))
  53
  54 #define luaV_rawequalobj(t1,t2)         luaV_equalobj(NULL,t1,t2)
  55
  56
  57 LUAI_FUNC int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2);
  58 LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r);
  59 LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r);
  60 LUAI_FUNC int luaV_tonumber_ (const TValue *obj, lua_Number *n);
  61 LUAI_FUNC int luaV_tointeger (const TValue *obj, lua_Integer *p, int mode);
  62 LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key,
  63                                             StkId val);
  64 LUAI_FUNC void luaV_settable (lua_State *L, const TValue *t, TValue *key,
  65                                             StkId val);
  66 LUAI_FUNC void luaV_finishOp (lua_State *L);
  67 LUAI_FUNC void luaV_execute (lua_State *L);
  68 LUAI_FUNC void luaV_concat (lua_State *L, int total);
  69 LUAI_FUNC lua_Integer luaV_div (lua_State *L, lua_Integer x, lua_Integer y);
  70 LUAI_FUNC lua_Integer luaV_mod (lua_State *L, lua_Integer x, lua_Integer y);
  71 LUAI_FUNC lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y);
  72 LUAI_FUNC void luaV_objlen (lua_State *L, StkId ra, const TValue *rb);
  73
  74 #endif