Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/vms/xstrcmp.c

@@ -0,0 +1,37 @@
+/*********************************************************************
+*    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 _strcmp(s1,s2)
+REG	BYTE *s1, *s2;
+{
+REG	BYTE	a,b;
+	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);
+}