From: handa <handa>
Date: Mon, 21 May 2007 01:42:48 +0000 (+0000)
Subject: Include <ctype.h>
X-Git-Tag: FLT-base~43
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=be2d06821bcddd218a9e9b564ef5f8687f977403;p=m17n%2Fm17n-lib.git

Include <ctype.h>
(mlanguage__info): Use strncasecmp (not memcmp).
(mlanguage_name): Downcase language name for backward
compatibility.
---

diff --git a/src/language.c b/src/language.c
index 359d0bd..de9f7e0 100644
--- a/src/language.c
+++ b/src/language.c
@@ -23,6 +23,7 @@
 #include <config.h>
 #include <stdlib.h>
 #include <string.h>
+#include <ctype.h>
 #include <locale.h>
 #include "m17n.h"
 #include "m17n-misc.h"
@@ -185,9 +186,9 @@ mlanguage__info (MSymbol language)
 	  MText *mt = MPLIST_MTEXT (pl);
 
 	  if (mtext_nbytes (mt) == MSYMBOL_NAMELEN (language)
-	      && memcmp (MTEXT_DATA (MPLIST_MTEXT (pl)),
-			 MSYMBOL_NAME (language),
-			 MSYMBOL_NAMELEN (language)) == 0)
+	      && strncasecmp ((char *) MTEXT_DATA (MPLIST_MTEXT (pl)),
+			      MSYMBOL_NAME (language),
+			      MSYMBOL_NAMELEN (language)) == 0)
 	    return MPLIST_PLIST (plist);
 	}
     }
@@ -680,6 +681,7 @@ mlanguage_name (MSymbol language)
 {
   MPlist *plist = mlanguage__info (language);
   MText *mt;
+  char *str;
 
   if (! plist)			/* 3-letter code */
     return Mnil;
@@ -687,15 +689,13 @@ mlanguage_name (MSymbol language)
   if (MPLIST_TAIL_P (plist))
     return Mnil;
   plist = MPLIST_NEXT (plist);	/* english name */
-  if (MPLIST_MTEXT_P (plist))
+  if (! MPLIST_MTEXT_P (plist))
     return Mnil;
   mt = MPLIST_MTEXT (plist);
-  if (mtext_nbytes (mt) != MSYMBOL_NAMELEN (language)
-      || memcmp (MTEXT_DATA (MPLIST_MTEXT (plist)),
-		 MSYMBOL_NAME (language),
-		 MSYMBOL_NAMELEN (language)))
-    return Mnil;
-  return language;
+  str = alloca (mtext_nbytes (mt));
+  memcpy (str, MTEXT_DATA (mt), mtext_nbytes (mt));
+  str[0] = tolower (str[0]);
+  return msymbol__with_len (str, mtext_nbytes (mt));
 }
 
 /*=*/