Subversion Repositories Kolibri OS

Rev

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

  1. #include "kolibc.h"
  2.  
  3. extern int fill_buff(FILE* f);
  4.  
  5. int fgetc(FILE* f)
  6. { char retval;
  7.  
  8.   if(!((f->mode & FILE_OPEN_READ)|(f->mode & FILE_OPEN_PLUS)))
  9.     return EOF;
  10.  
  11.   if(f->remain ==0)
  12.   { f->filepos+=4096;
  13.     if(!fill_buff(f))
  14.       return EOF;
  15.   };
  16.      
  17.   retval= *(f->stream);          
  18.   f->strpos++;
  19.   f->stream++;
  20.   f->remain--;  
  21.   return (int)retval;
  22. }