kolibrios/programs/develop/metcc/trunk/libc/file/ungetc.c
andrew_programmer e5c041df96 Update Kolibri version of libC library(for usage in TinyC).
Correction of various mistakes in functions of work with files.
For work with files 70 function is used.
Functions for work with memory are changed for use of the new manager of memory. 

git-svn-id: svn://kolibrios.org@610 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-08-24 19:49:07 +00:00

18 lines
313 B
C

#include "stdio.h"
int ungetc(int c,FILE* file)
{
dword res;
if (c==EOF)
return EOF;
if (file->filepos<=0 || file->filepos>file->filesize)
return EOF;
file->filepos--;
res=_ksys_readfile(file->filename,file->filepos,1,file->buffer);
if (res==0)
{
return(c);
}
else return(EOF);
}