compiler/clib/fflush.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C function fflush().
   6 */
   7
   8 #include "__arosc_privdata.h"
   9
  10 #include <exec/types.h>
  11 #include <exec/lists.h>
  12 #include <dos/dosextens.h>
  13 #include <proto/exec.h>
  14 #include <proto/dos.h>
  15 #include "__errno.h"
  16 #include "__stdio.h"
  17 #include "__open.h"
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <stdio.h>
  23
  24         int fflush (
  25
  26 /*  SYNOPSIS */
  27         FILE * stream)
  28
  29 /*  FUNCTION
  30         Flush a stream. If the stream is an input stream, then the stream
  31         is synchronised for unbuffered I/O. If the stream is an output
  32         stream, then any buffered data is written.
  33
  34     INPUTS
  35         stream - Flush this stream. May be NULL. In this case, all
  36                 output streams are flushed.
  37
  38     RESULT
  39         0 on success or EOF on error.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51 ******************************************************************************/
  52 {
  53     AROS_GET_SYSBASE_OK
  54     AROS_GET_DOSBASE
  55
  56     /* flush all streams opened for output */
  57     if (!stream)
  58     {
  59         FILENODE *fn;
  60
  61         ForeachNode (&__stdio_files, fn)
  62         {
  63             if (fn->File.flags & _STDIO_WRITE)
  64             {
  65                 fdesc *fdesc = __getfdesc(fn->File.fd);
  66
  67                 if (!fdesc)
  68                 {
  69                     errno = EBADF;
  70                     return EOF;
  71                 }
  72
  73                 if (!Flush((BPTR)fdesc->fh))
  74                 {
  75                     errno = IoErr2errno(IoErr());
  76                     return EOF;
  77                 }
  78             }
  79         }
  80     }
  81     else
  82     {
  83         fdesc *fdesc = __getfdesc(stream->fd);
  84
  85         if (!fdesc || !(stream->flags & _STDIO_WRITE))
  86         {
  87             errno = EBADF;
  88             return EOF;
  89         }
  90
  91         if (Flush((BPTR)fdesc->fh))
  92             return 0;
  93     }
  94
  95     errno = IoErr2errno(IoErr());
  96     return EOF;
  97 } /* fflush */
  98