2.9BSD - /usr/src/lib/libF77/s_cat.c

   1: /*
   2:  *	"@(#)s_cat.c	1.1"
   3:  */
   4: 
   5: s_cat(lp, rpp, rnp, np, ll)
   6: char *lp, *rpp[];
   7: long int rnp[], *np, ll;
   8: {
   9: int i, n, nc;
  10: char *rp;
  11: 
  12: n = *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:     rp = rpp[i];
  20:     while(--nc >= 0)
  21:         *lp++ = *rp++;
  22:     }
  23: while(--ll >= 0)
  24:     *lp++ = ' ';
  25: }

Defined functions