2000-08-11 21:53:56 +00:00
|
|
|
/*
|
|
|
|
* fseek.c
|
|
|
|
*
|
|
|
|
* Christian Groessler, 07-Aug-2000
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
2003-11-06 18:04:07 +00:00
|
|
|
|
2000-08-11 21:53:56 +00:00
|
|
|
#include <stdio.h>
|
|
|
|
#include <errno.h>
|
2003-06-12 18:17:25 +00:00
|
|
|
#include <unistd.h>
|
2000-08-11 21:53:56 +00:00
|
|
|
#include "_file.h"
|
|
|
|
|
2003-11-06 18:04:07 +00:00
|
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
/* Code */
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
2000-08-11 21:53:56 +00:00
|
|
|
|
2003-11-06 18:04:07 +00:00
|
|
|
int __fastcall__ fseek (FILE* f, long offset, int whence)
|
2000-08-11 21:53:56 +00:00
|
|
|
{
|
|
|
|
long res;
|
|
|
|
|
|
|
|
/* Is the file open? */
|
|
|
|
if ((f->f_flags & _FOPEN) == 0) {
|
|
|
|
_errno = EINVAL; /* File not open */
|
2003-11-06 18:04:07 +00:00
|
|
|
return -1;
|
2000-08-11 21:53:56 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
res = lseek(f->f_fd, offset, whence);
|
2003-11-06 18:04:07 +00:00
|
|
|
if (res == -1L) return -1;
|
2000-08-11 21:53:56 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|