Commit | Line | Data |
---|---|---|
547779a8 WH |
1 | #include "f2c.h" |
2 | ||
3 | /* assign strings: a = b */ | |
4 | ||
5 | #ifdef KR_headers | |
6 | VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb; | |
7 | #else | |
8 | void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb) | |
9 | #endif | |
10 | { | |
11 | register char *aend, *bend; | |
12 | ||
13 | aend = a + la; | |
14 | ||
15 | if(la <= lb) | |
16 | while(a < aend) | |
17 | *a++ = *b++; | |
18 | ||
19 | else | |
20 | { | |
21 | bend = b + lb; | |
22 | while(b < bend) | |
23 | *a++ = *b++; | |
24 | while(a < aend) | |
25 | *a++ = ' '; | |
26 | } | |
27 | } |