Return to system_.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libF77 / CCI

Annotation of 43BSDTahoe/usr.lib/libF77/CCI/system_.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     @(#)system_.c   5.1 (Berkeley) 11/3/86
                      3:  */
                      4: 
                      5: /* f77 interface to system routine */
                      6: 
                      7: system_(s, n)
                      8: register char *s;
                      9: long int n;
                     10: {
                     11: char buff[1001];
                     12: register char *bp, *blast;
                     13: 
                     14: blast = buff + (n<1000 ? n : 1000L);
                     15: 
                     16: for(bp = buff ; bp<blast && *s!='\0' ; )
                     17:        *bp++ = *s++;
                     18: *bp = '\0';
                     19: system(buff);
                     20: }

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