41 #define api_checknelems(L, n)	api_check(L, (n) <= (L->top - L->base))  argument
110 LUA_API void lua_xmove (lua_State *from, lua_State *to, int n) {  in lua_xmove()  argument
114   api_checknelems(from, n);  in lua_xmove()
116   api_check(from, to->ci->top - to->top >= n);  in lua_xmove()
117   from->top -= n;  in lua_xmove()
118   for (i = 0; i < n; i++) {  in lua_xmove()
261   TValue n;  in lua_isnumber()  local
263   return tonumber(o, &n);  in lua_isnumber()
314   TValue n;  in lua_tonumber()  local
316   if (tonumber(o, &n))  in lua_tonumber()
324   TValue n;  in lua_tointeger()  local
326   if (tonumber(o, &n)) {  in lua_tointeger()
429 LUA_API void lua_pushnumber (lua_State *L, lua_Number n) {  in lua_pushnumber()  argument
431   setnvalue(L->top, n);  in lua_pushnumber()
437 LUA_API void lua_pushinteger (lua_State *L, lua_Integer n) {  in lua_pushinteger()  argument
439   setnvalue(L->top, cast_num(n));  in lua_pushinteger()
486 LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) {  in lua_pushcclosure()  argument
490   api_checknelems(L, n);  in lua_pushcclosure()
491   cl = luaF_newCclosure(L, n, getcurrenv(L));  in lua_pushcclosure()
493   L->top -= n;  in lua_pushcclosure()
494   while (n--)  in lua_pushcclosure()
495     setobj2n(L, &cl->c.upvalue[n], L->top+n);  in lua_pushcclosure()
567 LUA_API void lua_rawgeti (lua_State *L, int idx, int n) {  in lua_rawgeti()  argument
572   setobj2s(L, L->top, luaH_getnum(hvalue(o), n));  in lua_rawgeti()
684 LUA_API void lua_rawseti (lua_State *L, int idx, int n) {  in lua_rawseti()  argument
690   setobj2t(L, luaH_setnum(L, hvalue(o), n), L->top-1);  in lua_rawseti()
990 LUA_API void lua_concat (lua_State *L, int n) {  in lua_concat()  argument
992   api_checknelems(L, n);  in lua_concat()
993   if (n >= 2) {  in lua_concat()
995     luaV_concat(L, n, cast_int(L->top - L->base) - 1);  in lua_concat()
996     L->top -= (n-1);  in lua_concat()
998   else if (n == 0) {  /* push empty string */  in lua_concat()
1039 static const char *aux_upvalue (StkId fi, int n, TValue **val) {  in aux_upvalue()  argument
1044     if (!(1 <= n && n <= f->c.nupvalues)) return NULL;  in aux_upvalue()
1045     *val = &f->c.upvalue[n-1];  in aux_upvalue()
1050     if (!(1 <= n && n <= p->sizeupvalues)) return NULL;  in aux_upvalue()
1051     *val = f->l.upvals[n-1]->v;  in aux_upvalue()
1052     return getstr(p->upvalues[n-1]);  in aux_upvalue()
1057 LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) {  in lua_getupvalue()  argument
1061   name = aux_upvalue(index2adr(L, funcindex), n, &val);  in lua_getupvalue()
1071 LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n) {  in lua_setupvalue()  argument
1078   name = aux_upvalue(fi, n, &val);  in lua_setupvalue()