compiler/stdc/fgetc.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function fgetc().
   6 */
   7
   8 #include <dos/dos.h>
   9 #include <proto/dos.h>
  10 #include <errno.h>
  11
  12 #include "__stdio.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <stdio.h>
  18
  19         int fgetc (
  20
  21 /*  SYNOPSIS */
  22         FILE * stream)
  23
  24 /*  FUNCTION
  25         Read one character from the stream. If there is no character
  26         available or an error occurred, the function returns EOF.
  27
  28     INPUTS
  29         stream - Read from this stream
  30
  31     RESULT
  32         The character read or EOF on end of file or error.
  33         If EOF is returned feof() and ferror() indicate if it was an
  34         end-of-file situation or an error.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         getc(), feof(), ferror(), fputc(), putc()
  44
  45     INTERNALS
  46
  47 ******************************************************************************/
  48 {
  49     LONG c, ioerr;
  50
  51     if (!(stream->flags & __STDCIO_STDIO_READ))
  52     {
  53         SetIoErr(ERROR_READ_PROTECTED);
  54         errno = EACCES;
  55         stream->flags |= __STDCIO_STDIO_ERROR;
  56         return EOF;
  57     }
  58
  59     if (stream->flags & __STDCIO_STDIO_FLUSHONREAD)
  60     {
  61         Flush(stream->fh);
  62         stream->flags &= ~__STDCIO_STDIO_FLUSHONREAD;
  63     }
  64
  65     c = FGetC (stream->fh);
  66     if (c == EOF)
  67     {
  68         ioerr = IoErr ();
  69
  70         if (ioerr)
  71         {
  72             errno = __stdc_ioerr2errno (ioerr);
  73             stream->flags |= __STDCIO_STDIO_ERROR;
  74         }
  75         else
  76             stream->flags |= __STDCIO_STDIO_EOF;
  77     }
  78
  79     return (int)c;
  80 } /* fgetc */