7 #define Void /* void */
19 extern int getpid(void), isatty(int), pause(void);
22 extern VOID
f_exit(Void
);
32 s_1paus(fin
) FILE *fin
;
38 "To resume execution, type go. Other input will terminate the job.\n");
40 if( getc(fin
)!='g' || getc(fin
)!='o' || getc(fin
)!='\n' ) {
41 fprintf(stderr
, "STOP\n");
51 s_paus(s
, n
) char *s
; ftnlen n
;
53 s_paus(char *s
, ftnlen n
)
56 fprintf(stderr
, "PAUSE ");
58 fprintf(stderr
, " %.*s", (int)n
, s
);
59 fprintf(stderr
, " statement executed\n");
60 if( isatty(fileno(stdin
)) )
63 #if (defined (MSDOS) && !defined (GO32)) || defined (_WIN32)
65 fin
= fopen("con", "r");
67 fprintf(stderr
, "s_paus: can't open con!\n");
75 "To resume execution, execute a kill -%d %d command\n",
77 signal1(PAUSESIG
, waitpause
);
82 fprintf(stderr
, "Execution resumes after PAUSE.\n");
84 return 0; /* NOT REACHED */