xref: /csrg-svn/usr.bin/f77/libF77/s_copy.c (revision 10542)
1*10542Sdlw /*
2*10542Sdlw  *	"@(#)s_copy.c	1.1"
3*10542Sdlw  */
4*10542Sdlw 
5*10542Sdlw s_copy(a, b, la, lb)	/* assign strings:  a = b */
6*10542Sdlw char *a, *b;
7*10542Sdlw long int la, lb;
8*10542Sdlw {
9*10542Sdlw char *aend, *bend;
10*10542Sdlw 
11*10542Sdlw aend = a + la;
12*10542Sdlw 
13*10542Sdlw if(la <= lb)
14*10542Sdlw 	while(a < aend)
15*10542Sdlw 		*a++ = *b++;
16*10542Sdlw 
17*10542Sdlw else
18*10542Sdlw 	{
19*10542Sdlw 	bend = b + lb;
20*10542Sdlw 	while(b < bend)
21*10542Sdlw 		*a++ = *b++;
22*10542Sdlw 	while(a < aend)
23*10542Sdlw 		*a++ = ' ';
24*10542Sdlw 	}
25*10542Sdlw }
26