compiler/clib/fgetc.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C function fgetc().
   6 */
   7
   8 #include <errno.h>
   9 #include <dos/dos.h>
  10 #include <dos/dosextens.h>
  11 #include <proto/exec.h>
  12 #include <proto/dos.h>
  13 #include "__errno.h"
  14 #include "__open.h"
  15
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <stdio.h>
  21
  22         int fgetc (
  23
  24 /*  SYNOPSIS */
  25         FILE * stream)
  26
  27 /*  FUNCTION
  28         Read one character from the stream. If there is no character
  29         available or an error occurred, the function returns EOF.
  30
  31     INPUTS
  32         stream - Read from this stream
  33
  34     RESULT
  35         The character read or EOF on end of file or error.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         getc(), fputc(), putc()
  45
  46     INTERNALS
  47
  48 ******************************************************************************/
  49 {
  50     int c;
  51     fdesc *fdesc = __getfdesc(stream->fd);
  52
  53     if (!fdesc)
  54     {
  55         errno = EBADF;
  56         stream->flags |= _STDIO_ERROR;
  57         return EOF;
  58     }
  59
  60     /* Note: changes here might require changes in vfscanf.c!! */
  61
  62     c = FGetC ((BPTR)(fdesc->fh));
  63     if (c == EOF)
  64     {
  65         c = IoErr ();
  66
  67         if (c)
  68         {
  69             errno = IoErr2errno (c);
  70
  71             stream->flags |= _STDIO_ERROR;
  72         }
  73         else
  74             stream->flags |= _STDIO_EOF;
  75
  76         c = EOF;
  77     }
  78
  79     return c;
  80 } /* fgetc */
  81