Function lua_compilefile_preload

src/Chain/libraries/glua/lauxlib.cpp:2243–2315

}

static int lua_compilefile_preload(lua_State *L, LoadF &lf, const char *filename, char *error,
	struct LuaCompileFilePreloadResult *result, bool use_type_check = false, GluaModuleByteStreamP stream = nullptr, bool is_contract = false)
{
    int status, readstatus;
    int c;
    int fnameindex = lua_gettop(L) + 1;
    auto using_filename = filename;
    global_glua_chain_api->clear_exceptions(L);
	auto code = thinkyoung::lua::lib::pre_modify_lua_source_code(L, filename, error, nullptr, use_type_check, stream, is_contract);
	if (global_glua_chain_api->has_exception(L))
    {
        lcompile_error_set(L, error, "compile error");
        return LUA_ERRRUN;
    }
	auto tf = std::tmpfile();
	if (!tf)
	{
		lerror_set(L, error, "can't create tmpfile");
		return LUA_ERRRUN;
	}
	fwrite(code.c_str(), sizeof(char), code.length(), tf);
    // using_filename = using_filename_str.c_str();
    lua_pushfstring(L, "@%s", filename);
    // lf.f = fopen(using_filename, "r");
	fseek(tf, 0, SEEK_SET);
	lf.f = tf;
    if (lf.f == nullptr)
    {
        lcompile_error_set(L, error, "Can't open file %s", using_filename);
        return errfile(L, "open", 1);
    }
    if (skipcomment(&lf, &c))  // read initial portion
        lf.buff[lf.n++] = '\n';  // add line to correct line numbers
    if (c == LUA_SIGNATURE[0] && using_filename) {  // binary file? 
        lf.f = freopen(using_filename, "rb", lf.f);  // reopen in binary mode
        if (lf.f == nullptr) return errfile(L, "reopen", 1);
        skipcomment(&lf, &c);  // re-read initial portion
    }
    if (c != EOF)
        lf.buff[lf.n++] = c; // 'c' is the first character of the stream
    const char *chunk_name = lua_tostring(L, -1);
    result->chunk_name = chunk_name;
	auto saved_out = L->out;
	auto saved_err = L->err;
	L->out = nullptr;
	L->err = nullptr;
    status = lua_load(L, getF, &lf, chunk_name, nullptr);
	L->out = saved_out;
	L->err = saved_err;
    if (status != 0)
    {
        // if (using_filename) fclose(lf.f);
		if (lf.f) fclose(lf.f);
        const char *error_str = "parse thinkyoung lua code error";
        if (strlen(L->compile_error) > 0)
            error_str = L->compile_error;
        if (error)
            strncpy(error, error_str, LUA_COMPILE_ERROR_MAX_LENGTH);