]> pd.if.org Git - pdclib.old/blob - stdio/fclose.c
[gandr] s/__lp64__/__LP64__/ to match GCC define
[pdclib.old] / stdio / fclose.c
1 /* $Id$ */
2
3 /* fclose( 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 #include <stdlib.h>
11
12 #ifndef REGTEST
13 #include <_PDCLIB_glue.h>
14
15 extern struct _PDCLIB_file_t * _PDCLIB_filelist;
16
17 int fclose( struct _PDCLIB_file_t * stream )
18 {
19     struct _PDCLIB_file_t * current = _PDCLIB_filelist;
20     struct _PDCLIB_file_t * previous = NULL;
21     /* Checking that the FILE handle is actually one we had opened before. */
22     while ( current != NULL )
23     {
24         if ( stream == current )
25         {
26             /* Flush buffer */
27             if ( stream->status & _PDCLIB_FWRITE )
28             {
29                 if ( _PDCLIB_flushbuffer( stream ) == EOF )
30                 {
31                     /* Flush failed, errno already set */
32                     return EOF;
33                 }
34             }
35             /* Close handle */
36             _PDCLIB_close( stream->handle );
37             /* Remove stream from list */
38             if ( previous != NULL )
39             {
40                 previous->next = stream->next;
41             }
42             else
43             {
44                 _PDCLIB_filelist = stream->next;
45             }
46             /* Free stream */
47             free( stream );
48             return 0;
49         }
50         previous = current;
51         current = current->next;
52     }
53     _PDCLIB_errno = _PDCLIB_EIO;
54     return -1;
55 }
56
57 #endif
58
59 #ifdef TEST
60 #include <_PDCLIB_test.h>
61
62 int main( void )
63 {
64 #ifndef REGTEST
65     struct _PDCLIB_file_t * file1;
66     struct _PDCLIB_file_t * file2;
67     remove( "testfile1" );
68     remove( "testfile2" );
69     TESTCASE( _PDCLIB_filelist == stdin );
70     TESTCASE( ( file1 = fopen( "testfile1", "w" ) ) != NULL );
71     TESTCASE( _PDCLIB_filelist == file1 );
72     TESTCASE( ( file2 = fopen( "testfile2", "w" ) ) != NULL );
73     TESTCASE( _PDCLIB_filelist == file2 );
74     TESTCASE( fclose( file2 ) == 0 );
75     TESTCASE( _PDCLIB_filelist == file1 );
76     TESTCASE( ( file2 = fopen( "testfile1", "w" ) ) != NULL );
77     TESTCASE( _PDCLIB_filelist == file2 );
78     TESTCASE( fclose( file1 ) == 0 );
79     TESTCASE( _PDCLIB_filelist == file2 );
80     TESTCASE( fclose( file2 ) == 0 );
81     TESTCASE( _PDCLIB_filelist == stdin );
82     remove( "testfile1" );
83     remove( "testfile2" );
84 #else
85     puts( " NOTEST fclose() test driver is PDCLib-specific." );
86 #endif
87     return TEST_RESULTS;
88 }
89
90 #endif
91