1 files changed, 39 insertions, 0 deletions
diff --git a/gnu/libexec/uucp/libuucp/strncs.c b/gnu/libexec/uucp/libuucp/strncs.c
new file mode 100644
index 000000000000..6959d625d6d9
--- /dev/null
+++ b/gnu/libexec/uucp/libuucp/strncs.c
@@ -0,0 +1,39 @@
+/* strncs.c
+   Compare two strings case insensitively up to a point.  */
+
+#include "uucp.h"
+#include <ctype.h>
+
+int
+strncasecmp (z1, z2, c)
+     const char *z1;
+     const char *z2;
+     size_t c;
+{
+  char b1, b2;
+
+  if (c == 0)
+    return 0;
+  while ((b1 = *z1++) != '\0')
+    {
+      b2 = *z2++;
+      if (b2 == '\0')
+	return 1;
+      if (b1 != b2)
+	{
+	  if (isupper (BUCHAR (b1)))
+	    b1 = tolower (BUCHAR (b1));
+	  if (isupper (BUCHAR (b2)))
+	    b2 = tolower (BUCHAR (b2));
+	  if (b1 != b2)
+	    return b1 - b2;
+	}
+      --c;
+      if (c == 0)
+	return 0;
+    }
+  if (*z2 == '\0')
+    return 0;
+  else
+    return -1;
+}