nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new function `lua_replace'

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-02-05 20:35:58 -02:00
parent f856fdeabd
commit 0a87d9d334
2 changed files with 14 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
lapi.c
View File

@@ -137,6 +137,15 @@ LUA_API void lua_insert (lua_State *L, int index) {
}
LUA_API void lua_replace (lua_State *L, int index) {
lua_lock(L);
api_checknelems(L, 1);
setobj(luaA_index(L, index), L->top - 1);
L->top--;
lua_unlock(L);
}
LUA_API void lua_pushvalue (lua_State *L, int index) {
lua_lock(L);
setobj(L->top, luaA_index(L, index));
@@ -172,7 +181,7 @@ LUA_API int lua_iscfunction (lua_State *L, int index) {
LUA_API int lua_isnumber (lua_State *L, int index) {
TObject n;
TObject *o = luaA_indexAcceptable(L, index);
return (o != NULL && (ttype(o) == LUA_TNUMBER || luaV_tonumber(o, &n)));
return (o != NULL && luaV_tonumber(o, &n));
}
@@ -213,8 +222,7 @@ LUA_API int lua_lessthan (lua_State *L, int index1, int index2) {
LUA_API lua_Number lua_tonumber (lua_State *L, int index) {
TObject n;
const TObject *o = luaA_indexAcceptable(L, index);
if (o != NULL &&
(ttype(o) == LUA_TNUMBER || (o = luaV_tonumber(o, &n)) != NULL))
if (o != NULL && (o = luaV_tonumber(o, &n)) != NULL)
return nvalue(o);
else
return 0;
@@ -477,17 +485,6 @@ LUA_API void lua_rawseti (lua_State *L, int index, int n) {
}
LUA_API void lua_setglobals (lua_State *L) {
StkId newtable;
lua_lock(L);
api_checknelems(L, 1);
newtable = --L->top;
api_check(L, ttype(newtable) == LUA_TTABLE);
setobj(gt(L), newtable);
lua_unlock(L);
}
LUA_API void lua_setmetatable (lua_State *L, int objindex) {
StkId obj, mt;
lua_lock(L);