home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / UNGETC.C < prev    next >
Encoding:
Text File  |  1985-01-24  |  500 b   |  24 lines
  1. main()    /* ungetc.c -- illustrates un get function ungetc() */
  2.  
  3. /* demonstrates ungetc() */
  4. /* Note that test.fil contains 30 consecutively-numbered lines */
  5.  
  6. {
  7.     FILE *fi;
  8.     int c, r;
  9.  
  10.     if((fi = fopen("test.fil","r")) == NULL) {
  11.         printf("Can't open test.fil\n");
  12.         exit();
  13.     }
  14.     while ((c = getc(fi)) != EOF) {
  15.         putchar(c);
  16.         if (c == '0'&& r != '0')
  17.             r = ungetc(c,fi);
  18.         else
  19.             r = EOF;
  20.     }
  21.     fclose(fi);
  22.     puts("\n...Correct answer:\n1\n2\n3\n4\n5\n6\n7\n8\n9\n100\netc.");
  23. }
  24.