pd.if.org Git - pdclib.old/blob - functions/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 /* FIXME: Last file not removed from list. */
  18 int fclose( struct _PDCLIB_file_t * stream )
  19 {
  20     struct _PDCLIB_file_t * current = _PDCLIB_filelist;
  21     struct _PDCLIB_file_t * previous = NULL;
  22     /* Checking that the FILE handle is actually one we had opened before. */
  23     while ( current != NULL )
  24     {
  25         if ( stream == current )
  26         {
  27             if ( stream->status & _PDCLIB_WROTELAST ) fflush( stream );
  28             if ( stream->status & _PDCLIB_LIBBUFFER ) free( stream->buffer );
  29             _PDCLIB_close( stream->handle );
  30             if ( previous != NULL )
  31             {
  32                 previous->next = current->next;
  33             }
  34             else
  35             {
  36                 _PDCLIB_filelist = current->next;
  37             }
  38             return 0;
  39         }
  40         previous = current;
  41         current = current->next;
  42     }
  43     return -1;
  44 }
  45
  46 #endif
  47
  48 #ifdef TEST
  49 #include <_PDCLIB_test.h>
  50
  51 int main( void )
  52 {
  53 #ifndef REGTEST
  54     struct _PDCLIB_file_t * file1;
  55     struct _PDCLIB_file_t * file2;
  56     TESTCASE( _PDCLIB_filelist == NULL );
  57     TESTCASE( ( file1 = fopen( "testfile1", "w" ) ) != NULL );
  58     TESTCASE( _PDCLIB_filelist == file1 );
  59     TESTCASE( ( file2 = fopen( "testfile2", "w" ) ) != NULL );
  60     TESTCASE( _PDCLIB_filelist == file2 );
  61     TESTCASE( fclose( file2 ) == 0 );
  62     TESTCASE( _PDCLIB_filelist == file1 );
  63     TESTCASE( ( file2 = fopen( "testfile1", "w" ) ) != NULL );
  64     TESTCASE( _PDCLIB_filelist == file2 );
  65     TESTCASE( fclose( file1 ) == 0 );
  66     TESTCASE( _PDCLIB_filelist == file2 );
  67     TESTCASE( fclose( file2 ) == 0 );
  68     TESTCASE( _PDCLIB_filelist == NULL );
  69     system( "rm testfile1 testfile2" );
  70 #else
  71     puts( " NOTEST fclose() test driver is PDCLib-specific." );
  72 #endif
  73     return TEST_RESULTS;
  74 }
  75
  76 #endif