105436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Set the error indicator of a stream. 205436638acc7c010349a69c3395f1a57c642dc62Ying Wang Copyright (C) 2007-2012 Free Software Foundation, Inc. 305436638acc7c010349a69c3395f1a57c642dc62Ying Wang 405436638acc7c010349a69c3395f1a57c642dc62Ying Wang This program is free software: you can redistribute it and/or modify 505436638acc7c010349a69c3395f1a57c642dc62Ying Wang it under the terms of the GNU General Public License as published by 605436638acc7c010349a69c3395f1a57c642dc62Ying Wang the Free Software Foundation; either version 3 of the License, or 705436638acc7c010349a69c3395f1a57c642dc62Ying Wang (at your option) any later version. 805436638acc7c010349a69c3395f1a57c642dc62Ying Wang 905436638acc7c010349a69c3395f1a57c642dc62Ying Wang This program is distributed in the hope that it will be useful, 1005436638acc7c010349a69c3395f1a57c642dc62Ying Wang but WITHOUT ANY WARRANTY; without even the implied warranty of 1105436638acc7c010349a69c3395f1a57c642dc62Ying Wang MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1205436638acc7c010349a69c3395f1a57c642dc62Ying Wang GNU General Public License for more details. 1305436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1405436638acc7c010349a69c3395f1a57c642dc62Ying Wang You should have received a copy of the GNU General Public License 1505436638acc7c010349a69c3395f1a57c642dc62Ying Wang along with this program. If not, see <http://www.gnu.org/licenses/>. */ 1605436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1705436638acc7c010349a69c3395f1a57c642dc62Ying Wang#include <config.h> 1805436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1905436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Specification. */ 2005436638acc7c010349a69c3395f1a57c642dc62Ying Wang#include "fseterr.h" 2105436638acc7c010349a69c3395f1a57c642dc62Ying Wang 2205436638acc7c010349a69c3395f1a57c642dc62Ying Wang#include <errno.h> 2305436638acc7c010349a69c3395f1a57c642dc62Ying Wang 2405436638acc7c010349a69c3395f1a57c642dc62Ying Wang#include "stdio-impl.h" 2505436638acc7c010349a69c3395f1a57c642dc62Ying Wang 2605436638acc7c010349a69c3395f1a57c642dc62Ying Wangvoid 2705436638acc7c010349a69c3395f1a57c642dc62Ying Wangfseterr (FILE *fp) 2805436638acc7c010349a69c3395f1a57c642dc62Ying Wang{ 2905436638acc7c010349a69c3395f1a57c642dc62Ying Wang /* Most systems provide FILE as a struct and the necessary bitmask in 3005436638acc7c010349a69c3395f1a57c642dc62Ying Wang <stdio.h>, because they need it for implementing getc() and putc() as 3105436638acc7c010349a69c3395f1a57c642dc62Ying Wang fast macros. */ 3205436638acc7c010349a69c3395f1a57c642dc62Ying Wang#if defined _IO_ftrylockfile || __GNU_LIBRARY__ == 1 /* GNU libc, BeOS, Haiku, Linux libc5 */ 3305436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp->_flags |= _IO_ERR_SEEN; 3405436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined __sferror || defined __DragonFly__ /* FreeBSD, NetBSD, OpenBSD, DragonFly, Mac OS X, Cygwin */ 3505436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp_->_flags |= __SERR; 3605436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined __EMX__ /* emx+gcc */ 3705436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp->_flags |= _IOERR; 3805436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined __minix /* Minix */ 3905436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp->_flags |= _IOERR; 4005436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined _IOERR /* AIX, HP-UX, IRIX, OSF/1, Solaris, OpenServer, mingw, NonStop Kernel */ 4105436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp_->_flag |= _IOERR; 4205436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined __UCLIBC__ /* uClibc */ 4305436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp->__modeflags |= __FLAG_ERROR; 4405436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined __QNX__ /* QNX */ 4505436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp->_Mode |= 0x200 /* _MERR */; 4605436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined __MINT__ /* Atari FreeMiNT */ 4705436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp->__error = 1; 4805436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif defined EPLAN9 /* Plan9 */ 4905436638acc7c010349a69c3395f1a57c642dc62Ying Wang if (fp->state != 0 /* CLOSED */) 5005436638acc7c010349a69c3395f1a57c642dc62Ying Wang fp->state = 5 /* ERR */; 5105436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif 0 /* unknown */ 5205436638acc7c010349a69c3395f1a57c642dc62Ying Wang /* Portable fallback, based on an idea by Rich Felker. 5305436638acc7c010349a69c3395f1a57c642dc62Ying Wang Wow! 6 system calls for something that is just a bit operation! 5405436638acc7c010349a69c3395f1a57c642dc62Ying Wang Not activated on any system, because there is no way to repair FP when 5505436638acc7c010349a69c3395f1a57c642dc62Ying Wang the sequence of system calls fails, and library code should not call 5605436638acc7c010349a69c3395f1a57c642dc62Ying Wang abort(). */ 5705436638acc7c010349a69c3395f1a57c642dc62Ying Wang int saved_errno; 5805436638acc7c010349a69c3395f1a57c642dc62Ying Wang int fd; 5905436638acc7c010349a69c3395f1a57c642dc62Ying Wang int fd2; 6005436638acc7c010349a69c3395f1a57c642dc62Ying Wang 6105436638acc7c010349a69c3395f1a57c642dc62Ying Wang saved_errno = errno; 6205436638acc7c010349a69c3395f1a57c642dc62Ying Wang fflush (fp); 6305436638acc7c010349a69c3395f1a57c642dc62Ying Wang fd = fileno (fp); 6405436638acc7c010349a69c3395f1a57c642dc62Ying Wang fd2 = dup (fd); 6505436638acc7c010349a69c3395f1a57c642dc62Ying Wang if (fd2 >= 0) 6605436638acc7c010349a69c3395f1a57c642dc62Ying Wang { 6705436638acc7c010349a69c3395f1a57c642dc62Ying Wang close (fd); 6805436638acc7c010349a69c3395f1a57c642dc62Ying Wang fputc ('\0', fp); /* This should set the error indicator. */ 6905436638acc7c010349a69c3395f1a57c642dc62Ying Wang fflush (fp); /* Or this. */ 7005436638acc7c010349a69c3395f1a57c642dc62Ying Wang if (dup2 (fd2, fd) < 0) 7105436638acc7c010349a69c3395f1a57c642dc62Ying Wang /* Whee... we botched the stream and now cannot restore it! */ 7205436638acc7c010349a69c3395f1a57c642dc62Ying Wang abort (); 7305436638acc7c010349a69c3395f1a57c642dc62Ying Wang close (fd2); 7405436638acc7c010349a69c3395f1a57c642dc62Ying Wang } 7505436638acc7c010349a69c3395f1a57c642dc62Ying Wang errno = saved_errno; 7605436638acc7c010349a69c3395f1a57c642dc62Ying Wang#else 7705436638acc7c010349a69c3395f1a57c642dc62Ying Wang #error "Please port gnulib fseterr.c to your platform! Look at the definitions of ferror and clearerr on your system, then report this to bug-gnulib." 7805436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif 7905436638acc7c010349a69c3395f1a57c642dc62Ying Wang} 80