compiler/clib/fgetc.c

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