Return to s_cat.c CVS log

Up to [Research Unix] / researchv10no / libF77

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

1.1       root        1: #include "f2c.h"
                      2: 
                      3: #ifdef KR_headers
                      4: VOID s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnlen rnp[], *np, ll;
                      5: #else
                      6: VOID s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll)
                      7: #endif
                      8: {
                      9: ftnlen i, n, nc;
                     10: char *f__rp;
                     11: 
                     12: n = (int)*np;
                     13: for(i = 0 ; i < n ; ++i)
                     14:        {
                     15:        nc = ll;
                     16:        if(rnp[i] < nc)
                     17:                nc = rnp[i];
                     18:        ll -= nc;
                     19:        f__rp = rpp[i];
                     20:        while(--nc >= 0)
                     21:                *lp++ = *f__rp++;
                     22:        }
                     23: while(--ll >= 0)
                     24:        *lp++ = ' ';
                     25: }

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