37 lines
624 B
C
37 lines
624 B
C
/* _PDCLIB_closeall( void )
|
|
|
|
This file is part of the Public Domain C Library (PDCLib).
|
|
Permission is granted to use, modify, and / or redistribute at will.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
#ifndef REGTEST
|
|
#include "_PDCLIB_io.h"
|
|
extern _PDCLIB_file_t * _PDCLIB_filelist;
|
|
|
|
void _PDCLIB_closeall( void )
|
|
{
|
|
_PDCLIB_file_t * stream = _PDCLIB_filelist;
|
|
_PDCLIB_file_t * next;
|
|
while ( stream != NULL )
|
|
{
|
|
next = stream->next;
|
|
fclose( stream );
|
|
stream = next;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
#ifdef TEST
|
|
#include "_PDCLIB_test.h"
|
|
|
|
int main( void )
|
|
{
|
|
/* No testdriver */
|
|
return TEST_RESULTS;
|
|
}
|
|
|
|
#endif
|
|
|