forked from KolibriOS/kolibrios
b5b499b8c8
Move to folder with tcc. Part 1 git-svn-id: svn://kolibrios.org@8793 a494cfbc-eb01-0410-851d-a64ba20cac60
29 lines
472 B
C
29 lines
472 B
C
#include <stdio.h>
|
|
#include <errno.h>
|
|
// non standard realization - support for virtually change ONLY ONE char
|
|
|
|
int ungetc(int c, FILE* file)
|
|
{
|
|
int res;
|
|
|
|
if(!file){
|
|
errno = EBADF;
|
|
return EOF;
|
|
}
|
|
|
|
if (file->mode != _FILEMODE_R){
|
|
errno = EACCES;
|
|
return EOF;
|
|
}
|
|
|
|
if (file->position == 0 || c == EOF)
|
|
{
|
|
errno = EOF;
|
|
return EOF;
|
|
}
|
|
|
|
file->__ungetc_emu_buff = c;
|
|
file->position--;
|
|
return c;
|
|
}
|