1*30477Slepreau static char Sccsid[] "@(#)repeat	2.2";
2*30477Slepreau /*
3*30477Slepreau 	Set `result' equal to `str' repeated `repfac' times.
4*30477Slepreau 	Return `result'.
5*30477Slepreau */
6*30477Slepreau 
7*30477Slepreau char *repeat(result,str,repfac)
8*30477Slepreau char *result, *str;
9*30477Slepreau register unsigned repfac;
10*30477Slepreau {
11*30477Slepreau 	register char *r, *s;
12*30477Slepreau 
13*30477Slepreau 	r = result;
14*30477Slepreau 	for (++repfac; --repfac > 0; --r)
15*30477Slepreau 		for (s=str; *r++ = *s++; );
16*30477Slepreau 	*r = '\0';
17*30477Slepreau 	return(result);
18*30477Slepreau }
19