Subversion Repositories Kolibri OS

Rev

Rev 300 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
300 serge 1 
#include "kolibc.h"
2 
 
3 
int write_buffer(FILE *f);
4 
 
5 
int fclose(FILE* file)
6 
{
7 
  int err;
8 
 
324 serge 9 
//  if((file->mode & FILE_OPEN_WRITE)||
10 
//     (file->mode & FILE_OPEN_APPEND)||
11 
//     (file->mode & FILE_OPEN_PLUS))
12 
//    err=write_buffer(file);
13 
 
14 
//  UserFree      dlfree(file->buffer);
15 
  dlfree(file->filename);
16 
  dlfree(file);
300 serge 17 
  return err == 0 ? 0:EOF;
324 serge 18 
}