forked from KolibriOS/kolibrios
initial import of metcc project
git-svn-id: svn://kolibrios.org@145 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
11
programs/develop/metcc/trunk/libc/file/ungetc.c
Normal file
11
programs/develop/metcc/trunk/libc/file/ungetc.c
Normal file
@@ -0,0 +1,11 @@
|
||||
#include "stdio.h"
|
||||
int ungetc(int c,FILE* file)
|
||||
{
|
||||
if (c==EOF)
|
||||
return EOF;
|
||||
if (file->filepos<=0 || file->filepos>file->filesize)
|
||||
return EOF;
|
||||
file->filepos--;
|
||||
file->buffer[file->filepos]=(char)c;
|
||||
return c;
|
||||
}
|
Reference in New Issue
Block a user