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     ! 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.