/********************************************************************* * 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 0 if s1>s2 *********************************************************************/ #include 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); }