Mercurial > hg > octave-kai > gnulib-hg

annotate lib/ftello.c @ 8872:dfee3b4fd46c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix lseek on mingw. * modules/lseek: New module. * m4/lseek.m4: New file. * lib/lseek.c: New file. * modules/lseek-tests: New file. * tests/test-lseek.c: New file. * tests/test-lseek.sh: New file. * MODULES.html.sh: Document lseek module. * modules/fflush (Depends-on): Add lseek, fseeko. * modules/fseeko (Depends-on): Likewise. * modules/ftello (Depends-on): Likewise. * m4/fseeko.m4 (gl_FUNC_FSEEKO): Replace fseek[o] if lseek is broken. * m4/ftello.m4 (gl_FUNC_FTELLO): Replace ftell[o] if lseek is broken. * m4/fflush.m4 (gl_REPLACE_FFLUSH): Trigger fseeko module. * lib/fseeko.c (rpl_fseeko): Quit early on non-seekable files. * lib/ftello.c (rpl_ftello): Likewise. * tests/test-fseeko.c (main): Test this. * tests/test-fseeko.sh: Likewise. * tests/test-ftello.c (main): Likewise. * tests/test-ftello.sh: Likewise. * lib/stdio_.h (fseek, ftell): Simplify, since missing fseeko now implies replacing fseek. * modules/stdio (Makefile.am): No longer need HAVE_FSEEKO, HAVE_FTELLO. * m4/unistd_h.m4 (gl_UNISTD_H_DEFAULTS): Add lseek info. * modules/unistd (Makefile.am): Likewise. * lib/unistd_.h (lseek): Declare a replacement. * doc/functions/lseek.texi (lseek): Document this fix. * doc/functions/fseek.texi (fseek): Likewise. * doc/functions/ftell.texi (ftell): Likewise.
author Eric Blake <ebb9@byu.net>
date Thu, 24 May 2007 16:59:20 +0000
parents 90e71310a07f
children bbbbbf4cd1c5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8868
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
1 /* An ftello() function that works around platform bugs.
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
2 Copyright (C) 2007 Free Software Foundation, Inc.
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
3
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
7 any later version.
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
8
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
12 GNU General Public License for more details.
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
13
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License along
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
15 with this program; if not, write to the Free Software Foundation,
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
16 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
17
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
18 #include <config.h>
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
19
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
20 /* Specification. */
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
21 #include <stdio.h>
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
22
8872
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
23 /* Get lseek. */
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
24 #include <unistd.h>
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
25
8868
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
26 #undef ftello
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
27 #if !HAVE_FTELLO
8872
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
28 # undef ftell
8868
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
29 # define ftello ftell
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
30 #endif
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
31
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
32 off_t
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
33 rpl_ftello (FILE *fp)
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
34 {
8872
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
35 #if LSEEK_PIPE_BROKEN
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
36 /* mingw gives bogus answers rather than failure on non-seekable files. */
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
37 if (lseek (fileno (fp), 0, SEEK_CUR) == -1)
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
38 return -1;
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
39 #endif
dfee3b4fd46c Fix lseek on mingw.
Eric Blake <ebb9@byu.net>
parents: 8868
diff changeset
40
8868
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
41 #if defined __SL64 && defined __SCLE /* Cygwin */
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
42 if ((fp->_flags & __SL64) == 0)
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
43 {
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
44 /* Cygwin 1.5.0 through 1.5.24 failed to open stdin in 64-bit
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
45 mode; but has an ftello that requires 64-bit mode. */
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
46 FILE *tmp = fopen ("/dev/null", "r");
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
47 if (!tmp)
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
48 return -1;
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
49 fp->_flags |= __SL64;
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
50 fp->_seek64 = tmp->_seek64;
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
51 fclose (tmp);
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
52 }
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
53 #endif
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
54 return ftello (fp);
90e71310a07f Fix fseeko/ftello on cygwin 1.5.24.
Eric Blake <ebb9@byu.net>
parents:
diff changeset
55 }