(a0, b0, la, lb)
| 442 | |
| 443 | #ifdef KR_headers |
| 444 | integer s_cmp(a0, b0, la, lb) char *a0, *b0; ftnlen la, lb; |
| 445 | #else |
| 446 | integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb) |
| 447 | #endif |
| 448 | { |
| 449 | register unsigned char *a, *aend, *b, *bend; |
| 450 | a = (unsigned char *)a0; |
| 451 | b = (unsigned char *)b0; |
| 452 | aend = a + la; |
| 453 | bend = b + lb; |
| 454 | |
| 455 | if(la <= lb) |
| 456 | { |
| 457 | while(a < aend) |
| 458 | if(*a != *b) |
| 459 | return( *a - *b ); |
| 460 | else |
| 461 | { ++a; ++b; } |
| 462 | |
| 463 | while(b < bend) |
| 464 | if(*b != ' ') |
| 465 | return( ' ' - *b ); |
| 466 | else ++b; |
| 467 | } |
| 468 | |
| 469 | else |
| 470 | { |