home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libF77 / s_cat.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  273 b   |  22 lines
  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. }
  22.