98 lines
2.2 KiB
C
98 lines
2.2 KiB
C
|
|
#include <stdio.h>
|
|
|
|
#ifdef _MSC_VER
|
|
# include <io.h> /* for _get_osfhandle _lseek and _locking */
|
|
#endif
|
|
|
|
#ifndef __CEGCC__
|
|
# include <sys/locking.h>
|
|
#endif /* __CEGCC__ */
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
# include "config.h"
|
|
#endif /* HAVE_CONFIG_H */
|
|
|
|
#include "Evil.h"
|
|
|
|
|
|
#if defined(__CEGCC__)
|
|
# define _get_osfhandle get_osfhandle
|
|
# elif defined (__MINGW32CE__)
|
|
# define _get_osfhandle(FILEDES) ((HANDLE)FILEDES)
|
|
#endif /* ! __CEGCC__ && ! __MINGW32CE__ */
|
|
|
|
|
|
/*
|
|
* 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)
|
|
{
|
|
#if ! ( defined(__CEGCC__) || defined(__MINGW32CE__) )
|
|
if (SetHandleInformation(h, HANDLE_FLAG_INHERIT, 0))
|
|
res = 0;
|
|
#endif /* __CEGCC__ || __MINGW32CE__ */
|
|
}
|
|
}
|
|
#if ! ( defined(__CEGCC__) || defined(__MINGW32CE__) )
|
|
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;
|
|
|
|
printf ("Evil 1 %d %d %d\n", fl->l_type, F_RDLCK, F_WRLCK);
|
|
if ((fl->l_type == F_RDLCK) || (fl->l_type == F_WRLCK))
|
|
{
|
|
printf ("Evil 2\n");
|
|
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 */
|
|
}
|
|
|
|
printf ("Evil 3\n");
|
|
if (fl->l_type == F_UNLCK)
|
|
res = _locking(fd, _LK_UNLCK, fl->l_len);
|
|
}
|
|
|
|
#endif /* __CEGCC__ || __MINGW32CE__ */
|
|
|
|
va_end(va);
|
|
|
|
return res;
|
|
}
|