diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-22 11:12:07 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-22 11:12:07 -0200 |
commit | 29ede6aa13144ff7b69c57a87be1ee93f57ae896 (patch) | |
tree | adcfb5dcff7db55481cd675349e23dec0e63c939 /lvm.h | |
parent | 951897c09319ae5474a4b86bb7d615136577caa0 (diff) | |
download | lua-29ede6aa13144ff7b69c57a87be1ee93f57ae896.tar.gz lua-29ede6aa13144ff7b69c57a87be1ee93f57ae896.tar.bz2 lua-29ede6aa13144ff7b69c57a87be1ee93f57ae896.zip |
first implementation of multiple states (reentrant code).
Diffstat (limited to 'lvm.h')
-rw-r--r-- | lvm.h | 26 |
1 files changed, 13 insertions, 13 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.h,v 1.10 1999/10/14 19:46:57 roberto Exp roberto $ | 2 | ** $Id: lvm.h,v 1.11 1999/11/04 17:22:26 roberto Exp roberto $ |
3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -14,21 +14,21 @@ | |||
14 | 14 | ||
15 | 15 | ||
16 | #define tonumber(o) ((ttype(o) != LUA_T_NUMBER) && (luaV_tonumber(o) != 0)) | 16 | #define tonumber(o) ((ttype(o) != LUA_T_NUMBER) && (luaV_tonumber(o) != 0)) |
17 | #define tostring(o) ((ttype(o) != LUA_T_STRING) && (luaV_tostring(o) != 0)) | 17 | #define tostring(L, o) ((ttype(o) != LUA_T_STRING) && (luaV_tostring(L, o) != 0)) |
18 | 18 | ||
19 | 19 | ||
20 | void luaV_pack (StkId firstel, int nvararg, TObject *tab); | 20 | void luaV_pack (lua_State *L, StkId firstel, int nvararg, TObject *tab); |
21 | int luaV_tonumber (TObject *obj); | 21 | int luaV_tonumber (TObject *obj); |
22 | int luaV_tostring (TObject *obj); | 22 | int luaV_tostring (lua_State *L, TObject *obj); |
23 | void luaV_setn (Hash *t, int val); | 23 | void luaV_setn (lua_State *L, Hash *t, int val); |
24 | void luaV_gettable (void); | 24 | void luaV_gettable (lua_State *L); |
25 | void luaV_settable (const TObject *t); | 25 | void luaV_settable (lua_State *L, const TObject *t); |
26 | void luaV_rawsettable (const TObject *t); | 26 | void luaV_rawsettable (lua_State *L, const TObject *t); |
27 | void luaV_getglobal (GlobalVar *gv); | 27 | void luaV_getglobal (lua_State *L, GlobalVar *gv); |
28 | void luaV_setglobal (GlobalVar *gv); | 28 | void luaV_setglobal (lua_State *L, GlobalVar *gv); |
29 | StkId luaV_execute (const Closure *cl, const TProtoFunc *tf, StkId base); | 29 | StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, StkId base); |
30 | void luaV_closure (int nelems); | 30 | void luaV_closure (lua_State *L, int nelems); |
31 | void luaV_comparison (lua_Type ttype_less, lua_Type ttype_equal, | 31 | void luaV_comparison (lua_State *L, lua_Type ttype_less, lua_Type ttype_equal, |
32 | lua_Type ttype_great, IMS op); | 32 | lua_Type ttype_great, IMS op); |
33 | 33 | ||
34 | #endif | 34 | #endif |