Commit 5ea0705a by Janne Blomqvist

Figure out whether a file is seekable with lseek()

From-SVN: r174946
parent ba94c7af
2011-06-11 Janne Blomqvist <jb@gcc.gnu.org>
* io/unix.c (fd_to_stream): Figure out if a fd is seekable by
trying lseek().
2011-06-10 Daniel Carrera <dcarrera@gmail.com>
* caf/mpi.c (_gfortran_caf_sync_all,
......
......@@ -952,15 +952,15 @@ fd_to_stream (int fd)
if (S_ISREG (statbuf.st_mode))
s->file_length = statbuf.st_size;
else if (S_ISBLK (statbuf.st_mode))
else
{
/* Hopefully more portable than ioctl(fd, BLKGETSIZE64, &size)? */
gfc_offset cur = lseek (fd, 0, SEEK_CUR);
/* Some character special files are seekable but most are not,
so figure it out by trying to seek. On Linux, /dev/null is
an example of such a special file. */
s->file_length = lseek (fd, 0, SEEK_END);
lseek (fd, cur, SEEK_SET);
if (s->file_length > 0)
lseek (fd, 0, SEEK_SET);
}
else
s->file_length = -1;
if (!(S_ISREG (statbuf.st_mode) || S_ISBLK (statbuf.st_mode))
|| options.all_unbuffered
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment