diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/peekc.c

   1 #ifdef COMMENT
   2         Proprietary Rand Corporation, 1981.
   3         Further distribution of this software
   4         subject to the terms of the Rand
   5         license agreement.
   6 #endif
   7
   8 #include <stdio.h>
   9 #include "../mh.h"
  10
  11 peekc(ib)
  12 FILE *ib;
  13 {
  14         register c;
  15
  16         c = getc(ib);
  17         VOID ungetc(c,ib);
  18         return(c);
  19 }