home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / compiler / small_c / cb / sources / page.c < prev    next >
Encoding:
Text File  |  1985-07-22  |  512 b   |  25 lines
  1.  
  2. /*
  3. ** page.c -- tell stderr of new page and possibly pause
  4. */
  5. page(pageno, pause, fd) int pageno, pause, fd; {
  6.   int i;
  7.   char str[6];
  8.   str[5]=NULL;
  9.   itod(pageno, str, 5);
  10.   i=0;
  11.   while(str[i]==' ') ++i;
  12.   if((pause==YES)&&(pageno>1)&&isatty(fd)) {
  13.     fputs("\7set page ", stderr);
  14.     fputs(str+i, stderr);
  15.     fputs("... ", stderr);
  16.     return fgetc(stderr);
  17.     }
  18.   else {
  19.     fputs("page ", stderr);
  20.     fputs(str+i, stderr);
  21.     fputc('\n', stderr);
  22.     return NULL;
  23.     }
  24.   }
  25.