diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/sbr/peekc.c

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