root/src/common/lock.c

// Copyright (c) Athena Dev Teams - Licensed under GNU GPL
// For more information, see LICENCE in the main folder

#include "../common/cbasetypes.h"
#include "../common/showmsg.h"
#include "lock.h"

#include <stdio.h>
#include <errno.h>
#include <string.h>
#ifndef WIN32
#include <unistd.h>
#else
#include <windows.h>
#define F_OK   0x0
#define R_OK   0x4
#endif

#ifndef WIN32
        #define exists(filename) (!access(filename, F_OK))
#else
// could be speed up maybe?
int exists(char *file) {
        FILE *fp;
        if ((fp = fopen(file,"r")) && fclose(fp) == 0) return 1;
        return 0;
}
#endif

// ‘‚«ž‚݃tƒ@ƒCƒ‹‚̕ی쏈—
// i‘‚«ž‚Ý‚ªI‚í‚é‚܂ŁA‹Œƒtƒ@ƒCƒ‹‚ð•ÛŠÇ‚µ‚Ä‚š‚­j

// V‚µ‚¢ƒtƒ@ƒCƒ‹‚̏‘‚«ž‚ÝŠJŽn
FILE* lock_fopen (const char* filename, int *info) {
        char newfile[512];
        FILE *fp;
        int no = 0;

        // ˆÀ‘S‚ȃtƒ@ƒCƒ‹–Œ‚ð“Ÿ‚éiŽè”²‚«j
        do {
                sprintf(newfile, "%s_%04d.tmp", filename, ++no);
        } while((fp = fopen(newfile,"r")) && (fclose(fp), no < 9999));
        *info = no;
        return fopen(newfile,"w");
}

// ‹Œƒtƒ@ƒCƒ‹‚ðíœ•Vƒtƒ@ƒCƒ‹‚ðƒŠƒl[ƒ€
int lock_fclose (FILE *fp, const char* filename, int *info) {
        int ret = 1;
        char newfile[512];
        char oldfile[512];
        if (fp != NULL) {
                ret = fclose(fp);
                sprintf(newfile, "%s_%04d.tmp", filename, *info);
                sprintf(oldfile, "%s.bak", filename);   // old backup file

                if (exists(oldfile)) remove(oldfile);   // remove backup file if it already exists
                rename (filename, oldfile);                             // backup our older data instead of deleting it

                // ‚±‚̃^ƒCƒ~ƒ“ƒO‚Å—Ž‚¿‚é‚ƍň«B
                if ((ret = rename(newfile,filename)) != 0) {    // rename our temporary file to its correct name
#if defined(__NETBSD__) || defined(_WIN32) || defined(sun) || defined (_sun) || defined (__sun__)
                        ShowError("%s - '"CL_WHITE"%s"CL_RESET"'\n", strerror(errno), newfile);
#else
                        char ebuf[255];
                        ShowError("%s - '"CL_WHITE"%s"CL_RESET"'\n", strerror_r(errno, ebuf, sizeof(ebuf)), newfile);
#endif
                }
        }
        
        return ret;
}