/*
   ============================================================================
	ungetc.c -- 'unget' a character
	Version 2 -- 1987-06-26 -- D.N. Lynx Crowe
   ============================================================================
*/

#include "stdio.h"
#include "stddefs.h"

int ungetc(int c, FILE *ptr)
{
	if ((c EQ EOF) OR (ptr->_bp LE ptr->_buff))
		return(EOF);

	*--ptr->_bp = c;

	return(c);
}