** return a single character to the io buffer
register struct fileps
*fp
;
if (fn
< 0 || fn
>= MAXFILES
)
__error("ungetc: illegal file number %d", fn
);
__error("ungetc: file %d not open for reading", fn
);
if (fp
->bptr
== fp
->pbuff
)
__error("ungetc: file %d: peek buffer full", fn
);
if (f_log
> 0 && fn
== cin
)