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

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