Mercurial > vba-clojure
diff src/lua/lvm.h @ 11:27763b933818
raise lua sources up one level
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 03 Mar 2012 11:07:39 -0600 |
parents | src/lua/src/lvm.h@f9f4f1b99eed |
children |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/src/lua/lvm.h Sat Mar 03 11:07:39 2012 -0600 1.3 @@ -0,0 +1,36 @@ 1.4 +/* 1.5 +** $Id: lvm.h,v 2.5.1.1 2007/12/27 13:02:25 roberto Exp $ 1.6 +** Lua virtual machine 1.7 +** See Copyright Notice in lua.h 1.8 +*/ 1.9 + 1.10 +#ifndef lvm_h 1.11 +#define lvm_h 1.12 + 1.13 + 1.14 +#include "ldo.h" 1.15 +#include "lobject.h" 1.16 +#include "ltm.h" 1.17 + 1.18 + 1.19 +#define tostring(L,o) ((ttype(o) == LUA_TSTRING) || (luaV_tostring(L, o))) 1.20 + 1.21 +#define tonumber(o,n) (ttype(o) == LUA_TNUMBER || \ 1.22 + (((o) = luaV_tonumber(o,n)) != NULL)) 1.23 + 1.24 +#define equalobj(L,o1,o2) \ 1.25 + (ttype(o1) == ttype(o2) && luaV_equalval(L, o1, o2)) 1.26 + 1.27 + 1.28 +LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r); 1.29 +LUAI_FUNC int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2); 1.30 +LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n); 1.31 +LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj); 1.32 +LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key, 1.33 + StkId val); 1.34 +LUAI_FUNC void luaV_settable (lua_State *L, const TValue *t, TValue *key, 1.35 + StkId val); 1.36 +LUAI_FUNC void luaV_execute (lua_State *L, int nexeccalls); 1.37 +LUAI_FUNC void luaV_concat (lua_State *L, int total, int last); 1.38 + 1.39 +#endif