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

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

#include "ram.h"

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

        *--ptr->_bp = (int8_t)c;

        return(c);
}