Patch from Garrett Wollman to add Mach compatibility stubs to libc.

[unix-history] / lib / libF77 / s_cmp.c

#include "f2c.h"

/* compare two strings */

#ifdef KR_headers
integer s_cmp(a, b, la, lb) register char *a, *b; ftnlen la, lb;
#else
integer s_cmp(register char *a, register char *b, ftnlen la, ftnlen lb)
#endif
{
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);
}