Return to s_paus.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/s_paus.c, revision 1.1.1.1

1.1       root        1: #include "stdio.h"
                      2: #include "f2c.h"
                      3: #define PAUSESIG 15
                      4: 
                      5: #ifdef KR_headers
                      6: #define Void /* void */
                      7: #define Int /* int */
                      8: #else
                      9: #define Void void
                     10: #define Int int
                     11: #undef abs
                     12: #include "stdlib.h"
                     13: #include "signal.h"
                     14: #ifdef __cplusplus
                     15: extern "C" {
                     16: #endif
                     17: extern int getpid(void), isatty(int), pause(void);
                     18: #endif
                     19: 
                     20: extern VOID f_exit(Void);
                     21: 
                     22: static VOID waitpause(Int n)
                     23: {
                     24: return;
                     25: }
                     26: 
                     27: #ifdef KR_headers
                     28: int s_paus(s, n) char *s; ftnlen n;
                     29: #else
                     30: int s_paus(char *s, ftnlen n)
                     31: #endif
                     32: {
                     33: int i;
                     34: 
                     35: fprintf(stderr, "PAUSE ");
                     36: if(n > 0)
                     37:        for(i = 0; i<n ; ++i)
                     38:                putc(*s++, stderr);
                     39: fprintf(stderr, " statement executed\n");
                     40: if( isatty(fileno(stdin)) )
                     41:        {
                     42:        fprintf(stderr, "To resume execution, type go.  Any other input will terminate job.\n");
                     43:        fflush(stderr);
                     44:        if( getchar()!='g' || getchar()!='o' || getchar()!='\n' )
                     45:                {
                     46:                fprintf(stderr, "STOP\n");
                     47:                f_exit();
                     48:                exit(0);
                     49:                }
                     50:        }
                     51: else
                     52:        {
                     53:        fprintf(stderr, "To resume execution, execute a   kill -%d %d   command\n",
                     54:                PAUSESIG, getpid() );
                     55:        signal(PAUSESIG, waitpause);
                     56:        fflush(stderr);
                     57:        pause();
                     58:        }
                     59: fprintf(stderr, "Execution resumes after PAUSE.\n");
                     60: #ifdef __cplusplus
                     61: return 0; /* NOT REACHED */
                     62: }
                     63: #endif
                     64: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.