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

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

Added include files for global functions and variables.
  • Property mode set to 100644
File size: 396 bytes
RevLine 
[f40a309]1/*
2 ============================================================================
3 ungetc.c -- 'unget' a character
4 Version 2 -- 1987-06-26 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
[6262b5c]8#include "all.h"
[f40a309]9
[7258c6a]10int16_t ungetc(int16_t c, FILE *ptr)
[f40a309]11{
12 if ((c EQ EOF) OR (ptr->_bp LE ptr->_buff))
13 return(EOF);
14
15 *--ptr->_bp = c;
16
17 return(c);
18}
[6262b5c]19
Note: See TracBrowser for help on using the repository browser.