freebsd-dev/contrib/libf2c/libF77/s_cmp.c
2003-07-11 03:42:19 +00:00

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);
}