Function require_internal

src/lua/lua_environment.cpp:208–238

#if CROWN_DEBUG
static int require_internal(lua_State *L)
{
	bool already_loaded = false;
	const char *module_name = lua_tostring(L, 1);
	lua_settop(L, 1);

	lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED");
	lua_getfield(L, -1, module_name);
	already_loaded = lua_toboolean(L, -1);
	lua_pop(L, 2);

	lua_getglobal(L, "original_require");
	lua_pushvalue(L, 1);
	lua_call(L, 1, 1);

	lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED");
	lua_getfield(L, -1, module_name);
	if (lua_toboolean(L, -1) && !already_loaded) {
		lua_pop(L, 2);
		lua_getglobal(L, "package");
		lua_getfield(L, -1, "load_order");
		lua_pushstring(L, module_name);
		lua_rawseti(L, -2, int(lua_objlen(L, -2) + 1));
		lua_pop(L, 2); // Pop "package.load_order" and "package"
	} else {
		lua_pop(L, 2); // Pop "_LOADED" and "_LOADED[module]"
	}

	lua_remove(L, 1);
	return 1;
}
#endif // if CROWN_DEBUG

LuaEnvironment::LuaEnvironment()