76 static lua_State *getthread (lua_State *L, int *arg) {  in getthread()  argument
78     *arg = 1;  in getthread()
82     *arg = 0;  in getthread()
101   int arg;  in db_getinfo()  local
102   lua_State *L1 = getthread(L, &arg);  in db_getinfo()
103   const char *options = luaL_optstring(L, arg+2, "flnSu");  in db_getinfo()
104   if (lua_isnumber(L, arg+1)) {  in db_getinfo()
105     if (!lua_getstack(L1, (int)lua_tointeger(L, arg+1), &ar)) {  in db_getinfo()
110   else if (lua_isfunction(L, arg+1)) {  in db_getinfo()
113     lua_pushvalue(L, arg+1);  in db_getinfo()
117     return luaL_argerror(L, arg+1, "function or level expected");  in db_getinfo()
119     return luaL_argerror(L, arg+2, "invalid option");  in db_getinfo()
145   int arg;  in db_getlocal()  local
146   lua_State *L1 = getthread(L, &arg);  in db_getlocal()
149   if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar))  /* out of range? */  in db_getlocal()
150     return luaL_argerror(L, arg+1, "level out of range");  in db_getlocal()
151   name = lua_getlocal(L1, &ar, luaL_checkint(L, arg+2));  in db_getlocal()
166   int arg;  in db_setlocal()  local
167   lua_State *L1 = getthread(L, &arg);  in db_setlocal()
169   if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar))  /* out of range? */  in db_setlocal()
170     return luaL_argerror(L, arg+1, "level out of range");  in db_setlocal()
171   luaL_checkany(L, arg+3);  in db_setlocal()
172   lua_settop(L, arg+3);  in db_setlocal()
174   lua_pushstring(L, lua_setlocal(L1, &ar, luaL_checkint(L, arg+2)));  in db_setlocal()
259   int arg, mask, count;  in db_sethook()  local
261   lua_State *L1 = getthread(L, &arg);  in db_sethook()
262   if (lua_isnoneornil(L, arg+1)) {  in db_sethook()
263     lua_settop(L, arg+1);  in db_sethook()
267     const char *smask = luaL_checkstring(L, arg+2);  in db_sethook()
268     luaL_checktype(L, arg+1, LUA_TFUNCTION);  in db_sethook()
269     count = luaL_optint(L, arg+3, 0);  in db_sethook()
274   lua_pushvalue(L, arg+1);  in db_sethook()
283   int arg;  in db_gethook()  local
284   lua_State *L1 = getthread(L, &arg);  in db_gethook()
325   int arg;  in db_errorfb()  local
326   lua_State *L1 = getthread(L, &arg);  in db_errorfb()
328   if (lua_isnumber(L, arg+2)) {  in db_errorfb()
329     level = (int)lua_tointeger(L, arg+2);  in db_errorfb()
334   if (lua_gettop(L) == arg)  in db_errorfb()
336   else if (!lua_isstring(L, arg+1)) return 1;  /* message is not a string */  in db_errorfb()
368     lua_concat(L, lua_gettop(L) - arg);  in db_errorfb()
370   lua_concat(L, lua_gettop(L) - arg);  in db_errorfb()