1 /* ----------------------------------------------------------------------------
3 * ----------------------------------------------------------------------------
4 * Public Domain C Library - http://pdclib.sourceforge.net
5 * This code is Public Domain. Use, modify, and redistribute at will.
6 * --------------------------------------------------------------------------*/
8 int fclose( FILE * stream ) { /* TODO */ };
10 /* PDPC code - unreviewed.
11 Read the note in fopen.c.
12 int fclose(FILE *stream)
20 rc = DosClose(stream->hfile);
23 __close(stream->hfile);
26 __aclose(stream->hfile);
28 __userFiles[stream->intFno] = NULL;
29 if (!stream->theirBuffer)
31 free(stream->intBuffer);