Return to s_stop.c CVS log

Up to [Research Unix] / researchv10no / libF77

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

1.1       root        1: #include "stdio.h"
                      2: #include "f2c.h"
                      3: 
                      4: #ifdef KR_headers
                      5: extern void f_exit();
                      6: VOID s_stop(s, n) char *s; ftnlen n;
                      7: #else
                      8: #undef abs
                      9: #include "stdlib.h"
                     10: #ifdef __cplusplus
                     11: extern "C" {
                     12: #endif
                     13: void f_exit(void);
                     14: 
                     15: int s_stop(char *s, ftnlen n)
                     16: #endif
                     17: {
                     18: int i;
                     19: 
                     20: if(n > 0)
                     21:        {
                     22:        fprintf(stderr, "STOP ");
                     23:        for(i = 0; i<n ; ++i)
                     24:                putc(*s++, stderr);
                     25:        fprintf(stderr, " statement executed\n");
                     26:        }
                     27: f_exit();
                     28: exit(0);
                     29: #ifdef __cplusplus
                     30: return 0; /* NOT REACHED */
                     31: }
                     32: #endif
                     33: }

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