mirror of https://github.com/opencv/opencv.git
Open Source Computer Vision Library
https://opencv.org/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
568 B
40 lines
568 B
#include "clapack.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); |
|
}
|
|
|