src/font.c

   1 /* font.c -- font module.
   2    Copyright (C) 2003, 2004
   3      National Institute of Advanced Industrial Science and Technology (AIST)
   4      Registration Number H15PRO112
   5
   6    This file is part of the m17n library.
   7
   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.
  12
  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.
  17
  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
  21    02111-1307, USA.  */
  22
  23 /***en
  24     @addtogroup m17nFont
  25     @brief Font object.
  26
  27     The m17n GUI API represents a font by an object of the type @c
  28     MFont.  A font can have @e font @e properties.  Like other types
  29     of properties, a font property consists of a key and a value.  The
  30     key of a font property must be one of the following symbols:
  31
  32     @c Mfoundry, @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
  33     @c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
  34
  35     When the key of a font property is @c Msize or @c Mresolution, its
  36     value is an integer.  Otherwise the value is a symbol.  "The font
  37     property that belongs to font F and whose key is @c Mxxx" may be
  38     shortened to "the xxx property of F".
  39
  40     The value of a foundry property is a symbol representing font
  41     foundry information, e.g. adobe, misc, etc.
  42
  43     The value of a family property is a symbol representing font family
  44     information, e.g. times, helvetica, etc.
  45
  46     The value of a weight property is a symbol representing weight
  47     information, e.g. normal, bold, etc.
  48
  49     The value of a style property is a symbol representing slant
  50     information, e.g. normal, italic, etc.
  51
  52     The value of a stretch property is a symbol representing width
  53     information, e.g. normal, semicondensed, etc.
  54
  55     The value of an adstyle property is a symbol representing abstract
  56     font family information, e.g. serif, sans-serif, etc.
  57
  58     The value of a registry property is a symbol representing registry
  59     information, e.g. iso10646-1, iso8895-1, etc.
  60
  61     The value of a size property is an integer representing design
  62     size in the unit of 1/10 point.
  63
  64     The value of a resolution property is an integer representing
  65     assumed device resolution in the unit of dots per inch (dpi)
  66
  67     The m17n library uses font objects for two purposes: to receive
  68     font specification from an application program, and to present
  69     available fonts to an application program.  When the m17n library
  70     presents an available font to an application program, all font
  71     properties have a concrete value.
  72
  73     The m17n library supports three kinds of fonts: Window system fonts,
  74     FreeType fonts, and OpenType fonts.
  75
  76     <ul>
  77
  78     <li> Window system fonts
  79
  80     The m17n-X library supports all fonts handled by an X server and
  81     an X font server.  The correspondence between XLFD fields and font
  82     properties are shown below.
  83
  84 @verbatim
  85     XLFD field                                  property
  86     ---------------                             --------
  87     FOUNDRY                                     foundry
  88     FAMILY_NAME                                 family
  89     WEIGHT_NAME                                 weight
  90     SLANT                                       style
  91     SETWIDTH_NAME                               stretch
  92     ADD_STYLE_NAME                              adstyle
  93     POINT_SIZE                                  size
  94     RESOLUTION_Y                                resolution
  95     CHARSET_REGISTRY-CHARSET_ENCODING           registry
  96 @endverbatim
  97
  98     XLFD fields not listed in the above table are ignored.
  99
 100     <li> FreeType fonts
 101
 102     The m17n library, if configured to use the FreeType library,
 103     supports all fonts that can be handled by the FreeType library.
 104     The variable #mfont_freetype_path is initialized properly accoding
 105     to the configuration of the m17n library and the environment
 106     variable @c M17NDIR.  See the documentation of the variable for
 107     details.
 108
 109     The family name of a FreeType font corresponds to the family
 110     property.  Style names of FreeType fonts correspond to the weight,
 111     style, and stretch properties as below.
 112
 113 @verbatim
 114     style name          weight  style   stretch
 115     ----------          ------  -----   -------
 116     Regular             medium  r       normal
 117     Italic              medium  i       normal
 118     Bold                bold    r       normal
 119     Bold Italic         bold    i       normal
 120     Narrow              medium  r       condensed
 121     Narrow Italic       medium  i       condensed
 122     Narrow Bold         bold    r       condensed
 123     Narrow Bold Italic  bold    i       condensed
 124     Black               black   r       normal
 125     Black Italic        black   i       normal
 126     Oblique             medium  o       normal
 127     BoldOblique         bold    o       normal
 128 @endverbatim
 129
 130     Style names not listed in the above table are treated as
 131     "Regular".
 132
 133     Combination of a platform ID and an encoding ID corresponds to the
 134     registry property.  For example, if a font has the combination (1
 135     1), the registry property is 1-1.  Some frequent combinations have
 136     a predefined registry property as below.
 137
 138 @verbatim
 139     platform ID         encoding ID     registry property
 140     -----------         -----------     -----------------
 141     0                   3               unicode-bmp
 142     0                   4               unicode-full
 143     1                   0               apple-roman
 144     3                   1               unicode-bmp
 145     3                   1               unicode-full
 146 @endverbatim
 147
 148     Thus, a font that has two combinations (1 0) and (3 1) corresponds
 149     to four font objects whose registries are 1-0, apple-roman, 3-1,
 150     and unicode-bmp.
 151
 152     <li> OpenType fonts
 153
 154     The m17n library, if configured to use both the FreeType library
 155     and the OTF library, supports any OpenType fonts.  The list of
 156     actually available fonts is created in the same way as in the case
 157     of FreeType fonts.  If a fontset instructs to use an OpenType font
 158     via an FLT (Font Layout Table), and the FLT has an OTF-related
 159     command (e.g. otf:deva), the OTF library converts a character
 160     sequence to a glyph code sequence according to the OpenType layout
 161     tables of the font, and the FreeType library gives a bitmap image
 162     for each glyph.
 163
 164     </ul>
 165
 166   */
 167
 168 /***ja
 169     @addtogroup m17nFont
 170     @brief ¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È.
 171
 172     m17n GUI API ¤Ï¥Õ¥©¥ó¥È¤ò @c MFont ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤È¤·¤ÆÉ½¸½¤¹¤ë¡£
 173     ¥Õ¥©¥ó¥È¤Ï @e ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£ ¤ò»ý¤Ä¤³¤È¤¬¤Ç¤¤ë¡£Â¾¤Î¥¿¥¤¥×¤Î
 174     ¥×¥í¥Ñ¥Æ¥£Æ±ÍÍ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Ï¥¡¼¤ÈÃÍ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï°Ê²¼¤Î¥·
 175     ¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£
 176
 177     @c Mfoundry, @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
 178     @c Madstyle, @c Mregistry, @c Msize, @c Mresolution
 179
 180     ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤¬ @c Msize ¤¢¤ë¤¤¤Ï @c Mresolution ¤Î¾ì¹ç¡¢
 181     ÃÍ¤ÏÀ°¿ôÃÍ¤Ç¤¢¤ê¡¢¥¡¼¤¬¤½¤ì°Ê³°¤Î¾ì¹ç¡¢ÃÍ¤Ï¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£¡Ö¥Õ¥©
 182     ¥ó¥È F ¤Î¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ @c Mxxx ¤Ç¤¢¤ë¤â¤Î¡×¤Î¤³¤È
 183     ¤ò´ÊÃ±¤Ë¡ÖF ¤Î xxx ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£
 184
 185     foundry ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢adobe, misc Åù¤Î¥Õ¥©¥ó¥È¤Î³«È¯¸µ¾ðÊó¤ò¼¨
 186     ¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
 187
 188     family ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢times, helvetica Åù¤Î¥Õ¥©¥ó¥È¥Õ¥¡¥ß¥ê¡¼¤ò
 189     ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
 190
 191     weight ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢normal, bold Åù¤ÎÂÀ¤µ¤Ë´Ø¤¹¤ë¾ðÊó¤ò¼¨¤¹¥·
 192     ¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
 193
 194     style ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢normal, italic Åù¤Î¥¹¥¿¥¤¥ë¤Ë´Ø¤¹¤ë¾ðÊó¤ò
 195     ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
 196
 197     stretch ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢normal, semicondensed Åù¤ÎÊ¸»úÉý¤Ë´Ø¤¹¤ë
 198     ¾ðÊó¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
 199
 200     adstyle ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢serif, sans-serif Åù¤ÎÃê¾ÝÅª¤Ê¥Õ¥©¥ó¥È¥Õ¥¡
 201     ¥ß¥ê¡¼¤Ë´Ø¤¹¤ë¾ðÊó¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
 202
 203     registry ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢iso10646, iso8895-1 ¤Î¥ì¥¸¥¹¥È¥ê¾ðÊó¤ò
 204     ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
 205
 206     size ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î¥Ç¥¶¥¤¥ó¥µ¥¤¥º¤òÉ½¤ï¤¹À°¿ôÃÍ¤Ç¤¢
 207     ¤ê¡¢Ã±°Ì¤Ï 1/10 ¥Ý¥¤¥ó¥È¤Ç¤¢¤ë¡£
 208
 209     resolution ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢ÁÛÄê¤µ¤ì¤Æ¤¤¤ë¥Ç¥Ð¥¤¥¹¤Î²òÁüÅÙ¤òÉ½¤ï
 210     ¤¹À°¿ôÃÍ¤Ç¤¢¤ê¡¢Ã±°Ì¤Ï dots per inch (dpi) ¤Ç¤¢¤ë¡£
 211
 212     m17n ¥é¥¤¥Ö¥é¥ê¤Ï¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤ò£²¤Ä¤ÎÌÜÅª¤ÇÍÑ¤¤¤Æ¤¤¤ë¡£¥¢
 213     ¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¥Õ¥©¥ó¥È¤Î»ØÄê¤ò¼õ¤±¼è¤ëÌÜÅª¤È¡¢¥¢¥×¥ê
 214     ¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤ËÍøÍÑ²ÄÇ½¤Ê¥Õ¥©¥ó¥È¤òÄó¼¨¤¹¤ëÌÜÅª¤Ç¤¢¤ë¡£¥¢¥×
 215     ¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤ËÂÐ¤·¤ÆÄó¼¨¤ò¹Ô¤¦ºÝ¤Ë¤Ï¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£
 216     ¤Ï¤¹¤Ù¤Æ¶ñÂÎÅª¤ÊÃÍ¤ò»ý¤Ä¡£
 217
 218     m17n ¥é¥¤¥Ö¥é¥ê¤Ï Window ¥·¥¹¥Æ¥à¥Õ¥©¥ó¥È¡¢FreeType¥Õ¥©¥ó¥È¡¢
 219     OpenType¥Õ¥©¥ó¥È¤Î£³¼ïÎà¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¡£
 220
 221     <ul>
 222
 223     <li> Window ¥·¥¹¥Æ¥à¥Õ¥©¥ó¥È
 224
 225     m17n X ¥é¥¤¥Ö¥é¥ê¤Ï¡¢X ¥µ¡¼¥Ð¤È X ¥Õ¥©¥ó¥È¥µ¡¼¥Ð¤¬¼è¤ê°·¤¦Á´¤Æ¤Î¥Õ¥©
 226     ¥ó¥È¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£XLFD ¤Î³Æ¥Õ¥£¡¼¥ë¥É¤È¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤ÎÂÐ±þ
 227     ¤Ï°Ê²¼¤ÎÄÌ¤ê¡£¤³¤ÎÉ½¤Ë¤Ê¤¤¥Õ¥£¡¼¥ë¥É¤ÏÌµ»ë¤µ¤ì¤ë¡£
 228
 229 @verbatim
 230     XLFD ¥Õ¥£¡¼¥ë¥É                             ¥×¥í¥Ñ¥Æ¥£
 231     ---------------                             --------
 232     FOUNDRY                                     foundry
 233     FAMILY_NAME                                 family
 234     WEIGHT_NAME                                 weight
 235     SLANT                                       style
 236     SETWIDTH_NAME                               stretch
 237     ADD_STYLE_NAME                              adstyle
 238     POINT_SIZE                                  size
 239     RESOLUTION_Y                                resolution
 240     CHARSET_REGISTRY-CHARSET_ENCODING           registry
 241 @endverbatim
 242
 243     <li> FreeType fonts
 244
 245     m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢FreeType ¥é¥¤¥Ö¥é¥ê¤ò»È¤¦¤è¤¦¤ËÀßÄê¤µ¤ì¤¿¾ì¹ç¤Ë
 246     ¤Ï¡¢FreeType ¤¬°·¤¦¤¹¤Ù¤Æ¤Î¥Õ¥©¥ó¥È¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£ÊÑ¿ô
 247     #mfont_freetype_path ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤ÎÀßÄê¤È´Ä¶ÊÑ¿ô @c M17NDIR
 248     ¤Ë±þ¤¸¤Æ½é´ü²½¤µ¤ì¤ë¡£¾ÜºÙ¤ÏÊÑ¿ô¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£
 249
 250     FreeType ¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥ß¥êÌ¾¤Ï family ¥×¥í¥Ñ¥Æ¥£¤ËÂÐ±þ¤¹¤ë¡£
 251     FreeType ¥Õ¥©¥ó¥È¤Î¥¹¥¿¥¤¥ëÌ¾¤Ï¡¢²¼¤ÎÉ½¤Î¤è¤¦¤Ë weight, style,
 252     stretch ¥×¥í¥Ñ¥Æ¥£¤ËÂÐ±þ¤¹¤ë¡£
 253
 254 @verbatim
 255     ¥¹¥¿¥¤¥ëÌ¾          weight  style   stretch
 256     ----------          ------  -----   -------
 257     Regular             medium  r       normal
 258     Italic              medium  i       normal
 259     Bold                bold    r       normal
 260     Bold Italic         bold    i       normal
 261     Narrow              medium  r       condensed
 262     Narrow Italic       medium  i       condensed
 263     Narrow Bold         bold    r       condensed
 264     Narrow Bold Italic  bold    i       condensed
 265     Black               black   r       normal
 266     Black Italic        black   i       normal
 267     Oblique             medium  o       normal
 268     BoldOblique         bold    o       normal
 269 @endverbatim
 270
 271     ¾å¤ÎÉ½¤Ë¸½¤ï¤ì¤Ê¤¤¥¹¥¿¥¤¥ëÌ¾¤Ï "Regular" ¤È¤·¤Æ°·¤ï¤ì¤ë¡£
 272
 273     platform ID ¤È encoding ID ¤ÎÁÈ¤ß¹ç¤ï¤»¤Ï registry ¥×¥í¥Ñ¥Æ¥£¤ËÂÐ
 274     ±þ¤¹¤ë¡£¤¿¤È¤¨¤Ð¤¢¤ë¥Õ¥©¥ó¥È¤¬ (1 1) ¤È¤¤¤¦ ID ¤ÎÁÈ¹ç¤»¤ò»ý¤Æ¤Ð¡¢
 275     registry ¥×¥í¥Ñ¥Æ¥£¤Ï 1-1 ¤È¤Ê¤ë¡£ÉÑÈË¤Ë¤¢¤é¤ï¤ì¤ëÁÈ¹ç¤»¤Ë¤Ï°Ê²¼¤Î
 276     ¤è¤¦¤ÊÄêµÁºÑ¤ß registry ¥×¥í¥Ñ¥Æ¥£ ¤¬Í¿¤¨¤é¤ì¤Æ¤¤¤ë¡£
 277
 278 @verbatim
 279     platform ID         encoding ID     registry ¥×¥í¥Ñ¥Æ¥£
 280     -----------         -----------     -----------------
 281     0                   3               unicode-bmp
 282     0                   4               unicode-full
 283     1                   0               apple-roman
 284     3                   1               unicode-bmp
 285     3                   1               unicode-full
 286 @endverbatim
 287
 288     ¤·¤¿¤¬¤Ã¤Æ¡¢Æó¤Ä¤ÎÁÈ¹ç¤» (1 0) ¡¢(3 1) ¤ò»ý¤Ä¥Õ¥©¥ó¥È¤Ï¡¢¤½¤ì¤¾¤ì
 289     registry ¥×¥í¥Ñ¥Æ¥£¤¬1-0, apple-roman, 3-1, unicode-bmp ¤Ç¤¢¤ë£´¤Ä
 290     ¤Î¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤ËÂÐ±þ¤¹¤ë¡£
 291
 292     <li> OpenType ¥Õ¥©¥ó¥È
 293
 294     m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢FreeType ¥é¥¤¥Ö¥é¥ê¤È OTF ¥é¥¤¥Ö¥é¥ê¤ò»ÈÍÑ¤¹¤ë
 295     ¤è¤¦¤ËÀßÄê¤¹¤ì¤Ð¡¢¤¹¤Ù¤Æ¤Î OpenType ¥Õ¥©¥ó¥È¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£¼ÂºÝ¤Ë
 296     ÍøÍÑ¤Ç¤¤ë¥Õ¥©¥ó¥È¤Î¥ê¥¹¥È¤ÏFreeType ¥Õ¥©¥ó¥È¤Î¾ì¹ç¤ÈÆ±ÍÍ¤Ëºî¤é¤ì
 297     ¤ë¡£OpenType ¥Õ¥©¥ó¥È¤ò FLT (Font Layout Table) ·ÐÍ³¤Ç»ÈÍÑ¤¹¤ë¤è¤¦
 298     ¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ë»ØÄê¤µ¤ì¤Æ¤ª¤ê¡¢FLT ¤Ë OTF ´ØÏ¢¤Î¥³¥Þ¥ó¥É (¤¿¤È¤¨
 299     ¤Ð otf:deva) ¤¬¤¢¤ì¤Ð¡¢OTF ¥é¥¤¥Ö¥é¥ê¤¬¥Õ¥©¥ó¥È¤Î OpenType ¥ì¥¤¥¢
 300     ¥¦¥È¥Æ¡¼¥Ö¥ë¤Ë½¾¤Ã¤ÆÊ¸»úÎó¤ò¥°¥ê¥Õ¥³¡¼¥ÉÎó¤ËÊÑ´¹¤·¡¢FreeType ¥é¥¤
 301     ¥Ö¥é¥ê¤¬³Æ¥°¥ê¥Õ¤Î¥Ó¥Ã¥È¥Þ¥Ã¥×¥¤¥á¡¼¥¸¤òÄó¶¡¤¹¤ë¡£
 302
 303     </ul>
 304
 305 */
 306
 307 /*=*/
 308
 309 #if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
 310 /*** @addtogroup m17nInternal
 311      @{ */
 312
 313 #include "config.h"
 314
 315 #include <stdio.h>
 316 #include <stdlib.h>
 317 #include <string.h>
 318
 319 #include "m17n-gui.h"
 320 #include "m17n-misc.h"
 321 #include "internal.h"
 322 #include "mtext.h"
 323 #include "symbol.h"
 324 #include "plist.h"
 325 #include "charset.h"
 326 #include "internal-gui.h"
 327 #include "font.h"
 328 #include "face.h"
 329
 330 MFontDriver *mfont__driver_list[MFONT_TYPE_MAX];
 331
 332 /** Indices to font properties sorted by their priority.  */
 333 static int font_score_priority[] =
 334   { MFONT_SIZE,
 335     MFONT_ADSTYLE,
 336     MFONT_FAMILY,
 337     MFONT_WEIGHT,
 338     MFONT_STYLE,
 339     MFONT_STRETCH,
 340     MFONT_FOUNDRY
 341   };
 342
 343 #define FONT_SCORE_PRIORITY_SIZE        \
 344   (sizeof font_score_priority / sizeof font_score_priority[0])
 345
 346 /* Indexed by a font property MFONT_XXX, and the value is how many
 347    bits to shift the difference of property values.  */
 348 static int font_score_shift_bits[MFONT_PROPERTY_MAX];
 349
 350 /** Predefined symbols for each font property.  The order is important
 351     because the function score_font () decides how well a font matches
 352     with a spec by checking how close the index is.  */
 353
 354 static char *common_foundry[] =
 355   { "misc",
 356     "adobe" };
 357 static char *common_family[] =
 358   { "fixed",
 359     "courier",
 360     "helvetica",
 361     "times" };
 362 static char *common_weight[] =
 363   { "ultralight",
 364     "extralight",
 365     "light",
 366     "demilight",
 367     "book",
 368     "normal",
 369     "medium",
 370     "regular",
 371     "demibold",
 372     "bold",
 373     "extrabold",
 374     "ultrabold",
 375     "black" };
 376 static char *common_style[] =
 377   { "o",
 378     "i",
 379     "r",
 380     "ri",
 381     "ro" };
 382 static char *common_stretch[] =
 383   { "condensed",
 384     "narrow",
 385     "semicondensed",
 386     "normal",
 387     "semiexpanded",
 388     "expanded" };
 389 static char *common_adstyle[] =
 390   { "serif",
 391     "",
 392     "sans" };
 393 static char *common_registry[] =
 394   { "iso8859-1" };
 395
 396 /* Table containing all the data above.  */
 397
 398 struct MFontCommonNames
 399 {
 400   int num;
 401   char **names;
 402 };
 403
 404 static struct MFontCommonNames font_common_names[] =
 405   {
 406     { sizeof (common_foundry) / sizeof (char *), common_foundry},
 407     { sizeof (common_family) / sizeof (char *), common_family},
 408     { sizeof (common_weight) / sizeof (char *), common_weight},
 409     { sizeof (common_style) / sizeof (char *), common_style},
 410     { sizeof (common_stretch) / sizeof (char *), common_stretch},
 411     { sizeof (common_adstyle) / sizeof (char *), common_adstyle},
 412     { sizeof (common_registry) / sizeof (char *), common_registry}
 413   };
 414
 415
 416 /** Table of available font property names.  */
 417
 418 MFontPropertyTable mfont__property_table[MFONT_REGISTRY + 1];
 419
 420
 421 /** Return the numeric value of SYMBOL as the Nth font property.  */
 422
 423 #define FONT_PROPERTY_NUMERIC(symbol, n)        \
 424   ((symbol) == Mnil                             \
 425    ? 0                                          \
 426    : ((int) msymbol_get ((symbol), mfont__property_table[(n)].property)))
 427
 428
 429 /** Set the numeric value of SYMBOL as the Nth font property to NUMERIC.  */
 430
 431 #define SET_FONT_PROPERTY_NUMERIC(symbol, n, numeric)           \
 432   msymbol_put((symbol), mfont__property_table[(n)].property,    \
 433               (void *) (numeric))
 434
 435 static char *
 436 gen_font_name (char *buf, MFont *font)
 437 {
 438   char size[16];
 439   int i;
 440
 441   buf[0] = '\0';
 442   for (i = 0; i <= MFONT_REGISTRY; i++)
 443     if (FONT_PROPERTY (font, i) != Mnil)
 444       {
 445         char *name = msymbol_name (FONT_PROPERTY (font, i));
 446
 447         if (name[0])
 448           {
 449             if (i > 0)
 450               strcat (buf, ",");
 451             strcat (buf, name);
 452           }
 453       }
 454   sprintf (size, ",%d", font->property[MFONT_SIZE] / 10);
 455   strcat (buf, size);
 456   return buf;
 457 }
 458
 459
 460 \f
 461 /* Font selector.  */
 462
 463 struct MFontEncoding {
 464   MFont spec;
 465   MSymbol encoding_name;
 466   MCharset *encoding_charset;
 467   MSymbol repertory_name;
 468   MCharset *repertory_charset;
 469 };
 470
 471 static MPlist *font_encoding_list;
 472 static MFontEncoding default_encoding;
 473
 474 /** Load font encoding table from the data <font encoding>.
 475     The data has this form:
 476         (FONT-SPEC ENCODING) ...
 477     where FONT-SPEC has this form:
 478         ([FOUNDRY FAMILY [WEIGHT [STYLE [STRETCH [ADSTYLE]]]]] REGISTRY)
 479     All elements are symbols.  */
 480
 481 static int
 482 load_font_encoding_table ()
 483 {
 484   MDatabase *mdb;
 485   MPlist *encoding_list, *plist, *pl, *elt;
 486
 487   font_encoding_list = pl = mplist ();
 488
 489   mdb = mdatabase_find (Mfont, msymbol ("encoding"), Mnil, Mnil);
 490   if (! mdb
 491       || ! (encoding_list = (MPlist *) mdatabase_load (mdb)))
 492     MERROR (MERROR_FONT, -1);
 493
 494   MPLIST_DO (plist, encoding_list)
 495     {
 496       MFontEncoding *encoding;
 497       MSymbol registry;
 498
 499       MSTRUCT_CALLOC (encoding, MERROR_FONT);
 500
 501       if (! MPLIST_PLIST_P (plist)
 502           || (elt = MPLIST_PLIST (plist), mplist_length (elt) < 2)
 503           || ! MPLIST_PLIST_P (elt))
 504         MWARNING (MERROR_FONT);
 505       registry = mfont__set_spec_from_plist (&encoding->spec,
 506                                              MPLIST_PLIST (elt));
 507       elt = MPLIST_NEXT (elt);
 508       if (! MPLIST_SYMBOL_P (elt))
 509         MWARNING (MERROR_FONT);
 510       encoding->encoding_name = MPLIST_SYMBOL (elt);
 511       elt = MPLIST_NEXT (elt);
 512       if (MPLIST_TAIL_P (elt))
 513         encoding->repertory_name = encoding->encoding_name;
 514       else if (! MPLIST_SYMBOL_P (elt))
 515         MWARNING (MERROR_FONT);
 516       else
 517         encoding->repertory_name = MPLIST_SYMBOL (elt);
 518
 519       if (registry == Mnil)
 520         registry = Mt;
 521       pl = mplist_add (pl, registry, encoding);
 522       continue;
 523
 524     warning:
 525       free (encoding);
 526     }
 527
 528   M17N_OBJECT_UNREF (encoding_list);
 529   return 0;
 530 }
 531
 532 typedef struct {
 533   MFont spec;
 534   int resize;
 535 } MFontResize;
 536
 537 static MPlist *font_resize_list;
 538
 539 /** Load font size table from the data <font size>.
 540     The data has this form:
 541         (FONT-SPEC RESIZE-FACTOR) ...
 542     where FONT-SPEC has this form:
 543         ([FOUNDRY FAMILY [WEIGHT [STYLE [STRETCH [ADSTYLE]]]]] REGISTRY)
 544     All elements of FONT-SPEC are symbols.  */
 545
 546 static int
 547 load_font_resize_table ()
 548 {
 549   MDatabase *mdb;
 550   MPlist *size_adjust_list, *plist, *pl, *elt;
 551
 552   font_resize_list = pl = mplist ();
 553
 554   mdb = mdatabase_find (Mfont, msymbol ("resize"), Mnil, Mnil);
 555   if (! mdb)
 556     return -1;
 557   if (! (size_adjust_list = (MPlist *) mdatabase_load (mdb)))
 558     MERROR (MERROR_FONT, -1);
 559
 560   MPLIST_DO (plist, size_adjust_list)
 561     {
 562       MFontResize *resize;
 563       MSymbol registry;
 564
 565       MSTRUCT_CALLOC (resize, MERROR_FONT);
 566
 567       if (! MPLIST_PLIST_P (plist)
 568           || (elt = MPLIST_PLIST (plist), mplist_length (elt) != 2)
 569           || ! MPLIST_PLIST_P (elt))
 570         MWARNING (MERROR_FONT);
 571       registry = mfont__set_spec_from_plist (&resize->spec,
 572                                              MPLIST_PLIST (elt));
 573       elt = MPLIST_NEXT (elt);
 574       if (! MPLIST_INTEGER_P (elt))
 575         MWARNING (MERROR_FONT);
 576       resize->resize = MPLIST_INTEGER (elt);
 577
 578       if (registry == Mnil)
 579         registry = Mt;
 580       pl = mplist_add (pl, registry, resize);
 581       continue;
 582
 583     warning:
 584       free (resize);
 585     }
 586
 587   M17N_OBJECT_UNREF (size_adjust_list);
 588   return 0;
 589 }
 590
 591 /** Return a font encoding (and repertory) of FONT.  */
 592
 593 static MFontEncoding *
 594 find_encoding (MFont *font)
 595 {
 596   MSymbol registry = FONT_PROPERTY (font, MFONT_REGISTRY);
 597   MFontEncoding *encoding = NULL;
 598   MPlist *plist;
 599
 600   if (! font_encoding_list)
 601     load_font_encoding_table ();
 602   if (! MPLIST_TAIL_P (font_encoding_list))
 603     while (1)
 604       {
 605         plist = font_encoding_list;
 606         while (registry ? (plist = mplist_find_by_key (plist, registry))
 607                : plist)
 608           {
 609             encoding = (MFontEncoding *) MPLIST_VAL (plist);
 610             if (mfont__match_p (font, &encoding->spec, MFONT_ADSTYLE))
 611               {
 612                 if (! encoding->encoding_charset)
 613                   encoding->encoding_charset
 614                     = MCHARSET (encoding->encoding_name);
 615                 if (! encoding->encoding_charset)
 616                   {
 617                     mplist_pop (plist);
 618                     continue;
 619                   }
 620                 if (encoding->repertory_name == encoding->encoding_name)
 621                   encoding->repertory_charset = encoding->encoding_charset;
 622                 else if (encoding->repertory_name != Mnil)
 623                   {
 624                     encoding->repertory_charset
 625                       = MCHARSET (encoding->repertory_name);
 626                     if (! encoding->repertory_charset)
 627                       {
 628                         mplist_pop (plist);
 629                         continue;
 630                       }
 631                   }
 632                 return encoding;
 633               }
 634             else
 635               plist = MPLIST_NEXT (plist);
 636           }
 637         if (registry == Mnil || registry == Mt)
 638           break;
 639         registry = Mt;
 640       }
 641   return &default_encoding;
 642 }
 643
 644
 645 \f
 646 /* Internal API */
 647
 648 int
 649 mfont__init ()
 650 {
 651   int i, shift;
 652
 653   Mfoundry = msymbol ("foundry");
 654   mfont__property_table[MFONT_FOUNDRY].property = Mfoundry;
 655   Mfamily = msymbol ("family");
 656   mfont__property_table[MFONT_FAMILY].property = Mfamily;
 657   Mweight = msymbol ("weight");
 658   mfont__property_table[MFONT_WEIGHT].property = Mweight;
 659   Mstyle = msymbol ("style");
 660   mfont__property_table[MFONT_STYLE].property = Mstyle;
 661   Mstretch = msymbol ("stretch");
 662   mfont__property_table[MFONT_STRETCH].property = Mstretch;
 663   Madstyle = msymbol ("adstyle");
 664   mfont__property_table[MFONT_ADSTYLE].property = Madstyle;
 665   Mregistry = msymbol ("registry");
 666   mfont__property_table[MFONT_REGISTRY].property = Mregistry;
 667
 668   Msize = msymbol ("size");
 669   Mresolution = msymbol ("resolution");
 670
 671   /* The first entry of each mfont__property_table must be Mnil so
 672      that actual properties get positive numeric numbers.  */
 673   for (i = 0; i <= MFONT_REGISTRY; i++)
 674     {
 675       MLIST_INIT1 (&mfont__property_table[i], names, 8);
 676       MLIST_APPEND1 (&mfont__property_table[i], names, Mnil, MERROR_FONT);
 677     }
 678
 679   /* Register predefined font property names.  */
 680   for (i = 0; i <= MFONT_REGISTRY; i++)
 681     {
 682       int j;
 683
 684       for (j = 0; j < font_common_names[i].num; j++)
 685         {
 686           MSymbol sym = msymbol (font_common_names[i].names[j]);
 687
 688           if (sym == Mnil)
 689             return -1;
 690           if (msymbol_put(sym, mfont__property_table[i].property,
 691                           (void *) (j + 1)) < 0)
 692             return -1;
 693           MLIST_APPEND1 (&mfont__property_table[i], names, sym, MERROR_FONT);
 694         }
 695     }
 696
 697   memset (mfont__driver_list, 0, sizeof mfont__driver_list);
 698
 699   /* Here, SHIFT starts from 1, not 0.  This is because the lowest bit
 700      of a score is a flag for a scalable font (see the documentation
 701      of mfont_score).  */
 702   i = FONT_SCORE_PRIORITY_SIZE - 1;
 703   for (shift = 1; i >= 0; i--)
 704     {
 705       font_score_shift_bits[font_score_priority[i]] = shift;
 706       if (font_score_priority[i] == MFONT_SIZE)
 707         shift += 16;
 708       else
 709         shift += 2;
 710     }
 711
 712   MFONT_INIT (&default_encoding.spec);
 713   default_encoding.encoding_name = Mnil;
 714   default_encoding.encoding_charset = NULL;
 715   default_encoding.repertory_name = Mnil;
 716   default_encoding.repertory_charset = NULL;
 717   {
 718     char *path, *buf;
 719     int bufsize;
 720
 721     mfont_freetype_path = mplist ();
 722     bufsize = strlen (M17NDIR) + 7;
 723     buf = alloca (bufsize);
 724     sprintf (buf, "%s/fonts", M17NDIR);
 725     mplist_add (mfont_freetype_path, Mstring, strdup (buf));
 726     path = getenv ("M17NDIR");
 727     if (path)
 728       {
 729         i = strlen (path) + 7;
 730         if (i > bufsize)
 731           buf = alloca (i);
 732         sprintf (buf, "%s/fonts", path);
 733         mplist_push (mfont_freetype_path, Mstring, strdup (buf));
 734       }
 735   }
 736
 737 #ifdef HAVE_FREETYPE
 738   if (mfont__ft_init () < 0)
 739     return -1;
 740 #endif /* HAVE_FREETYPE */
 741   if (mfont__flt_init () < 0)
 742     return -1;
 743
 744   return 0;
 745 }
 746
 747 void
 748 mfont__fini ()
 749 {
 750   MPlist *plist;
 751   int i;
 752
 753   mfont__flt_fini ();
 754 #ifdef HAVE_FREETYPE
 755   mfont__ft_fini ();
 756 #endif /* HAVE_FREETYPE */
 757
 758   MPLIST_DO (plist, mfont_freetype_path)
 759     free (MPLIST_VAL (plist));
 760   M17N_OBJECT_UNREF (mfont_freetype_path);
 761
 762   if (font_resize_list)
 763     {
 764       MPLIST_DO (plist, font_resize_list)
 765         free (MPLIST_VAL (plist));
 766       M17N_OBJECT_UNREF (font_resize_list);
 767       font_resize_list = NULL;
 768     }
 769   if (font_encoding_list)
 770     {
 771       MPLIST_DO (plist, font_encoding_list)
 772         free (MPLIST_VAL (plist));
 773       M17N_OBJECT_UNREF (font_encoding_list);
 774       font_encoding_list = NULL;
 775     }
 776   for (i = 0; i <= MFONT_REGISTRY; i++)
 777     MLIST_FREE1 (&mfont__property_table[i], names);
 778 }
 779
 780 void
 781 mfont__free_realized (MRealizedFont *rfont)
 782 {
 783   if (rfont->info)
 784     M17N_OBJECT_UNREF (rfont->info);
 785   free (rfont);
 786 }
 787
 788
 789 /* Compare FONT with REQUEST and return how much they differs.  If
 790    FONT does not match with SPEC, return -1.  */
 791
 792 int
 793 mfont__score (MFont *font, MFont *spec, MFont *request, int limited_size)
 794 {
 795   int score = 0;
 796   int i = FONT_SCORE_PRIORITY_SIZE;
 797
 798   while (--i >= 0)
 799     {
 800       enum MFontProperty prop = font_score_priority[i];
 801
 802       if (request->property[prop] != 0)
 803         {
 804           int val = 0;
 805
 806           if (spec->property[prop] && font->property[prop]
 807               && font->property[prop] != spec->property[prop])
 808             return -1;
 809           if (font->property[prop])
 810             val = abs (font->property[prop] - request->property[prop]);
 811           if (prop == MFONT_SIZE)
 812             {
 813               if (font->property[MFONT_RESY] == 0)
 814                 /* This is a scalable font.  We prefer a bitmap font
 815                    if the size matches exactly.  */
 816                 score |= 1;
 817               else
 818                 score |= (val << font_score_shift_bits[MFONT_SIZE]
 819                           | ((limited_size && val > 0) ? 0x400000 : 0));
 820             }
 821           else
 822             score |= (val > 3 ? 3 : val) << font_score_shift_bits[prop];
 823         }
 824     }
 825   return score;
 826 }
 827
 828
 829 /** Return 1 iff FONT matches SPEC.  */
 830
 831 int
 832 mfont__match_p (MFont *font, MFont *spec, int prop)
 833 {
 834   for (; prop >= 0; prop--)
 835     if (spec->property[prop] && font->property[prop]
 836         && font->property[prop] != spec->property[prop])
 837       return 0;
 838   return 1;
 839 }
 840
 841
 842 void
 843 mfont__set_spec_from_face (MFont *spec, MFace *face)
 844 {
 845   int i;
 846
 847   for (i = 0; i <= MFONT_ADSTYLE; i++)
 848     mfont__set_property (spec, i, face->property[i]);
 849   /* The value 1 is "iso8859-1".  */
 850   spec->property[MFONT_REGISTRY] = 1;
 851   spec->property[MFONT_SIZE] = (int) (face->property[MFACE_SIZE]);
 852   spec->property[MFONT_RESY] = 0;
 853   spec->property[MFONT_TYPE] = 0;
 854 }
 855
 856
 857 extern MSymbol
 858 mfont__set_spec_from_plist (MFont *spec, MPlist *plist)
 859 {
 860   int i;
 861   MSymbol spec_list[MFONT_REGISTRY + 1];
 862   MSymbol registry;
 863
 864   MFONT_INIT (spec);
 865   memset (spec_list, 0, sizeof spec_list);
 866   for (i = 0; ! MPLIST_TAIL_P (plist); i++, plist = MPLIST_NEXT (plist))
 867     {
 868       if (! MPLIST_SYMBOL_P (plist))
 869         MERROR (MERROR_FONT, Mnil);
 870       spec_list[i] = MPLIST_SYMBOL (plist);
 871     }
 872   registry = spec_list[i - 1];
 873   mfont__set_property (spec, MFONT_REGISTRY, registry);
 874   for (i -= 2; i >= 0; i--)
 875     mfont__set_property (spec, i, spec_list[i]);
 876   return registry;
 877 }
 878
 879 MRealizedFont *
 880 mfont__select (MFrame *frame, MFont *spec, MFont *request, int limited_size,
 881                MSymbol layouter)
 882 {
 883   MSymbol registry = FONT_PROPERTY (spec, MFONT_REGISTRY);
 884   MPlist *realized_font_list;
 885   MRealizedFont *best_font[MFONT_TYPE_MAX], *best;
 886   int best_index;
 887   int i;
 888   int mdebug_mask = MDEBUG_FONT;
 889
 890   if (registry == Mnil)
 891     registry = Mt;
 892
 893   MPLIST_DO (realized_font_list, frame->realized_font_list)
 894     {
 895       best = MPLIST_VAL (realized_font_list);
 896       if (MPLIST_KEY (realized_font_list) == registry
 897           && ! memcmp (&best->spec, spec, sizeof (MFont))
 898           && ! memcmp (&best->request, request, sizeof (MFont)))
 899         {
 900           if (best->layouter != layouter)
 901             {
 902               MRealizedFont *copy;
 903
 904               MSTRUCT_MALLOC (copy, MERROR_FONT);
 905               *copy = *best;
 906               copy->layouter = layouter;
 907               if (copy->info)
 908                 M17N_OBJECT_REF (copy->info);
 909               mplist_add (frame->realized_font_list, registry, copy);
 910               best = copy;
 911             }
 912           return best;
 913         }
 914     }
 915
 916   MDEBUG_PUSH_TIME ();
 917   best = NULL;
 918   best_index = -1;
 919   for (i = 0; i < MFONT_TYPE_MAX; i++)
 920     {
 921       MFontDriver *driver = mfont__driver_list[i];
 922
 923       best_font[i] = (driver
 924                       ? (driver->select) (frame, spec, request, limited_size)
 925                       : NULL);
 926       if (best_font[i]
 927           && (best_index < 0
 928               || best_font[best_index]->score < best_font[i]->score))
 929         best_index = i;
 930     }
 931   for (i = 0; i < MFONT_TYPE_MAX; i++)
 932     {
 933       if (i == best_index)
 934         best = best_font[i];
 935       else if (best_font[i])
 936         free (best_font[i]);
 937     }
 938
 939   if (mdebug__flag & mdebug_mask)
 940     {
 941       char buf1[256], buf2[256];
 942       MFont font = *spec;
 943
 944       for (i = 0; i < MFONT_PROPERTY_MAX; i++)
 945         if (! font.property[i])
 946           font.property[i] = request->property[i];
 947       gen_font_name (buf2, &font);
 948
 949       if (best)
 950         MDEBUG_PRINT_TIME ("FONT",
 951                            (stderr, " to select <%s> from <%s>.",
 952                             gen_font_name (buf1, &best->font),
 953                             buf2));
 954       else
 955         MDEBUG_PRINT_TIME ("FONT", (stderr, " to fail to find <%s>.", buf2));
 956       MDEBUG_POP_TIME ();
 957     }
 958
 959   if (! best)
 960     return NULL;
 961   best->layouter = layouter;
 962   mplist_add (frame->realized_font_list, registry, best);
 963   return best;
 964 }
 965
 966
 967 /** Open a font specified in RFONT.  Return 0 if successfully
 968     opened, otherwise return -1.  */
 969
 970 int
 971 mfont__open (MRealizedFont *rfont)
 972 {
 973   MPlist *realized_font_list;
 974   MSymbol registry = FONT_PROPERTY (&rfont->font, MFONT_REGISTRY);
 975
 976   if (rfont->status)
 977     mdebug_hook ();
 978
 979   MPLIST_DO (realized_font_list, rfont->frame->realized_font_list)
 980     {
 981       MRealizedFont *this_rfont = MPLIST_VAL (realized_font_list);
 982
 983       if (this_rfont->status != 0
 984           && MPLIST_KEY (realized_font_list) == registry
 985           && ! memcmp (&this_rfont->font, &rfont->font, sizeof (MFont)))
 986         {
 987           if (rfont->info)
 988             M17N_OBJECT_UNREF (rfont->info);
 989           rfont->info = this_rfont->info;
 990           M17N_OBJECT_REF (this_rfont->info);
 991           rfont->status = this_rfont->status;
 992           return (this_rfont->status > 0 ? 0 : -1);
 993         }
 994     }
 995
 996   return (rfont->driver->open) (rfont);
 997 }
 998
 999 void
1000 mfont__close (MRealizedFont *rfont)
1001 {
1002   (rfont->driver->close) (rfont);
1003 }
1004
1005 void
1006 mfont__resize (MFont *spec, MFont *request)
1007 {
1008   MSymbol registry = FONT_PROPERTY (spec, MFONT_REGISTRY);
1009   MFontResize *resize;
1010   MPlist *plist;
1011
1012   if (! font_resize_list)
1013     load_font_resize_table ();
1014   if (! MPLIST_TAIL_P (font_resize_list))
1015     while (1)
1016       {
1017         plist = font_resize_list;
1018         while (registry ? (plist = mplist_find_by_key (plist, registry))
1019                : plist)
1020           {
1021             resize = (MFontResize *) MPLIST_VAL (plist);
1022             if (mfont__match_p (spec, &resize->spec, MFONT_ADSTYLE))
1023               {
1024                 request->property[MFONT_SIZE]
1025                   = request->property[MFONT_SIZE] * resize->resize / 100;
1026                 return;
1027               }
1028             plist = MPLIST_NEXT (plist);
1029           }
1030         if (registry == Mt)
1031           break;
1032         registry = Mt;
1033       }
1034 }
1035
1036 /* Return 1 if C is encodable, 0, if C is not encodable, -1 if it
1037    can't be decided now.  */
1038
1039 int
1040 mfont__encodable_p (MRealizedFont *rfont, MSymbol layouter_name, int c)
1041 {
1042   MFontEncoding *encoding;
1043
1044   if (layouter_name != Mnil)
1045     return (mfont__flt_encode_char (layouter_name, c)
1046             != MCHAR_INVALID_CODE);
1047   if (! rfont->encoding)
1048     rfont->encoding = find_encoding (&rfont->spec);
1049   encoding = rfont->encoding;
1050   if (! encoding->repertory_charset)
1051     return -1;
1052   return (ENCODE_CHAR (encoding->repertory_charset, c) != MCHAR_INVALID_CODE);
1053 }
1054
1055 unsigned
1056 mfont__encode_char (MRealizedFont *rfont, int c)
1057 {
1058   MFontEncoding *encoding;
1059   unsigned code;
1060
1061   if (rfont->layouter != Mnil)
1062     return mfont__flt_encode_char (rfont->layouter, c);
1063   if (! rfont->encoding)
1064     rfont->encoding = find_encoding (&rfont->font);
1065   encoding = rfont->encoding;
1066   if (! encoding->encoding_charset)
1067     return MCHAR_INVALID_CODE;
1068   code = ENCODE_CHAR (encoding->encoding_charset, c);
1069   if (code == MCHAR_INVALID_CODE)
1070     return MCHAR_INVALID_CODE;
1071   if (! encoding->repertory_charset)
1072     return (rfont->driver->encode_char) (rfont, c, code);
1073   if (ENCODE_CHAR (encoding->repertory_charset, c) == MCHAR_INVALID_CODE)
1074     return MCHAR_INVALID_CODE;
1075   return code;
1076 }
1077
1078 void
1079 mfont__get_metric (MGlyphString *gstring, int from, int to)
1080 {
1081   MGlyph *from_g = MGLYPH (from), *to_g = MGLYPH (to), *g;
1082   MRealizedFont *rfont = from_g->rface->rfont;
1083
1084   for (g = from_g; g != to_g; g++)
1085     if (g->rface->rfont != rfont)
1086       {
1087         int idx = GLYPH_INDEX (g);
1088
1089         (rfont->driver->find_metric) (rfont, gstring, from, idx);
1090         from_g = g;
1091         rfont = g->rface->rfont;
1092         from = idx;
1093       }
1094   (rfont->driver->find_metric) (rfont, gstring, from, GLYPH_INDEX (g));
1095 }
1096
1097
1098 void
1099 mfont__set_property (MFont *font, enum MFontProperty key, MSymbol val)
1100 {
1101   int numeric;
1102
1103   if (val == Mnil)
1104     numeric = 0;
1105   else
1106     {
1107       numeric = FONT_PROPERTY_NUMERIC (val, key);
1108       if (! numeric)
1109         {
1110           numeric = mfont__property_table[key].used;
1111           MLIST_APPEND1 (mfont__property_table + key, names, val, MERROR_FONT);
1112           SET_FONT_PROPERTY_NUMERIC (val, key, numeric);
1113         }
1114     }
1115   font->property[key] = numeric;
1116 }
1117
1118 void
1119 mfont__set_spec (MFont *font, MSymbol *attrs,
1120                  unsigned short size, unsigned short resy)
1121 {
1122   int i;
1123
1124   for (i = 0; i <= MFONT_REGISTRY; i++)
1125     mfont__set_property (font, i, attrs[i]);
1126   font->property[MFONT_SIZE] = size;
1127   font->property[MFONT_RESY] = resy;
1128 }
1129
1130 /*** @} */
1131 #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
1132
1133 \f
1134
1135 /* External API */
1136
1137 /*** @addtogroup m17nFont */
1138 /*** @{ */
1139 /*=*/
1140
1141 /***en @name Variables: Keys of font property.  */
1142 /***ja @name ÊÑ¿ô: ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤ò»ØÄê¤¹¤ëÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë */
1143 /*** @{ */
1144 /*=*/
1145
1146 /***en
1147     @brief Key of font property specifying foundry.
1148
1149     The variable #Mfoundry is a symbol of name <tt>"foundry"</tt> and
1150     is used as a key of font property and face property.  The property
1151     value must be a symbol whose name is a foundry name of a font.  */
1152 /***ja
1153     @brief ³«È¯¸µ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1154
1155     ÊÑ¿ô #Mfoundry ¤Ï <tt>"fonudry"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢
1156     ¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
1157     ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î³«È¯¸µÌ¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1158     */
1159
1160 MSymbol Mfoundry;
1161
1162 /***en
1163     @brief Key of font property specifying family.
1164
1165     The variable #Mfamily is a symbol of name <tt>"family"</tt> and is
1166     used as a key of font property and face property.  The property
1167     value must be a symbol whose name is a family name of a font.  */
1168 /***ja
1169     @brief ¥Õ¥¡¥ß¥ê¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1170
1171     ÊÑ¿ô #Mfamily ¤Ï <tt>"family"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
1172     ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
1173     ¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥ß¥êÌ¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1174     */
1175
1176 MSymbol Mfamily;
1177
1178 /***en
1179     @brief Key of font property specifying weight.
1180
1181     The variable #Mweight is a symbol of name <tt>"weight"</tt> and is
1182     used as a key of font property and face property.  The property
1183     value must be a symbol whose name is a weight name of a font (e.g
1184     "medium", "bold").  */
1185 /***ja
1186     @brief ÂÀ¤µ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1187
1188     ÊÑ¿ô #Mweight ¤Ï <tt>"weight"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
1189     ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
1190     ¥Õ¥©¥ó¥È¤ÎÂÀ¤µÌ¾ ( "medium", "bold" Åù) ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç
1191     ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1192     */
1193
1194 MSymbol Mweight;
1195
1196 /***en
1197     @brief Key of font property specifying style.
1198
1199     The variable #Mstyle is a symbol of name <tt>"style"</tt> and is
1200     used as a key of font property and face property.  The property
1201     value must be a symbol whose name is a style name of a font (e.g
1202     "r", "i", "o").  */
1203 /***ja
1204     @brief ¥¹¥¿¥¤¥ë¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1205
1206     ÊÑ¿ô #Mstyle ¤Ï <tt>"style"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
1207     ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
1208     ¥Õ¥©¥ó¥È¤Î¥¹¥¿¥¤¥ëÌ¾ ("r", "i", "o" Åù)¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç
1209     ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1210     */
1211
1212 MSymbol Mstyle;
1213
1214 /***en
1215     @brief Key of font property specifying stretch.
1216
1217     The variable #Mstretch is a symbol of name <tt>"stretch"</tt> and
1218     is used as a key of font property and face property.  The property
1219     value must be a symbol whose name is a stretch name of a font (e.g
1220     "normal", "condensed").  */
1221 /***ja
1222     @brief Éý¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1223
1224     ÊÑ¿ô #Mstretch ¤Ï <tt>"stretch"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢
1225     ¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
1226     ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤ÎÊ¸»úÉýÌ¾ ( "normal", "condensed" Åù)¤òÌ¾Á°¤È¤·¤Æ»ý
1227     ¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1228     */
1229
1230 MSymbol Mstretch;
1231
1232 /***en
1233     @brief Key of font property specifying additional style.
1234
1235     The variable #Madstyle is a symbol of name <tt>"adstyle"</tt> and
1236     is used as a key of font property and face property.  The property
1237     value must be a symbol whose name is an additional style name of a
1238     font (e.g "serif", "", "sans").  */
1239 /***ja
1240     @brief adstyle ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1241
1242     ÊÑ¿ô #Madstyle ¤Ï <tt>"adstyle"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢
1243     ¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
1244     ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î adstyle Ì¾("serif", "", "sans" Åù)¤òÌ¾Á°¤È¤·¤Æ»ý
1245     ¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1246     */
1247
1248 MSymbol Madstyle;
1249
1250 /***en
1251     @brief Key of font property specifying registry.
1252
1253     The variable #Mregistry is a symbol of name <tt>"registry"</tt>
1254     and is used as a key of font property.  The property value must be
1255     a symbol whose name is a registry name a font registry
1256     (e.g. "iso8859-1", "jisx0208.1983-0").  */
1257 /***ja
1258     @brief ¥ì¥¸¥¹¥È¥ê¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1259
1260     ÊÑ¿ô #Mregistry ¤Ï <tt>"registry"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¥Õ¥©¥ó
1261     ¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢¥Õ¥©
1262     ¥ó¥È¤Î¥ì¥¸¥¹¥È¥êÌ¾ ( "iso8859-1", "jisx0208.1983-0" Åù) ¤òÌ¾Á°¤È¤·
1263     ¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1264     */
1265
1266 MSymbol Mregistry;
1267
1268 /***en
1269     @brief Key of font property specifying size.
1270
1271     The variable #Msize is a symbol of name <tt>"size"</tt> and is
1272     used as a key of font property and face property.  The property
1273     value must be an integer specifying a font design size in the unit
1274     of 1/10 point (on 100 dpi display).  */
1275 /***ja
1276     @brief ¥µ¥¤¥º¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1277
1278     ÊÑ¿ô #Msize ¤Ï <tt>"size"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¥Õ¥©
1279     ¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
1280     100 dpi ¤Î¥Ç¥£¥¹¥×¥ì¥¤¾å¤Ç¤Î¥Õ¥©¥ó¥È¤Î¥Ç¥¶¥¤¥ó¥µ¥¤¥º¤ò 1/10 ¥Ý¥¤¥ó
1281     ¥ÈÃ±°Ì¤Ç¼¨¤¹À°¿ôÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1282     */
1283
1284 MSymbol Msize;
1285
1286 /***en
1287     @brief Key of font property specifying resolution.
1288
1289     The variable #Mresolution is a symbol of name <tt>"resolution"</tt> and
1290     is used as a key of font property and face property.  The property
1291     value must be an integer to specifying a font resolution in the
1292     unit of dots per inch (dpi).  */
1293 /***ja
1294     @brief ²òÁüÅÙ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1295
1296     ÊÑ¿ô #Mresolution ¤Ï <tt>"resolution"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü
1297     ¥ë¤Ç¤¢¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é
1298     ¤ì¤ë¡£ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î²òÁüÅÙ¤ò dots per inch (dpi) Ã±°Ì¤Ç¼¨¤¹À°¿ô
1299     ÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1300     */
1301
1302 MSymbol Mresolution;
1303
1304 /*=*/
1305 /*** @} */
1306 /*=*/
1307
1308 /***en
1309     @brief List of font files and directories that contain font files.
1310
1311     The variable @c mfont_freetype_path is a plist of FreeType font
1312     files and directories that contain FreeType font files.  Key of
1313     the element is @c Mstring, and the value is a string that
1314     represents a font file or a directory.
1315
1316     The macro M17N_INIT () sets up this variable to contain the
1317     sub-directory "fonts" of the m17n database and the environment
1318     variable "M17NDIR".  The first call of mframe () creates the
1319     internal list of the actually available fonts from this variable.
1320     Thus, an application program, if necessary, must modify the
1321     variable before calling mframe ().  If it is going to add a new
1322     element, value must be a string that can be safely freed.
1323
1324     If the m17n library is not configured to use the FreeType library,
1325     this variable is not used.  */
1326 /***ja
1327     @brief ¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤È¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤ò´Þ¤à¥Ç¥£¥ì¥¯¥È¥ê¤Î¥ê¥¹¥È.
1328
1329     ÊÑ¿ô @c mfont_freetype_path ¤Ï¡¢¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤È¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë
1330     ¤ò´Þ¤à¥Ç¥£¥ì¥¯¥È¥ê¤Î plist ¤Ç¤¢¤ë¡£³ÆÍ×ÁÇ¤Î¥¡¼¤Ï @c Mstring ¤Ç¤¢
1331     ¤ê¡¢ÃÍ¤Ï¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤«¥Ç¥£¥ì¥¯¥È¥ê¤ò¼¨¤¹Ê¸»úÎó¤Ç¤¢¤ë¡£
1332
1333     ¥Þ¥¯¥í M17N_INIT () ¤Ë¤è¤Ã¤Æ¡¢¤³¤ÎÊÑ¿ô¤Ï m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤È´Ä¶ÊÑ
1334      ¿ô "M17NDIR" ÁÐÊý¤Î¥µ¥Ö¥Ç¥£¥ì¥¯¥È¥ê "fonts" ¤ò´Þ¤à¤è¤¦¤ËÀßÄê¤µ¤ì¤ë¡£
1335      mframe () ¤ÎºÇ½é¤Î¸Æ¤Ó½Ð¤·¤ÎºÝ¤Ë¡¢¤³¤ÎÊÑ¿ô¤«¤é¼ÂºÝ¤Ë»ÈÍÑ¤Ç¤¤ë¥Õ¥©
1336      ¥ó¥È¤ÎÆâÉô¥ê¥¹¥È¤¬ºî¤é¤ì¤ë¡£¤½¤³¤Ç¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¡¢
1337      mframe () ¤ò¸Æ¤ÖÁ°¤Ë¡ÊÉ¬Í×¤Ê¤é¤Ð¡Ë¤³¤ÎÊÑ¿ô¤òÊÑ¹¹¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê
1338      ¤¤¡£¿·¤·¤¤Í×ÁÇ¤òÄÉ²Ã¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢¤½¤ÎÃÍ¤Ï°ÂÁ´¤Ë³«Êü¤Ç¤¤ëÊ¸»úÎó
1339      ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1340
1341     m17n ¥é¥¤¥Ö¥é¥ê¤¬ FreeType ¥é¥¤¥Ö¥é¥ê¤ò»È¤¦¤è¤¦¤ËÀßÄê¤µ¤ì¤Æ¤Ê¤¤¾ì
1342     ¹ç¤Ë¤Ï¡¢¤³¤ÎÊÑ¿ô¤ÏÍÑ¤¤¤é¤ì¤Ê¤¤¡£ */
1343
1344 MPlist *mfont_freetype_path;
1345
1346 /*=*/
1347
1348 /***en
1349     @brief Create a new font.
1350
1351     The mfont () function creates a new font object that has no
1352     property.
1353
1354     @return
1355     This function returns a pointer to the created font object.  */
1356 /***ja
1357     @brief ¿·¤·¤¤¥Õ¥©¥ó¥È¤òºî¤ë.
1358
1359     ´Ø¿ô mfont () ¤Ï¥×¥í¥Ñ¥Æ¥£¤ò°ìÀÚ»ý¤¿¤Ê¤¤¿·¤·¤¤¥Õ¥©¥ó¥È¤ò¥ª¥Ö¥¸¥§¥¯
1360     ¥È¤òºî¤ë¡£
1361
1362     @return
1363     ¤³¤Î´Ø¿ô¤Ïºî¤Ã¤¿¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
1364
1365 MFont *
1366 mfont ()
1367 {
1368   MFont *font;
1369
1370   MSTRUCT_CALLOC (font, MERROR_FONT);
1371   return font;
1372 }
1373
1374 /*=*/
1375
1376 /***en
1377     @brief Create a new font from fontname.
1378
1379     The mfont_from_name () function creates a new font object.  The
1380     properties are extracted fontname $NAME.
1381
1382     How to extract properties is window system dependent.  The m17n-X
1383     library parses $NAME as XLFD (X Logical Font Description).
1384
1385     @return
1386     If the operation was successful, this function returns a pointer
1387     to the created font.  Otherwise it returns @c NULL.  */
1388
1389 /***ja
1390     @brief ¥Õ¥©¥ó¥ÈÌ¾¤«¤é¥Õ¥©¥ó¥È¤òºî¤ë.
1391
1392     ´Ø¿ô mfont_from_name () ¤Ï¡¢¥Õ¥©¥ó¥ÈÌ¾ $NAME ¤«¤é¼è¤ê½Ð¤µ¤ì¤¿¥×¥í¥Ñ
1393     ¥Æ¥£¤ò»ý¤Ä¡¢¿·¤·¤¤¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ë¡£
1394
1395     ¤É¤Î¤è¤¦¤Ë¥×¥í¥Ñ¥Æ¥£¤ò¼è¤ê½Ð¤¹¤«¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡£
1396     m17n-X ¥é¥¤¥Ö¥é¥ê¤Î¾ì¹ç¤Ï XLFD (X Logical Font Description) ¤Ë½¾¤Ã¤Æ
1397     $NAME ¤ò²òÀÏ¤¹¤ë¡£
1398
1399     @return
1400     ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mfont_from_name () ¤Ï¿·¤·¤¯ºî¤é¤ì¤¿¥Õ¥©¥ó¥È¤Ø¤Î
1401     ¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£  */
1402
1403 MFont *
1404 mfont_from_name (char *name)
1405 {
1406   MFont template, *font;
1407
1408   if (mwin__parse_font_name (name, &template) < 0)
1409     return NULL;
1410   MSTRUCT_CALLOC (font, MERROR_FONT);
1411   *font = template;
1412   return font;
1413 }
1414
1415 /*=*/
1416
1417 /***en
1418     @brief Make a copy of a font.
1419
1420     The mfont_copy () function returns a new copy of font $FONT.  */
1421 /***ja
1422     @brief ¥Õ¥©¥ó¥È¤Î¥³¥Ô¡¼¤òºî¤ë.
1423
1424     ´Ø¿ô Mfont_copy () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥³¥Ô¡¼¤òºî¤ê¡¢¤½¤ì¤òÊÖ¤¹¡£ */
1425
1426 MFont *
1427 mfont_copy (MFont *font)
1428 {
1429   MFont *copy;
1430
1431   MSTRUCT_MALLOC (copy, MERROR_FONT);
1432   *copy = *font;
1433   return copy;
1434 }
1435
1436 /*=*/
1437
1438 /***en
1439     @brief Create a fontname from a font.
1440
1441     The mfont_name () function creates a fontname string created from
1442     font $FONT.
1443
1444     The syntax of fontname is window system dependent.  The m17n-X
1445     library returns a fontname conforming to XLFD (X Logical Font
1446     Description).
1447
1448     @return
1449     This function returns the created fontname string, which is not freed
1450     unless the user explicitly does so by free ().  */
1451 /***ja
1452     @brief ¥Õ¥©¥ó¥ÈÌ¾¤«¤é¥Õ¥©¥ó¥È¤òºî¤ë.
1453
1454     ´Ø¿ô mfont_name () ¤Ï¥Õ¥©¥ó¥ÈÌ¾¤ÎÊ¸»úÎó¤ò¥Õ¥©¥ó¥È
1455     $FONT ¤ò¸µ¤Ëºî¤ë¡£
1456
1457     ¥Õ¥©¥ó¥ÈÌ¾¤ÎÊ¸Ë¡¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡£m17n-X ¥é¥¤¥Ö¥é¥ê
1458     ¤Ï XLFD (X Logical Font Description) ¤Ë½¾¤¦¥Õ¥©¥ó¥ÈÌ¾¤òÊÖ¤¹¡£
1459
1460     @return
1461     ¤³¤Î´Ø¿ô¤Ïºî¤Ã¤¿¥Õ¥©¥ó¥ÈÌ¾¤ÎÊ¸»úÎó¤òÊÖ¤¹¡£Ê¸»úÎó¤Ï¡¢¥æ¡¼¥¶
1462     ¤¬ free () ¤Ë¤è¤Ã¤ÆÌÀ¼¨Åª¤Ë²òÊü¤·¤Ê¤¤¸Â¤ê²òÊü¤µ¤ì¤Ê¤¤¡£  */
1463
1464 char *
1465 mfont_name (MFont *font)
1466 {
1467   return mwin__build_font_name (font);
1468 }
1469
1470 /*=*/
1471
1472 /***en
1473     @brief Get a property value of a font.
1474
1475     The mfont_get_prop () function gets the value of $KEY property of
1476     font $FONT.  $KEY must be one of the following symbols:
1477
1478         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1479         @c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
1480
1481     @return
1482     If $KEY is @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch, @c
1483     Madstyle, or @c Mregistry, this function returns the
1484     corresponding value as a symbol.  If the font does not have $KEY
1485     property, it returns @c Mnil.
1486     If $KEY is @c Msize or @c Mresolution, this function returns the
1487     corresponding value as an integer.  If the font does not have $KEY
1488     property, it returns 0.
1489     If $KEY is something else, it returns @c NULL and assigns an error
1490     code to the external variable #merror_code.  */
1491
1492 /***ja
1493     @brief ¥Õ¥©¥ó¥È¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
1494
1495     ´Ø¿ô mfont_get_prop () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¡¢¥¡¼¤¬
1496     $KEY ¤Ç¤¢¤ë¤â¤Î¤ÎÃÍ¤òÊÖ¤¹¡£$KEY ¤Ï°Ê²¼¤Î¥·¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì
1497     ¤Ð¤Ê¤é¤Ê¤¤¡£
1498
1499         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1500         @c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
1501
1502     @return
1503     $KEY ¤¬ @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch, @c
1504     Madstyle, @c Mregistry ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ì¤Ð¡¢ÁêÅö¤¹¤ëÃÍ¤ò¥·¥ó¥Ü¥ë¤È
1505     ¤·¤ÆÊÖ¤¹¡£¥Õ¥©¥ó¥È¤¬¤½¤Î¥×¥í¥Ñ¥Æ¥£¤ò»ý¤¿¤Ê¤¤¾ì¹ç¤Ë¤Ï @c Mnil ¤òÊÖ¤¹¡£
1506     $KEY ¤¬ @c Msize ¤¢¤ë¤¤¤Ï @c Mresolution ¤Î¾ì¹ç¤Ë¤Ï¡¢ÁêÅö¤¹¤ëÃÍ¤ò
1507     ¤ÏÀ°¿ôÃÍ¤È¤·¤ÆÊÖ¤¹¡£¥Õ¥©¥ó¥È¤¬¤½¤Î¥×¥í¥Ñ¥Æ¥£¤ò»ý¤¿¤Ê¤¤¾ì¹ç¤Ë¤Ï 0 ¤ò
1508     ÊÖ¤¹¡£
1509     $KEY ¤¬¤½¤ì°Ê³°¤Î¤â¤Î¤Ç¤¢¤ì¤Ð¡¢@c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô
1510     #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
1511
1512 void *
1513 mfont_get_prop (MFont *font, MSymbol key)
1514 {
1515   if (key == Mfoundry)
1516     return (void *) FONT_PROPERTY (font, MFONT_FOUNDRY);
1517   if (key == Mfamily)
1518     return (void *) FONT_PROPERTY (font, MFONT_FAMILY);
1519   if (key == Mweight)
1520     return (void *) FONT_PROPERTY (font, MFONT_WEIGHT);
1521   if (key == Mstyle)
1522     return (void *) FONT_PROPERTY (font, MFONT_STYLE);
1523   if (key == Mstretch)
1524     return (void *) FONT_PROPERTY (font, MFONT_STRETCH);
1525   if (key == Madstyle)
1526     return (void *) FONT_PROPERTY (font, MFONT_ADSTYLE);
1527   if (key == Mregistry)
1528     return (void *) FONT_PROPERTY (font, MFONT_REGISTRY);
1529   if (key == Msize)
1530     {
1531       int size = font->property[MFONT_SIZE];
1532       return (void *) size;
1533     }
1534   if (key == Mresolution)
1535     {
1536       int resy = font->property[MFONT_RESY];
1537       return (void *) resy;
1538     }
1539
1540   MERROR (MERROR_FONT, NULL);
1541 }
1542
1543
1544 /*=*/
1545 /***en
1546     @brief Put a property value to a font.
1547
1548     The mfont_put_prop () function puts a font property whose key is
1549     $KEY and value is $VAL to font $FONT.  $KEY must be one of the
1550     following symbols:
1551
1552         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1553         @c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
1554
1555     If $KEY is @c Msize or @c Mresolution, $VAL must be an integer.
1556     Otherwise, $VAL must be a symbol.  */
1557 /***ja
1558     @brief ¥Õ¥©¥ó¥È¤Î¥×¥í¥Ñ¥Æ¥£¤ËÃÍ¤òÀßÄê¤¹¤ë.
1559
1560     ´Ø¿ô mfont_put_prop () ¤Ï¡¢¥Õ¥©¥ó¥È $FONT ¤Î¥¡¼¤¬$KEY ¤Ç¤¢¤ë¥×¥í
1561     ¥Ñ¥Æ¥£¤ÎÃÍ¤ò $VAL ¤ËÀßÄê¤¹¤ë¡£$KEY ¤Ï°Ê²¼¤Î¥·¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤¢
1562     ¤ë¡£
1563
1564         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1565         @c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
1566
1567     $KEY ¤¬ @c Msize ¤« @c Mresolution ¤Ç¤¢¤ì¤Ð $VAL ¤ÏÀ°¿ôÃÍ¤Ç¤Ê¤¯¤Æ
1568     ¤Ï¤é¤Ê¤¤¡£¤½¤ì°Ê³°¤Î¾ì¹ç¡¢$VAL ¤Ï¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£*/
1569
1570 int
1571 mfont_put_prop (MFont *font, MSymbol key, void *val)
1572 {
1573   if (key == Mfoundry)
1574     mfont__set_property (font, MFONT_FOUNDRY, (MSymbol) val);
1575   else if (key == Mfamily)
1576     mfont__set_property (font, MFONT_FAMILY, (MSymbol) val);
1577   else if (key == Mweight)
1578     mfont__set_property (font, MFONT_WEIGHT, (MSymbol) val);
1579   else if (key == Mstyle)
1580     mfont__set_property (font, MFONT_STYLE, (MSymbol) val);
1581   else if (key == Mstretch)
1582     mfont__set_property (font, MFONT_STRETCH, (MSymbol) val);
1583   else if (key == Madstyle)
1584     mfont__set_property (font, MFONT_ADSTYLE, (MSymbol) val);
1585   else if (key == Mregistry)
1586     mfont__set_property (font, MFONT_REGISTRY, (MSymbol) val);
1587   else if (key == Msize)
1588     {
1589       unsigned size = (unsigned) val;
1590       font->property[MFONT_SIZE] = size;
1591     }
1592   else if (key == Mresolution)
1593     {
1594       unsigned resy = (unsigned) val;
1595       font->property[MFONT_RESY] =  resy;
1596     }
1597   else
1598     MERROR (MERROR_FONT, -1);
1599   return 0;
1600 }
1601
1602 /*=*/
1603
1604 /***en
1605     @brief Return the font selection priority.
1606
1607     The mfont_selection_priority () function returns a newly created
1608     array of six symbols.  The elements are the following
1609     keys of font properties ordered by priority.
1610
1611         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1612         @c Madstyle, @c Msize.
1613
1614    The m17n library selects the best matching font according to the
1615    order of this array.  A font that has a different value for a
1616    property of lower priority is preferred to a font that has a
1617    different value for a property of higher priority.  */
1618 /***ja
1619     @brief ¥Õ¥©¥ó¥ÈÁªÂòÍ¥ÀèÅÙ¤òÊÖ¤¹.
1620
1621     ´Ø¿ô mfont_selection_priority () ¤Ï6¤Ä¤Î¥·¥ó¥Ü¥ë¤«¤é¤Ê¤ëÇÛÎó¤òºî¤Ã
1622     ¤ÆÊÖ¤¹¡£ÇÛÎó¤ÎÍ×ÁÇ¤Ï¡¢°Ê²¼¤Î¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÍ¥ÀèÅÙ½ç¤ËÊÂ
1623     ¤Ù¤¿¤â¤Î¤Ç¤¢¤ë¡£
1624
1625         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1626         @c Madstyle, @c Msize.
1627
1628    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¤³¤ÎÇÛÎó¤Ë½¾¤Ã¤Æ¡¢ºÇ¤â¹çÃ×¤¹¤ë¥Õ¥©¥ó¥È¤òÁªÂò¤¹¤ë¡£
1629    Í¥ÀèÅÙ¤ÎÄã¤¤¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬°ã¤¦¥Õ¥©¥ó¥È¤ÈÍ¥ÀèÅÙ¤Î¹â¤¤¥×¥í¥Ñ¥Æ¥£¤Î
1630    ÃÍ¤¬°ã¤¦¥Õ¥©¥ó¥È¤¬¤¢¤ë¾ì¹ç¡¢Á°¼Ô¤¬ÁªÂò¤µ¤ì¤ë¡£
1631    */
1632
1633 MSymbol *
1634 mfont_selection_priority ()
1635 {
1636   MSymbol *keys;
1637   int i;
1638
1639   MTABLE_MALLOC (keys, FONT_SCORE_PRIORITY_SIZE, MERROR_FONT);
1640   for (i = 0; i < FONT_SCORE_PRIORITY_SIZE; i++)
1641     {
1642       enum MFontProperty prop = font_score_priority[i];
1643
1644       if (prop == MFONT_SIZE)
1645         keys[i] = Msize;
1646       else if (prop == MFONT_ADSTYLE)
1647         keys[i] = Madstyle;
1648       else if (prop == MFONT_FAMILY)
1649         keys[i] = Mfamily;
1650       else if (prop == MFONT_WEIGHT)
1651         keys[i] = Mweight;
1652       else if (prop == MFONT_STYLE)
1653         keys[i] = Mstyle;
1654       else if (prop == MFONT_STRETCH)
1655         keys[i] = Mstretch;
1656       else
1657         keys[i] = Mfoundry;
1658     }
1659   return keys;
1660 }
1661
1662 /*=*/
1663
1664 /***en
1665     @brief Set the font selection priority.
1666
1667     The mfont_set_selection_priority () function sets font selection
1668     priority according to $KEYS, which is an array of six symbols.
1669     Each element must be one of the below.  No two elements must be
1670     the same.
1671
1672         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1673         @c Madstyle, @c Msize.
1674
1675     See the documentation of the function mfont_selection_priority ()
1676     for details.  */
1677 /***ja
1678     @brief ¥Õ¥©¥ó¥ÈÁªÂòÍ¥ÀèÅÙ¤òÀßÄê¤¹¤ë.
1679
1680     ´Ø¿ô mfont_set_selection_priority () ¤Ï¡¢6¤Ä¤Î¥·¥ó¥Ü¥ë¤ÎÇÛÎó $KEYS
1681     ¤Ë¤·¤¿¤¬¤Ã¤Æ¥Õ¥©¥ó¥ÈÁªÂòÍ¥ÀèÅÙ¤òÀßÄê¤¹¤ë¡£³ÆÍ×ÁÇ¤Ï°Ê²¼¤Î¤¦¤Á¤Î¤É¤ì
1682     ¤«¤Ç¤¢¤ê¡¢Á´¤Æ°Û¤Ê¤Ã¤Æ¤¤¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1683
1684         @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
1685         @c Madstyle, @c Msize.
1686
1687     ¾ÜºÙ¤Ï´Ø¿ô mfont_selection_priority () ¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£
1688      */
1689
1690 int
1691 mfont_set_selection_priority (MSymbol *keys)
1692 {
1693   int priority[FONT_SCORE_PRIORITY_SIZE];
1694   int i, j;
1695
1696   for (i = 0; i < FONT_SCORE_PRIORITY_SIZE; i++, keys++)
1697     {
1698       enum MFontProperty prop;
1699
1700       if (*keys == Msize)
1701         prop = MFONT_SIZE;
1702       else if (*keys == Madstyle)
1703         prop = MFONT_ADSTYLE;
1704       else if (*keys == Mfamily)
1705         prop = MFONT_FAMILY;
1706       else if (*keys == Mweight)
1707         prop = MFONT_WEIGHT;
1708       else if (*keys == Mstyle)
1709         prop = MFONT_STYLE;
1710       else if (*keys == Mstretch)
1711         prop = MFONT_STRETCH;
1712       else if (*keys == Mfoundry)
1713         prop = MFONT_FOUNDRY;
1714       else
1715         /* Invalid element.  */
1716         return -1;
1717       for (j = 0; j < i; j++)
1718         if (priority[j] == prop)
1719           /* Duplicated element.  */
1720           return -1;
1721       priority[i] = prop;
1722     }
1723   for (i = 0; i < FONT_SCORE_PRIORITY_SIZE; i++)
1724     font_score_priority[i] = priority[i];
1725   return 0;
1726 }
1727
1728 /*=*/
1729
1730 /***en
1731     @brief Find a font.
1732
1733     The mfont_find () function returns a pointer to the available font
1734     that matches best the specification $SPEC on frame $FRAME.
1735
1736     $SCORE, if not NULL, must point to a place to store the score
1737     value that indicates how well the found font matches to $SPEC.  The
1738     smaller score means a better match.  */
1739 /***ja
1740     @brief ¥Õ¥©¥ó¥È¤òÃµ¤¹.
1741
1742     ´Ø¿ô mfont_find () ¤Ï¡¢¥Õ¥ì¡¼¥à $FRAME ¾å¤Ç¥Õ¥©¥ó¥ÈÄêµÁ $SPEC ¤Ë¤â¤Ã
1743     ¤È¤â¹çÃ×¤¹¤ëÍøÍÑ²ÄÇ½¤Ê¥Õ¥©¥ó¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
1744
1745     $SCORE ¤Ï NULL ¤Ç¤¢¤ë¤«¡¢¸«¤Ä¤«¤Ã¤¿¥Õ¥©¥ó¥È¤¬ $SPEC ¤Ë¤É¤ì¤Û¤É¹ç¤Ã
1746     ¤Æ¤¤¤ë¤«¤ò¼¨¤¹¥¹¥³¥¢¤òÊÝÂ¸¤¹¤ë¾ì½ê¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥¹¥³¥¢¤¬¾®¤µ
1747     ¤¤¤Û¤ÉÎÉ¤¯¹ç¤Ã¤Æ¤¤¤ë¤³¤È¤ò°ÕÌ£¤¹¤ë¡£
1748     */
1749
1750 MFont *
1751 mfont_find (MFrame *frame, MFont *spec, int *score, int limited_size)
1752 {
1753   MFont spec_copy;
1754   MRealizedFont *rfont;
1755
1756   MFONT_INIT (&spec_copy);
1757   spec_copy.property[MFONT_REGISTRY] = spec->property[MFONT_REGISTRY];
1758
1759   rfont = mfont__select (frame, &spec_copy, spec, limited_size, Mnil);
1760   if (!rfont)
1761     return NULL;
1762   if (score)
1763     *score = rfont->score;
1764   return &rfont->font;
1765 }
1766
1767 /*=*/
1768 /***en
1769     @brief Set encoding of a font.
1770
1771     The mfont_set_encoding () function sets the encoding information
1772     of font $FONT.
1773
1774     $ENCODING_NAME is a symbol representing a charset that has the
1775     same encoding as the font.
1776
1777     $REPERTORY_NAME is @c Mnil or a symbol representing a charset that
1778     has the same repertory as the font.  If it is @c Mnil, whether a
1779     specific character is supported by the font is asked to each font
1780     driver.
1781
1782     @return
1783     If the operation was successful, this function returns 0.
1784     Otherwise it returns -1 and assigns an error code to the external
1785     variable #merror_code.  */
1786 /***ja
1787     @brief ¥Õ¥©¥ó¥È¤Î¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¤òÀßÄê¤¹¤ë.
1788
1789     ´Ø¿ô mfont_set_encoding () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¾ðÊó
1790     ¤òÀßÄê¤¹¤ë¡£
1791
1792     $ENCODING_NAME ¤Ï¥Õ¥©¥ó¥È¤ÈÆ±¤¸¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¤ò»ý¤ÄÊ¸»ú¥»¥Ã¥È¤ò
1793     ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
1794
1795     $REPERTORY_NAME ¤Ï @c Mnil ¤Ç¤¢¤ë¤«¡¢¥Õ¥©¥ó¥È¤ÈÆ±¤¸¥¨¥ó¥³¡¼¥Ç¥£¥ó
1796     ¥°¤ò»ý¤ÄÊ¸»ú¥»¥Ã¥È¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£@c Mnil ¤Ç¤¢¤ì¤Ð¡¢¸Ä¡¹¤ÎÊ¸
1797     »ú¤¬¤½¤Î¥Õ¥©¥ó¥È¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«¤Ï¡¢¥Õ¥©¥ó¥È¥É¥é¥¤¥Ð¤Ë
1798     Ìä¤¤¹ç¤ï¤»¤ë¡£
1799
1800     @return
1801     ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¤³¤Î´Ø¿ô¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤·¡¢³°
1802     ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
1803
1804
1805 int
1806 mfont_set_encoding (MFont *font, MSymbol encoding_name, MSymbol repertory_name)
1807 {
1808   MCharset *encoding_charset = MCHARSET (encoding_name);
1809   MCharset *repertory_charset;
1810   MSymbol registry;
1811   MFontEncoding *encoding;
1812   MPlist *plist;
1813
1814   if (! encoding_charset)
1815     MERROR (MERROR_FONT, -1);
1816   if (repertory_name != Mnil)
1817     {
1818       repertory_charset = MCHARSET (repertory_name);
1819       if (! repertory_charset)
1820         MERROR (MERROR_FONT, -1);
1821     }
1822   else
1823     repertory_charset = NULL;
1824
1825   MSTRUCT_CALLOC (encoding, MERROR_FONT);
1826   encoding->spec = *font;
1827   encoding->encoding_name = encoding_name;
1828   encoding->encoding_charset = encoding_charset;
1829   encoding->repertory_name = repertory_name;
1830   encoding->repertory_charset = repertory_charset;
1831   registry = FONT_PROPERTY (font, MFONT_REGISTRY);
1832   if (registry == Mnil)
1833     registry = Mt;
1834   if (! font_encoding_list)
1835     load_font_encoding_table ();
1836   mplist_push (font_encoding_list, registry, encoding);
1837   MPLIST_DO (plist, MPLIST_NEXT (font_encoding_list))
1838     if (! memcmp (font, &((MFontEncoding *) MPLIST_VAL (plist))->spec,
1839                   sizeof (MFont)))
1840       {
1841         mplist_pop (plist);
1842         break;
1843       }
1844   return 0;
1845 }
1846
1847 /*** @} */
1848
1849 /*** @addtogroup m17nDebug */
1850 /*=*/
1851 /*** @{ */
1852
1853 /***en
1854     @brief Dump a font.
1855
1856     The mdebug_dump_font () function prints font $FONT in a human readable
1857     way to the stderr.
1858
1859     @return
1860     This function returns $FONT.  */
1861 /***ja
1862     @brief ¥Õ¥©¥ó¥È¤ò¥À¥ó¥×¤¹¤ë.
1863
1864     ´Ø¿ô mdebug_dump_font () ¤Ï¥Õ¥©¥ó¥È $FONT ¤ò stderr ¤Ë¿Í´Ö¤Ë²ÄÆÉ¤Ê
1865     ·Á¤Ç°õºþ¤¹¤ë¡£
1866
1867     @return
1868     ¤³¤Î´Ø¿ô¤Ï $FONT ¤òÊÖ¤¹¡£  */
1869
1870 MFont *
1871 mdebug_dump_font (MFont *font)
1872 {
1873   char *name = mwin__build_font_name (font);
1874
1875   fprintf (stderr, "%s", name);
1876   free (name);
1877   return font;
1878 }
1879
1880 /*** @} */
1881
1882 /*
1883   Local Variables:
1884   coding: euc-japan
1885   End:
1886 */