From: handa <handa>
Date: Fri, 23 Jun 2006 02:24:13 +0000 (+0000)
Subject: Include "mtext.h".
X-Git-Tag: REL-1-3-4~171
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad5de42b6eccce8769e7a6c4b9696460991388f8;p=m17n%2Fm17n-lib.git

Include "mtext.h".
(M_script_lang_list): Delete it.
(language_list, script_list): New variables.
(load_lang_script_list, init_language_list, init_script_list): New
functions.
(mlang__init): Don't load language database here.
(mlang__fini): Unref language_list and script_list if not NULL.
(mlanguage__list): Delete it.
(mlanguage__info, mscript__info, mscript__char_list)
(mscript__otf_tag, mscript__from_otf_tag): New functions.
(mlanguage_list, mlanguage_code, mlanguage_name, mlanguage_text)
(mscript_list, mscript_language_list): New functions.
---

diff --git a/src/language.c b/src/language.c
index 0646a61..b214db9 100644
--- a/src/language.c
+++ b/src/language.c
@@ -1,5 +1,5 @@
-/* language.c -- language module.
-   Copyright (C) 2003, 2004
+/* language.c -- language (and script) module.
+   Copyright (C) 2003, 2004, 2006
      National Institute of Advanced Industrial Science and Technology (AIST)
      Registration Number H15PRO112
 
@@ -28,10 +28,65 @@
 #include "language.h"
 #include "symbol.h"
 #include "plist.h"
+#include "mtext.h"
 
 #if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
 
-static MSymbol M_script_lang_list;
+static MPlist *language_list;
+static MPlist *script_list;
+
+static MPlist *
+load_lang_script_list (MSymbol tag0, MSymbol tag1, MSymbol tag2, MSymbol tag3)
+{
+  MDatabase *mdb = mdatabase_find (tag0, tag1, tag2, tag3);
+  MPlist *plist, *pl, *p;
+
+  if (! mdb
+      || ! (plist = mdatabase_load (mdb)))
+    return NULL;
+  /* Check at least if the plist is ((SYMBOL ...) ...).  */
+  MPLIST_DO (pl, plist)
+    {
+      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;
+    }
+  return plist;
+}
+
+static int
+init_language_list (void)
+{
+  language_list = load_lang_script_list (msymbol ("standard"), Mlanguage,
+					 msymbol ("iso639"), Mnil);
+  if (! language_list)
+    {
+      language_list = mplist ();
+      MERROR (MERROR_DB, -1);
+    }
+  return 0;
+}
+
+
+static int
+init_script_list (void)
+{
+  script_list = load_lang_script_list (msymbol ("standard"), Mscript,
+				       msymbol ("unicode"), Mnil);
+  if (! script_list)
+    {
+      script_list = mplist ();
+      MERROR (MERROR_DB, -1);
+    }
+  return 0;
+}
 
 
 /* Internal API */
@@ -39,9 +94,6 @@ static MSymbol M_script_lang_list;
 int
 mlang__init ()
 {
-  MDatabase *mdb;
-  MPlist *plist, *pl;
-
   Mlanguage = msymbol ("language");
   msymbol_put (Mlanguage, Mtext_prop_serializer,
 	       (void *) msymbol__serializer);
@@ -49,150 +101,171 @@ mlang__init ()
 	       (void *) msymbol__deserializer);
   Miso639_2 = msymbol ("iso639-2");
   Miso639_1 = msymbol ("iso639-1");
-  M_script_lang_list = msymbol_as_managing_key ("  script-lang-list");
 
-  mdb = mdatabase_find (msymbol ("standard"), Mlanguage,
-			msymbol ("iso639"), Mnil);
-  if (! mdb)
-    return 0;
-  if (! (plist = mdatabase_load (mdb)))
-    MERROR (MERROR_DB, -1);
-
-  MPLIST_DO (pl, plist)
-    {
-      MPlist *p;
-      MSymbol code3, code2, lang;
-      MText *native, *extra;
-
-      if (! MPLIST_PLIST_P (pl))
-	continue;
-      p = MPLIST_PLIST (pl);
-      if (! MPLIST_SYMBOL_P (p))
-	continue;
-      code3 = MPLIST_SYMBOL (p);
-      p = MPLIST_NEXT (p);
-      if (! MPLIST_SYMBOL_P (p))
-	continue;
-      code2 = MPLIST_SYMBOL (p);
-      p = MPLIST_NEXT (p);
-      if (! MPLIST_SYMBOL_P (p))
-	continue;
-      lang = MPLIST_SYMBOL (p);
-      msymbol_put (code3, Mlanguage, lang);
-      p = MPLIST_NEXT (p);      
-      native = MPLIST_MTEXT_P (p) ? MPLIST_MTEXT (p) : NULL;
-      if (native)
-	{
-	  msymbol_put (code3, Mtext, native);
-	  p = MPLIST_NEXT (p);
-	  extra = MPLIST_MTEXT_P (p) ? MPLIST_MTEXT (p) : NULL;
-	  if (extra)
-	    mtext_put_prop (native, 0, mtext_nchars (native), Mtext, extra);
-	}
-      if (code2 != Mnil)
-	{
-	  msymbol_put (code3, Miso639_1, code2);
-	  msymbol_put (code2, Mlanguage, lang);
-	  msymbol_put (code2, Miso639_2, code3);
-	  if (native)
-	    msymbol_put (code2, Mtext, native);
-	}
-    }
-  M17N_OBJECT_UNREF (plist);
+  language_list = script_list = NULL;
   return 0;
 }
 
 void
 mlang__fini (void)
 {
+  MPlist *plist, *p;
+
+  M17N_OBJECT_UNREF (language_list);
+  language_list = NULL;
+  M17N_OBJECT_UNREF (script_list);
+  script_list = NULL;
 }
 
+/*=*/
+
+/***en
+    @brief Get information about a language.
+
+    The mlanguage_info () function returns a well-formed @e plist that
+    contains information about $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 name.
+
+    The format of the plist is:
 
-/** Return a plist of languages that use SCRIPT.  If SCRIPT is Mnil,
-    return a plist of all languages.  Each element of the plist has
-    3-letter language code as a key and 2-letter language code as a
-    value.  A caller must unref the returned value when finished.  */
+@verbatim
+        (ISO639-2 [ISO639-1 | nil] ENGLISH-NAME ["NATIVE-NAME" | nil]
+                  ["REPRESENTATIVE-CHARACTERS"])
+@endverbatim
+
+    where, ISO639-2 is a symbol whose name is 3-letter language code
+    of ISO639-2, ISO639-1 is a symbol whose name is 2-letter language
+    code of ISO639-1, ENGLISH-NAME is a symbol whose name is the
+    English name of the language, "NATIVE-NAME" is an M-text written
+    by the most natural way in the language,
+    "REPRESENTATIVE-CHARACTERS" is an M-text that contains
+    representative characters used by the language.
+
+    It is assured that the formats of both M-texts are
+    #MTEXT_FORMAT_UTF_8.
+
+    @return
+    If the information is available, this function returns a plist
+    that should not be modified nor freed.  Otherwise, it returns
+    @c NULL.
+
+    @seealso
+    mlanguage_list ()  */
 
 MPlist *
-mlanguage__list (MSymbol script)
+mlanguage__info (MSymbol language)
 {
-  MDatabase *mdb;
-  MPlist *language_list, *plist, *pl;
+  MPlist *plist;
+
+  if (! language_list
+      && init_language_list () < 0)
+    return NULL;
 
-  if (script)
+  MPLIST_DO (plist, language_list)
     {
-      if ((language_list = msymbol_get (script, M_script_lang_list)))
-	{
-	  M17N_OBJECT_REF (language_list);
-	  return language_list;
-	}
-      mdb = mdatabase_find (msymbol ("unicode"), Mscript, Mlanguage, Mnil);
-      if (! mdb
-	  || ! (plist = mdatabase_load (mdb)))
-	MERROR (MERROR_DB, NULL);
-      MPLIST_DO (pl, plist)
-	{
-	  MPlist *p, *lang_list;
-	  MSymbol code3, code2;
-
-	  if (! MPLIST_PLIST_P (pl))
-	    continue;
-	  p = MPLIST_PLIST (pl);
-	  if (! MPLIST_SYMBOL_P (p))
-	    continue;
-	  lang_list = mplist ();
-	  if (MPLIST_SYMBOL (p) == script)
-	    language_list = lang_list;
-	  msymbol_put (MPLIST_SYMBOL (p), M_script_lang_list, lang_list);
-	  MPLIST_DO (p, MPLIST_NEXT (p))
-	    if (MPLIST_SYMBOL_P (p))
-	      {
-		code2 = MPLIST_SYMBOL (p);
-		if (MSYMBOL_NAMELEN (code2) == 2)
-		  code3 = msymbol_get (code2, Miso639_2);
-		else
-		  code3 = code2, code2 = Mnil;
-		if (code3 != Mnil)
-		  mplist_push (lang_list, code3, code2);
-	      }
-	  M17N_OBJECT_UNREF (lang_list);
-	}
-      M17N_OBJECT_UNREF (plist);
-      if (language_list)
-	M17N_OBJECT_REF (language_list);
-      else
+      MPlist *pl = MPLIST_PLIST (plist);
+
+      if (MPLIST_SYMBOL_P (pl) && MPLIST_SYMBOL (pl) == language)
+	return MPLIST_PLIST (plist);
+      if (! MPLIST_TAIL_P (pl))
 	{
-	  language_list = mplist ();
-	  msymbol_put (script, M_script_lang_list, language_list);
+	  pl = MPLIST_NEXT (pl);
+	  if (MPLIST_SYMBOL_P (pl) && MPLIST_SYMBOL (pl) == language)
+	    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);
+	    }
 	}
     }
-  else
+  return NULL;
+}
+
+static MPlist *
+mscript__info (MSymbol script)
+{
+  MPlist *plist;
+
+  if (! script_list
+      && init_script_list () < 0)
+    return NULL;
+  MPLIST_DO (plist, script_list)
     {
-      mdb = mdatabase_find (msymbol ("standard"), Mlanguage,
-			    msymbol ("iso639"), Mnil);
-      if (! mdb
-	  || ! (plist = mdatabase_load (mdb)))
-	MERROR (MERROR_DB, NULL);
-      MPLIST_DO (pl, plist)
+      MPlist *pl = MPLIST_PLIST (plist);
+
+      if (MPLIST_SYMBOL (pl) == script)
+	return pl;
+    }
+  return NULL;
+}
+
+MPlist *
+mscript__char_list (MSymbol name)
+{
+  MPlist *plist = mscript__info (name);
+
+  if (plist			/* script name */
+      && (plist = MPLIST_NEXT (plist)) /* language list */
+      && MPLIST_PLIST_P (plist))
+    return MPLIST_PLIST (plist);
+  return NULL;
+}
+
+MSymbol
+mscript__otf_tag (MSymbol script)
+{
+  MPlist *plist = mscript__info (script);
+
+  if (plist			/* script name */
+      && (plist = MPLIST_NEXT (plist)) /* language list */
+      && ! MPLIST_TAIL_P (plist)
+      && (plist = MPLIST_NEXT (plist)) /* char list */
+      && ! MPLIST_TAIL_P (plist)
+      && (plist = MPLIST_NEXT (plist)) /* otf tag */
+      && MPLIST_SYMBOL_P (plist))
+    return MPLIST_SYMBOL (plist);
+  return NULL;
+}
+
+MSymbol
+mscript__from_otf_tag (MSymbol otf_tag)
+{
+  MPlist *plist;
+  /* As it is expected that this function is called in a sequence with
+     the same argument, we use a cache.  */
+  static MSymbol last_otf_tag, script;
+
+  if (! script_list)
+    {
+      last_otf_tag = script = Mnil;
+      if (init_script_list () < 0)
+	return Mnil;
+    }
+  if (otf_tag == last_otf_tag)
+    return script;
+  last_otf_tag = otf_tag;
+  script = Mnil;
+  MPLIST_DO (plist, script_list)
+    {
+      MPlist *pl = MPLIST_PLIST (plist), *p;
+
+      if (pl			       /* script name */
+	  && (p = MPLIST_NEXT (pl))    /* language tag */
+	  && ! MPLIST_TAIL_P (p)
+	  && (p = MPLIST_NEXT (p)) /* char list */
+	  && ! MPLIST_TAIL_P (p)
+	  && (p = MPLIST_NEXT (p)) /* otf tag */
+	  && MPLIST_SYMBOL_P (p)
+	  && otf_tag == MPLIST_SYMBOL (p))
 	{
-	  MPlist *p;
-	  MSymbol code3, code2;
-
-	  if (! MPLIST_PLIST_P (pl))
-	    continue;
-	  p = MPLIST_PLIST (pl);
-	  if (! MPLIST_SYMBOL_P (p))
-	    continue;
-	  code3 = MPLIST_SYMBOL (p);
-	  p = MPLIST_NEXT (p);
-	  if (! MPLIST_SYMBOL_P (p))
-	    continue;
-	  code2 = MPLIST_SYMBOL (p);
-	  mplist_push (language_list, code3, code2);
+	  script = MPLIST_SYMBOL (pl);
+	  break;
 	}
-      M17N_OBJECT_UNREF (plist);
     }
-  return language_list;
+  return script;
 }
 
 #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
@@ -201,3 +274,214 @@ mlanguage__list (MSymbol script)
 /* External API */
 
 MSymbol Miso639_1, Miso639_2;
+
+/*=*/
+
+/***en
+    @brief List 3-letter language codes.
+
+    The mlanguage_list () funciton returns a well-formed plist
+    whose keys are #Msymbol and values are symbols whose names
+    are ISO639-2 3-letter language codes.
+
+    @return
+    This function returns a plist.  The caller should free it by
+    m17n_object_unref ().
+
+    @seealso
+    mscript_list ().  */
+
+MPlist *
+mlanguage_list (void)
+{
+  MPlist *plist, *pl, *p, *p0;
+
+  if (! language_list
+      && init_language_list () < 0)
+    return NULL;
+  plist = pl = mplist ();
+  MPLIST_DO (p, language_list)
+    {
+      p0 = MPLIST_PLIST (p);
+      pl = mplist_add (pl, Msymbol, MPLIST_VAL (p0));
+    }
+  return plist;
+}
+
+/*=*/
+
+/***en
+    @brief Get a language code.
+
+    The mlanguage_code () function returns a symbol whose name is an
+    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 name.
+
+    $LEN specifies which type of language code to return.  If it is 3,
+    ISO639-2 3-letter language code is returned.  If it is 2, ISO639-1
+    2-letter language code (if available) or #Mnil is returned.  If it
+    is 0, 2-letter code (if available) or 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 (), mlanguage_text ().  */
+
+MSymbol
+mlanguage_code (MSymbol language, int len)
+{
+  MPlist *plist = mlanguage__info (language);
+  MSymbol code;
+
+  if (! plist)
+    return NULL;
+  if (! MPLIST_SYMBOL_P (plist))
+    return NULL;
+  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 Get an English language name.
+
+    The mlanguage_name () function returns a symbol whose name is an
+    English name of $LANGUAGE.
+
+    @return
+    If the information is available, this function returns a non-#Mnil
+    symbol.  Otherwise, it returns #Mnil.
+
+    @seealso
+    mlanguage_code (), mlanguage_text ().  */
+
+MSymbol
+mlanguage_name (MSymbol language)
+{
+  MPlist *plist = mlanguage__info (language);
+
+  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);
+}
+
+/*=*/
+
+/***en
+    @brief Return a language name written in the language.
+
+    The mlanguage_text () function returns by M-text a language name
+    of $LANGUAGE written $LANGUAGE.  If the representative characters
+    of the language is known, the first character of the returned
+    M-text has text-property #Mtext whose value is an M-text contains
+    the representative characters.
+
+    @return
+    If the information available, this function returns an M-text that
+    should not modified nor freed.  Otherwise, it returns @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 plist.  The caller has to free it by
+    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 language names that
+    use $SCRIPT.
+
+    @return
+    This function returns a well-formed @e plist whose keys are
+    #Msymbol and values are symbols representing language names
+    (ISO639-1 2-letter code (if defined) or ISO639-2 3-letter code).
+    The caller should not modify nor free it.  If the m17n library
+    doesn't know about $SCRIPT, it returns 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;
+}