Gitea Mirror Bot
41 lines
707 B
C
41 lines
707 B
C
#include "f2c.h"
|
|
|
|
/* compare two strings */
|
|
int s_cmp(char *a0, char *b0)
|
|
{
|
|
int la = (int)strlen(a0);
|
|
int lb = (int)strlen(b0);
|
|
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);
|
|
}
|