Subversion Repositories Kolibri OS

Rev

Rev 300 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. #include "kolibc.h"
  2.  
  3. int write_buffer(FILE *f);
  4.  
  5. int fclose(FILE* file)
  6. {
  7.   int err;
  8.  
  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);
  17.   return err == 0 ? 0:EOF;
  18. }
  19.