compiler/clib/fflush.c

   1 /*
   2     Copyright © 1995-2012, 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 "__fdesc.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     struct aroscbase *aroscbase = __GM_GetBase();
  54
  55     /* flush all streams opened for output */
  56     if (!stream)
  57     {
  58         FILENODE *fn;
  59
  60         ForeachNode (&aroscbase->acb_stdio_files, fn)
  61         {
  62             if (fn->File.flags & _STDIO_WRITE)
  63             {
  64                 fdesc *fdesc = __getfdesc(fn->File.fd);
  65
  66                 if (!fdesc)
  67                 {
  68                     errno = EBADF;
  69                     return EOF;
  70                 }
  71
  72                 if (!Flush((BPTR)fdesc->fcb->fh))
  73                 {
  74                     errno = __arosc_ioerr2errno(IoErr());
  75                     return EOF;
  76                 }
  77             }
  78         }
  79     }
  80     else
  81     {
  82         fdesc *fdesc = __getfdesc(stream->fd);
  83
  84         if (!fdesc || !(stream->flags & _STDIO_WRITE))
  85         {
  86             errno = EBADF;
  87             return EOF;
  88         }
  89
  90         if (Flush((BPTR)fdesc->fcb->fh))
  91             return 0;
  92     }
  93
  94     errno = __arosc_ioerr2errno(IoErr());
  95     return EOF;
  96 } /* fflush */
  97