X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/tripe/blobdiff_plain/6047fbac6ecdaa13a13ea71f7f62eb77b2361eec..52b866481399dfcecd295560800d3e3fe0090f24:/server/servutil.c

diff --git a/server/servutil.c b/server/servutil.c
index c95b23fd..1f6301a4 100644
--- a/server/servutil.c
+++ b/server/servutil.c
@@ -89,6 +89,23 @@ const char *timestr(time_t t)
   return ((const char *)buf_t);
 }
 
+/* --- @mystrieq@ --- *
+ *
+ * Arguments:	@const char *x, *y@ = two strings
+ *
+ * Returns:	True if @x@ and @y are equal, up to case.
+ */
+
+int mystrieq(const char *x, const char *y)
+{
+  for (;;) {
+    if (!*x && !*y) return (1);
+    if (tolower((unsigned char)*x) != tolower((unsigned char)*y))
+      return (0);
+    x++; y++;
+  }
+}
+
 /* --- @seq_reset@ --- *
  *
  * Arguments:	@seqwin *s@ = sequence-checking window