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 }