Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
300 serge 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
}