1*30488Slepreau static char Sccsid[] = "@(#)repeat.c	1.2	02/15/87";
230477Slepreau /*
330477Slepreau 	Set `result' equal to `str' repeated `repfac' times.
430477Slepreau 	Return `result'.
530477Slepreau */
630477Slepreau 
repeat(result,str,repfac)730477Slepreau char *repeat(result,str,repfac)
830477Slepreau char *result, *str;
930477Slepreau register unsigned repfac;
1030477Slepreau {
1130477Slepreau 	register char *r, *s;
1230477Slepreau 
1330477Slepreau 	r = result;
1430477Slepreau 	for (++repfac; --repfac > 0; --r)
1530477Slepreau 		for (s=str; *r++ = *s++; );
1630477Slepreau 	*r = '\0';
1730477Slepreau 	return(result);
1830477Slepreau }
19