50 lines
647 B
C
50 lines
647 B
C
#include "f2c.h"
|
|
|
|
/* compare two strings */
|
|
|
|
integer
|
|
s_cmp (char *a0, char *b0, ftnlen la, ftnlen lb)
|
|
{
|
|
register 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);
|
|
}
|