From 49cc44f855c16ae11988e9ff3739fdc01ac8aebe Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Thu, 11 Sep 2003 09:04:32 +0000
Subject: *** empty log message ***

svn path=/trunk/externals/miXed/; revision=947
---
 shared/common/loud.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'shared/common/loud.c')

diff --git a/shared/common/loud.c b/shared/common/loud.c
index 638f431..d5afada 100644
--- a/shared/common/loud.c
+++ b/shared/common/loud.c
@@ -24,6 +24,19 @@ char *loud_symbolname(t_symbol *s, char *nullname)
     return (s && s != &s_ ? s->s_name : nullname);
 }
 
+/* LATER move it somewhere else */
+int loud_matchignorecase(char *test, char *pattern)
+{
+    char ct, cp;
+    for (ct = *test, cp = *pattern; ct && cp; ct = *++test, cp = *++pattern)
+	if (ct != cp
+	    && ((ct < 'A' || ct > 'z')
+		|| ((ct > 'Z' || ct + 32 != cp)
+		    && (ct < 'a' || ct - 32 != cp))))
+	    return (0);
+    return (ct == cp);
+}
+
 /* LATER move it somewhere else */
 char *loud_ordinal(int n)
 {
-- 
cgit v1.2.1