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

Last change on this file since 599d89b was 0580615, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Point of no return.
  • Property mode set to 100644
File size: 410 bytes
Line 
1/*
2 ============================================================================
3 ungetc.c -- 'unget' a character
4 Version 2 -- 1987-06-26 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
8#include "stdio.h"
9#include "stddefs.h"
10
11int ungetc(int c, FILE *ptr)
12{
13 if ((c EQ EOF) OR (ptr->_bp LE ptr->_buff))
14 return(EOF);
15
16 *--ptr->_bp = c;
17
18 return(c);
19}
Note: See TracBrowser for help on using the repository browser.