38 lines
507 B
C
38 lines
507 B
C
#include "f2c.h"
|
|
|
|
integer s_cmp(a, b, la, lb) /* compare two strings */
|
|
register char *a, *b;
|
|
long int la, lb;
|
|
{
|
|
register char *aend, *bend;
|
|
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);
|
|
}
|