rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

details (smaller code)

This commit is contained in:
Roberto Ierusalimschy 2001-02-13 14:17:53 -02:00
parent b3da4ee907
commit a4ae1475e3
1 changed files with 28 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
lapi.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.127 2001/02/09 19:53:16 roberto Exp roberto $ ** $Id: lapi.c,v 1.128 2001/02/12 15:42:44 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -31,33 +31,35 @@ const char lua_ident[] = "$Lua: " LUA_VERSION " " LUA_COPYRIGHT " $\n"
#define api_check(L, o) /* nothing */ #define api_check(L, o) /* nothing */
#endif #endif
/* valid indices */
#define api_checkindex(L, i) \
api_check(L, (0 < abs(i)) && abs(i) <= (L->top - L->Cbase))
#define api_checknelems(L, n) api_check(L, (n) <= (L->top - L->Cbase)) #define api_checknelems(L, n) api_check(L, (n) <= (L->top - L->Cbase))
#define Index(L,i) ((i) >= 0 ? (L->Cbase+((i)-1)) : (L->top+(i)))
#define api_incr_top(L) incr_top #define api_incr_top(L) incr_top
TObject *luaA_index (lua_State *L, int index) { TObject *luaA_index (lua_State *L, int index) {
return Index(L, index); if (index > 0) {
api_check(L, index <= L->top - L->Cbase);
return L->Cbase+index-1;
}
else {
api_check(L, index != 0 && -index <= L->top - L->Cbase);
return L->top+index;
}
} }
static TObject *luaA_indexAcceptable (lua_State *L, int index) { static TObject *luaA_indexAcceptable (lua_State *L, int index) {
api_check(L, (0 < abs(index)) && abs(index) <= (L->stack_last - L->Cbase)); if (index > 0) {
if (index >= 0) {
TObject *o = L->Cbase+(index-1); TObject *o = L->Cbase+(index-1);
api_check(L, index <= L->stack_last - L->Cbase);
if (o >= L->top) return NULL; if (o >= L->top) return NULL;
else return o; else return o;
} }
else return L->top+index; else {
api_check(L, index != 0 && -index <= L->top - L->Cbase);
return L->top+index;
}
} }
@ -105,8 +107,7 @@ LUA_API void lua_settop (lua_State *L, int index) {
LUA_API void lua_remove (lua_State *L, int index) { LUA_API void lua_remove (lua_State *L, int index) {
StkId p; StkId p;
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); p = luaA_index(L, index);
p = Index(L, index);
while (++p < L->top) setobj(p-1, p); while (++p < L->top) setobj(p-1, p);
L->top--; L->top--;
LUA_UNLOCK(L); LUA_UNLOCK(L);
@ -117,8 +118,7 @@ LUA_API void lua_insert (lua_State *L, int index) {
StkId p; StkId p;
StkId q; StkId q;
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); p = luaA_index(L, index);
p = Index(L, index);
for (q = L->top; q>p; q--) setobj(q, q-1); for (q = L->top; q>p; q--) setobj(q, q-1);
setobj(p, L->top); setobj(p, L->top);
LUA_UNLOCK(L); LUA_UNLOCK(L);
@ -127,8 +127,7 @@ LUA_API void lua_insert (lua_State *L, int index) {
LUA_API void lua_pushvalue (lua_State *L, int index) { LUA_API void lua_pushvalue (lua_State *L, int index) {
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); setobj(L->top, luaA_index(L, index));
setobj(L->top, Index(L, index));
api_incr_top(L); api_incr_top(L);
LUA_UNLOCK(L); LUA_UNLOCK(L);
} }
@ -381,8 +380,7 @@ LUA_API void lua_getglobal (lua_State *L, const char *name) {
LUA_API void lua_gettable (lua_State *L, int index) { LUA_API void lua_gettable (lua_State *L, int index) {
StkId t; StkId t;
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); t = luaA_index(L, index);
t = Index(L, index);
luaV_gettable(L, t, L->top-1, L->top-1); luaV_gettable(L, t, L->top-1, L->top-1);
LUA_UNLOCK(L); LUA_UNLOCK(L);
} }
@ -391,8 +389,7 @@ LUA_API void lua_gettable (lua_State *L, int index) {
LUA_API void lua_rawget (lua_State *L, int index) { LUA_API void lua_rawget (lua_State *L, int index) {
StkId t; StkId t;
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); t = luaA_index(L, index);
t = Index(L, index);
api_check(L, ttype(t) == LUA_TTABLE); api_check(L, ttype(t) == LUA_TTABLE);
setobj(L->top - 1, luaH_get(hvalue(t), L->top - 1)); setobj(L->top - 1, luaH_get(hvalue(t), L->top - 1));
LUA_UNLOCK(L); LUA_UNLOCK(L);
@ -402,8 +399,7 @@ LUA_API void lua_rawget (lua_State *L, int index) {
LUA_API void lua_rawgeti (lua_State *L, int index, int n) { LUA_API void lua_rawgeti (lua_State *L, int index, int n) {
StkId o; StkId o;
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); o = luaA_index(L, index);
o = Index(L, index);
api_check(L, ttype(o) == LUA_TTABLE); api_check(L, ttype(o) == LUA_TTABLE);
setobj(L->top, luaH_getnum(hvalue(o), n)); setobj(L->top, luaH_getnum(hvalue(o), n));
api_incr_top(L); api_incr_top(L);
@ -467,8 +463,7 @@ LUA_API void lua_settable (lua_State *L, int index) {
StkId t; StkId t;
LUA_LOCK(L); LUA_LOCK(L);
api_checknelems(L, 2); api_checknelems(L, 2);
api_checkindex(L, index); t = luaA_index(L, index);
t = Index(L, index);
luaV_settable(L, t, L->top - 2, L->top - 1); luaV_settable(L, t, L->top - 2, L->top - 1);
L->top -= 2; /* pop index and value */ L->top -= 2; /* pop index and value */
LUA_UNLOCK(L); LUA_UNLOCK(L);
@ -479,8 +474,7 @@ LUA_API void lua_rawset (lua_State *L, int index) {
StkId t; StkId t;
LUA_LOCK(L); LUA_LOCK(L);
api_checknelems(L, 2); api_checknelems(L, 2);
api_checkindex(L, index); t = luaA_index(L, index);
t = Index(L, index);
api_check(L, ttype(t) == LUA_TTABLE); api_check(L, ttype(t) == LUA_TTABLE);
setobj(luaH_set(L, hvalue(t), L->top-2), (L->top-1)); setobj(luaH_set(L, hvalue(t), L->top-2), (L->top-1));
L->top -= 2; L->top -= 2;
@ -492,8 +486,7 @@ LUA_API void lua_rawseti (lua_State *L, int index, int n) {
StkId o; StkId o;
LUA_LOCK(L); LUA_LOCK(L);
api_checknelems(L, 1); api_checknelems(L, 1);
api_checkindex(L, index); o = luaA_index(L, index);
o = Index(L, index);
api_check(L, ttype(o) == LUA_TTABLE); api_check(L, ttype(o) == LUA_TTABLE);
setobj(luaH_setnum(L, hvalue(o), n), (L->top-1)); setobj(luaH_setnum(L, hvalue(o), n), (L->top-1));
L->top--; L->top--;
@ -668,10 +661,9 @@ LUA_API int lua_next (lua_State *L, int index) {
Node *n; Node *n;
int more; int more;
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); t = luaA_index(L, index);
t = Index(L, index);
api_check(L, ttype(t) == LUA_TTABLE); api_check(L, ttype(t) == LUA_TTABLE);
n = luaH_next(L, hvalue(t), Index(L, -1)); n = luaH_next(L, hvalue(t), luaA_index(L, -1));
if (n) { if (n) {
setkey2obj(L->top-1, n); setkey2obj(L->top-1, n);
setobj(L->top, val(n)); setobj(L->top, val(n));
@ -692,8 +684,7 @@ LUA_API int lua_getn (lua_State *L, int index) {
const TObject *value; const TObject *value;
int n; int n;
LUA_LOCK(L); LUA_LOCK(L);
api_checkindex(L, index); h = hvalue(luaA_index(L, index));
h = hvalue(Index(L, index));
value = luaH_getstr(h, luaS_newliteral(L, "n")); /* = h.n */ value = luaH_getstr(h, luaS_newliteral(L, "n")); /* = h.n */
if (ttype(value) == LUA_TNUMBER) if (ttype(value) == LUA_TNUMBER)
n = (int)nvalue(value); n = (int)nvalue(value);
@ -718,6 +709,7 @@ LUA_API int lua_getn (lua_State *L, int index) {
LUA_API void lua_concat (lua_State *L, int n) { LUA_API void lua_concat (lua_State *L, int n) {
StkId top; StkId top;
LUA_LOCK(L); LUA_LOCK(L);
api_check(L, n >= 2);
api_checknelems(L, n); api_checknelems(L, n);
top = L->top; top = L->top;
luaV_strconc(L, n, top); luaV_strconc(L, n, top);