46 lines
878 B
C++
46 lines
878 B
C++
|
|
#include "lmp_f2c.h"
|
|
|
|
extern "C" {
|
|
|
|
// compare two strings
|
|
|
|
integer s_lmp_cmp(char *a0, char *b0, ftnlen la, ftnlen lb)
|
|
{
|
|
unsigned char *a, *aend, *b, *bend;
|
|
a = (unsigned char *)a0;
|
|
b = (unsigned char *)b0;
|
|
aend = a + la;
|
|
bend = b + lb;
|
|
|
|
if (la <= lb) {
|
|
while (a < aend)
|
|
if (*a != *b)
|
|
return (*a - *b);
|
|
else {
|
|
++a;
|
|
++b;
|
|
}
|
|
|
|
while (b < bend)
|
|
if (*b != ' ')
|
|
return (' ' - *b);
|
|
else
|
|
++b;
|
|
} else {
|
|
while (b < bend)
|
|
if (*a == *b) {
|
|
++a;
|
|
++b;
|
|
} else
|
|
return (*a - *b);
|
|
while (a < aend)
|
|
if (*a != ' ')
|
|
return (*a - ' ');
|
|
else
|
|
++a;
|
|
}
|
|
return (0);
|
|
}
|
|
}
|