source: trunk/xcache/xc_lock.c @ 1199

#include "xc_lock.h"
#include "xcache.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#ifdef ZEND_WIN32
#   include <process.h>
#else
#   include <unistd.h>
#   include <fcntl.h>
#   include <errno.h>
#endif

#ifndef ZEND_WIN32
typedef int HANDLE;
#   ifndef INVALID_HANDLE_VALUE
#       define INVALID_HANDLE_VALUE -1
#   endif
#else
#   define close(h) CloseHandle(h)
#   define open(filename, mode, permission) CreateFile(filename, \
        GENERIC_READ | GENERIC_WRITE, \
        FILE_SHARE_READ | FILE_SHARE_WRITE, \
        NULL, \
        OPEN_ALWAYS, \
        FILE_ATTRIBUTE_NORMAL, \
        NULL)
#endif

typedef struct {
    HANDLE fd;
    char *pathname;
} xc_fcntl_lock_t;

/* {{{ fcntl lock impl */
#ifndef ZEND_WIN32
#   define LCK_WR F_WRLCK
#   define LCK_RD F_RDLCK
#   define LCK_UN F_UNLCK
#   define LCK_NB 0
static inline int dolock(xc_fcntl_lock_t *lck, int type)
{
    int ret;
    struct flock lock;

    lock.l_type = type;
    lock.l_start = 0;
    lock.l_whence = SEEK_SET;
    lock.l_len = 1;
    lock.l_pid = 0;

    do {
        ret = fcntl(lck->fd, F_SETLKW, &lock);
    } while (ret < 0 && errno == EINTR);
    return ret;
}
#else

#   include <win32/flock.h>
#   include <io.h>
#   include <fcntl.h>
#   include <sys/types.h>
#   include <sys/stat.h>
#   undef errno
#   define errno GetLastError()
#   define getuid() 0
#   define LCK_WR LOCKFILE_EXCLUSIVE_LOCK
#   define LCK_RD 0
#   define LCK_UN 0
#   define LCK_NB LOCKFILE_FAIL_IMMEDIATELY
static inline int dolock(xc_fcntl_lock_t *lck, int type)
{
    static OVERLAPPED offset = {0, 0, 0, 0, NULL};

    if (type == LCK_UN) {
        return UnlockFileEx((HANDLE)lck->fd, 0, 1, 0, &offset);
    }
    else {
        return LockFileEx((HANDLE)lck->fd, type, 0, 1, 0, &offset);
    }
}
#endif
/* }}} */

static zend_bool xc_fcntl_init(xc_fcntl_lock_t *lck, const char *pathname) /* {{{ */
{
    HANDLE fd;
    int size;
    char *myname;

    if (pathname == NULL) {
        static int instanceId = 0;
        const char default_tmpdir[] = { DEFAULT_SLASH, 't', 'm', 'p', '\0' };
        const char *tmpdir;

        tmpdir = getenv("TEMP");
        if (!tmpdir) {
            tmpdir = getenv("TMP");
            if (!tmpdir) {
                tmpdir = default_tmpdir;
            }
        }
        size = strlen(tmpdir) + sizeof("/.xcache.lock") - 1 + 3 * 10 + 100;
        myname = malloc(size);
        snprintf(myname, size - 1, "%s%c.xcache.%d.%d.%d.lock", tmpdir, DEFAULT_SLASH, (int) getuid(), (int) getpid(), ++instanceId);
        pathname = myname;
    }
    else {
        myname = NULL;
    }

    fd = open(pathname, O_RDWR|O_CREAT, 0666);

    if (fd != INVALID_HANDLE_VALUE) {

#ifndef __CYGWIN__
        unlink(pathname);
#endif
        lck->fd = fd;
        size = strlen(pathname) + 1;
        lck->pathname = malloc(size);
        memcpy(lck->pathname, pathname, size);
    }
    else {
        zend_error(E_ERROR, "xc_fcntl_create: open(%s, O_RDWR|O_CREAT, 0666) failed:", pathname);
        lck = NULL;
    }

    if (myname) {
        free(myname);
    }

    return lck ? 1 : 0;
}
/* }}} */
static void xc_fcntl_destroy(xc_fcntl_lock_t *lck) /* {{{ */
{
    close(lck->fd);
#ifdef __CYGWIN__
    unlink(lck->pathname);
#endif
    free(lck->pathname);
}
/* }}} */
static void xc_fcntl_lock(xc_fcntl_lock_t *lck) /* {{{ */
{
    if (dolock(lck, LCK_WR) < 0) {
        zend_error(E_ERROR, "xc_fcntl_lock failed errno:%d", errno);
    }
}
/* }}} */
static void xc_fcntl_rdlock(xc_fcntl_lock_t *lck) /* {{{ */
{
    if (dolock(lck, LCK_RD) < 0) {
        zend_error(E_ERROR, "xc_fcntl_lock failed errno:%d", errno);
    }
}
/* }}} */
static void xc_fcntl_unlock(xc_fcntl_lock_t *lck) /* {{{ */
{
    if (dolock(lck, LCK_UN) < 0) {
        zend_error(E_ERROR, "xc_fcntl_unlock failed errno:%d", errno);
    }
}
/* }}} */

#undef XC_INTERPROCESS_LOCK_IMPLEMENTED
#undef XC_LOCK_UNSUED

#ifdef ZEND_WIN32
#   define XC_INTERPROCESS_LOCK_IMPLEMENTED
#   ifndef ZTS
#       define XC_LOCK_UNSUED
#   endif
#endif

#if defined(PTHREADS)
#   define XC_INTERPROCESS_LOCK_IMPLEMENTED
#endif

struct _xc_lock_t {
#ifdef XC_LOCK_UNSUED
    int dummy;
#else
#   ifdef ZTS
    MUTEX_T tsrm_mutex;
#   endif

#   ifndef XC_INTERPROCESS_LOCK_IMPLEMENTED
#       ifdef ZTS
    zend_bool use_fcntl;
#       endif
    xc_fcntl_lock_t fcntl_lock;
#   endif
#endif
};

xc_lock_t *xc_lock_init(const char *pathname, int interprocess) /* {{{ */
{
#ifdef XC_LOCK_UNSUED
    return (xc_lock_t *) 1;
#else
#   ifdef ZTS
    xc_lock_t *lck = malloc(sizeof(xc_lock_t));
#       if defined(PTHREADS)
    pthread_mutexattr_t psharedm;
    pthread_mutexattr_init(&psharedm);
    pthread_mutexattr_setpshared(&psharedm, PTHREAD_PROCESS_SHARED);
    lck->tsrm_mutex = (pthread_mutex_t *) malloc(sizeof(pthread_mutex_t));
    pthread_mutex_init(lck->tsrm_mutex, &psharedm);
#       else
    lck->tsrm_mutex = tsrm_mutex_alloc();
#       endif
#   endif
#   ifndef XC_INTERPROCESS_LOCK_IMPLEMENTED
#       ifdef ZTS
    lck->use_fcntl = interprocess;
    if (lck->use_fcntl)
#       endif
        xc_fcntl_init(&lck->fcntl_lock, pathname);
#   endif
    return lck;
#endif
}
/* }}} */
void xc_lock_destroy(xc_lock_t *lck) /* {{{ */
{
#ifdef XC_LOCK_UNSUED
    /* do nothing */
#else
#   ifdef ZTS
    tsrm_mutex_free(lck->tsrm_mutex);
#   endif
#   ifndef XC_INTERPROCESS_LOCK_IMPLEMENTED
#       ifdef ZTS
    if (lck->use_fcntl)
#       endif
        xc_fcntl_destroy(&lck->fcntl_lock);
#   endif
    free(lck);
#endif
}
/* }}} */
void xc_lock(xc_lock_t *lck) /* {{{ */
{
#ifdef XC_LOCK_UNSUED
#else
#   ifdef ZTS
    if (tsrm_mutex_lock(lck->tsrm_mutex) < 0) {
        zend_error(E_ERROR, "xc_lock failed errno:%d", errno);
    }
#   endif
#   ifndef XC_INTERPROCESS_LOCK_IMPLEMENTED
#       ifdef ZTS
    if (lck->use_fcntl)
#       endif
        xc_fcntl_lock(&lck->fcntl_lock);
#   endif
#endif
}
/* }}} */
void xc_rdlock(xc_lock_t *lck) /* {{{ */
{
#ifdef XC_LOCK_UNSUED
#else
#   ifdef ZTS
    if (tsrm_mutex_lock(lck->tsrm_mutex) < 0) {
        zend_error(E_ERROR, "xc_rdlock failed errno:%d", errno);
    }
#   endif
#   ifndef XC_INTERPROCESS_LOCK_IMPLEMENTED
#       ifdef ZTS
    if (lck->use_fcntl)
#       endif
        xc_fcntl_lock(&lck->fcntl_lock);
#   endif
#endif
}
/* }}} */
void xc_unlock(xc_lock_t *lck) /* {{{ */
{
#ifdef XC_LOCK_UNSUED
#else
#   ifndef XC_INTERPROCESS_LOCK_IMPLEMENTED
#       ifdef ZTS
    if (lck->use_fcntl)
#       endif
        xc_fcntl_unlock(&lck->fcntl_lock);
#   endif
#endif
#   ifdef ZTS
    if (tsrm_mutex_unlock(lck->tsrm_mutex) < 0) {
        zend_error(E_ERROR, "xc_unlock failed errno:%d", errno);
    }
#   endif
}
/* }}} */