1 /* character.c -- character module.
2 Copyright (C) 2003, 2004
3 National Institute of Advanced Industrial Science and Technology (AIST)
4 Registration Number H15PRO112
6 This file is part of the m17n library.
8 The m17n library is free software; you can redistribute it and/or
9 modify it under the terms of the GNU Lesser General Public License
10 as published by the Free Software Foundation; either version 2.1 of
11 the License, or (at your option) any later version.
13 The m17n library is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 Lesser General Public License for more details.
18 You should have received a copy of the GNU Lesser General Public
19 License along with the m17n library; if not, write to the Free
20 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
24 @addtogroup m17nCharacter
25 @brief Character objects and API for them.
27 The m17n library represents a @e character by a character code (an
28 integer). The minimum character code is @c 0. The maximum
29 character code is defined by the macro #MCHAR_MAX. It is
30 assured that #MCHAR_MAX is not smaller than @c 0x3FFFFF (22
33 Characters @c 0 to @c 0x10FFFF are equivalent to the Unicode
34 characters of the same code values.
36 A character can have zero or more properties called @e character
37 @e properties. A character property consists of a @e key and a
38 @e value, where key is a symbol and value is anything that can be
39 cast to <tt>(void *)</tt>. "The character property that belongs
40 to character C and whose key is K" may be shortened to "the K
44 @addtogroup m17nCharacter
45 @brief ʸ»ú¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API.
47 m17n ¥é¥¤¥Ö¥é¥ê¤Ï @e ʸ»ú ¤òʸ»ú¥³¡¼¥É¡ÊÀ°¿ô¡Ë¤Çɽ¸½¤¹¤ë¡£
48 ºÇ¾®¤Îʸ»ú¥³¡¼¥É¤Ï @c 0 ¤Ç¤¢¤ê¡¢ºÇÂç¤Îʸ»ú¥³¡¼¥É¤Ï¥Þ¥¯¥í #MCHAR_MAX
49 ¤Ë¤è¤Ã¤ÆÄêµÁ¤µ¤ì¤Æ¤¤¤ë¡£#MCHAR_MAX ¤Ï @c 0x3FFFFF¡Ê22¥Ó¥Ã¥È¡Ë
50 °Ê¾å¤Ç¤¢¤ë¤³¤È¤¬Êݾڤµ¤ì¤Æ¤¤¤ë¡£
52 @c 0 ¤«¤é @c 0x10FFFF ¤Þ¤Ç¤Îʸ»ú¤Ï¡¢¤½¤ì¤ÈƱ¤¸Ãͤò»ý¤Ä Unicode
53 ¤Îʸ»ú¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¡£
55 ³Æʸ»ú¤Ï @e ʸ»ú¥×¥í¥Ñ¥Æ¥£ ¤È¸Æ¤Ö¥×¥í¥Ñ¥Æ¥£¤ò 0 ¸Ä°Ê¾å»ý¤Ä¤³¤È¤¬¤Ç¤¤ë¡£
56 ʸ»ú¥×¥í¥Ñ¥Æ¥£¤Ï @e ¥¡¼ ¤È @e ÃÍ ¤«¤é¤Ê¤ë¡£
57 ¥¡¼¤Ï¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢ÃÍ¤Ï <tt>(void *)</tt> ·¿¤Ë¥¥ã¥¹¥È¤Ç¤¤ë¤â¤Î¤Ê¤é²¿¤Ç¤â¤è¤¤¡£
58 ¡Öʸ»ú C ¤Îʸ»ú¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ K ¤Ç¤¢¤ë¤â¤Î¡×¤ò´Êñ¤Ë¡Öʸ»ú C
59 ¤Î K ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£ */
62 #if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
63 /*** @addtogroup m17nInternal
73 #include "m17n-core.h"
74 #include "m17n-misc.h"
84 static MPlist *char_prop_list;
87 free_string (int from, int to, void *str, void *arg)
98 char_prop_list = mplist ();
101 = mchar_define_property ("name", Mstring);
103 = mchar_define_property ("category", Msymbol);
105 = mchar_define_property ("combining-class", Minteger);
107 = mchar_define_property ("bidirectional-category", Msymbol);
109 = mchar_define_property ("simple-case-folding", Minteger);
110 Mcomplicated_case_folding
111 = mchar_define_property ("complicated-case-folding", Mtext);
113 = mchar_define_property ("script", Msymbol);
123 for (p = char_prop_list; mplist_key (p) != Mnil; p = mplist_next (p))
125 MCharPropRecord *record = mplist_value (p);
129 if (record->type == Mstring)
130 mchartable_map (record->table, NULL, free_string, NULL);
131 M17N_OBJECT_UNREF (record->table);
135 M17N_OBJECT_UNREF (char_prop_list);
139 #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
143 /*** @addtogroup m17nCharacter
149 @brief Maximum character code.
151 The macro #MCHAR_MAX gives the maximum character code. */
154 @brief ʸ»ú¥³¡¼¥É¤ÎºÇÂçÃÍ.
156 ¥Þ¥¯¥í #MCHAR_MAX ¤Ïʸ»ú¥³¡¼¥É¤ÎºÇÂçÃͤòɽ¤¹¡£ */
160 #endif /* FOR_DOXYGEN */
163 @name Variables: Keys of character properties
165 These symbols are used as keys of character properties. */
168 @ingroup m17nCharacter
169 @name ÊÑ¿ô: ʸ»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼
171 ¤³¤ì¤é¤Î¥·¥ó¥Ü¥ë¤Ïʸ»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£*/
175 @brief Key for script.
177 The symbol #Mscript has the name <tt>"script"</tt> and is used as the key
178 of a character property. The value of such a property is a symbol
179 representing the script to which the character belongs.
181 Each symbol that represents a script has one of the names listed in
182 the <em>Unicode Technical Report #24</em>. */
185 @brief ¥¹¥¯¥ê¥×¥È¤òɽ¤ï¤¹¥¡¼.
187 ¥·¥ó¥Ü¥ë #Mscript ¤Ï <tt>"script"</tt>
188 ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£
189 ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤϡ¢¤³¤Îʸ»ú¤Î°¤¹¤ë¥¹¥¯¥ê¥×¥È¤òɽ¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
191 ¥¹¥¯¥ê¥×¥È¤òɽ¤ï¤¹¥·¥ó¥Ü¥ë¤Î̾Á°¤Ï¡¢<em>Unicode Technical Report
192 #24</em> ¤Ë¥ê¥¹¥È¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£ */
199 @brief Key for character name.
201 The symbol #Mname has the name <tt>"name"</tt> and is used as
202 the key of a character property. The value of such a property is a
203 C-string representing the name of the character. */
206 @brief ̾Á°¤òɽ¤ï¤¹¥¡¼.
208 ¥·¥ó¥Ü¥ë #Mname ¤Ï <tt>"name"</tt>
209 ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£
210 ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤϤ½¤Îʸ»ú¤Î̾Á°¤òɽ¤ï¤¹ C ¤Îʸ»úÎó¤Ç¤¢¤ë¡£ */
217 @brief Key for general category.
219 The symbol #Mcategory has the name <tt>"category"</tt> and is
220 used as the key of a character property. The value of such a
221 property is a symbol representing the <em>general category</em> of
224 Each symbol that represents a general category has one of the
225 names listed as abbreviations for <em>General Category</em> in
229 @brief °ìÈÌ¥«¥Æ¥´¥ê¤òɽ¤ï¤¹¥¡¼.
231 ¥·¥ó¥Ü¥ë #Mcategory ¤Ï <tt>"category"</tt>
232 ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£
233 ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤϡ¢Âбþ¤¹¤ë <em>°ìÈÌ¥«¥Æ¥´¥ê</em> ¤òɽ¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
235 °ìÈÌ¥«¥Æ¥´¥ê¤òɽ¤ï¤¹¥·¥ó¥Ü¥ë¤Î̾Á°¤Ï¡¢<em>General Category</em>
236 ¤Î¾Êά·Á¤È¤·¤Æ Unicode ¤ËÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Ç¤¢¤ë¡£ */
243 @brief Key for canonical combining class.
245 The symbol #Mcombining_class has the name
246 <tt>"combining-class"</tt> and is used as the key of a character
247 property. The value of such a property is an integer that
248 represents the <em>canonical combining class</em> of the character.
250 The meaning of each integer that represents a canonical combining
251 class is identical to the one defined in Unicode. */
254 @brief ɸ½à·ë¹ç¥¯¥é¥¹¤òɽ¤ï¤¹¥¡¼.
256 ¥·¥ó¥Ü¥ë #Mcombining_class ¤Ï <tt>"combining-class"</tt>
257 ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£
258 ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤϡ¢Âбþ¤¹¤ë @e ɸ½à·ë¹ç¥¯¥é¥¹ ¤òɽ¤ï¤¹À°¿ô¤Ç¤¢¤ë¡£
260 ɸ½à·ë¹ç¥¯¥é¥¹¤òɽ¤ï¤¹À°¿ô¤Î°ÕÌ£¤Ï¡¢Unicode
261 ¤ËÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤ÈƱ¤¸¤Ç¤¢¤ë¡£ */
263 MSymbol Mcombining_class;
267 @brief Key for bidi category.
269 The symbol #Mbidi_category has the name <tt>"bidi-category"</tt>
270 and is used as the key of a character property. The value of such
271 a property is a symbol that represents the <em>bidirectional
272 category</em> of the character.
274 Each symbol that represents a bidirectional category has one of
275 the names listed as types of <em>Bidirectional Category</em> in
279 @brief ÁÐÊý¸þ¥«¥Æ¥´¥ê¤òɽ¤ï¤¹¥¡¼.
281 ¥·¥ó¥Ü¥ë #Mbidi_category ¤Ï <tt>"bidi-category"</tt>
282 ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£
283 ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤϡ¢Âбþ¤¹¤ë @e ÁÐÊý¸þ¥«¥Æ¥´¥ê ¤òɽ¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
285 ÁÐÊý¸þ¥«¥Æ¥´¥ê¤òɽ¤ï¤¹¥·¥ó¥Ü¥ë¤Î̾Á°¤Ï¡¢<em>Bidirectional
286 Category</em> ¤Î·¿¤È¤·¤Æ Unicode ¤ËÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Ç¤¢¤ë¡£ */
288 MSymbol Mbidi_category;
292 @brief Key for corresponding single lowercase character.
294 The symbol #Msimple_case_folding has the name
295 <tt>"simple-case-folding"</tt> and is used as the key of a
296 character property. The value of such a property is the
297 corresponding single lowercase character that is used when
298 comparing M-texts ignoring cases.
300 If a character requires a complicated comparison (i.e. cannot be
301 compared by simply mapping to another single character), the value
302 of such a property is @c 0xFFFF. In this case, the character has
303 another property whose key is #Mcomplicated_case_folding. */
306 @brief Âбþ¤¹¤ë¾®Ê¸»ú°ìʸ»ú¤òɽ¤ï¤¹¥¡¼.
308 ¥·¥ó¥Ü¥ë #Msimple_case_folding ¤Ï <tt>"simple-case-folding"</tt>
309 ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£
310 ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤϡ¢Âбþ¤¹¤ë¾®Ê¸»ú°ìʸ»ú¤Ç¤¢¤ê¡¢Âçʸ»ú¡¿¾®Ê¸»ú¤Î¶èÊ̤ò̵»ë¤·¤¿Ê¸»úÎóÈæ³Ó¤ÎºÝ¤Ë»È¤ï¤ì¤ë¡£
312 Ê£»¨¤ÊÈæ³ÓÊýË¡¤òɬÍפȤ¹¤ëʸ»ú¤Ç¤¢¤Ã¤¿¾ì¹ç
313 ¡ÊÊ̤ΰìʸ»ú¤ÈÂбþÉÕ¤±¤ë¤³¤È¤Ë¤è¤Ã¤ÆÈæ³Ó¤Ç¤¤Ê¤¤¾ì¹ç¡Ë¡¢¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤÏ
314 @c 0xFFFF ¤Ë¤Ê¤ë¡£¤³¤Î¾ì¹ç¤½¤Îʸ»ú¤Ï¡¢#Mcomplicated_case_folding
315 ¤È¤¤¤¦¥¡¼¤Îʸ»ú¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä¡£ */
317 MSymbol Msimple_case_folding;
319 @brief Key for corresponding multiple lowercase characters.
321 The symbol #Mcomplicated_case_folding has the name
322 <tt>"complicated-case-folding"</tt> and is used as the key of a
323 character property. The value of such a property is the
324 corresponding M-text that contains a sequence of lowercase
325 characters to be used for comparing M-texts ignoring case. */
328 @brief Âбþ¤¹¤ë¾®Ê¸»ú¤ÎÎó¤òɽ¤ï¤¹¥¡¼.
330 ¥·¥ó¥Ü¥ë #Mcomplicated_case_folding ¤Ï
331 <tt>"complicated-case-folding"</tt>
332 ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£
333 ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤϡ¢Âбþ¤¹¤ë¾®Ê¸»úÎ󤫤é¤Ê¤ë M-text ¤Ç¤¢¤ê¡¢Âçʸ»ú¡¿¾®Ê¸»ú¤Î¶èÊ̤ò̵»ë¤·¤¿Ê¸»úÎóÈæ³Ó¤ÎºÝ¤Ë»È
337 MSymbol Mcomplicated_case_folding;
343 @brief Define a character property.
345 The mchar_define_property () function searches the m17n database
346 for a data whose tags are \<#Mchar_table, $TYPE, $SYM \>.
347 Here, $SYM is a symbol whose name is $NAME. $TYPE must be
348 #Mstring, #Mtext, #Msymbol, #Minteger, or #Mplist.
351 If the operation was successful, mchar_define_property () returns
352 $SYM. Otherwise it returns #Mnil. */
355 @brief ʸ»ú¥×¥í¥Ñ¥Æ¥£¤òÄêµÁ¤¹¤ë.
357 ´Ø¿ô mchar_define_property () ¤Ï¡¢ \<#Mchar_table, $TYPE, $SYM \>
358 ¤È¤¤¤¦¥¿¥°¤ò»ý¤Ã¤¿¥Ç¡¼¥¿¥Ù¡¼¥¹¤ò m17n ¸À¸ì¾ðÊó¥Ù¡¼¥¹¤«¤éõ¤¹¡£
359 ¤³¤³¤Ç $SYM ¤Ï $NAME ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£$TYPE ¤Ï#Mstring,
360 #Mtext, #Msymbol, #Minteger, #Mplist ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
363 ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð mchar_define_property () ¤Ï$SYM ¤òÊÖ¤¹¡£
364 ¼ºÇÔ¤·¤¿¾ì¹ç¤Ï #Mnil ¤òÊÖ¤¹¡£ */
371 mchar_get_prop (), mchar_put_prop () */
374 mchar_define_property (const char *name, MSymbol type)
376 MSymbol key = msymbol (name);
377 MCharPropRecord *record;
379 record = mplist_get (char_prop_list, key);
383 M17N_OBJECT_UNREF (record->table);
387 MSTRUCT_CALLOC (record, MERROR_CHAR);
388 mplist_put (char_prop_list, key, record);
392 if (mdatabase__finder
393 && (record->mdb = (*mdatabase__finder) (Mchar_table, type, key, Mnil)))
395 record->table = NULL;
399 void *default_value = NULL;
402 if (type == Minteger)
403 default_value = (void *) -1;
404 record->table = mchartable (type, default_value);
413 @brief Get the value of a character property.
415 The mchar_get_prop () function searches character $C for the
416 character property whose key is $KEY.
419 If the operation was successful, mchar_get_prop () returns the
420 value of the character property. Otherwise it returns @c
424 @brief ʸ»ú¥×¥í¥Ñ¥Æ¥£¤ÎÃͤòÆÀ¤ë.
426 ´Ø¿ô mchar_get_prop () ¤Ï¡¢Ê¸»ú $C ¤Îʸ»ú¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬
427 $KEY ¤Ç¤¢¤ë¤â¤Î¤òõ¤¹¡£
430 ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mchar_get_prop () ¤Ï¸«¤Ä¤«¤Ã¤¿¥×¥í¥Ñ¥Æ¥£¤ÎÃͤòÊÖ¤¹¡£
431 ¼ºÇÔ¤·¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£
433 @latexonly \IPAlabel{mchar_get_prop} @endlatexonly
437 @c MERROR_SYMBOL, @c MERROR_DB
440 mchar_define_property (), mchar_put_prop () */
443 mchar_get_prop (int c, MSymbol key)
445 MCharPropRecord *record;
447 record = mplist_get (char_prop_list, key);
452 record->table = (*mdatabase__loader) (record->mdb);
454 MERROR (MERROR_DB, NULL);
457 return mchartable_lookup (record->table, c);
463 @brief Set the value of a character property.
465 The mchar_put_prop () function searches character $C for the
466 character property whose key is $KEY and assigns $VAL to the value
467 of the found property.
470 If the operation was successful, mchar_put_prop () returns 0.
471 Otherwise, it returns -1. */
473 @brief ʸ»ú¥×¥í¥Ñ¥Æ¥£¤ÎÃͤòÀßÄꤹ¤ë.
475 ´Ø¿ô mchar_put_prop () ¤Ï¡¢Ê¸»ú $C ¤Îʸ»ú¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ $KEY
476 ¤Ç¤¢¤ë¤â¤Î¤òõ¤·¡¢¤½¤ÎÃͤȤ·¤Æ $VAL ¤òÀßÄꤹ¤ë¡£
479 ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mchar_put_prop () ¤Ï0¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï-1¤òÊÖ¤¹¡£ */
482 @c MERROR_SYMBOL, @c MERROR_DB
485 mchar_define_property (), mchar_get_prop () */
488 mchar_put_prop (int c, MSymbol key, void *val)
490 MCharPropRecord *record;
492 record = mplist_get (char_prop_list, key);
497 record->table = (*mdatabase__loader) (record->mdb);
499 MERROR (MERROR_DB, -1);
502 return mchartable_set (record->table, c, val);
508 @brief Get the char-table for a character property.
510 The mchar_get_prop_table () function returns a char-table that
511 contains the character property whose key is $KEY. If $TYPE is
512 not NULL, this function stores the type of the property in the
513 place pointed by $TYPE. See mchar_define_property () for types of
517 If $KEY is a valid character property key, this function returns a
518 char-table. Otherwise NULL is retuned. */
521 @brief ʸ»ú¥×¥í¥Ñ¥Æ¥£¤Îʸ»ú¥Æ¡¼¥Ö¥ë¤òÆÀ¤ë.
523 ´Ø¿ô mchar_get_prop_table () ¤Ï¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ëʸ»ú¥×¥í¥Ñ¥Æ¥£
524 ¤ò´Þ¤àʸ»ú¥Æ¡¼¥Ö¥ë¤òÊÖ¤¹¡£¤â¤· $TYPE ¤¬ NULL ¤Ç¤Ê¤±¤ì¤Ð¡¢ $TYPE ¤Ç
525 »Ø¤µ¤ì¤ë¾ì½ê¤Ë¤½¤Îʸ»ú¤Î¥×¥í¥Ñ¥Æ¥£¤ò³ÊǼ¤¹¤ë¡£Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¼ïÎà
526 ¤Ë´Ø¤·¤Æ¤Ï mchar_define_property () ¤ò¸«¤è¡£
529 ¤â¤· $KEY ¤¬ÀµÅö¤Êʸ»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤Ç¤¢¤ì¤Ð¡¢Ê¸»ú¥Æ¡¼¥Ö¥ë¤¬ÊÖ¤µ
530 ¤ì¤ë¡£¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤Ï NULL ¤¬ÊÖ¤µ¤ì¤ë¡£ */
533 mchar_get_prop_table (MSymbol key, MSymbol *type)
535 MCharPropRecord *record;
537 record = mplist_get (char_prop_list, key);
542 record->table = (*mdatabase__loader) (record->mdb);
544 MERROR (MERROR_DB, NULL);
548 *type = record->type;
549 return record->table;