1*47940Sbostic /*-
2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic * All rights reserved.
422977Skre *
5*47940Sbostic * %sccs.include.proprietary.c%
610540Sdlw */
710540Sdlw
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)s_cat.c 5.2 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic
s_cat(lp,rpp,rnp,np,ll)1210540Sdlw s_cat(lp, rpp, rnp, np, ll)
1310540Sdlw char *lp, *rpp[];
1410540Sdlw long int rnp[], *np, ll;
1510540Sdlw {
1610540Sdlw int i, n, nc;
1710540Sdlw char *rp;
1810540Sdlw
1910540Sdlw n = *np;
2010540Sdlw for(i = 0 ; i < n ; ++i)
2110540Sdlw {
2210540Sdlw nc = ll;
2310540Sdlw if(rnp[i] < nc)
2410540Sdlw nc = rnp[i];
2510540Sdlw ll -= nc;
2610540Sdlw rp = rpp[i];
2710540Sdlw while(--nc >= 0)
2810540Sdlw *lp++ = *rp++;
2910540Sdlw }
3010540Sdlw while(--ll >= 0)
3110540Sdlw *lp++ = ' ';
3210540Sdlw }
33