blob: b009e2536eb6fd895b40c157d84513cb7953ac17 [file] [log] [blame]
/* Copyright (C) 2007-2008 The Android Open Source Project
**
** This software is licensed under the terms of the GNU General Public
** License version 2, as published by the Free Software Foundation, and
** may be copied, distributed, and modified under those terms.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
** GNU General Public License for more details.
*/
#include "android/utils/eintr_wrapper.h"
#include "android/utils/filelock.h"
#include "android/utils/path.h"
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <sys/stat.h>
#include <time.h>
#include <fcntl.h>
#ifdef _WIN32
# include <process.h>
# include <windows.h>
# include <tlhelp32.h>
#else
# include <sys/types.h>
# include <unistd.h>
# include <signal.h>
#endif
#define D(...) ((void)0)
/** FILE LOCKS SUPPORT
**
** a FileLock is useful to prevent several emulator instances from using the same
** writable file (e.g. the userdata.img disk images).
**
** create a FileLock object with filelock_create(), ithis function should return NULL
** only if the corresponding file path could not be locked.
**
** all file locks are automatically released and destroyed when the program exits.
** the filelock_lock() function can also detect stale file locks that can linger
** when the emulator crashes unexpectedly, and will happily clean them for you
**
** here's how it works, three files are used:
** file - the data file accessed by the emulator
** lock - a lock file (file + '.lock')
** temp - a temporary file make unique with mkstemp
**
** when locking:
** create 'temp' and store our pid in it
** attemp to link 'lock' to 'temp'
** if the link succeeds, we obtain the lock
** unlink 'temp'
**
** when unlocking:
** unlink 'lock'
**
**
** on Windows, 'lock' is a directory name. locking is equivalent to
** creating it...
**
**/
struct FileLock
{
const char* file;
const char* lock;
char* temp;
int locked;
FileLock* next;
};
/* used to cleanup all locks at emulator exit */
static FileLock* _all_filelocks;
#define LOCK_NAME ".lock"
#define TEMP_NAME ".tmp-XXXXXX"
#ifdef _WIN32
#define PIDFILE_NAME "pid"
#endif
/* returns 0 on success, -1 on failure */
static int
filelock_lock( FileLock* lock )
{
int ret;
#ifdef _WIN32
int pidfile_fd = -1;
ret = mkdir( lock->lock );
if (ret < 0) {
if (errno == ENOENT) {
D( "could not access directory '%s', check path elements", lock->lock );
return -1;
} else if (errno != EEXIST) {
D( "mkdir(%s): %s", lock->lock, strerror(errno) );
return -1;
}
/* if we get here, it's because the .lock directory already exists */
/* check to see if there is a pid file in it */
D("directory '%s' already exist, waiting a bit to ensure that no other emulator instance is starting", lock->lock );
{
int _sleep = 200;
int tries;
for ( tries = 4; tries > 0; tries-- )
{
pidfile_fd = open( lock->temp, O_RDONLY );
if (pidfile_fd >= 0)
break;
Sleep( _sleep );
_sleep *= 2;
}
}
if (pidfile_fd < 0) {
D( "no pid file in '%s', assuming stale directory", lock->lock );
}
else
{
/* read the pidfile, and check wether the corresponding process is still running */
char buf[16];
int len, lockpid;
HANDLE processSnapshot;
PROCESSENTRY32 pe32;
int is_locked = 0;
len = read( pidfile_fd, buf, sizeof(buf)-1 );
if (len < 0) {
D( "could not read pid file '%s'", lock->temp );
close( pidfile_fd );
return -1;
}
buf[len] = 0;
lockpid = atoi(buf);
/* PID 0 is the IDLE process, and 0 is returned in case of invalid input */
if (lockpid == 0)
lockpid = -1;
close( pidfile_fd );
pe32.dwSize = sizeof( PROCESSENTRY32 );
processSnapshot = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
if ( processSnapshot == INVALID_HANDLE_VALUE ) {
D( "could not retrieve the list of currently active processes\n" );
is_locked = 1;
}
else if ( !Process32First( processSnapshot, &pe32 ) )
{
D( "could not retrieve first process id\n" );
CloseHandle( processSnapshot );
is_locked = 1;
}
else
{
do {
if (pe32.th32ProcessID == lockpid) {
is_locked = 1;
break;
}
} while (Process32Next( processSnapshot, &pe32 ) );
CloseHandle( processSnapshot );
}
if (is_locked) {
D( "the file '%s' is locked by process ID %d\n", lock->file, lockpid );
return -1;
}
}
}
/* write our PID into the pid file */
pidfile_fd = open( lock->temp, O_WRONLY | O_CREAT | O_TRUNC );
if (pidfile_fd < 0) {
if (errno == EACCES) {
if ( path_delete_file( lock->temp ) < 0 ) {
D( "could not remove '%s': %s\n", lock->temp, strerror(errno) );
return -1;
}
pidfile_fd = open( lock->temp, O_WRONLY | O_CREAT | O_TRUNC );
}
if (pidfile_fd < 0) {
D( "could not create '%s': %s\n", lock->temp, strerror(errno) );
return -1;
}
}
{
char buf[16];
sprintf( buf, "%ld", GetCurrentProcessId() );
ret = write( pidfile_fd, buf, strlen(buf) );
close(pidfile_fd);
if (ret < 0) {
D( "could not write PID to '%s'\n", lock->temp );
return -1;
}
}
lock->locked = 1;
return 0;
#else
int temp_fd = -1;
int lock_fd = -1;
int rc, tries, _sleep;
FILE* f = NULL;
char pid[8];
struct stat st_temp;
strcpy( lock->temp, lock->file );
strcat( lock->temp, TEMP_NAME );
temp_fd = mkstemp( lock->temp );
if (temp_fd < 0) {
D("cannot create locking temp file '%s'", lock->temp );
goto Fail;
}
sprintf( pid, "%d", getpid() );
ret = write( temp_fd, pid, strlen(pid)+1 );
if (ret < 0) {
D( "cannot write to locking temp file '%s'", lock->temp);
goto Fail;
}
close( temp_fd );
temp_fd = -1;
rc = HANDLE_EINTR(lstat( lock->temp, &st_temp ));
if (rc < 0) {
D( "can't properly stat our locking temp file '%s'", lock->temp );
goto Fail;
}
/* now attempt to link the temp file to the lock file */
_sleep = 0;
for ( tries = 4; tries > 0; tries-- )
{
struct stat st_lock;
int rc;
if (_sleep > 0) {
if (_sleep > 2000000) {
D( "cannot acquire lock file '%s'", lock->lock );
goto Fail;
}
usleep( _sleep );
}
_sleep += 200000;
/* the return value of link() is buggy on NFS */
rc = HANDLE_EINTR(link( lock->temp, lock->lock ));
rc = HANDLE_EINTR(lstat( lock->lock, &st_lock ));
if (rc == 0 &&
st_temp.st_rdev == st_lock.st_rdev &&
st_temp.st_ino == st_lock.st_ino )
{
/* SUCCESS */
lock->locked = 1;
rc = HANDLE_EINTR(unlink( lock->temp ));
return 0;
}
/* if we get there, it means that the link() call failed */
/* check the lockfile to see if it is stale */
if (rc == 0) {
char buf[16];
time_t now;
int lockpid = 0;
int lockfd;
int stale = 2; /* means don't know */
struct stat st;
rc = HANDLE_EINTR(time( &now));
st.st_mtime = now - 120;
lockfd = HANDLE_EINTR(open( lock->lock,O_RDONLY ));
if ( lockfd >= 0 ) {
int len;
len = HANDLE_EINTR(read( lockfd, buf, sizeof(buf)-1 ));
buf[len] = 0;
lockpid = atoi(buf);
rc = HANDLE_EINTR(fstat( lockfd, &st ));
if (rc == 0)
now = st.st_atime;
IGNORE_EINTR(close(lockfd));
}
/* if there is a PID, check that it is still alive */
if (lockpid > 0) {
rc = HANDLE_EINTR(kill( lockpid, 0 ));
if (rc == 0 || errno == EPERM) {
stale = 0;
} else if (rc < 0 && errno == ESRCH) {
stale = 1;
}
}
if (stale == 2) {
/* no pid, stale if the file is older than 1 minute */
stale = (now >= st.st_mtime + 60);
}
if (stale) {
D( "removing stale lockfile '%s'", lock->lock );
rc = HANDLE_EINTR(unlink( lock->lock ));
_sleep = 0;
tries++;
}
}
}
D("file '%s' is already in use by another process", lock->file );
Fail:
if (f)
fclose(f);
if (temp_fd >= 0) {
IGNORE_EINTR(close(temp_fd));
}
if (lock_fd >= 0) {
IGNORE_EINTR(close(lock_fd));
}
HANDLE_EINTR(unlink(lock->lock));
HANDLE_EINTR(unlink(lock->temp));
return -1;
#endif
}
void
filelock_release( FileLock* lock )
{
if (lock->locked) {
#ifdef _WIN32
path_delete_file( (char*)lock->temp );
rmdir( (char*)lock->lock );
#else
unlink( (char*)lock->lock );
#endif
lock->locked = 0;
}
}
static void
filelock_atexit( void )
{
FileLock* lock;
for (lock = _all_filelocks; lock != NULL; lock = lock->next)
filelock_release( lock );
}
/* create a file lock */
FileLock*
filelock_create( const char* file )
{
int file_len = strlen(file);
int lock_len = file_len + sizeof(LOCK_NAME);
#ifdef _WIN32
int temp_len = lock_len + 1 + sizeof(PIDFILE_NAME);
#else
int temp_len = file_len + sizeof(TEMP_NAME);
#endif
int total_len = sizeof(FileLock) + file_len + lock_len + temp_len + 3;
FileLock* lock = malloc(total_len);
lock->file = (const char*)(lock + 1);
memcpy( (char*)lock->file, file, file_len+1 );
lock->lock = lock->file + file_len + 1;
memcpy( (char*)lock->lock, file, file_len+1 );
strcat( (char*)lock->lock, LOCK_NAME );
lock->temp = (char*)lock->lock + lock_len + 1;
#ifdef _WIN32
snprintf( (char*)lock->temp, temp_len, "%s\\" PIDFILE_NAME, lock->lock );
#else
lock->temp[0] = 0;
#endif
lock->locked = 0;
if (filelock_lock(lock) < 0) {
free(lock);
return NULL;
}
lock->next = _all_filelocks;
_all_filelocks = lock;
if (lock->next == NULL)
atexit( filelock_atexit );
return lock;
}