]> 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             /* Delete tmpfile() */
47             if ( stream->status & _PDCLIB_DELONCLOSE )
48             {
49                 remove( stream->filename );
50             }
51             /* Free stream */
52             if ( ! ( stream->status & _PDCLIB_STATIC ) )
53             {
54                 free( stream );
55             }
56             return 0;
57         }
58         previous = current;
59         current = current->next;
60     }
61     _PDCLIB_errno = _PDCLIB_EIO;
62     return -1;
63 }
64
65 #endif
66
67 #ifdef TEST
68 #include <_PDCLIB_test.h>
69
70 int main( void )
71 {
72 #ifndef REGTEST
73     struct _PDCLIB_file_t * file1;
74     struct _PDCLIB_file_t * file2;
75     remove( testfile1 );
76     remove( testfile2 );
77     TESTCASE( _PDCLIB_filelist == stdin );
78     TESTCASE( ( file1 = fopen( testfile1, "w" ) ) != NULL );
79     TESTCASE( _PDCLIB_filelist == file1 );
80     TESTCASE( ( file2 = fopen( testfile2, "w" ) ) != NULL );
81     TESTCASE( _PDCLIB_filelist == file2 );
82     TESTCASE( fclose( file2 ) == 0 );
83     TESTCASE( _PDCLIB_filelist == file1 );
84     TESTCASE( ( file2 = fopen( testfile1, "w" ) ) != NULL );
85     TESTCASE( _PDCLIB_filelist == file2 );
86     TESTCASE( fclose( file1 ) == 0 );
87     TESTCASE( _PDCLIB_filelist == file2 );
88     TESTCASE( fclose( file2 ) == 0 );
89     TESTCASE( _PDCLIB_filelist == stdin );
90     remove( testfile1 );
91     remove( testfile2 );
92 #else
93     puts( " NOTEST fclose() test driver is PDCLib-specific." );
94 #endif
95     return TEST_RESULTS;
96 }
97
98 #endif
99