ceph/src/civetweb/src/third_party/lua-5.3.1/src/lvm.h

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