110540Sdlw /* 2*22977Skre * Copyright (c) 1980 Regents of the University of California. 3*22977Skre * All rights reserved. The Berkeley software License Agreement 4*22977Skre * specifies the terms and conditions for redistribution. 5*22977Skre * 6*22977Skre * @(#)s_cat.c 5.1 06/07/85 710540Sdlw */ 810540Sdlw 910540Sdlw s_cat(lp, rpp, rnp, np, ll) 1010540Sdlw char *lp, *rpp[]; 1110540Sdlw long int rnp[], *np, ll; 1210540Sdlw { 1310540Sdlw int i, n, nc; 1410540Sdlw char *rp; 1510540Sdlw 1610540Sdlw n = *np; 1710540Sdlw for(i = 0 ; i < n ; ++i) 1810540Sdlw { 1910540Sdlw nc = ll; 2010540Sdlw if(rnp[i] < nc) 2110540Sdlw nc = rnp[i]; 2210540Sdlw ll -= nc; 2310540Sdlw rp = rpp[i]; 2410540Sdlw while(--nc >= 0) 2510540Sdlw *lp++ = *rp++; 2610540Sdlw } 2710540Sdlw while(--ll >= 0) 2810540Sdlw *lp++ = ' '; 2910540Sdlw } 30