2
0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-22 11:49:40 +08:00
gcc/libf2c/libF77/s_cmp.c
Kaveh R. Ghazi 407c72cb29 *: Fix formatting.
* libF77/*: Fix formatting.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54145
2002-06-01 12:38:32 +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);
}