2008-09-14 23:56:14 -07:00
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
2008-12-27 10:53:56 -08:00
|
|
|
#ifdef _MSC_VER
|
|
|
|
# include <io.h> /* for _get_osfhandle _lseek and _locking */
|
|
|
|
#endif
|
|
|
|
|
2008-09-14 23:56:14 -07:00
|
|
|
#ifndef __CEGCC__
|
|
|
|
# include <sys/locking.h>
|
|
|
|
#endif /* __CEGCC__ */
|
|
|
|
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
# include "config.h"
|
|
|
|
#endif /* HAVE_CONFIG_H */
|
|
|
|
|
|
|
|
#include "Evil.h"
|
|
|
|
|
|
|
|
|
2008-10-09 14:56:31 -07:00
|
|
|
#if defined(__CEGCC__)
|
|
|
|
# define _get_osfhandle get_osfhandle
|
|
|
|
# elif defined (__MINGW32CE__)
|
|
|
|
# define _get_osfhandle(FILEDES) ((HANDLE)FILEDES)
|
|
|
|
#endif /* ! __CEGCC__ && ! __MINGW32CE__ */
|
|
|
|
|
|
|
|
|
2008-09-14 23:56:14 -07:00
|
|
|
/*
|
|
|
|
* port of fcntl function
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
|
|
|
int fcntl(int fd, int cmd, ...)
|
|
|
|
{
|
|
|
|
va_list va;
|
|
|
|
HANDLE h;
|
|
|
|
int res = -1;
|
|
|
|
|
|
|
|
va_start (va, cmd);
|
|
|
|
|
|
|
|
h = (HANDLE)_get_osfhandle(fd);
|
|
|
|
if (h == INVALID_HANDLE_VALUE)
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
if (cmd == F_SETFD)
|
|
|
|
{
|
|
|
|
long flag;
|
|
|
|
|
|
|
|
flag = va_arg(va, long);
|
|
|
|
if (flag == FD_CLOEXEC)
|
|
|
|
{
|
2008-10-11 07:35:26 -07:00
|
|
|
#if ! ( defined(__CEGCC__) || defined(__MINGW32CE__) )
|
2008-09-14 23:56:14 -07:00
|
|
|
if (SetHandleInformation(h, HANDLE_FLAG_INHERIT, 0))
|
|
|
|
res = 0;
|
2008-10-11 07:35:26 -07:00
|
|
|
#endif /* __CEGCC__ || __MINGW32CE__ */
|
2008-09-14 23:56:14 -07:00
|
|
|
}
|
|
|
|
}
|
2008-10-11 07:35:26 -07:00
|
|
|
#if ! ( defined(__CEGCC__) || defined(__MINGW32CE__) )
|
2008-09-14 23:56:14 -07:00
|
|
|
else if ((cmd == F_SETLK) || (cmd == F_SETLKW))
|
|
|
|
{
|
|
|
|
struct flock fl;
|
|
|
|
off_t length = 0;
|
|
|
|
long pos;
|
|
|
|
|
|
|
|
fl = va_arg(va, struct flock);
|
|
|
|
|
|
|
|
if (fl.l_len == 0)
|
|
|
|
{
|
|
|
|
length = _lseek(fd, 0L, SEEK_END);
|
|
|
|
if (length != -1L)
|
|
|
|
res = 0;
|
|
|
|
}
|
|
|
|
fl.l_len = length - fl.l_start - 1;
|
|
|
|
|
|
|
|
pos = _lseek(fd, fl.l_start, fl.l_whence);
|
|
|
|
if (pos != -1L)
|
|
|
|
res = 0;
|
|
|
|
|
|
|
|
if ((fl.l_type == F_RDLCK) || (fl.l_type == F_WRLCK))
|
|
|
|
{
|
|
|
|
if (cmd == F_SETLK)
|
|
|
|
res = _locking(fd, _LK_NBLCK, fl.l_len); /* if cannot be locked, we return immediatly */
|
|
|
|
else /* F_SETLKW */
|
|
|
|
res = _locking(fd, _LK_LOCK, fl.l_len); /* otherwise, we try several times */
|
|
|
|
}
|
|
|
|
|
|
|
|
if (fl.l_type == F_UNLCK)
|
|
|
|
res = _locking(fd, _LK_UNLCK, fl.l_len);
|
|
|
|
}
|
|
|
|
|
2008-10-11 07:35:26 -07:00
|
|
|
#endif /* __CEGCC__ || __MINGW32CE__ */
|
|
|
|
|
2008-09-14 23:56:14 -07:00
|
|
|
va_end(va);
|
|
|
|
|
|
|
|
return res;
|
|
|
|
}
|