ef1cmc_.c File Reference

#include "f2c.h"

Include dependency graph for ef1cmc_.c:

Go to the source code of this file.

Functions
integer	s_cmp (char *, char *, ftnlen, ftnlen)
integer	ef1cmc_ (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)

---

Function Documentation

integer ef1cmc_	(	ftnint *	a,
		ftnlen *	la,
		ftnint *	b,
		ftnlen *	lb
	)

Definition at line 13 of file ef1cmc_.c.

References s_cmp().

{
return( s_cmp( (char *)a, (char *)b, *la, *lb) );
}

Here is the call graph for this function:

integer s_cmp	(	char *	,
		char *	,
		ftnlen	,
		ftnlen
	)

Definition at line 11 of file s_cmp.c.

Referenced by ef1cmc_(), hl_ge(), hl_gt(), hl_le(), hl_lt(), l_ge(), l_gt(), l_le(), and l_lt().

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

Here is the caller graph for this function:

---