BSD 4_4 release

[unix-history] / usr / src / usr.bin / f77 / libF77 / s_cmp.c

/*-
* Copyright (c) 1980 The Regents of the University of California.
* All rights reserved.
*
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
*/

#ifndef lint
static char sccsid[] = "@(#)s_cmp.c     5.2 (Berkeley) 4/12/91";
#endif /* not lint */

int 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);
}