compiler/stdc/fflush.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function fflush().
   6 */
   7 #include <exec/lists.h>
   8 #include <proto/dos.h>
   9 #include <errno.h>
  10
  11 #include "__stdio.h"
  12 #include "__stdcio_intbase.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <stdio.h>
  18
  19         int fflush (
  20
  21 /*  SYNOPSIS */
  22         FILE * stream)
  23
  24 /*  FUNCTION
  25         Flush a stream. If the stream is an input stream, then the stream
  26         is synchronised for unbuffered I/O. If the stream is an output
  27         stream, then any buffered data is written.
  28
  29     INPUTS
  30         stream - Flush this stream. May be NULL. In this case, all
  31                 output streams are flushed.
  32
  33     RESULT
  34         0 on success or EOF on error.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 ******************************************************************************/
  47 {
  48     if (stream == NULL)
  49     {
  50         /* flush all streams opened for output */
  51         struct StdCIOIntBase *StdCIOBase =
  52             (struct StdCIOIntBase *)__aros_getbase_StdCIOBase();
  53         FILE *f;
  54
  55         ForeachNode (&StdCIOBase->files, f)
  56         {
  57             if (fflush(f) == EOF)
  58                 return EOF;
  59         }
  60     }
  61     else
  62     {
  63         if (!Flush(stream->fh))
  64         {
  65             errno = __stdc_ioerr2errno(IoErr());
  66             return EOF;
  67         }
  68     }
  69
  70     return 0;
  71 } /* fflush */