compiler/stdc/ungetc.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function ungetc().
   6 */
   7 #include <dos/dos.h>
   8 #include <dos/dosextens.h>
   9 #include <proto/exec.h>
  10 #include <proto/dos.h>
  11 #include <errno.h>
  12
  13 #include "__stdio.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <stdio.h>
  19
  20         int ungetc (
  21
  22 /*  SYNOPSIS */
  23         int    c,
  24         FILE * stream)
  25
  26 /*  FUNCTION
  27         Puch the character c character back into the stream.
  28
  29     INPUTS
  30         c - Put this character back into the stream. The next read will
  31                 return this character. If you push back more than one
  32                 character, then they will be returned in reverse order.
  33                 The function gurantees that one character can be
  34                 pushed back but no more. It is possible to push the EOF
  35                 character back into the stream.
  36         stream - Read from this stream
  37
  38     RESULT
  39         c or EOF on error.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         fgetc(), getc(), fputc(), putc()
  49
  50     INTERNALS
  51
  52 ******************************************************************************/
  53 {
  54     /* Note: changes here might require changes in vfscanf.c!! */
  55
  56     if (c < -1)
  57         c = (unsigned int)c;
  58
  59     if (!UnGetC (stream->fh, c))
  60     {
  61         LONG ioerr = IoErr();
  62
  63         if (ioerr)
  64         {
  65             errno = __stdc_ioerr2errno(ioerr);
  66             stream->flags |= __STDCIO_STDIO_ERROR;
  67         }
  68         else
  69             stream->flags |= __STDCIO_STDIO_EOF;
  70
  71         c = EOF;
  72     }
  73
  74     return c;
  75 } /* ungetc */