mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 16:04:18 +00:00
47 lines
1.1 KiB
C
47 lines
1.1 KiB
C
/*********************************************************************
|
||
* STRCMP - compares strings
|
||
*
|
||
* Special version which is case - insensitive.
|
||
*
|
||
* WORD strcmp(s1,s2)
|
||
* BYTE *s1, *s2;
|
||
*
|
||
* 'strcmp' compares null terminated strings s1 and s2.
|
||
* Returns:
|
||
* strcmp < 0 if s1<s2
|
||
* strcmp = 0 if s1=s2
|
||
* strcmp > 0 if s1>s2
|
||
*********************************************************************/
|
||
|
||
#include <portab.h>
|
||
|
||
WORD xstrcmp(s1,s2)
|
||
REG BYTE *s1, *s2;
|
||
{
|
||
REG BYTE a,b;
|
||
BYTE _toupper();
|
||
while (*s1 && *s2)
|
||
{
|
||
a = _toupper(*s1++);
|
||
b = _toupper(*s2++);
|
||
if (a > b) return (1);
|
||
if (a < b) return (-1);
|
||
}
|
||
return(0);
|
||
}
|
||
MLOCAL BYTE _toupper(c)
|
||
REG BYTE c;
|
||
{
|
||
if(c >= 'a' && c <= 'z')
|
||
c -= 'a' - 'A';
|
||
return(c);
|
||
}
|
||
|
||
c -= 'a' - 'A';
|
||
return(c);
|
||
}
|
||
|
||
c -= 'a' - 'A';
|
||
return(c);
|
||
}
|
||
|