git.marmaro.de Git - mmh/blob - sbr/peekc.c

   1 /*
   2  * peekc.c -- peek at the next character in a stream
   3  *
   4  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   5  * COPYRIGHT file in the root directory of the nmh distribution for
   6  * complete copyright information.
   7  */
   8
   9 #include <h/mh.h>
  10
  11
  12 int
  13 peekc(FILE *fp)
  14 {
  15         register int c;
  16
  17         c = getc(fp);
  18         ungetc(c, fp);
  19         return c;
  20 }