Chris@202: #include "f2c.h"
Chris@202: #ifdef __cplusplus
Chris@202: extern "C" {
Chris@202: #endif
Chris@202: 
Chris@202: /* compare two strings */
Chris@202: 
Chris@202: #ifdef KR_headers
Chris@202: integer s_cmp(a0, b0, la, lb) char *a0, *b0; ftnlen la, lb;
Chris@202: #else
Chris@202: integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb)
Chris@202: #endif
Chris@202: {
Chris@202: register unsigned char *a, *aend, *b, *bend;
Chris@202: a = (unsigned char *)a0;
Chris@202: b = (unsigned char *)b0;
Chris@202: aend = a + la;
Chris@202: bend = b + lb;
Chris@202: 
Chris@202: if(la <= lb)
Chris@202: 	{
Chris@202: 	while(a < aend)
Chris@202: 		if(*a != *b)
Chris@202: 			return( *a - *b );
Chris@202: 		else
Chris@202: 			{ ++a; ++b; }
Chris@202: 
Chris@202: 	while(b < bend)
Chris@202: 		if(*b != ' ')
Chris@202: 			return( ' ' - *b );
Chris@202: 		else	++b;
Chris@202: 	}
Chris@202: 
Chris@202: else
Chris@202: 	{
Chris@202: 	while(b < bend)
Chris@202: 		if(*a == *b)
Chris@202: 			{ ++a; ++b; }
Chris@202: 		else
Chris@202: 			return( *a - *b );
Chris@202: 	while(a < aend)
Chris@202: 		if(*a != ' ')
Chris@202: 			return(*a - ' ');
Chris@202: 		else	++a;
Chris@202: 	}
Chris@202: return(0);
Chris@202: }
Chris@202: #ifdef __cplusplus
Chris@202: }
Chris@202: #endif