2.11BSD#431 - /usr/src/usr.lib/libF77/s_cat.c

   1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  *
   6:  *	@(#)s_cat.c	5.1	6/7/85
   7:  */
   8: 
   9: s_cat(lp, rpp, rnp, np, ll)
  10: char *lp, *rpp[];
  11: long int rnp[], *np, ll;
  12: {
  13: int i, n, nc;
  14: char *rp;
  15: 
  16: n = *np;
  17: for(i = 0 ; i < n ; ++i)
  18:     {
  19:     nc = ll;
  20:     if(rnp[i] < nc)
  21:         nc = rnp[i];
  22:     ll -= nc;
  23:     rp = rpp[i];
  24:     while(--nc >= 0)
  25:         *lp++ = *rp++;
  26:     }
  27: while(--ll >= 0)
  28:     *lp++ = ' ';
  29: }

Defined functions