| 299 | |
| 300 | |
| 301 | static int load_aux (lua_State *L, int status, int envidx) { |
| 302 | if (status == LUA_OK) { |
| 303 | if (envidx != 0) { /* 'env' parameter? */ |
| 304 | lua_pushvalue(L, envidx); /* environment for loaded function */ |
| 305 | if (!lua_setupvalue(L, -2, 1)) /* set it as 1st upvalue */ |
| 306 | lua_pop(L, 1); /* remove 'env' if not used by previous call */ |
| 307 | } |
| 308 | return 1; |
| 309 | } |
| 310 | else { /* error (message is on top of the stack) */ |
| 311 | luaL_pushfail(L); |
| 312 | lua_insert(L, -2); /* put before error message */ |
| 313 | return 2; /* return fail plus error message */ |
| 314 | } |
| 315 | } |
| 316 | |
| 317 | |
| 318 | static int luaB_loadfile (lua_State *L) { |
no test coverage detected