Return to s_stop.c CVS log

Up to [CSRG BSD Unix] / 40BSD / lib / libF77

Annotation of 40BSD/lib/libF77/s_stop.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: 
                      3: s_stop(s, n)
                      4: char *s;
                      5: long int n;
                      6: {
                      7: int i;
                      8: 
                      9: if(n > 0)
                     10:        {
                     11:        fprintf(stderr, "STOP ");
                     12:        for(i = 0; i<n ; ++i)
                     13:                putc(*s++, stderr);
                     14:        fprintf(stderr, " statement executed\n");
                     15:        }
                     16: f_exit();
                     17: exit(0);
                     18: }

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