home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libF77 / s_paus.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  712 b   |  45 lines
  1. #include <stdio.h>
  2. #define PAUSESIG 15
  3.  
  4.  
  5. s_paus(s, n)
  6. char *s;
  7. long int n;
  8. {
  9. int i;
  10. int waitpause();
  11.  
  12. fprintf(stderr, "PAUSE ");
  13. if(n > 0)
  14.     for(i = 0; i<n ; ++i)
  15.         putc(*s++, stderr);
  16. fprintf(stderr, " statement executed\n");
  17. if( isatty(fileno(stdin)) )
  18.     {
  19.     fprintf(stderr, "To resume execution, type go.  Any other input will terminate job.\n");
  20.     if( getchar()!='g' || getchar()!='o' || getchar()!='\n' )
  21.         {
  22.         fprintf(stderr, "STOP\n");
  23.         f_exit();
  24.         exit(0);
  25.         }
  26.     }
  27. else
  28.     {
  29.     fprintf(stderr, "To resume execution, execute a   kill -%d %d   command\n",
  30.         PAUSESIG, getpid() );
  31.     signal(PAUSESIG, waitpause);
  32.     pause();
  33.     }
  34. fprintf(stderr, "Execution resumes after PAUSE.\n");
  35. }
  36.  
  37.  
  38.  
  39.  
  40.  
  41. static waitpause()
  42. {
  43. return;
  44. }
  45.