chiark / gitweb /
debugging for thing that crashed
[innduct.git] / lib / fseeko.c
1 /*  $Id: fseeko.c 3680 2000-07-29 22:54:52Z rra $
2 **
3 **  Replacement for a missing fseeko.
4 **
5 **  fseeko is a version of fseek that takes an off_t instead of a long.  For
6 **  large file support (and because it's a more logical interface), INN uses
7 **  fseeko unconditionally; if fseeko isn't provided by a platform but
8 **  fpos_t is compatible with off_t (as in BSDI), define it in terms of
9 **  fsetpos.  Otherwise, just call fseek (which won't work for files over
10 **  2GB).
11 */
12
13 #include "config.h"
14 #include "clibrary.h"
15 #include <errno.h>
16
17 #if HAVE_LARGE_FPOS_T
18
19 int
20 fseeko(FILE *stream, off_t pos, int whence)
21 {
22     fpos_t fpos;
23
24     switch (whence) {
25     case SEEK_SET:
26         fpos = pos;
27         return fsetpos(stream, &fpos);
28
29     case SEEK_END:
30         if (fseek(stream, 0, SEEK_END) < 0)
31             return -1;
32         if (pos == 0)
33             return 0;
34         /* Fall through. */
35
36     case SEEK_CUR:
37         if (fgetpos(stream, &fpos) < 0)
38             return -1;
39         fpos += pos;
40         return fsetpos(stream, &fpos);
41
42     default:
43         errno = EINVAL;
44         return -1;
45     }
46 }
47
48 #else /* !HAVE_LARGE_FPOS_T */
49
50 int
51 fseeko(FILE *stream, off_t pos, int whence)
52 {
53     return fseek(stream, (long) pos, whence);
54 }
55
56 #endif /* !HAVE_LARGE_FPOS_T */