source: buchla-68k/libcio/ungetc.c@ 0580615

/*
   ============================================================================
        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);
}