+
+/*=*/
+
+/***en
+ @brief Get a language code.
+
+ The mlanguage_code () function returns a symbol whose name is the
+ ISO639 language code 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.
+
+ $LEN specifies the type of the returned language code. If it is
+ 3, an ISO639-2 3-letter language code is returned. If it is 2, an
+ ISO639-1 2-letter language code is returned when defined;
+ otherwise #Mnil is returned. If it is 0, a 2-letter code is
+ returned when defined; otherwise a 3-letter code is returned.
+
+ @return
+ If the information is available, this function returns a non-#Mnil
+ symbol. Otherwise, it returns #Mnil.
+
+ @seealso
+ mlanguage_name_list (), mlanguage_text (). */
+
+/***ja
+ @brief ¸À¸ì¥³¡¼¥É¤òÆÀ¤ë.
+
+ ´Ø¿ô mlanguage_code () ¤Ï¡¢$LANGUAGE ¤ËÂбþ¤·¤¿ ISO-639 ¸À¸ì¥³¡¼¥É
+ ¤¬Ì¾Á°¤Ç¤¢¤ë¤è¤¦¤Ê¥·¥ó¥Ü¥ë¤òÊÖ¤¹¡£$LANGUAGE ¤Ï¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¤½¤Î
+ ̾Á°¤Ï¡¢ISO639-2 3ʸ»ú¸À¸ì¥³¡¼¥É¡¢ISO639-1 2ʸ»ú¸À¸ì¥³¡¼¥É¡¢±Ñ¸ì̾¡¢
+ ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£
+
+ $LEN ¤ÏÊÖ¤µ¤ì¤ë¸À¸ì¥³¡¼¥É¤Î¼ïÎà¤ò·èÄꤹ¤ë¡£$LEN ¤¬3¤Î¾ì¹ç¤Ï
+ ISO639-2 3ʸ»ú¸À¸ì¥³¡¼¥É¤¬ÊÖ¤µ¤ì¤ë¡£2¤Î¾ì¹ç¤Ï¡¢¤â¤·ÄêµÁ¤µ¤ì¤Æ¤¤¤ì
+ ¤Ð ISO639-1 2ʸ»ú¸À¸ì¥³¡¼¥É¤¬¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð #Mnil ¤¬ÊÖ¤µ¤ì¤ë¡£0
+ ¤Î¾ì¹ç¤Ï¡¢¤â¤·ÄêµÁ¤µ¤ì¤Æ¤¤¤ì¤Ð2ʸ»ú¥³¡¼¥É¤¬¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð3ʸ»ú¥³¡¼
+ ¥É¤¬ÊÖ¤µ¤ì¤ë¡£
+
+ @return
+ ¤â¤·¾ðÊó¤¬ÆÀ¤é¤ì¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï #Mnil °Ê³°¤Î¥·¥ó¥Ü¥ë¤òÊÖ¤¹¡£¤½¤¦
+ ¤Ç¤Ê¤±¤ì¤Ð #Mnil ¤òÊÖ¤¹¡£
+
+ @seealso
+ mlanguage_name (), mlanguage_text (). */
+
+MSymbol
+mlanguage_code (MSymbol language, int len)
+{
+ MPlist *plist = mlanguage__info (language);
+ MSymbol code;
+
+ if (! plist)
+ return Mnil;
+ if (! MPLIST_SYMBOL_P (plist))
+ return Mnil;
+ code = MPLIST_SYMBOL (plist);
+ if (len == 3)
+ return code;
+ plist = MPLIST_NEXT (plist);
+ return ((MPLIST_SYMBOL_P (plist) && MPLIST_SYMBOL (plist) != Mnil)
+ ? MPLIST_SYMBOL (plist)
+ : len == 0 ? code : Mnil);
+}
+
+/*=*/
+
+/***en
+ @brief Return the language names written in the specified language.
+
+ The mlanguage_name_list () function returns a plist of LANGUAGE's
+ names written in TARGET language.
+
+ 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
+ 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 (). */
+
+MPlist *
+mlanguage_name_list (MSymbol language, MSymbol target)
+{
+ MPlist *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;
+}
+
+/*=*/
+
+/***en
+ @brief Return the language name written in that language.
+
+ The mlanguage_text () function returns, in the form of M-text, the
+ language name of $LANGUAGE written in $LANGUAGE. If the
+ representative characters of the language are known, the
+ characters of the returned M-text has a text property whose key is
+ #Mtext and whose value is an M-text that contains the
+ representative characters.
+
+ @return
+ If the information is available, this function returns an M-text
+ that should not be modified nor freed. Otherwise, it returns @c
+ NULL.
+
+ @seealso
+ mlanguage_code (), mlanguage_name (). */
+
+/***ja
+ @brief Í¿¤¨¤é¤ì¤¿¸À¸ì¼«¿È¤Ç½ñ¤«¤ì¤¿¸À¸ì̾¤òÊÖ¤¹.
+
+ ´Ø¿ô mlanguage_text () ¤Ï¡¢¸À¸ì $LANGUAGE ¤Ç½ñ¤«¤ì¤¿ $LANGUAGE ¤Î
+ ̾Á°¤ò M-text ¤Î·Á¼°¤ÇÊÖ¤¹¡£¤½¤Î¸À¸ì¤ÎÂåɽŪ¤Êʸ»ú¤¬¤ï¤«¤Ã¤Æ¤¤¤ë¾ì
+ ¹ç¤Ï¡¢ÊÖ¤µ¤ì¤ë M-text ¤Î³Æʸ»ú¤Ë¡¢¥¡¼¤¬ #Mtext ¤ÇÃͤ¬¤½¤ÎÂåɽŪ¤Ê
+ ʸ»ú¤ò´Þ¤à M-text ¤Ç¤¢¤ë¤è¤¦¤Ê¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤¬Éղ䵤ì¤ë¡£
+
+ @return
+ µá¤á¤ë¾ðÊó¤¬ÆÀ¤é¤ì¤¿¾ì¹ç¡¢¤³¤Î´Ø¿ô¤¬ÊÖ¤¹ M-text ¤òÊѹ¹¤·¤¿¤ê²òÊü¤·
+ ¤¿¤ê¤·¤Æ¤Ï¤¤¤±¤Ê¤¤¡£¾ðÊó¤¬ÆÀ¤é¤ì¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï @c NULL ¤¬ÊÖ¤µ¤ì¤ë¡£
+
+ @seealso
+ mlanguage_code (), mlanguage_name (). */
+
+MText *
+mlanguage_text (MSymbol language)
+{
+ MPlist *plist = mlanguage__info (language);
+ MText *mt;
+
+ if (! plist)
+ return NULL;
+ plist = MPLIST_NEXT (plist);
+ if (MPLIST_TAIL_P (plist))
+ return NULL;
+ plist = MPLIST_NEXT (plist);
+ if (MPLIST_TAIL_P (plist))
+ return NULL;
+ plist = MPLIST_NEXT (plist);
+ if (! MPLIST_MTEXT_P (plist))
+ return NULL;
+ mt = MPLIST_MTEXT (plist);
+ if (mtext_nchars (mt) == 0)
+ return NULL;
+ plist = MPLIST_NEXT (plist);
+ if (MPLIST_MTEXT_P (plist)
+ && ! mtext_get_prop (mt, 0, Mtext))
+ mtext_put_prop (mt, 0, mtext_nchars (mt), Mtext, MPLIST_MTEXT (plist));
+ return mt;
+}
+
+/***en
+ @brief List script names.
+
+ The mscript_list () funciton returns a well-formed plist whose
+ keys are #Msymbol and values are symbols whose names are script
+ names.
+
+ @return
+ This function returns a plist. The caller should free it by
+ m17n_object_unref ().
+
+ @seealso
+ mscript_language_list (), mlanguage_list (). */
+
+/***ja
+ @brief ¥¹¥¯¥ê¥×¥È̾¤ò¥ê¥¹¥È¤¹¤ë.
+
+ ´Ø¿ô mscript_list () ¤Ï¡¢À°·Á¼° (well-formed) plist ¤òÊÖ¤¹¡£³Æ¥¡¼
+ ¤Ï #Msymbol ¤Ç¤¢¤ê¡¢¸Ä¡¹¤ÎÃͤϥ¹¥¯¥ê¥×¥È̾¤ò̾Á°¤È¤¹¤ë¥·¥ó¥Ü¥ë¤Ç¤¢
+ ¤ë¡£
+
+ @return
+ ¤³¤Î´Ø¿ô¤¬ÊÖ¤¹ plist ¤Ï¡¢¸Æ¤Ó½Ð¤·Â¦¤¬ m17n_object_unref () ¤ò»È¤Ã
+ ¤Æ²òÊü¤¹¤ëɬÍפ¬¤¢¤ë¡£
+
+ @seealso
+ mscript_language_list (), mlanguage_list (). */
+
+MPlist *
+mscript_list (void)
+{
+ MPlist *plist, *pl, *p, *p0;
+
+ if (! script_list
+ && init_script_list () < 0)
+ return NULL;
+ plist = pl = mplist ();
+ MPLIST_DO (p, script_list)
+ {
+ p0 = MPLIST_PLIST (p);
+ pl = mplist_add (pl, Msymbol, MPLIST_VAL (p0));
+ }
+ return plist;
+}
+
+/*=*/
+
+/***en
+ @brief List languages that use a specified script.
+
+ The mscript_language_list () function lists languages that use
+ $SCRIPT. $SCRIPT is a symbol whose name is the lower-cased
+ version of a script name that appears in the Unicode Character
+ Database.
+
+ @return
+
+ This function returns a well-formed plist whose keys are #Msymbol
+ and values are symbols whose names are ISO639-1 2-letter codes (or
+ ISO639-2 3-letter codes, if the former is not available). The
+ caller should not modify nor free it. If the m17n library does
+ not know about $SCRIPT, it returns @ c NULL.
+
+ @seealso
+ mscript_list (), mlanguage_list (). */
+
+/***ja
+ @brief Í¿¤¨¤é¤ì¤¿¥¹¥¯¥ê¥×¥È¤òÍѤ¤¤ë¸À¸ì¤ò¥ê¥¹¥È¤¹¤ë.
+
+ ´Ø¿ô mscript_language_list () ¤Ï¡¢$SCRIPT ¤òÍѤ¤¤ë¸À¸ì¤ò¥ê¥¹¥È¤¹¤ë¡£
+ $SCRIPT ¤Ï¥·¥ó¥Ü¥ë¤Ç¡¢¤½¤Î̾Á°¤Ï Unicode Character Database ¤Ë¼¨¤µ
+ ¤ì¤Æ¤¤¤ë¥¹¥¯¥ê¥×¥È̾¤ò¤¹¤Ù¤Æ¾®Ê¸»ú¤Ë¤·¤¿¤â¤Î¤Ç¤¢¤ë¡£
+
+ @return ¤³¤Î´Ø¿ô¤Ï¡¢À°·Á¼° (well-formed) plist ¤òÊÖ¤¹¡£³Æ¥¡¼¤Ï
+ #Msymbol ¤Ç¤¢¤ê¡¢¸Ä¡¹¤ÎÃÍ¤Ï ISO639-1 ¤ËÄê¤á¤é¤ì¤¿2ʸ»ú¸À¸ì¥³¡¼¥É
+ (ÄêµÁ¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï ISO639-2 ¤ËÄê¤á¤é¤ì¤¿3ʸ»ú¸À¸ì¥³¡¼¥É) ¤ò̾
+ Á°¤È¤¹¤ë¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£ÊÖ¤µ¤ì¤ë plist ¤ÏÊѹ¹¤·¤¿¤ê²òÊü¤·¤¿¤ê¤·¤Æ
+ ¤Ï¤Ê¤é¤Ê¤¤¡£$SCRIPT ¤¬Ì¤ÃΤξì¹ç¤Ï @c NULL ¤¬ÊÖ¤µ¤ì¤ë¡£
+
+ @seealso
+ mscript_list (), mlanguage_list (). */
+
+
+MPlist *
+mscript_language_list (MSymbol script)
+{
+ MPlist *plist = mscript__info (script);
+
+ if (plist /* script name */
+ && (plist = MPLIST_NEXT (plist)) /* language list */
+ && MPLIST_PLIST_P (plist))
+ return MPLIST_PLIST (plist);
+ return NULL;
+}
+
+/*** @} */
+/*=*/
+/***en
+ @name Obsolete functions
+*/
+/***ja
+ @name Obsolete ¤Ê´Ø¿ô
+*/
+/*** @{ */
+
+/***en
+ @brief Get an English language name.
+
+ This function is obsolete. Use mlanguage_name_list () 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 ¸À¸ì¤Î±Ñ¸ì̾¤òÆÀ¤ë.
+
+ ´Ø¿ô mlanguage_name () ¤Ï¡¢$LANGUAGE ¤Î±Ñ¸ì̾¤ò̾Á°¤È¤¹¤ë¤è¤¦¤Ê¥·
+ ¥ó¥Ü¥ë¤òÊÖ¤¹¡£$LANGUAGE ¤Ï¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¤½¤Î̾Á°¤Ï¡¢ISO639-2 3ʸ
+ »ú¸À¸ì¥³¡¼¥É¡¢ISO639-1 2ʸ»ú¸À¸ì¥³¡¼¥É¡¢±Ñ¸ì̾¡¢¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£
+
+ @return
+ µá¤á¤Æ¤¤¤ë¾ðÊó¤¬ÆÀ¤é¤ì¤ë¤Ê¤é¡¢¤³¤Î´Ø¿ô¤Ï #Mnil °Ê³°¤Î¥·¥ó¥Ü¥ë¤òÊÖ
+ ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð #Mnil ¤òÊÖ¤¹¡£
+
+ @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;
+}
+
+/*=*/
+
+/*
+ Local Variables:
+ coding: euc-japan
+ End:
+*/