UNIX 7th Ed. - /usr/src/libF77/s_cat.c

   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: }

Defined functions