src/face.c

   1 /* face.c -- face 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 m17nFace
  25     @brief A face is an object to control appearance of M-text.
  26
  27     A @e face is an object of the type #MFace and controls how to
  28     draw M-texts.  A face has a fixed number of @e face @e properties.
  29     Like other types of properties, a face property consists of a key
  30     and a value.  A key is one of the following symbols:
  31
  32     #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
  33     #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
  34     #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
  35
  36     "The face property that belongs to face F and whose key is @c xxx"
  37     may be shortened to "the xxx property of F".
  38
  39     The M-text drawing functions first search an M-text for the text
  40     property whose key is the symbol #Mface, then draw the M-text
  41     using the value of that text property.  This value must be a
  42     pointer to a face object.
  43
  44     If there are multiple text properties whose key is @c Mface, and
  45     they are not conflicting one another, properties of those faces
  46     are merged and used.
  47
  48     If no faces specify a certain property, the value of the default
  49     face is used.  */
  50
  51 /***ja
  52     @addtogroup m17nFace
  53     @brief ¥Õ¥§¡¼¥¹¤È¤Ï¡¢M-text ¤Î¸«±É¤¨¤òÀ©¸æ¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë.
  54
  55     @e ¥Õ¥§¡¼¥¹ ¤Ï #MFace ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ê¡¢M-text ¤ÎÉ½¼¨ÊýË¡
  56     ¤òÀ©¸æ¤¹¤ë¡£¥Õ¥§¡¼¥¹¤Ï¸ÇÄê¸Ä¿ô¤Î @e ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£ ¤ò»ý¤Ä¡£
  57     ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Ï¥¡¼¤ÈÃÍ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï°Ê²¼¤Î¥·¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£
  58
  59     #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
  60     #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
  61     #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
  62
  63     ¡Ö¥Õ¥§¡¼¥¹ F ¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ @c Mxxx ¤Ç¤¢¤ë¤â¤Î¡×
  64     ¤Î¤³¤È¤ò´ÊÃ±¤Ë¡ÖF ¤Î xxx ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£
  65
  66     M-text ¤ÎÉ½¼¨´Ø¿ô¤Ï¡¢¤Þ¤ººÇ½é¤Ë¤½¤Î M-text ¤«¤é¥¡¼¤¬¥·¥ó¥Ü¥ë
  67     #Mface ¤Ç¤¢¤ë¤è¤¦¤Ê¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÃµ¤·¡¢¼¡¤Ë¤½¤ÎÃÍ¤Ë½¾¤Ã¤Æ
  68     M-text ¤òÉ½¼¨¤¹¤ë¡£¤³¤ÎÃÍ¤Ï¥Õ¥§¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤±
  69     ¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
  70
  71      M-text ¤¬¡¢#Mface ¤ò¥¡¼¤È¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÊ£¿ô»ý¤Ã¤Æ¤ª¤ê¡¢
  72     ¤«¤Ä¤½¤ì¤é¤ÎÃÍ¤Î´Ö¤Ë¾×ÆÍ¤¬¤Ê¤¤¤Ê¤é¤Ð¡¢¥Õ¥§¡¼¥¹¾ðÊó¤ÏÁÈ¤ß¹ç¤ï¤µ¤ì¤Æ
  73     ÍÑ¤¤¤é¤ì¤ë¡£
  74
  75     ¤¢¤ë¥Æ¥¥¹¥ÈÂ°À¤¬¤É¤Î¥Õ¥§¡¼¥¹¤Ë¤è¤Ã¤Æ¤â»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¢¥Ç
  76     ¥Õ¥©¥ë¥È¥Õ¥§¡¼¥¹¤ÎÃÍ¤¬ÍÑ¤¤¤é¤ì¤ë¡£  */
  77
  78 /*=*/
  79
  80 #if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
  81 /*** @addtogroup m17nInternal
  82      @{ */
  83
  84 #include <stdio.h>
  85 #include <stdlib.h>
  86 #include <string.h>
  87 #include <ctype.h>
  88
  89 #include "config.h"
  90 #include "m17n-gui.h"
  91 #include "m17n-misc.h"
  92 #include "internal.h"
  93 #include "charset.h"
  94 #include "symbol.h"
  95 #include "plist.h"
  96 #include "mtext.h"
  97 #include "textprop.h"
  98 #include "internal-gui.h"
  99 #include "face.h"
 100 #include "font.h"
 101 #include "fontset.h"
 102
 103 static M17NObjectArray face_table;
 104
 105 static MSymbol Mlatin;
 106
 107 static MSymbol M_face_prop_index;
 108
 109 static MPlist *hline_prop_list;
 110 static MPlist *box_prop_list;
 111
 112 /** Special hook function pointer that does nothing.  */
 113 static MFaceHookFunc noop_hook;
 114
 115 /**  */
 116 static MFaceHLineProp *
 117 get_hline_create (MFaceHLineProp *prop)
 118 {
 119   MPlist *plist;
 120   MFaceHLineProp *hline;
 121
 122   if (prop->width == 0)
 123     return MPLIST_VAL (hline_prop_list);
 124   MPLIST_DO (plist, MPLIST_NEXT (hline_prop_list))
 125     {
 126       hline = MPLIST_VAL (plist);
 127       if (prop->type == hline->type
 128           && prop->width == hline->width
 129           && prop->color == hline->color)
 130         return hline;
 131     }
 132   MSTRUCT_MALLOC (hline, MERROR_FACE);
 133   *hline = *prop;
 134   mplist_push (plist, Mt, hline);
 135   return hline;
 136 }
 137
 138 static MFaceBoxProp *
 139 get_box_create (MFaceBoxProp *prop)
 140 {
 141   MPlist *plist;
 142   MFaceBoxProp *box;
 143
 144   if (prop->width == 0)
 145     return MPLIST_VAL (box_prop_list);
 146   MPLIST_DO (plist, MPLIST_NEXT (box_prop_list))
 147     {
 148       box = MPLIST_VAL (plist);
 149       if (prop->width == box->width
 150           && prop->color_top == box->color_top
 151           && prop->color_bottom == box->color_bottom
 152           && prop->color_left == box->color_left
 153           && prop->color_right == box->color_right
 154           && prop->inner_hmargin == box->inner_hmargin
 155           && prop->inner_vmargin == box->inner_vmargin
 156           && prop->outer_hmargin == box->inner_hmargin
 157           && prop->inner_vmargin == box->inner_vmargin)
 158         return box;
 159     }
 160   MSTRUCT_MALLOC (box, MERROR_FACE);
 161   *box = *prop;
 162   mplist_push (plist, Mt, box);
 163   return box;
 164 }
 165
 166 /** From FRAME->realized_face_list, find a realized face based on
 167     FACE.  */
 168
 169 static MRealizedFace *
 170 find_realized_face (MFrame *frame, MFace *face)
 171 {
 172   MPlist *plist;
 173
 174   MPLIST_DO (plist, frame->realized_face_list)
 175     {
 176       MRealizedFace *rface = MPLIST_VAL (plist);
 177
 178       if (memcmp (rface->face.property, face->property, sizeof face->property)
 179           == 0)
 180         return rface;
 181     }
 182   return NULL;
 183 }
 184
 185 static void
 186 free_face (void *object)
 187 {
 188   MFace *face = (MFace *) object;
 189
 190   if (face->property[MFACE_FONTSET])
 191     M17N_OBJECT_UNREF (face->property[MFACE_FONTSET]);
 192   M17N_OBJECT_UNREF (face->frame_list);
 193   M17N_OBJECT_UNREGISTER (face_table, face);
 194   free (object);
 195 }
 196
 197
 198 static MPlist *
 199 serialize_hline (MPlist *plist, MFaceHLineProp *hline)
 200 {
 201   if (hline->width > 0)
 202     {
 203       MPlist *pl = mplist ();
 204
 205       mplist_add (pl, Minteger, (void *) hline->type);
 206       mplist_add (pl, Minteger, (void *) hline->width);
 207       mplist_add (pl, Msymbol, hline->color);
 208       plist = mplist_add (plist, Mplist, pl);
 209       M17N_OBJECT_UNREF (pl);
 210     }
 211   return plist;
 212 }
 213
 214 static MPlist *
 215 serialize_box (MPlist *plist, MFaceBoxProp *box)
 216 {
 217   if (box->width > 0)
 218     {
 219       MPlist *pl = mplist ();
 220
 221       mplist_add (pl, Minteger, (void *) box->width);
 222       mplist_add (pl, Minteger, (void *) box->inner_hmargin);
 223       mplist_add (pl, Minteger, (void *) box->inner_vmargin);
 224       mplist_add (pl, Minteger, (void *) box->outer_hmargin);
 225       mplist_add (pl, Minteger, (void *) box->outer_vmargin);
 226       mplist_add (pl, Msymbol, box->color_top);
 227       mplist_add (pl, Msymbol, box->color_bottom);
 228       mplist_add (pl, Msymbol, box->color_left);
 229       mplist_add (pl, Msymbol, box->color_right);
 230       plist = mplist_add (plist, Mplist, pl);
 231       M17N_OBJECT_UNREF (pl);
 232     }
 233   return plist;
 234 }
 235
 236 static MPlist *
 237 serialize_face (void *val)
 238 {
 239   MFace *face = val;
 240   MPlist *plist = mplist (), *pl = plist;
 241   int i;
 242   struct {
 243     MSymbol *key;
 244     MSymbol *type;
 245     MPlist *(*func) (MPlist *plist, void *val);
 246   } serializer[MFACE_PROPERTY_MAX]
 247       = { { &Mfoundry,          &Msymbol },
 248           { &Mfamily,           &Msymbol },
 249           { &Mweight,           &Msymbol },
 250           { &Mstyle,            &Msymbol },
 251           { &Mstretch,          &Msymbol },
 252           { &Madstyle,          &Msymbol },
 253           { &Msize,             &Minteger },
 254           { &Mfontset,          NULL },
 255           { &Mforeground,       &Msymbol },
 256           { &Mbackground,       &Msymbol },
 257           { &Mhline,            NULL },
 258           { &Mbox,              NULL },
 259           { &Mvideomode,        &Msymbol },
 260           { NULL,               NULL}, /* MFACE_HOOK_FUNC */
 261           { NULL,               NULL}, /* MFACE_HOOK_ARG */
 262           { &Mratio,            &Minteger } };
 263
 264   for (i = 0; i < MFACE_PROPERTY_MAX; i++)
 265     if (face->property[i] && serializer[i].key)
 266       {
 267         pl = mplist_add (pl, Msymbol, *serializer[i].key);
 268         if (serializer[i].type)
 269           pl = mplist_add (pl, *serializer[i].type, face->property[i]);
 270         else if (i == MFACE_FONTSET)
 271           pl = mplist_add (pl, Msymbol, mfontset_name ((MFontset *)
 272                                                        face->property[i]));
 273         else if (i == MFACE_HLINE)
 274           pl = serialize_hline (pl, (MFaceHLineProp *) face->property[i]);
 275         else if (i == MFACE_BOX)
 276           pl = serialize_box (pl, (MFaceBoxProp *) face->property[i]);
 277       }
 278
 279   return plist;
 280 }
 281
 282 static void *
 283 deserialize_hline (MPlist *plist)
 284 {
 285   MFaceHLineProp hline, *hline_ret;
 286
 287   if (! MPLIST_INTEGER_P (plist))
 288     MERROR (MERROR_FACE, NULL);
 289   hline.type = MPLIST_INTEGER_P (plist);
 290   plist = MPLIST_NEXT (plist);
 291   if (! MPLIST_INTEGER_P (plist))
 292     MERROR (MERROR_FACE, NULL);
 293   hline.width = MPLIST_INTEGER_P (plist);
 294   plist = MPLIST_NEXT (plist);
 295   if (! MPLIST_SYMBOL_P (plist))
 296     MERROR (MERROR_FACE, NULL);
 297   hline.color = MPLIST_SYMBOL (plist);
 298   MSTRUCT_MALLOC (hline_ret, MERROR_FACE);
 299   *hline_ret = hline;
 300   return hline_ret;
 301 }
 302
 303 static void *
 304 deserialize_box (MPlist *plist)
 305 {
 306   MFaceBoxProp box, *box_ret;
 307
 308   if (! MPLIST_INTEGER_P (plist))
 309     MERROR (MERROR_FACE, NULL);
 310   box.width = MPLIST_INTEGER (plist);
 311   plist = MPLIST_NEXT (plist);
 312   if (! MPLIST_INTEGER_P (plist))
 313     MERROR (MERROR_FACE, NULL);
 314   box.inner_hmargin = MPLIST_INTEGER (plist);
 315   plist = MPLIST_NEXT (plist);
 316   if (! MPLIST_INTEGER_P (plist))
 317     MERROR (MERROR_FACE, NULL);
 318   box.inner_vmargin = MPLIST_INTEGER (plist);
 319   plist = MPLIST_NEXT (plist);
 320   if (! MPLIST_INTEGER_P (plist))
 321     MERROR (MERROR_FACE, NULL);
 322   box.outer_hmargin = MPLIST_INTEGER (plist);
 323   plist = MPLIST_NEXT (plist);
 324   if (! MPLIST_INTEGER_P (plist))
 325     MERROR (MERROR_FACE, NULL);
 326   box.outer_vmargin = MPLIST_INTEGER (plist);
 327   plist = MPLIST_NEXT (plist);
 328   if (! MPLIST_SYMBOL_P (plist))
 329     MERROR (MERROR_FACE, NULL);
 330   box.color_top = MPLIST_SYMBOL (plist);
 331   plist = MPLIST_NEXT (plist);
 332   if (! MPLIST_SYMBOL_P (plist))
 333     MERROR (MERROR_FACE, NULL);
 334   box.color_bottom = MPLIST_SYMBOL (plist);
 335   plist = MPLIST_NEXT (plist);
 336   if (! MPLIST_SYMBOL_P (plist))
 337     MERROR (MERROR_FACE, NULL);
 338   box.color_left = MPLIST_SYMBOL (plist);
 339   plist = MPLIST_NEXT (plist);
 340   if (! MPLIST_SYMBOL_P (plist))
 341     MERROR (MERROR_FACE, NULL);
 342   box.color_right = MPLIST_SYMBOL (plist);
 343   MSTRUCT_MALLOC (box_ret, MERROR_FACE);
 344   *box_ret = box;
 345   return box_ret;
 346 }
 347
 348 static void *
 349 deserialize_face (MPlist *plist)
 350 {
 351   MFace *face = mface ();
 352
 353   MPLIST_DO (plist, plist)
 354     {
 355       MSymbol key;
 356       int index;
 357       void *val;
 358
 359       if (! MPLIST_SYMBOL_P (plist))
 360         break;
 361       key = MPLIST_SYMBOL (plist);
 362       index = (int) msymbol_get (key, M_face_prop_index) - 1;
 363       plist = MPLIST_NEXT (plist);
 364       if (MPLIST_TAIL_P (plist))
 365         break;
 366       if (index < 0 || index >= MFACE_PROPERTY_MAX)
 367         continue;
 368       if (key == Mfoundry || key == Mfamily || key == Mweight || key == Mstyle
 369           || key == Mstretch || key == Madstyle
 370           || key == Mforeground || key == Mbackground || key == Mvideomode)
 371         {
 372           if (! MPLIST_SYMBOL_P (plist))
 373             continue;
 374           val = MPLIST_VAL (plist);
 375         }
 376       else if (key == Msize || key == Mratio)
 377         {
 378           if (! MPLIST_INTEGER_P (plist))
 379             continue;
 380           val = MPLIST_VAL (plist);
 381         }
 382       else if (key == Mfontset)
 383         {
 384           if (! MPLIST_SYMBOL_P (plist))
 385             continue;
 386           val = mfontset (MSYMBOL_NAME (MPLIST_SYMBOL (plist)));
 387         }
 388       else if (key == Mhline)
 389         {
 390           if (! MPLIST_PLIST_P (plist))
 391             continue;
 392           val = deserialize_hline (MPLIST_PLIST (plist));
 393         }
 394       else if (key == Mbox)
 395         {
 396           if (! MPLIST_PLIST_P (plist))
 397             continue;
 398           val = deserialize_box (MPLIST_PLIST (plist));
 399         }
 400       face->property[index] = val;
 401     }
 402   return face;
 403 }
 404
 405 static MGlyphString work_gstring;
 406
 407 \f
 408
 409 /* Internal API */
 410
 411 MFace *mface__default;
 412
 413 int
 414 mface__init ()
 415 {
 416   int i;
 417   MFaceHLineProp *hline;
 418   MFaceBoxProp *box;
 419
 420   face_table.count = 0;
 421   Mface = msymbol_as_managing_key ("face");
 422   msymbol_put (Mface, Mtext_prop_serializer, (void *) serialize_face);
 423   msymbol_put (Mface, Mtext_prop_deserializer, (void *) deserialize_face);
 424
 425   Mforeground = msymbol ("foreground");
 426   Mbackground = msymbol ("background");
 427   Mvideomode = msymbol ("videomode");
 428   Mnormal = msymbol ("normal");
 429   Mreverse = msymbol ("reverse");
 430   Mratio = msymbol ("ratio");
 431   Mhline = msymbol ("hline");
 432   Mbox = msymbol ("box");
 433   Mhook_func = msymbol ("hook-func");
 434   Mhook_arg = msymbol ("hook-arg");
 435
 436   Mlatin = msymbol ("latin");
 437   M_face_prop_index = msymbol ("  face-prop-index");
 438
 439   {
 440     struct {
 441       /* Pointer to the key symbol of the face property.  */
 442       MSymbol *key;
 443       /* Index (enum face_property) of the face property. */
 444       int index;
 445     } mface_prop_data[MFACE_PROPERTY_MAX] =
 446         { { &Mfoundry,          MFACE_FOUNDRY },
 447           { &Mfamily,           MFACE_FAMILY },
 448           { &Mweight,           MFACE_WEIGHT },
 449           { &Mstyle,            MFACE_STYLE },
 450           { &Mstretch,          MFACE_STRETCH },
 451           { &Madstyle,          MFACE_ADSTYLE },
 452           { &Msize,             MFACE_SIZE },
 453           { &Mfontset,          MFACE_FONTSET },
 454           { &Mforeground,       MFACE_FOREGROUND },
 455           { &Mbackground,       MFACE_BACKGROUND },
 456           { &Mhline,            MFACE_HLINE },
 457           { &Mbox,              MFACE_BOX },
 458           { &Mvideomode,        MFACE_VIDEOMODE },
 459           { &Mhook_func,        MFACE_HOOK_FUNC },
 460           { &Mhook_arg,         MFACE_HOOK_ARG },
 461           { &Mratio,            MFACE_RATIO },
 462         };
 463
 464     for (i = 0; i < MFACE_PROPERTY_MAX; i++)
 465       /* We add one to distinguish it from no-property.  */
 466       msymbol_put (*mface_prop_data[i].key, M_face_prop_index,
 467                    (void *) (mface_prop_data[i].index + 1));
 468   }
 469
 470   hline_prop_list = mplist ();
 471   MSTRUCT_CALLOC (hline, MERROR_FACE);
 472   mplist_push (hline_prop_list, Mt, hline);
 473   box_prop_list = mplist ();
 474   MSTRUCT_CALLOC (box, MERROR_FACE);
 475   mplist_push (box_prop_list, Mt, box);
 476
 477   mface__default = mface ();
 478   mface__default->property[MFACE_FOUNDRY] = msymbol ("misc");
 479   mface__default->property[MFACE_FAMILY] = msymbol ("fixed");
 480   mface__default->property[MFACE_WEIGHT] = msymbol ("medium");
 481   mface__default->property[MFACE_STYLE] = msymbol ("r");
 482   mface__default->property[MFACE_STRETCH] = msymbol ("normal");
 483   mface__default->property[MFACE_ADSTYLE] = msymbol ("");
 484   mface__default->property[MFACE_SIZE] = (void *) 120;
 485   mface__default->property[MFACE_FONTSET] = mfontset (NULL);
 486   mface__default->property[MFACE_FOREGROUND] = msymbol ("black");
 487   mface__default->property[MFACE_BACKGROUND] = msymbol ("white");
 488   mface__default->property[MFACE_HLINE] = hline;
 489   mface__default->property[MFACE_BOX] = box;
 490   mface__default->property[MFACE_VIDEOMODE] = Mnormal;
 491   mface__default->property[MFACE_HOOK_FUNC] = (void *) noop_hook;
 492
 493   mface_normal_video = mface ();
 494   mface_normal_video->property[MFACE_VIDEOMODE] = (void *) Mnormal;
 495
 496   mface_reverse_video = mface ();
 497   mface_reverse_video->property[MFACE_VIDEOMODE] = (void *) Mreverse;
 498
 499   {
 500     MFaceHLineProp hline_prop;
 501
 502     hline_prop.type = MFACE_HLINE_UNDER;
 503     hline_prop.width = 1;
 504     hline_prop.color = Mnil;
 505     mface_underline = mface ();
 506     mface_put_prop (mface_underline, Mhline, &hline_prop);
 507   }
 508
 509   mface_medium = mface ();
 510   mface_medium->property[MFACE_WEIGHT] = (void *) msymbol ("medium");
 511   mface_bold = mface ();
 512   mface_bold->property[MFACE_WEIGHT] = (void *) msymbol ("bold");
 513   mface_italic = mface ();
 514   mface_italic->property[MFACE_STYLE] = (void *) msymbol ("i");
 515   mface_bold_italic = mface_copy (mface_bold);
 516   mface_bold_italic->property[MFACE_STYLE]
 517     = mface_italic->property[MFACE_STYLE];
 518
 519   mface_xx_small = mface ();
 520   mface_xx_small->property[MFACE_RATIO] = (void *) 50;
 521   mface_x_small = mface ();
 522   mface_x_small->property[MFACE_RATIO] = (void *) 67;
 523   mface_small = mface ();
 524   mface_small->property[MFACE_RATIO] = (void *) 75;
 525   mface_normalsize = mface ();
 526   mface_normalsize->property[MFACE_RATIO] = (void *) 100;
 527   mface_large = mface ();
 528   mface_large->property[MFACE_RATIO] = (void *) 120;
 529   mface_x_large = mface ();
 530   mface_x_large->property[MFACE_RATIO] = (void *) 150;
 531   mface_xx_large = mface ();
 532   mface_xx_large->property[MFACE_RATIO] = (void *) 200;
 533
 534   mface_black = mface ();
 535   mface_black->property[MFACE_FOREGROUND] = (void *) msymbol ("black");
 536   mface_white = mface ();
 537   mface_white->property[MFACE_FOREGROUND] = (void *) msymbol ("white");
 538   mface_red = mface ();
 539   mface_red->property[MFACE_FOREGROUND] = (void *) msymbol ("red");
 540   mface_green = mface ();
 541   mface_green->property[MFACE_FOREGROUND] = (void *) msymbol ("green");
 542   mface_blue = mface ();
 543   mface_blue->property[MFACE_FOREGROUND] = (void *) msymbol ("blue");
 544   mface_cyan = mface ();
 545   mface_cyan->property[MFACE_FOREGROUND] = (void *) msymbol ("cyan");
 546   mface_yellow = mface ();
 547   mface_yellow->property[MFACE_FOREGROUND] = (void *) msymbol ("yellow");
 548   mface_magenta = mface ();
 549   mface_magenta->property[MFACE_FOREGROUND] = (void *) msymbol ("magenta");
 550
 551   work_gstring.glyphs = malloc (sizeof (MGlyph) * 2);
 552   work_gstring.size = 2;
 553   work_gstring.used = 0;
 554   work_gstring.inc = 1;
 555   return 0;
 556 }
 557
 558 void
 559 mface__fini ()
 560 {
 561   MPlist *plist;
 562
 563   M17N_OBJECT_UNREF (mface__default);
 564   M17N_OBJECT_UNREF (mface_normal_video);
 565   M17N_OBJECT_UNREF (mface_reverse_video);
 566   M17N_OBJECT_UNREF (mface_underline);
 567   M17N_OBJECT_UNREF (mface_medium);
 568   M17N_OBJECT_UNREF (mface_bold);
 569   M17N_OBJECT_UNREF (mface_italic);
 570   M17N_OBJECT_UNREF (mface_bold_italic);
 571   M17N_OBJECT_UNREF (mface_xx_small);
 572   M17N_OBJECT_UNREF (mface_x_small);
 573   M17N_OBJECT_UNREF (mface_small);
 574   M17N_OBJECT_UNREF (mface_normalsize);
 575   M17N_OBJECT_UNREF (mface_large);
 576   M17N_OBJECT_UNREF (mface_x_large);
 577   M17N_OBJECT_UNREF (mface_xx_large);
 578   M17N_OBJECT_UNREF (mface_black);
 579   M17N_OBJECT_UNREF (mface_white);
 580   M17N_OBJECT_UNREF (mface_red);
 581   M17N_OBJECT_UNREF (mface_green);
 582   M17N_OBJECT_UNREF (mface_blue);
 583   M17N_OBJECT_UNREF (mface_cyan);
 584   M17N_OBJECT_UNREF (mface_yellow);
 585   M17N_OBJECT_UNREF (mface_magenta);
 586
 587   MPLIST_DO (plist, hline_prop_list)
 588     free (MPLIST_VAL (plist));
 589   M17N_OBJECT_UNREF (hline_prop_list);
 590   MPLIST_DO (plist, box_prop_list)
 591     free (MPLIST_VAL (plist));
 592   M17N_OBJECT_UNREF (box_prop_list);
 593
 594   free (work_gstring.glyphs);
 595
 596   mdebug__report_object ("Face", &face_table);
 597 }
 598
 599 /** Return a realized face for ASCII characters from NUM number of
 600     base faces pointed by FACES on the frame FRAME.  */
 601
 602 MRealizedFace *
 603 mface__realize (MFrame *frame, MFace **faces, int num,
 604                 MSymbol language, MSymbol charset, int size)
 605 {
 606   MRealizedFace *rface;
 607   MRealizedFont *rfont;
 608   MFace merged_face = *(frame->face);
 609   void **props;
 610   int i, j;
 611   MGlyph g;
 612   MFaceHookFunc func;
 613
 614   if (num == 0 && language == Mnil && charset == Mnil && frame->rface)
 615     return frame->rface;
 616
 617   for (i = 0; i < MFACE_PROPERTY_MAX; i++)
 618     for (j = num - 1; j >= 0; j--)
 619       if (faces[j]->property[i])
 620         {
 621           merged_face.property[i] = faces[j]->property[i];
 622           break;
 623         }
 624
 625   if (! mplist_find_by_value (frame->face->frame_list, frame))
 626     mplist_push (frame->face->frame_list, Mt, frame);
 627   for (i = 0; i < num; i++)
 628     if (! mplist_find_by_value (faces[i]->frame_list, frame))
 629       mplist_push (faces[i]->frame_list, Mt, frame);
 630
 631   if (merged_face.property[MFACE_RATIO])
 632     {
 633       int font_size = (int) merged_face.property[MFACE_SIZE];
 634
 635       font_size *= (int) merged_face.property[MFACE_RATIO];
 636       font_size /= 100;
 637       merged_face.property[MFACE_SIZE] = (void *) font_size;
 638       merged_face.property[MFACE_RATIO] = 0;
 639     }
 640
 641   rface = find_realized_face (frame, &merged_face);
 642   if (rface)
 643     return rface;
 644
 645   MSTRUCT_CALLOC (rface, MERROR_FACE);
 646   mplist_push (frame->realized_face_list, Mt, rface);
 647   rface->frame = frame;
 648   rface->face = merged_face;
 649   props = rface->face.property;
 650   rface->rfontset = mfont__realize_fontset (frame,
 651                                             (MFontset *) props[MFACE_FONTSET],
 652                                             &merged_face);
 653   g.type = GLYPH_SPACE;
 654   g.c = ' ';
 655   num = 1;
 656   rfont = mfont__lookup_fontset (rface->rfontset, &g, &num,
 657                                  msymbol ("latin"), language, Mnil, size);
 658   if (rfont)
 659     {
 660       rface->rfont = rfont;
 661       g.otf_encoded = 0;
 662       work_gstring.glyphs[0] = g;
 663       work_gstring.glyphs[0].rface = rface;
 664       work_gstring.glyphs[1].code = MCHAR_INVALID_CODE;
 665       work_gstring.glyphs[1].rface = rface;
 666       mfont__get_metric (&work_gstring, 0, 2);
 667       rface->space_width = work_gstring.glyphs[0].width;
 668       rface->ascent = work_gstring.glyphs[1].ascent;
 669       rface->descent = work_gstring.glyphs[1].descent;
 670     }
 671   else
 672     {
 673       rface->rfont = NULL;
 674       rface->space_width = frame->space_width;
 675     }
 676
 677   rface->hline = (MFaceHLineProp *) props[MFACE_HLINE];
 678   if (rface->hline && rface->hline->width == 0)
 679     rface->hline = NULL;
 680   rface->box = (MFaceBoxProp *) props[MFACE_BOX];
 681   if (rface->box && rface->box->width == 0)
 682     rface->box = NULL;
 683   rface->ascii_rface = rface;
 684   (*frame->driver->realize_face) (rface);
 685
 686   func = (MFaceHookFunc) rface->face.property[MFACE_HOOK_FUNC];
 687   if (func && func != noop_hook)
 688     (func) (&(rface->face), rface->info, rface->face.property[MFACE_HOOK_ARG]);
 689
 690   rface->non_ascii_list = mplist ();
 691   if (rface->rfont)
 692     {
 693       MRealizedFace *nofont;
 694
 695       MSTRUCT_CALLOC (nofont, MERROR_FACE);
 696       *nofont = *rface;
 697       nofont->non_ascii_list = NULL;
 698       nofont->rfont = NULL;
 699       mplist_add (rface->non_ascii_list, Mt, nofont);
 700     }
 701
 702   return rface;
 703 }
 704
 705
 706 MGlyph *
 707 mface__for_chars (MSymbol script, MSymbol language, MSymbol charset,
 708                   MGlyph *from_g, MGlyph *to_g, int size)
 709 {
 710   MRealizedFace *rface = from_g->rface->ascii_rface, *new;
 711   MRealizedFont *rfont;
 712   int num = to_g - from_g, i;
 713   MPlist *plist;
 714
 715   rfont = mfont__lookup_fontset (from_g->rface->rfontset, from_g, &num,
 716                                  script, language, charset, size);
 717   if (! rfont)
 718     {
 719       if (rface->rfont)
 720         MPLIST_DO (plist, rface->non_ascii_list)
 721           {
 722             rface = MPLIST_VAL (plist);
 723             if (! rface->rfont)
 724               break;
 725           }
 726       num = 1;
 727       goto finish;
 728     }
 729   if (rface->rfont == rfont)
 730     goto finish;
 731
 732   MPLIST_DO (plist, rface->non_ascii_list)
 733     if (((MRealizedFace *) MPLIST_VAL (plist))->rfont == rfont)
 734       break;
 735   if (! MPLIST_TAIL_P (plist))
 736     {
 737       rface = MPLIST_VAL (plist);
 738       goto finish;
 739     }
 740
 741   MSTRUCT_MALLOC (new, MERROR_FACE);
 742   mplist_push (rface->non_ascii_list, Mt, new);
 743   *new = *rface;
 744   rface = new;
 745   rface->rfont = rfont;
 746   rface->non_ascii_list = NULL;
 747   work_gstring.glyphs[0].code = MCHAR_INVALID_CODE;
 748   work_gstring.glyphs[0].rface = rface;
 749   mfont__get_metric (&work_gstring, 0, 1);
 750   rface->ascent = work_gstring.glyphs[0].ascent;
 751   rface->descent = work_gstring.glyphs[0].descent;
 752
 753  finish:
 754   for (i = 0; i < num; i++, from_g++)
 755     from_g->rface = rface;
 756   return from_g;
 757 }
 758
 759
 760 void
 761 mface__free_realized (MRealizedFace *rface)
 762 {
 763   MPlist *plist;
 764
 765   MPLIST_DO (plist, rface->non_ascii_list)
 766     free (MPLIST_VAL (plist));
 767   M17N_OBJECT_UNREF (rface->non_ascii_list);
 768   free (rface);
 769 }
 770
 771 void
 772 mface__update_frame_face (MFrame *frame)
 773 {
 774   frame->rface = NULL;
 775   frame->rface = mface__realize (frame, NULL, 0, Mnil, Mnil, 0);
 776   frame->space_width = frame->rface->space_width;
 777   frame->ascent = frame->rface->ascent;
 778   frame->descent = frame->rface->descent;
 779 }
 780
 781 /*** @} */
 782 #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
 783
 784 \f
 785 /* External API  */
 786 /*** @addtogroup m17nFace */
 787 /*** @{ */
 788 /*=*/
 789
 790 /***en @name Variables: Keys of face property */
 791 /***ja @name ÊÑ¿ô: ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼  */
 792 /*** @{ */
 793 /*=*/
 794
 795 /***en
 796     @brief Key of a face property specifying foreground color.
 797
 798     The variable #Mforeground is used as a key of face property.  The
 799     property value must be a symbol whose name is a color name, or
 800     #Mnil.
 801
 802     #Mnil means that the face does not specify a foreground color.
 803     Otherwise, the foreground of an M-text is drawn by the specified
 804     color.  */
 805
 806 /***ja
 807     @brief Á°·Ê¿§¤ò»ØÄê¤¹¤ë¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 808
 809     ÊÑ¿ô #Mforeground ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
 810     ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¿§Ì¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤« #Mnil ¤Ç¤¢¤ë¡£
 811
 812     #Mnil ¤Î¾ì¹ç¡¢Á°·Ê¿§¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð M-text ¤ÎÁ°·Ê¤Ï
 813     »ØÄê¤µ¤ì¤¿¿§¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
 814
 815 MSymbol Mforeground;
 816
 817 /***en
 818     @brief Key of a face property specifying background color.
 819
 820     The variable #Mbackground is used as a key of face property.  The
 821     property value must be a symbol whose name is a color name, or
 822     #Mnil.
 823
 824     #Mnil means that the face does not specify a background color.
 825     Otherwise, the background of an M-text is drawn by the specified
 826     color.  */
 827
 828 /***ja
 829     @brief ÇØ·Ê¿§¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 830
 831     ÊÑ¿ô #Mbackground ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
 832     ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¿§Ì¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤« #Mnil ¤Ç¤¢¤ë¡£
 833
 834     #Mnil ¤Î¾ì¹ç¡¢ÇØ·Ê¿§¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð M-text ¤ÎÇØ·Ê¤Ï
 835     »ØÄê¤µ¤ì¤¿¿§¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
 836
 837 MSymbol Mbackground;
 838
 839 /***en
 840     @brief Key of a face property specifying video mode.
 841
 842     The variable #Mvideomode is used as a key of face property.  The
 843     property value must be #Mnormal, #Mreverse, or #Mnil.
 844
 845     #Mnormal means that an M-text is drawn in normal video mode
 846     (i.e. the foreground is drawn by foreground color, the background
 847     is drawn by background color).
 848
 849     #Mreverse means that an M-text is drawn in reverse video mode
 850     (i.e. the foreground is drawn by background color, the background
 851     is drawn by foreground color).
 852
 853     #Mnil means that the face does not specify a video mode.  */
 854
 855 /***ja
 856     @brief ¥Ó¥Ç¥ª¥â¡¼¥É¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 857
 858     ÊÑ¿ô #Mvideomode ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
 859     ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢#Mnormal, #Mreverse, #Mnil ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 860
 861     #Mnormal ¤Î¾ì¹ç¤Ï¡¢M-text ¤ÏÉ¸½à¤Î¥Ó¥Ç¥ª¥â¡¼¥É¡ÊÁ°·Ê¤òÁ°·Ê¿§¤Ç¡¢ÇØ
 862     ·Ê¤òÇØ·Ê¿§¤Ç¡Ë¤ÇÉ½¼¨¤¹¤ë¡£
 863
 864     #Mreverse ¤Î¾ì¹ç¤Ï¥ê¥Ð¡¼¥¹¥Ó¥Ç¥ª¥â¡¼¥É¤Ç¡ÊÁ°·Ê¤òÇØ·Ê¿§¤Ç¡¢ÇØ·Ê¤òÁ°
 865     ·Ê¿§¤Ç¡ËÉ½¼¨¤¹¤ë¡£
 866
 867     #Mnil ¤Î¾ì¹ç¤Ï¥Ó¥Ç¥ª¥â¡¼¥É¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
 868     */
 869
 870 MSymbol Mvideomode;
 871
 872 /***en
 873     @brief Key of a face property specifying font size ratio.
 874
 875     The variable #Mratio is used as a key of face property.  The value
 876     RATIO must be an integer.
 877
 878     The value 0 means that the face does not specify a font size
 879     ratio.  Otherwise, an M-text is drawn by a font of size (FONTSIZE
 880     * RATIO / 100) where FONTSIZE is a font size specified by the face
 881     property #Msize.  */
 882 /***ja
 883     @brief ¥Õ¥©¥ó¥È¤Î¥µ¥¤¥º¤ÎÈæÎ¨¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 884
 885     ÊÑ¿ô #Mratio ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ RATIO
 886     ¤ÏÀ°¿ôÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 887
 888     ÃÍ¤¬0¤Ê¤é¤Ð¡¢¥Õ¥©¥ó¥È¥µ¥¤¥º¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢M-text
 889     ¤Ï(FONTSIZE * RATIO / 100) ¤È¤¤¤¦¥µ¥¤¥º¤Î¥Õ¥©¥ó¥È¤ÇÉ½¼¨¤µ¤ì¤ë¡£¤³
 890     ¤³¤Ç FONTSIZE ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼ #Msize ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Ç¤¢
 891     ¤ë¡£ */
 892
 893 MSymbol Mratio;
 894
 895 /***en
 896     @brief Key of a face property specifying horizontal line.
 897
 898     The variable #Mhline is used as a key of face property.  The value
 899     must be a pointer to an object of type #MFaceHLineProp, or @c
 900     NULL.
 901
 902     The value @c NULL means that the face does not specify this
 903     property.  Otherwise, an M-text is drawn with a horizontal line by
 904     a way specified by the object that the value points to.  */
 905
 906 /***ja
 907     @brief ¿åÊ¿Àþ¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 908
 909     ÊÑ¿ô #Mhline ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
 910     #MFaceHLineProp ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê
 911     ¤é¤Ê¤¤¡£
 912
 913     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¤³¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ
 914    ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¤è¤¦¤Ë¿åÊ¿Àþ¤òÉÕ²Ã¤·¤Æ M-text ¤òÉ½¼¨
 915    ¤¹¤ë¡£*/
 916
 917 MSymbol Mhline;
 918
 919 /***en
 920     @brief Key of a face property specifying box.
 921
 922     The variable #Mbox is used as a key of face property.  The value
 923     must be a pointer to an object of type #MFaceBoxProp, or @c NULL.
 924
 925     The value @c NULL means that the face does not specify a box.
 926     Otherwise, an M-text is drawn with a surrounding box by a way
 927     specified by the object that the value points to.  */
 928
 929 /***ja
 930     @brief °Ï¤ßÏÈ¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 931
 932     ÊÑ¿ô #Mbox ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
 933     #MFaceBoxProp ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é
 934     ¤Ê¤¤¡£
 935
 936     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¤³¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ
 937     ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¤è¤¦¤Ë°Ï¤ßÏÈ¤òÉÕ²Ã¤·¤Æ M-text ¤òÉ½¼¨
 938     ¤¹¤ë¡£*/
 939
 940 MSymbol Mbox;
 941
 942 /***en
 943     @brief Key of a face property specifying fontset.
 944
 945     The variable #Mfontset is used as a key of face property.  The
 946     value must be a pointer to an object of type #Mfontset, or @c
 947     NULL.
 948
 949     The value @c NULL means that the face does not specify a fontset.
 950     Otherwise, an M-text is drawn with a font selected from what
 951     specified in the fontset.  */
 952
 953 /***ja
 954     @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 955
 956     ÊÑ¿ô #Mfontset ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
 957     #Mfontset ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 958
 959     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ
 960     ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¥Õ¥©¥ó¥È¥»¥Ã¥È¤«¤éÁª¤ó¤À¥Õ¥©¥ó¥È¤Ç
 961     M-text ¤òÉ½¼¨¤¹¤ë¡£*/
 962
 963 MSymbol Mfontset;
 964
 965 /***en
 966     @brief Key of a face property specifying hook.
 967
 968     The variable #Mhook_func is used as a key of face property.  The
 969     value must be a function of type #MFaceHookFunc, or @c NULL.
 970
 971     The value @c NULL means that the face does not specify a hook.
 972     Otherwise, the specified function is called before the face is
 973     realized.  */
 974 /***ja
 975     @brief ¥Õ¥Ã¥¯¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 976
 977     ÊÑ¿ô #Mhook_func ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
 978     #MFaceHookFunc ·¿¤Î´Ø¿ô¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 979
 980     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¥Õ¥Ã¥¯¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¥Õ¥§¡¼¥¹¤ò
 981     ¼Â¸½¤¹¤ëÁ°¤Ë»ØÄê¤·¤¿´Ø¿ô¤¬¸Æ¤Ð¤ì¤ë¡£      */
 982 MSymbol Mhook_func;
 983
 984 /***en
 985     @brief Key of a face property specifying argument of hook.
 986
 987     The variable #Mhook_arg is used as a key of face property.  The
 988     value can be anything that is passed a hook function specified by
 989     the face property #Mhook_func.  */
 990 /***ja
 991     @brief ¥Õ¥Ã¥¯¤Î°ú¿ô¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 992
 993     ÊÑ¿ô #Mhook_arg ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
 994     ²¿¤Ç¤â¤è¤¯¡¢¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£ #Mhook_func ¤Ç»ØÄê¤µ¤ì¤ë´Ø¿ô¤ËÅÏ¤µ
 995     ¤ì¤ë¡£ */
 996 MSymbol Mhook_arg;
 997
 998 /*** @} */
 999 /*=*/
1000
1001 /*** @ingroup m17nFace */
1002 /***en @name Variables: Possible values of #Mvideomode property of face */
1003 /***ja @name ÊÑ¿ô¡§  ¥Õ¥§¡¼¥¹¤Î #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤Î²ÄÇ½¤ÊÃÍ */
1004 /*** @{ */
1005 /*=*/
1006
1007 /***en
1008     See the documentation of the variable #Mvideomode.  */
1009 /***ja
1010     ÊÑ¿ô #Mvideomode ¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£  */
1011 MSymbol Mnormal;
1012 MSymbol Mreverse;
1013 /*** @} */
1014 /*=*/
1015
1016 /*** @ingroup m17nFace */
1017 /***en @name Variables: Predefined faces  */
1018 /***ja @name ÊÑ¿ô: ÄêµÁºÑ¤ß¥Õ¥§¡¼¥¹  */
1019 /*** @{ */
1020 /*=*/
1021
1022 /***en
1023     @brief Normal video face.
1024
1025     The variable #mface_normal_video points to a face that has the
1026     #Mvideomode property with value #Mnormal.  The other properties
1027     are not specified.  An M-text drawn with this face appear normal
1028     colors (i.e. the foreground is drawn by foreground color, and
1029     background is drawn by background color).  */
1030 /***ja
1031     @brief É¸½à¥Ó¥Ç¥ª¥Õ¥§¡¼¥¹.
1032
1033     ÊÑ¿ô #mface_normal_video ¤Ï #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ #Mnormal
1034     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1035     ¤³¤Î¥Õ¥§¡¼¥¹¤ÇÉ½¼¨¤µ¤ì¤ëM-text ¤ÏÉ¸½à¤Î¿§ (¤¹¤Ê¤ï¤ÁÁ°·Ê¤ÏÁ°·Ê¿§¡¢
1036     ÇØ·Ê¤ÏÇØ·Ê¿§¡Ë¤ÇÉÁ¤«¤ì¤ë¡£  */
1037
1038 MFace *mface_normal_video;
1039
1040 /***en
1041     @brief Reverse video face.
1042
1043     The variable #mface_reverse_video points to a face that has the
1044     #Mvideomode property with value #Mreverse.  The other properties
1045     are not specified.  An M-text drawn with this face appear in
1046     reversed colors (i.e. the foreground is drawn by background
1047     color, and background is drawn by foreground color).  */
1048 /***ja
1049     @brief ¥ê¥Ð¡¼¥¹¥Ó¥Ç¥ª¥Õ¥§¡¼¥¹.
1050
1051     ÊÑ¿ô #mface_reverse_video ¤Ï #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬
1052     #Mreverse ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê
1053     ¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ÇÉ½¼¨¤µ¤ì¤ëM-text ¤ÏÁ°·Ê¿§¤ÈÇØ·Ê¿§¤¬Æþ¤ìÂØ
1054     ¤ï¤Ã¤Æ (¤¹¤Ê¤ï¤ÁÁ°·Ê¤ÏÇØ·Ê¿§¡¢ÇØ·Ê¤ÏÁ°·Ê¿§¡ËÉÁ¤«¤ì¤ë¡£  */
1055
1056 MFace *mface_reverse_video;
1057
1058 /***en
1059     @brief Underline face.
1060
1061     The variable #mface_underline points to a face that has the
1062     #Mhline property with value a pointer to an object of type
1063     #MFaceHLineProp.  The members of the object are as follows:
1064
1065 @verbatim
1066     member  value
1067     -----   -----
1068     type    MFACE_HLINE_UNDER
1069     width   1
1070     color   Mnil
1071 @endverbatim
1072
1073     The other properties are not specified.  An M-text that has this
1074     face is drawn with an underline.  */
1075 /***ja
1076     @brief ²¼Àþ¥Õ¥§¡¼¥¹.
1077
1078     ÊÑ¿ô #mface_underline ¤Ï #Mhline ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ #MFaceHLineProp
1079     ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥ª¥Ö
1080     ¥¸¥§¥¯¥È¤Î¥á¥ó¥Ð¤Ï°Ê²¼¤ÎÄÌ¤ê¡£
1081
1082 @verbatim
1083     ¥á¥ó¥Ð  ÃÍ
1084     -----   -----
1085     type    MFACE_HLINE_UNDER
1086     width   1
1087     color   Mnil
1088 @endverbatim
1089
1090     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï²¼ÀþÉÕ¤
1091     ¤ÇÉ½¼¨¤µ¤ì¤ë¡£*/
1092
1093 MFace *mface_underline;
1094
1095 /***en
1096     @brief Medium face.
1097
1098     The variable #mface_medium points to a face that has the #Mweight
1099     property with value a symbol of name "medium".  The other
1100     properties are not specified.  An M-text that has this face is
1101     drawn with a font of medium weight.  */
1102 /***ja
1103     @brief ¥ß¥Ç¥£¥¢¥à¥Õ¥§¡¼¥¹.
1104
1105     ÊÑ¿ô #mface_medium ¤Ï #Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "medium" ¤È¤¤¤¦Ì¾
1106     Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í
1107     ¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥ß¥Ç¥£¥¢¥à¥¦¥§
1108     ¥¤¥È¤Î¥Õ¥©¥ó¥È¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
1109 MFace *mface_medium;
1110
1111 /***en
1112     @brief Bold face.
1113
1114     The variable #mface_bold points to a face that has the #Mweight
1115     property with value a symbol of name "bold".  The other properties
1116     are not specified.  An M-text that has this face is drawn with a
1117     font of bold weight.  */
1118
1119 /***ja
1120     @brief ¥Ü¡¼¥ë¥É¥Õ¥§¡¼¥¹.
1121
1122     ÊÑ¿ô #mface_bold ¤Ï #Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "bold" ¤È¤¤¤¦Ì¾Á°¤ò
1123     ¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£
1124     ¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥Ü¡¼¥ë¥É¤Î¥Õ¥©¥ó¥È¤Ç
1125     É½¼¨¤µ¤ì¤ë¡£
1126      */
1127
1128 MFace *mface_bold;
1129
1130 /***en
1131     @brief Italic face.
1132
1133     The variable #mface_italic points to a face that has the #Mstyle
1134     property with value a symbol of name "italic".  The other
1135     properties are not specified.  An M-text that has this face is
1136     drawn with a font of italic style.  */
1137
1138 /***ja
1139     @brief ¥¤¥¿¥ê¥Ã¥¯¥Õ¥§¡¼¥¹.
1140
1141     ÊÑ¿ô #mface_italic ¤Ï #Mstyle ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "italic" ¤È¤¤¤¦Ì¾Á°
1142     ¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ
1143     ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥¤¥¿¥ê¥Ã¥¯ÂÎ¤ÇÉ½
1144     ¼¨¤µ¤ì¤ë¡£
1145      */
1146
1147 MFace *mface_italic;
1148
1149 /***en
1150     @brief Bold italic face.
1151
1152     The variable #mface_bold_italic points to a face that has the
1153     #Mweight property with value a symbol of name "bold", and #Mstyle
1154     property with value a symbol of name "italic".  The other
1155     properties are not specified.  An M-text that has this face is
1156     drawn with a font of bold weight and italic style.  */
1157
1158 /***ja
1159     @brief ¥Ü¡¼¥ë¥É¥¤¥¿¥ê¥Ã¥¯¥Õ¥§¡¼¥¹.
1160
1161     ÊÑ¿ô #mface_bold_italic ¤Ï¡¢#Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "bold" ¤È¤¤
1162     ¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¤«¤Ä #Mstyle ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "italic"
1163     ¤È¤¤¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1164     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥Ü¡¼¥ë
1165     ¥É¥¤¥¿¥ê¥Ã¥¯ÂÎ¤ÇÉ½¼¨¤µ¤ì¤ë¡£
1166     */
1167
1168 MFace *mface_bold_italic;
1169
1170 /***en
1171     @brief Smallest face.
1172
1173     The variable #mface_xx_small points to a face that has the #Mratio
1174     property with value 50.  The other properties are not specified.
1175     An M-text that has this face is drawn with a font whose size is
1176     50% of a normal font.  */
1177
1178 /***ja
1179     @brief ºÇ¾®¤Î¥Õ¥§¡¼¥¹.
1180
1181     ÊÑ¿ô #mface_xx_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 50 ¤Ç¤¢¤ë¥Õ¥§¡¼
1182     ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
1183     ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 50% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1184      */
1185
1186 MFace *mface_xx_small;
1187
1188 /***en
1189     @brief Smaller face.
1190
1191     The variable #mface_x_small points to a face that has the #Mratio
1192     property with value 66.  The other properties are not specified.
1193     An M-text that has this face is drawn with a font whose size is
1194     66% of a normal font.  */
1195
1196 /***ja
1197     @brief ¤â¤Ã¤È¾®¤µ¤¤¥Õ¥§¡¼¥¹.
1198
1199     ÊÑ¿ô #mface_x_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 66 ¤Ç¤¢¤ë¥Õ¥§¡¼
1200     ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
1201     ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 66% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1202      */
1203
1204 MFace *mface_x_small;
1205
1206 /***en
1207     @brief Small face.
1208
1209     The variable #mface_x_small points to a face that has the #Mratio
1210     property with value 75.  The other properties are not specified.
1211     An M-text that has this face is drawn with a font whose size is
1212     75% of a normal font.  */
1213
1214 /***ja
1215     @brief ¾®¤µ¤¤¥Õ¥§¡¼¥¹.
1216
1217     ÊÑ¿ô #mface_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 75 ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò
1218     »Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý
1219     ¤Ä M-text ¤ÏÉ¸½à¤Î 75% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1220      */
1221
1222 MFace *mface_small;
1223
1224 /***en
1225     @brief Normalsize face.
1226
1227     The variable #mface_normalsize points to a face that has the
1228     #Mratio property with value 100.  The other properties are not
1229     specified.  An M-text that has this face is drawn with a font
1230     whose size is the same as a normal font.  */
1231
1232 /***ja
1233     @brief É¸½à¤ÎÂç¤¤µ¤Î¥Õ¥§¡¼¥¹.
1234
1235     ÊÑ¿ô #mface_normalsize ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 100 ¤Ç¤¢¤ë¥Õ¥§¡¼
1236     ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
1237     ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤ÈÆ±¤¸Âç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1238      */
1239
1240 MFace *mface_normalsize;
1241
1242 /***en
1243     @brief Large face.
1244
1245     The variable #mface_large points to a face that has the #Mratio
1246     property with value 120.  The other properties are not specified.
1247     An M-text that has this face is drawn with a font whose size is
1248     120% of a normal font.  */
1249
1250 /***ja
1251     @brief Âç¤¤¤¥Õ¥§¡¼¥¹.
1252
1253     ÊÑ¿ô #mface_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 120 ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹
1254     ¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò
1255     »ý¤Ä M-text ¤ÏÉ¸½à¤Î 120% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1256      */
1257
1258 MFace *mface_large;
1259
1260 /***en
1261     @brief Larger face.
1262
1263     The variable #mface_x_large points to a face that has the #Mratio
1264     property with value 150.  The other properties are not specified.
1265     An M-text that has this face is drawn with a font whose size is
1266     150% of a normal font.  */
1267
1268 /***ja
1269     @brief ¤â¤Ã¤ÈÂç¤¤¤¥Õ¥§¡¼¥¹.
1270
1271     ÊÑ¿ô #mface_x_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 150 ¤Ç¤¢¤ë¥Õ¥§¡¼
1272     ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
1273     ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 150% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1274      */
1275
1276 MFace *mface_x_large;
1277
1278 /***en
1279     @brief Largest face.
1280
1281     The variable #mface_xx_large points to a face that has the #Mratio
1282     property with value 200.  The other properties are not specified.
1283     An M-text that has this face is drawn with a font whose size is
1284     200% of a normal font.  */
1285
1286 /***ja
1287     @brief ºÇÂç¤Î¥Õ¥§¡¼¥¹.
1288
1289     ÊÑ¿ô #mface_xx_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 200 ¤Ç¤¢¤ë¥Õ¥§¡¼
1290     ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
1291     ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 200% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1292      */
1293
1294 MFace *mface_xx_large;
1295
1296 /***en
1297     @brief Black face.
1298
1299     The variable #mface_black points to a face that has the
1300     #Mforeground property with value a symbol of name "black".  The
1301     other properties are not specified.  An M-text that has this face
1302     is drawn with black foreground.  */
1303
1304 /***ja
1305     @brief ¹õ¥Õ¥§¡¼¥¹.
1306
1307     ÊÑ¿ô #mface_black ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "black" ¤È
1308     ¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×
1309     ¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤ò¹õ¤È¤·
1310     ¤ÆÉ½¼¨¤µ¤ì¤ë¡£     */
1311
1312 MFace *mface_black;
1313
1314 /***en
1315     @brief White face.
1316
1317     The variable #mface_white points to a face that has the
1318     #Mforeground property with value a symbol of name "white".  The
1319     other properties are not specified.  An M-text that has this face
1320     is drawn with white foreground.  */
1321
1322 /***ja
1323     @brief Çò¥Õ¥§¡¼¥¹.
1324
1325     ÊÑ¿ô #mface_white ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "white" ¤È
1326     ¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×
1327     ¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÇò¤È¤·
1328     ¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1329
1330 MFace *mface_white;
1331
1332 /***en
1333     @brief Red face.
1334
1335     The variable #mface_red points to a face that has the
1336     #Mforeground property with value a symbol of name "red".  The
1337     other properties are not specified.  An M-text that has this face
1338     is drawn with red foreground.  */
1339
1340 /***ja
1341     @brief ÀÖ¥Õ¥§¡¼¥¹.
1342
1343     ÊÑ¿ô #mface_red ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "red" ¤È¤¤¤¦
1344     Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ
1345     ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÀÖ¤È¤·¤ÆÉ½
1346     ¼¨¤µ¤ì¤ë¡£  */
1347
1348 MFace *mface_red;
1349
1350 /***en
1351     @brief Green face.
1352
1353     The variable #mface_green points to a face that has the
1354     #Mforeground property with value a symbol of name "green".  The
1355     other properties are not specified.  An M-text that has this face
1356     is drawn with green foreground.  */
1357
1358 /***ja
1359     @brief ÎÐ¥Õ¥§¡¼¥¹.
1360
1361     ÊÑ¿ô #mface_green ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "green" ¤È
1362     ¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×
1363     ¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÎÐ¤È¤·
1364     ¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1365
1366 MFace *mface_green;
1367
1368 /***en
1369     @brief Blue face.
1370
1371     The variable #mface_blue points to a face that has the
1372     #Mforeground property with value a symbol of name "blue".  The
1373     other properties are not specified.  An M-text that has this face
1374     is drawn with blue foreground.  */
1375
1376 /***ja
1377     @brief ÀÄ¥Õ¥§¡¼¥¹.
1378
1379     ÊÑ¿ô #mface_blue ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "blue" ¤È¤¤
1380     ¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í
1381     ¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÀÄ¤È¤·¤Æ
1382     É½¼¨¤µ¤ì¤ë¡£  */
1383
1384 MFace *mface_blue;
1385
1386 /***en
1387     @brief Cyan face.
1388
1389     The variable #mface_cyan points to a face that has the
1390     #Mforeground property with value a symbol of name "cyan".  The
1391     other properties are not specified.  An M-text that has this face
1392     is drawn with cyan foreground.  */
1393
1394 /***ja
1395     @brief ¥·¥¢¥ó¥Õ¥§¡¼¥¹.
1396
1397     ÊÑ¿ô #mface_cyan ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "cyan" ¤È¤¤
1398     ¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í
1399     ¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤ò¥·¥¢¥ó¤È
1400     ¤·¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1401
1402 MFace *mface_cyan;
1403
1404 /***en
1405     @brief yellow face.
1406
1407     The variable #mface_yellow points to a face that has the
1408     #Mforeground property with value a symbol of name "yellow".  The
1409     other properties are not specified.  An M-text that has this face
1410     is drawn with yellow foreground.  */
1411
1412 /***ja
1413     @brief ²«¥Õ¥§¡¼¥¹.
1414
1415     ÊÑ¿ô #mface_yellow ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "yellow"
1416     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î
1417     ¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤ò²«¿§
1418     ¤È¤·¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1419
1420 MFace *mface_yellow;
1421
1422 /***en
1423     @brief Magenta face.
1424
1425     The variable #mface_magenta points to a face that has the
1426     #Mforeground property with value a symbol of name "magenta".  The
1427     other properties are not specified.  An M-text that has this face
1428     is drawn with magenta foreground.  */
1429
1430 /***ja
1431     @brief ¥Þ¥¼¥ó¥¿¥Õ¥§¡¼¥¹.
1432
1433     ÊÑ¿ô #mface_magenta ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ
1434     "magenta" ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç
1435     ¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°
1436     ·Ê¿§¤ò¥Þ¥¼¥ó¥¿¤È¤·¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1437
1438 MFace *mface_magenta;
1439
1440 /*** @} */
1441 /*=*/
1442
1443 /***en @name Variables: The other symbols for face handling.  */
1444 /***ja @name ÊÑ¿ô: ¥Õ¥§¡¼¥¹¤ò¼è¤ê°·¤¦¤¿¤á¤Î¤½¤ÎÂ¾¤Î¥·¥ó¥Ü¥ë  */
1445 /*** @{ */
1446 /*=*/
1447
1448 /***en
1449     @brief Key of a text property specifying a face.
1450
1451     The variable #Mface is a symbol of name <tt>"face"</tt>.  A text
1452     property whose key is
1453     this symbol must have a pointer to an object
1454     of type #MFace
1455 .  This is a managing key.  */
1456
1457 /***ja
1458     @brief ¥Õ¥§¡¼¥¹¤ò»ØÄê¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1459
1460     ÊÑ¿ô #Mface ¤Ï <tt>"face"</tt> ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£¤³
1461     ¤Î¥·¥ó¥Ü¥ë¤ò¥¡¼¤È¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¡¢#MFace ·¿¤Î¥ª¥Ö¥¸¥§¥¯
1462     ¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò»ý¤¿¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¤³¤ì¤Ï´ÉÍý¥¡¼¤Ç¤¢¤ë¡£  */
1463
1464 MSymbol Mface;
1465 /*=*/
1466 /*** @} */
1467 /*=*/
1468
1469 /***en
1470     @brief Create a new face.
1471
1472     The mface () function creates a new face object that specifies no
1473     property.
1474
1475     @return
1476     This function returns a pointer to the created face.  */
1477
1478 /***ja
1479     @brief ¿·¤·¤¤¥Õ¥§¡¼¥¹¤ò¤Ä¤¯¤ë.
1480
1481     ´Ø¿ô mface () ¤Ï¥×¥í¥Ñ¥Æ¥£¤ò°ìÀÚ»ý¤¿¤Ê¤¤¿·¤·¤¤¥Õ¥§¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È
1482     ¤òºî¤ë¡£
1483
1484     @return
1485     ¤³¤Î´Ø¿ô¤Ïºî¤Ã¤¿¥Õ¥§¡¼¥¹¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
1486
1487 MFace *
1488 mface ()
1489 {
1490   MFace *face;
1491
1492   M17N_OBJECT (face, free_face, MERROR_FACE);
1493   face->frame_list = mplist ();
1494   M17N_OBJECT_REGISTER (face_table, face);
1495   return face;
1496 }
1497
1498 /*=*/
1499
1500 /***en
1501     @brief Make a copy of a face.
1502
1503     The mface_copy () function makes a copy of $FACE and returns a
1504     pointer to the created copy.  */
1505
1506 /***ja
1507     @brief ¥Õ¥§¡¼¥¹¤Î¥³¥Ô¡¼¤òºî¤ë.
1508
1509     ´Ø¿ô mface_copy () ¤Ï¥Õ¥§¡¼¥¹ $FACE ¤Î¥³¥Ô¡¼¤òºî¤ê¡¢¤½¤Î¥³¥Ô¡¼¤Ø¤Î
1510     ¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
1511
1512 MFace *
1513 mface_copy (MFace *face)
1514 {
1515   MFace *copy;
1516
1517   MSTRUCT_CALLOC (copy, MERROR_FACE);
1518   *copy = *face;
1519   copy->control.ref_count = 1;
1520   M17N_OBJECT_REGISTER (face_table, copy);
1521   copy->frame_list = mplist ();
1522   if (copy->property[MFACE_FONTSET])
1523     M17N_OBJECT_REF (copy->property[MFACE_FONTSET]);
1524   return copy;
1525 }
1526
1527 /*=*/
1528 /***en
1529     @brief Merge faces.
1530
1531     The mface_merge () functions merges the properties of face $SRC
1532     into $DST.
1533
1534     @return
1535     This function returns $DST.  */
1536
1537 /***ja
1538     @brief ¥Õ¥§¡¼¥¹¤òÅý¹ç¤¹¤ë.
1539
1540     ´Ø¿ô mface_merge () ¤Ï¡¢¥Õ¥§¡¼¥¹ $SRC ¤Î¥×¥í¥Ñ¥Æ¥£¤ò¥Õ¥§¡¼¥¹ $DST
1541     ¤ËÅý¹ç¤¹¤ë¡£
1542
1543     @return
1544     ¤³¤Î´Ø¿ô¤Ï $DST ¤òÊÖ¤¹¡£  */
1545
1546 MFace *
1547 mface_merge (MFace *dst, MFace *src)
1548 {
1549   int i;
1550   MPlist *plist;
1551
1552   for (i = 0; i < MFACE_PROPERTY_MAX; i++)
1553     if (src->property[i])
1554       {
1555         if (i == MFACE_FONTSET)
1556           {
1557             M17N_OBJECT_UNREF (dst->property[i]);
1558             M17N_OBJECT_REF (src->property[i]);
1559           }
1560         dst->property[i] = src->property[i];
1561       }
1562
1563   MPLIST_DO (plist, dst->frame_list)
1564     {
1565       MFrame *frame = MPLIST_VAL (plist);
1566
1567       frame->tick++;
1568       if (dst == frame->face)
1569         mface__update_frame_face (frame);
1570     }
1571
1572   return dst;
1573 }
1574
1575 /*=*/
1576
1577 /***en
1578     @brief Make a face from a font.
1579
1580     The mface_from_font () function return a newly created face while
1581     reflecting the properties of $FONT in its properties.   */
1582
1583 /***ja
1584     @brief ¥Õ¥©¥ó¥È¤«¤é¥Õ¥§¡¼¥¹¤òºî¤ë.
1585
1586     ´Ø¿ô mface_from_font () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥×¥í¥Ñ¥Æ¥£¤ò¥×¥í¥Ñ¥Æ¥£
1587     ¤È¤·¤Æ»ý¤Ä¿·¤·¤¤¥Õ¥§¡¼¥¹¤òºî¤ê¡¢¤½¤ì¤òÊÖ¤¹¡£  */
1588
1589 MFace *
1590 mface_from_font (MFont *font)
1591 {
1592   MFace *face = mface ();
1593
1594   face->property[MFACE_FOUNDRY] = mfont_get_prop (font, Mfoundry);
1595   face->property[MFACE_FAMILY] = mfont_get_prop (font, Mfamily);
1596   face->property[MFACE_WEIGHT] = mfont_get_prop (font, Mweight);
1597   face->property[MFACE_STYLE] = mfont_get_prop (font, Mstyle);
1598   face->property[MFACE_STRETCH] = mfont_get_prop (font, Mstretch);
1599   face->property[MFACE_ADSTYLE] = mfont_get_prop (font, Madstyle);
1600   face->property[MFACE_SIZE] = mfont_get_prop (font, Msize);
1601   return face;
1602 }
1603
1604 /*=*/
1605
1606 /***en
1607     @brief Get the value of a face property.
1608
1609     The mface_get_prop () function returns the value of the face
1610     property whose key is $KEY in face $FACE.  $KEY must be one of the
1611     followings:
1612
1613         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1614         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1615         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
1616
1617     @return
1618     The actual type of the returned value depends of $KEY.  See
1619     documentation of the above keys.  If an error is detected, it
1620     returns @c NULL and assigns an error code to the external variable
1621     #merror_code.  */
1622
1623 /***ja
1624     @brief ¥Õ¥§¡¼¥¹¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
1625
1626     ´Ø¿ô mface_get_prop () ¤Ï¡¢¥Õ¥§¡¼¥¹ $FACE ¤¬»ý¤Ä¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£
1627     ¤ÎÆâ¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¤â¤Î¤ÎÃÍ¤òÊÖ¤¹¡£$KEY ¤Ï²¼µ¤Î¤¤¤º¤ì¤«¤Ç¤Ê
1628     ¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
1629
1630         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1631         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1632         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
1633
1634     @return
1635     Ìá¤êÃÍ¤Î·¿¤Ï $KEY ¤Ë°ÍÂ¸¤¹¤ë¡£¾åµ¤Î¥¡¼¤ÎÀâÌÀ¤ò»²¾È¤¹¤ë¤³
1636     ¤È¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code
1637     ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
1638
1639 /***
1640     @seealso
1641     mface_put_prop ()
1642
1643     @errors
1644     @c MERROR_FACE  */
1645
1646 void *
1647 mface_get_prop (MFace *face, MSymbol key)
1648 {
1649   int index = (int) msymbol_get (key, M_face_prop_index) - 1;
1650
1651   if (index < 0)
1652     MERROR (MERROR_FACE, NULL);
1653   return face->property[index];
1654 }
1655
1656 /*=*/
1657
1658 /***en
1659     @brief Set a value of a face property.
1660
1661     The mface_put_prop () function assigns $VAL to the property whose
1662     key is $KEY in face $FACE.  $KEY must be one the followings:
1663
1664         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1665         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1666         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
1667
1668     Among them, font related properties (#Mfoundry through #Msize) are
1669     used as the default values when a font in the fontset of $FACE
1670     does not specify those values.
1671
1672     The actual type of the returned value depends of $KEY.  See
1673     documentation of the above keys.
1674
1675     @return
1676     If the operation was successful, mface_put_prop () returns 0.
1677     Otherwise it returns -1 and assigns an error code to the external
1678     variable #merror_code.  */
1679
1680 /***ja
1681     @brief ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÀßÄê¤¹¤ë.
1682
1683     ´Ø¿ô mface_put_prop () ¤Ï¡¢¥Õ¥§¡¼¥¹ $FACE Æâ¤Ç¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¥×
1684     ¥í¥Ñ¥Æ¥£¤ÎÃÍ¤ò $VAL ¤ËÀßÄê¤¹¤ë¡£$KEY ¤Ï°Ê²¼¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê
1685     ¤é¤Ê¤¤¡£
1686
1687         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1688         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1689         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg.
1690
1691     ¤³¤ì¤é¤Î¤¦¤Á¤Î¡¢¥Õ¥©¥ó¥È´ØÏ¢¤Î¥×¥í¥Ñ¥Æ¥£ (#Mfamily ¤«¤é #Msize
1692     ¤Þ¤Ç) ¤Ï¡¢¥Õ¥§¡¼¥¹¤Î¥Õ¥©¥ó¥È¥»¥Ã¥ÈÃæ¤Î¥Õ¥©¥ó¥È¤Ë´Ø¤¹¤ë¥Ç¥Õ¥©¥ë¥ÈÃÍ
1693     ¤È¤Ê¤ê¡¢¸Ä¡¹¤Î¥Õ¥©¥ó¥È¤¬ÃÍ¤ò»ØÄê¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤ËÍÑ¤¤¤é¤ì¤ë¡£
1694
1695     Ìá¤êÃÍ¤Î·¿¤Ï $KEY ¤Ë°ÍÂ¸¤¹¤ë¡£¾åµ¤Î¥¡¼¤ÎÀâÌÀ¤ò»²¾È¤¹¤ë¤³¤È¡£
1696
1697     @return
1698     ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mface_put_prop () ¤Ï 0 ¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï
1699     -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
1700
1701 /***
1702     @seealso
1703     mface_get_prop ()
1704
1705     @errors
1706     @c MERROR_FACE  */
1707
1708 int
1709 mface_put_prop (MFace *face, MSymbol key, void *val)
1710 {
1711   int index = (int) msymbol_get (key, M_face_prop_index) - 1;
1712   MPlist *plist;
1713
1714   if (index < 0)
1715     MERROR (MERROR_FACE, -1);
1716   if (key == Mfontset)
1717     {
1718       if (face->property[index])
1719         M17N_OBJECT_UNREF (face->property[index]);
1720       M17N_OBJECT_REF (val);
1721     }
1722   else if (key == Mhline)
1723     val = get_hline_create (val);
1724   else if (key == Mbox)
1725     val = get_box_create (val);
1726
1727   if (face->properties[index] == val)
1728     return 0;
1729   face->property[index] = val;
1730
1731   MPLIST_DO (plist, face->frame_list)
1732     {
1733       MFrame *frame = MPLIST_VAL (plist);
1734
1735       frame->tick++;
1736       if (face == frame->face)
1737         mface__update_frame_face (frame);
1738     }
1739
1740   return 0;
1741 }
1742
1743 /*=*/
1744
1745 /***en
1746     @brief Update a face.
1747
1748     The mface_update () function update face $FACE on frame $FRAME by
1749     calling a hook function of $FACE (if any).  */
1750
1751 /***ja
1752     @brief ¥Õ¥§¡¼¥¹¤ò¹¹¿·¤¹¤ë.
1753
1754     ´Ø¿ô mface_update () ¤Ï¥Õ¥ì¡¼¥à $FRAME ¤Î¥Õ¥§¡¼¥¹ $FACE ¤ò $FACE
1755     ¤Î¥Õ¥Ã¥¯´Ø¿ô¤ò¡Ê¤¢¤ì¤Ð¡Ë¸Æ¤ó¤Ç¹¹¿·¤¹¤ë¡£  */
1756
1757 void
1758 mface_update (MFrame *frame, MFace *face)
1759 {
1760   MFaceHookFunc func = (MFaceHookFunc) face->property[MFACE_HOOK_FUNC];
1761   MPlist *rface_list;
1762   MRealizedFace *rface;
1763
1764   if (func && func != noop_hook)
1765     {
1766       MPLIST_DO (rface_list, frame->realized_face_list)
1767         {
1768           rface = MPLIST_VAL (rface_list);
1769           if ((MFaceHookFunc) rface->face.property[MFACE_HOOK_FUNC] == func)
1770             (func) (&(rface->face), rface->face.property[MFACE_HOOK_ARG],
1771                     rface->info);
1772         }
1773     }
1774 }
1775 /*=*/
1776
1777 /*** @} */
1778 /*=*/
1779
1780 /*** @addtogroup m17nDebug */
1781 /*** @{  */
1782 /*=*/
1783
1784 /***en
1785     @brief Dump a face.
1786
1787     The mdebug_dump_face () function prints face $FACE in a human readable
1788     way to the stderr.  $INDENT specifies how many columns to indent
1789     the lines but the first one.
1790
1791     @return
1792     This function returns $FACE.  */
1793
1794 /***ja
1795     @brief ¥Õ¥§¡¼¥¹¤ò¥À¥ó¥×¤¹¤ë.
1796
1797     ´Ø¿ô mdebug_dump_face () ¤Ï¥Õ¥§¡¼¥¹ $FACE ¤ò stderr ¤Ë¿Í´Ö¤Ë²ÄÆÉ¤Ê
1798     ·Á¤Ç°õºþ¤¹¤ë¡£ $INDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£
1799
1800     @return
1801     ¤³¤Î´Ø¿ô¤Ï $FACE ¤òÊÖ¤¹¡£  */
1802
1803 MFace *
1804 mdebug_dump_face (MFace *face, int indent)
1805 {
1806   char *prefix = (char *) alloca (indent + 1);
1807   MFont spec;
1808
1809   memset (prefix, 32, indent);
1810   prefix[indent] = 0;
1811   mfont__set_spec_from_face (&spec, face);
1812   fprintf (stderr, "(face font:\"");
1813   mdebug_dump_font (&spec);
1814   fprintf (stderr, "\"\n %s  fore:%s back:%s", prefix,
1815            msymbol_name ((MSymbol) face->property[MFACE_FOREGROUND]),
1816            msymbol_name ((MSymbol) face->property[MFACE_BACKGROUND]));
1817   if (face->property[MFACE_FONTSET])
1818     fprintf (stderr, " non-default-fontset");
1819   fprintf (stderr, " hline:%s", face->property[MFACE_HLINE] ? "yes" : "no");
1820   fprintf (stderr, " box:%s)", face->property[MFACE_BOX] ? "yes" : "no");
1821   return face;
1822 }
1823
1824 /*** @} */
1825
1826 /*
1827   Local Variables:
1828   coding: euc-japan
1829   End:
1830 */