]> pd.if.org Git - pdclib.old/blob - functions/stdio/fflush.c
Move lconv definition for default locale inside of struct
[pdclib.old] / functions / stdio / fflush.c
1 /* $Id$ */
2
3 /* fflush( FILE * )
4
5    This file is part of the Public Domain C Library (PDCLib).
6    Permission is granted to use, modify, and / or redistribute at will.
7 */
8
9 #include <stdio.h>
10
11 #ifndef REGTEST
12 #include <_PDCLIB_io.h>
13
14 extern FILE * _PDCLIB_filelist;
15
16 int fflush_unlocked( FILE * stream )
17 {
18     if ( stream == NULL )
19     {
20         stream = _PDCLIB_filelist;
21         /* TODO: Check what happens when fflush( NULL ) encounters write errors, in other libs */
22         int rc = 0;
23         while ( stream != NULL )
24         {
25             if ( stream->status & _PDCLIB_FWRITE )
26             {
27                 if ( _PDCLIB_flushbuffer( stream ) == EOF )
28                 {
29                     rc = EOF;
30                 }
31             }
32             stream = stream->next;
33         }
34         return rc;
35     }
36     else
37     {
38         return _PDCLIB_flushbuffer( stream );
39     }
40 }
41
42 int fflush( FILE * stream )
43 {
44     flockfile( stream );
45     int res = fflush_unlocked(stream);
46     funlockfile( stream );
47     return res;
48 }
49                 
50 #endif
51
52 #ifdef TEST
53 #include <_PDCLIB_test.h>
54
55 int main( void )
56 {
57     /* Testing covered by ftell.c */
58     return TEST_RESULTS;
59 }
60
61 #endif
62