Mercurial > hg > octave-nkf > gnulib-hg
changeset 9738:923434ebe936
New module 'freadseek'.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Fri, 29 Feb 2008 10:29:38 +0100 |
parents | 72d94f405347 |
children | 8b28ae918b51 |
files | ChangeLog MODULES.html.sh lib/freadseek.c lib/freadseek.h modules/freadseek |
diffstat | 5 files changed, 187 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2008-02-29 Bruno Haible <bruno@clisp.org> + + New module 'freadseek'. + * modules/freadseek: New file. + * lib/freadseek.h: New file. + * lib/freadseek.c: New file. + * MODULES.html.sh (File stream based Input/Output): Add freadseek. + 2008-02-29 Sergey Poznyakoff <gray@gnu.org.ua> * users.txt: Add anubis, cpio, mailfromd, mailutils, radius,
--- a/MODULES.html.sh +++ b/MODULES.html.sh @@ -2283,6 +2283,7 @@ func_module freadahead func_module freading func_module freadptr + func_module freadseek func_module fwritable func_module fwriting func_module getpass
new file mode 100644 --- /dev/null +++ b/lib/freadseek.c @@ -0,0 +1,111 @@ +/* Skipping input from a FILE stream. + Copyright (C) 2007-2008 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +#include <config.h> + +/* Specification. */ +#include "freadseek.h" + +#include <stdlib.h> +#include <unistd.h> + +#include "freadahead.h" + +int +freadseek (FILE *fp, size_t offset) +{ + size_t buffered; + int fd; + + if (offset == 0) + return 0; + + /* Increment the in-memory pointer. This is very cheap (no system calls). */ + buffered = freadahead (fp); + if (buffered > 0) + { + size_t increment = (buffered < offset ? buffered : offset); + + /* Keep this code in sync with freadahead and freadptr! */ +#if defined _IO_ferror_unlocked /* GNU libc, BeOS */ + fp->_IO_read_ptr += increment; +#elif defined __sferror /* FreeBSD, NetBSD, OpenBSD, MacOS X, Cygwin */ + fp->_p += increment; + fp->_r -= increment; +#elif defined _IOERR /* AIX, HP-UX, IRIX, OSF/1, Solaris, mingw */ +# if defined __sun && defined _LP64 /* Solaris/{SPARC,AMD64} 64-bit */ +# define fp_ ((struct { unsigned char *_ptr; \ + unsigned char *_base; \ + unsigned char *_end; \ + long _cnt; \ + int _file; \ + unsigned int _flag; \ + } *) fp) + fp_->_ptr += increment; + fp_->_cnt -= increment; +# else + fp->_ptr += increment; + fp->_cnt -= increment; +# endif +#elif defined __UCLIBC__ /* uClibc */ +# ifdef __STDIO_BUFFERS + fp->__bufpos += increment; +# else + abort (); +# endif +#elif defined __QNX__ /* QNX */ + fp->_Next += increment; +#else + #error "Please port gnulib freadseek.c to your platform! Look at the definition of getc, getc_unlocked on your system, then report this to bug-gnulib." +#endif + + offset -= increment; + if (offset == 0) + return 0; + } + + /* Test whether the stream is seekable or not. */ + fd = fileno (fp); + if (fd >= 0 && lseek (fd, 0, SEEK_CUR) >= 0) + { + /* FP refers to a regular file. fseek is most efficient in this case. */ + return fseek (fp, offset, SEEK_CUR); + } + else + { + /* FP is a non-seekable stream, possibly not even referring to a file + descriptor. Read OFFSET bytes explicitly and discard them. */ + char buf[4096]; + + do + { + size_t count = (sizeof (buf) < offset ? sizeof (buf) : offset); + if (fread (buf, 1, count, fp) < count) + { + if (ferror (fp)) + /* EOF, or error before or while reading. */ + return EOF; + else + /* Encountered EOF. */ + return 0; + } + offset -= count; + } + while (offset > 0); + + return 0; + } +}
new file mode 100644 --- /dev/null +++ b/lib/freadseek.h @@ -0,0 +1,42 @@ +/* Skipping input from a FILE stream. + Copyright (C) 2007-2008 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +#include <stddef.h> +#include <stdio.h> + +#ifdef __cplusplus +extern "C" { +#endif + +/* Assuming the stream STREAM is open for reading: + + Read and discard OFFSET bytes from STREAM. + + freadseek (STREAM, OFFSET) is the same as + fseek (STREAM, OFFSET, SEEK_CUR), except that the latter does not work + on non-seekable input streams (such as pipes). + + Upon success, return 0. + Upon premature end of stream, return 0 (like fseek does). + Upon error, set the error indicator in the stream and return EOF. + + STREAM must not be wide-character oriented. */ + +extern int freadseek (FILE *stream, size_t offset); + +#ifdef __cplusplus +} +#endif
new file mode 100644 --- /dev/null +++ b/modules/freadseek @@ -0,0 +1,25 @@ +Description: +freadseek() function: Read and discard input from a stream. + +Files: +lib/freadseek.h +lib/freadseek.c + +Depends-on: +freadahead +lseek + +configure.ac: + +Makefile.am: +lib_SOURCES += freadseek.c + +Include: +"freadseek.h" + +License: +LGPL + +Maintainer: +Bruno Haible +