diplodocus.org Git - nmh/blob - sbr/peekc.c

   1
   2 /*
   3  * peekc.c -- peek at the next character in a stream
   4  *
   5  * $Id$
   6  */
   7
   8 #include <h/mh.h>
   9
  10
  11 int
  12 peekc(FILE *fp)
  13 {
  14     register int c;
  15
  16     c = getc(fp);
  17     ungetc(c, fp);
  18     return c;
  19 }