kolibrios-fun/programs/develop/ktcc/trunk/libc.obj/source/stdio/ungetc.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;
}