#include <config.h>
#include <stdlib.h>
+#include <string.h>
+#include <locale.h>
#include "m17n.h"
#include "m17n-misc.h"
#include "internal.h"
static MPlist *language_list;
static MPlist *script_list;
+static MPlist *langname_list;
static MPlist *
load_lang_script_list (MSymbol tag0, MSymbol tag1, MSymbol tag2, MSymbol tag3)
|| ! (plist = mdatabase_load (mdb)))
return NULL;
/* Check at least if the plist is ((SYMBOL ...) ...). */
- MPLIST_DO (pl, plist)
+ for (pl = plist; ! MPLIST_TAIL_P (pl);)
{
if (! MPLIST_PLIST_P (pl))
- break;
- p = MPLIST_PLIST (pl);
- if (! MPLIST_SYMBOL_P (p))
- break;
- }
- if (! MPLIST_TAIL_P (pl))
- {
- M17N_OBJECT_UNREF (plist);
- return NULL;
+ mplist__pop_unref (pl);
+ else
+ {
+ p = MPLIST_PLIST (pl);
+ if (! MPLIST_SYMBOL_P (p))
+ mplist__pop_unref (pl);
+ else
+ pl = MPLIST_NEXT (pl);
+ }
}
return plist;
}
Miso639_2 = msymbol ("iso639-2");
Miso639_1 = msymbol ("iso639-1");
- language_list = script_list = NULL;
+ language_list = script_list = langname_list = NULL;
return 0;
}
mlang__fini (void)
{
M17N_OBJECT_UNREF (language_list);
- language_list = NULL;
M17N_OBJECT_UNREF (script_list);
- script_list = NULL;
+ M17N_OBJECT_UNREF (langname_list);
}
/*=*/
{
MPlist *pl = MPLIST_PLIST (plist);
+ if (MPLIST_SYMBOL (pl) == language)
+ return pl;
+ if (MPLIST_TAIL_P (pl))
+ continue;
+ pl = MPLIST_NEXT (pl);
if (MPLIST_SYMBOL_P (pl) && MPLIST_SYMBOL (pl) == language)
return MPLIST_PLIST (plist);
- if (! MPLIST_TAIL_P (pl))
+ if (MPLIST_TAIL_P (pl))
+ continue;
+ pl = MPLIST_NEXT (pl);
+ if (MPLIST_MTEXT_P (pl))
{
- pl = MPLIST_NEXT (pl);
- if (MPLIST_SYMBOL_P (pl) && MPLIST_SYMBOL (pl) == 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)
return MPLIST_PLIST (plist);
- if (! MPLIST_TAIL_P (pl))
- {
- pl = MPLIST_NEXT (pl);
- if (MPLIST_SYMBOL_P (pl) && MPLIST_SYMBOL (pl) == language)
- return MPLIST_PLIST (plist);
- }
}
}
return NULL;
symbol. Otherwise, it returns #Mnil.
@seealso
- mlanguage_name (), mlanguage_text (). */
+ mlanguage_names (), mlanguage_text (). */
/***ja
@brief \e$B8@8l%3!<%I$rF@$k\e(B.
/*=*/
/***en
- @brief Get an English language name.
-
- The mlanguage_name () function returns a symbol whose name is an
- English name of $LANGUAGE. $LANGUAGE is a symbol whose name is an
- ISO639-2 3-letter language code, an ISO639-1 2-letter language
- codes, or an English word.
-
- @return
- If the information is available, this function returns a non-#Mnil
- symbol. Otherwise, it returns #Mnil.
+ @brief Return the language names written in the specified language.
- @seealso
- mlanguage_code (), mlanguage_text (). */
-
-/***ja
- @brief \e$B8@8l$N1Q8lL>$rF@$k\e(B.
+ The mlanguage_name_list () function returns a plist of LANGUAGE's
+ names written in TARGET language.
- \e$B4X?t\e(B mlanguage_name () \e$B$O!"\e(B$LANGUAGE \e$B$N1Q8lL>$rL>A0$H$9$k$h$&$J%7\e(B
- \e$B%s%\%k$rJV$9!#\e(B$LANGUAGE \e$B$O%7%s%\%k$G$"$j!"$=$NL>A0$O!"\e(BISO639-2 3\e$BJ8\e(B
- \e$B;z8@8l%3!<%I!"\e(BISO639-1 2\e$BJ8;z8@8l%3!<%I!"1Q8lL>!"$N$$$:$l$+$G$"$k!#\e(B
+ LANGUAGE and TARGET must be a symbol whose name is an ISO639-2
+ 3-letter language code or an ISO639-1 2-letter language codes.
+ TARGET may be #Mnil, in which case, the language of the current
+ locale is used. If locale is not set or is C, English is used.
@return
- \e$B5a$a$F$$$k>pJs$,F@$i$l$k$J$i!"$3$N4X?t$O\e(B #Mnil \e$B0J30$N%7%s%\%k$rJV\e(B
- \e$B$9!#$=$&$G$J$1$l$P\e(B #Mnil \e$B$rJV$9!#\e(B
+ If the information is available, this function returns a non-empty
+ plist whose keys are #Mtext and values are M-texts of the
+ translated language names. Otherwise, @c NULL is returned.
+ The returned plist should not be modified nor freed.
@seealso
mlanguage_code (), mlanguage_text (). */
-MSymbol
-mlanguage_name (MSymbol language)
+MPlist *
+mlanguage_name_list (MSymbol language, MSymbol target)
{
- MPlist *plist = mlanguage__info (language);
+ MPlist *plist;
- if (! plist) /* 3-letter code */
- return Mnil;
- plist = MPLIST_NEXT (plist); /* 2-letter code */
- if (MPLIST_TAIL_P (plist))
- return Mnil;
- plist = MPLIST_NEXT (plist); /* english name */
- if (! MPLIST_SYMBOL_P (plist))
- return Mnil;
- return MPLIST_SYMBOL (plist);
+ plist = mlanguage__info (language);
+ if (! plist)
+ return NULL;
+ language = mplist_value (plist);
+ if (target != Mnil)
+ {
+ plist = mlanguage__info (target);
+ if (! plist)
+ return NULL;
+ target = mplist_value (plist);
+ }
+ else
+ {
+ MLocale *locale = mlocale_set (LC_MESSAGES, NULL);
+
+ if (! locale)
+ target = msymbol ("eng");
+ else
+ {
+ target = mlocale_get_prop (locale, Mlanguage);
+ plist = mlanguage__info (target);
+ if (! plist)
+ return NULL;
+ target = mplist_value (plist);
+ }
+ }
+ /* Now both LANGUAGE and TARGET are 3-letter codes. */
+
+ if (langname_list)
+ plist = mplist_get (langname_list, target);
+ else
+ langname_list = mplist (), plist = NULL;
+ if (! plist)
+ {
+ MDatabase *mdb = mdatabase_find (Mlanguage, Mname, target, Mnil);
+
+ if (! mdb
+ || ! (plist = mdatabase_load (mdb)))
+ plist = mplist ();
+ else
+ mplist__pop_unref (plist);
+ langname_list = mplist_push (langname_list, target, plist);
+ MPLIST_SET_NESTED_P (langname_list);
+ }
+ /* PLIST == ((LANGUAGE TRANSLATED) ...) */
+ plist = mplist__assq (plist, language);
+ if (! plist || MPLIST_TAIL_P (plist))
+ return NULL;
+ plist = MPLIST_PLIST (plist);
+ plist = MPLIST_NEXT (plist);
+ return plist;
}
/*=*/
return MPLIST_PLIST (plist);
return NULL;
}
+
+/*** @} */
+/*=*/
+/***en
+ @name Obsolete functions
+*/
+/***ja
+ @name Obsolete \e$B$J4X?t\e(B
+*/
+/*** @{ */
+
+/***en
+ @brief Get an English language name.
+
+ This function is obsolete. Use mlanguage_names () instead.
+
+ The mlanguage_name () function returns a symbol whose name is an
+ English name of $LANGUAGE. $LANGUAGE is a symbol whose name is an
+ ISO639-2 3-letter language code, an ISO639-1 2-letter language
+ codes, or an English word.
+
+ @return
+ If the information is available, this function returns a non-#Mnil
+ symbol. Otherwise, it returns #Mnil.
+
+ @seealso
+ mlanguage_code (), mlanguage_text (). */
+
+/***ja
+ @brief \e$B8@8l$N1Q8lL>$rF@$k\e(B.
+
+ \e$B4X?t\e(B mlanguage_name () \e$B$O!"\e(B$LANGUAGE \e$B$N1Q8lL>$rL>A0$H$9$k$h$&$J%7\e(B
+ \e$B%s%\%k$rJV$9!#\e(B$LANGUAGE \e$B$O%7%s%\%k$G$"$j!"$=$NL>A0$O!"\e(BISO639-2 3\e$BJ8\e(B
+ \e$B;z8@8l%3!<%I!"\e(BISO639-1 2\e$BJ8;z8@8l%3!<%I!"1Q8lL>!"$N$$$:$l$+$G$"$k!#\e(B
+
+ @return
+ \e$B5a$a$F$$$k>pJs$,F@$i$l$k$J$i!"$3$N4X?t$O\e(B #Mnil \e$B0J30$N%7%s%\%k$rJV\e(B
+ \e$B$9!#$=$&$G$J$1$l$P\e(B #Mnil \e$B$rJV$9!#\e(B
+
+ @seealso
+ mlanguage_code (), mlanguage_text (). */
+
+MSymbol
+mlanguage_name (MSymbol language)
+{
+ MPlist *plist = mlanguage__info (language);
+ MText *mt;
+
+ if (! plist) /* 3-letter code */
+ return Mnil;
+ plist = MPLIST_NEXT (plist); /* 2-letter code */
+ if (MPLIST_TAIL_P (plist))
+ return Mnil;
+ plist = MPLIST_NEXT (plist); /* english name */
+ 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;
+}
+
+/*=*/
+
projects / m17n / m17n-lib.git / commitdiff