gis/seek.c

Go to the documentation of this file.

/*!
 * \file lib/gis/seek.c
 *
 * \brief GIS Library - file seek routines
 *
 * SPDX-FileCopyrightText: 2009-2010 GRASS Development Team
 * SPDX-License-Identifier: GPL-2.0-or-later
 *
 * \author Glynn Clements
 */
 
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <sys/types.h>
#include <grass/gis.h>
#include <grass/glocale.h>
 
/*!
   \brief Get the current file position of the stream.
 
   \param fp file descriptor
 
   \return file position
   \return -1 on failure
 */
off_t G_ftell(FILE *fp)
{
#ifdef HAVE_FSEEKO
    return ftello(fp);
#else
    return (off_t)ftell(fp);
#endif
}
 
/*!
   \brief Change the file position of the stream.
 
   The value of <i>whence</i> must be one of the constants `SEEK_SET',
   `SEEK_CUR', or `SEEK_END', to indicate whether the <i>offset</i> is
   relative to the beginning of the file, the current file position, or
   the end of the file, respectively.
 
   \param fp file descriptor
   \param offset offset
   \param whence
 */
void G_fseek(FILE *fp, off_t offset, int whence)
{
#ifdef HAVE_FSEEKO
    if (fseeko(fp, offset, whence) != 0) {
        int err = errno;
        G_fatal_error(_("File read/write operation failed: %s (%d)"),
                      strerror(err), err);
    }
#else
    long loff = (long)offset;
 
    if ((off_t)loff != offset)
        G_fatal_error(_("Seek offset out of range"));
    if (fseek(fp, loff, whence) != 0) {
        int err = errno;
        G_fatal_error(_("File read/write operation failed: %s (%d)"),
                      strerror(err), err);
    }
#endif
}