94 static lua_State *getthread (lua_State *L, int *arg) {  in getthread()  argument
96     *arg = 1;  in getthread()
100     *arg = 0;  in getthread()
151   int arg;  in db_getinfo()  local
152   lua_State *L1 = getthread(L, &arg);  in db_getinfo()
153   const char *options = luaL_optstring(L, arg+2, "flnSrtu");  in db_getinfo()
155   luaL_argcheck(L, options[0] != '>', arg + 2, "invalid option '>'");  in db_getinfo()
156   if (lua_isfunction(L, arg + 1)) {  /* info about a function? */  in db_getinfo()
158     lua_pushvalue(L, arg + 1);  /* move function to 'L1' stack */  in db_getinfo()
162     if (!lua_getstack(L1, (int)luaL_checkinteger(L, arg + 1), &ar)) {  in db_getinfo()
168     return luaL_argerror(L, arg+2, "invalid option");  in db_getinfo()
204   int arg;  in db_getlocal()  local
205   lua_State *L1 = getthread(L, &arg);  in db_getlocal()
206   int nvar = (int)luaL_checkinteger(L, arg + 2);  /* local-variable index */  in db_getlocal()
207   if (lua_isfunction(L, arg + 1)) {  /* function argument? */  in db_getlocal()
208     lua_pushvalue(L, arg + 1);  /* push function */  in db_getlocal()
215     int level = (int)luaL_checkinteger(L, arg + 1);  in db_getlocal()
217       return luaL_argerror(L, arg+1, "level out of range");  in db_getlocal()
235   int arg;  in db_setlocal()  local
237   lua_State *L1 = getthread(L, &arg);  in db_setlocal()
239   int level = (int)luaL_checkinteger(L, arg + 1);  in db_setlocal()
240   int nvar = (int)luaL_checkinteger(L, arg + 2);  in db_setlocal()
242     return luaL_argerror(L, arg+1, "level out of range");  in db_setlocal()
243   luaL_checkany(L, arg+3);  in db_setlocal()
244   lua_settop(L, arg+3);  in db_setlocal()
366   int arg, mask, count;  in db_sethook()  local
368   lua_State *L1 = getthread(L, &arg);  in db_sethook()
369   if (lua_isnoneornil(L, arg+1)) {  /* no hook? */  in db_sethook()
370     lua_settop(L, arg+1);  in db_sethook()
374     const char *smask = luaL_checkstring(L, arg+2);  in db_sethook()
375     luaL_checktype(L, arg+1, LUA_TFUNCTION);  in db_sethook()
376     count = (int)luaL_optinteger(L, arg + 3, 0);  in db_sethook()
388   lua_pushvalue(L, arg + 1);  /* value (hook function) */  in db_sethook()
396   int arg;  in db_gethook()  local
397   lua_State *L1 = getthread(L, &arg);  in db_gethook()
436   int arg;  in db_traceback()  local
437   lua_State *L1 = getthread(L, &arg);  in db_traceback()
438   const char *msg = lua_tostring(L, arg + 1);  in db_traceback()
439   if (msg == NULL && !lua_isnoneornil(L, arg + 1))  /* non-string 'msg'? */  in db_traceback()
440     lua_pushvalue(L, arg + 1);  /* return it untouched */  in db_traceback()
442     int level = (int)luaL_optinteger(L, arg + 2, (L == L1) ? 1 : 0);  in db_traceback()