24 lines
279 B
C
24 lines
279 B
C
|
#include "f2c.h"
|
||
|
|
|
||
|
|
VOID s_copy(a, b, la, lb) /* assign strings: a = b */
|
||
|
|
char *a, *b;
|
||
|
|
long int la, lb;
|
||
|
|
{
|
||
|
|
char *aend, *bend;
|
||
|
|
|
||
|
|
aend = a + la;
|
||
|
|
|
||
|
|
if(la <= lb)
|
||
|
|
while(a < aend)
|
||
|
|
*a++ = *b++;
|
||
|
|
|
||
|
|
else
|
||
|
|
{
|
||
|
|
bend = b + lb;
|
||
|
|
while(b < bend)
|
||
|
|
*a++ = *b++;
|
||
|
|
while(a < aend)
|
||
|
|
*a++ = ' ';
|
||
|
|
}
|
||
|
|
}
|