Function Sys_Save

engine/script/src/script_sys.cpp:130–224

     */

    static int Sys_Save(lua_State* L)
    {
        size_t filename_len = 0;
        const char* filename = luaL_checklstring(L, 1, &filename_len);

        if (filename_len >= DMPATH_MAX_PATH)
        {
            return luaL_error(L, "Could not write to the file %s. Path too long.", filename);
        }

        luaL_checktype(L, 2, LUA_TTABLE);

        char tmp_filename[DMPATH_MAX_PATH];
        // The counter and hash are there to make the files unique enough to avoid that the user
        // accidentally writes to it.
        static int save_counter = 0;
        uint32_t hash = dmHashString32(filename);
        int res = dmSnPrintf(tmp_filename, sizeof(tmp_filename), "%s.defoldtmp_%x_%d", filename, hash, save_counter++);
        if (res == -1)
        {
            return luaL_error(L, "Could not write to the file %s. Path too long.", filename);
        }

        uint32_t table_size = CheckTableSize(L, 2);

        char* buffer = Sys_SetupTableSerializationBuffer(table_size);
        if (!buffer)
        {
            return luaL_error(L, "Could not allocate %d bytes for table serialization.", table_size);
        }
        uint32_t n_used = CheckTable(L, buffer, table_size, 2);

#if !defined(__EMSCRIPTEN__)
        FILE* file = fopen(tmp_filename, "wb");
        if (!file)
        {
            Sys_FreeTableSerializationBuffer(buffer);

        #if defined(DM_NO_ERRNO)
            return luaL_error(L, "Could not open the file %s", tmp_filename);
        #else
            char errmsg[128] = {};
            dmStrError(errmsg, sizeof(errmsg), errno);
            return luaL_error(L, "Could not open the file %s, reason: %s.", tmp_filename, errmsg);
        #endif
        }

        bool result = fwrite(buffer, 1, n_used, file) == n_used;
        result = (fclose(file) == 0) && result;
        Sys_FreeTableSerializationBuffer(buffer);

        if (!result)
        {
            dmSys::Unlink(tmp_filename);

        #if defined(DM_NO_ERRNO)
            return luaL_error(L, "Could not write to the file %s.", filename);
        #else