Return to s_cat.c CVS log

Up to [CSRG BSD Unix] / 3BSD / libF77

Annotation of 3BSD/libF77/s_cat.c, revision 1.1.1.1

1.1       root        1: s_cat(lp, rpp, rnp, np, ll)
                      2: char *lp, *rpp[];
                      3: long int rnp[], *np, ll;
                      4: {
                      5: int i, n, nc;
                      6: char *rp;
                      7: 
                      8: n = *np;
                      9: for(i = 0 ; i < n ; ++i)
                     10:        {
                     11:        nc = ll;
                     12:        if(rnp[i] < nc)
                     13:                nc = rnp[i];
                     14:        ll -= nc;
                     15:        rp = rpp[i];
                     16:        while(--nc >= 0)
                     17:                *lp++ = *rp++;
                     18:        }
                     19: while(--ll >= 0)
                     20:        *lp++ = ' ';
                     21: }

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