initial checkin of libc source and tests

lib/libc/string/case.c

@@ -0,0 +1,70 @@
+/*
+ * Implementation by Devin Reade
+ *
+ * $Id: case.c,v 1.1 1997/02/28 05:12:50 gdr Exp $
+ *
+ * This file is formatted with tab stops every 8 columns.
+ */
+
+#ifdef __ORCAC__
+segment "libc_str__";
+#endif
+
+#pragma optimize 0
+#pragma debug 0
+#pragma memorymodel 0
+
+#include <string.h>
+#include <ctype.h>
+
+#undef TOLOWER
+#define TOLOWER(c) isupper(c) ? _tolower(c) : c
+
+int
+strcasecmp (const char *s1, const char *s2) {
+	unsigned int c1, c2;
+	
+	for (;;) {
+		c1 = TOLOWER(*s1);
+		c2 = TOLOWER(*s2);
+		if (c1 == '\0' && c2 == '\0') {
+			return 0;
+		} else if (c1 == c2) {
+			s1++; s2++;
+		} else {
+			/* don't do subtraction -- see man page */
+			return (c1 > c2) ? 1 : -1;
+		}
+	}
+}
+
+int
+strncasecmp (const char *s1, const char *s2, size_t n) {
+	unsigned int c1, c2;
+	size_t i;
+
+	for (i=0; i<n; i++) {
+		c1 = TOLOWER(*s1);
+		c2 = TOLOWER(*s2);
+		if (c1 == '\0' && c2 == '\0') {
+			return 0;
+		} else if (c1 == c2) {
+			s1++; s2++;
+		} else {
+			/* don't do subtraction -- see man page */
+			return (c1 > c2) ? 1 : -1;
+		}
+	}
+	return 0;
+}                                                     
+
+short
+stricmp (const char *s1, const char *s2) {
+	return strcasecmp(s1, s2);
+}
+
+short
+strincmp (const char *s1, const char *s2, unsigned n) {
+	return strncasecmp(s1, s2, n);
+}
+