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., 51 Franklin Street, Fifth Floor,
  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     M-text ¤¬¡¢#Mface
  71     ¤ò¥¡¼¤È¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÊ£¿ô»ý¤Ã¤Æ¤ª¤ê¡¢¤«¤Ä¤½¤ì¤é¤ÎÃÍ¤¬¾×ÆÍ¤·¤Ê¤¤¤Ê¤é¤Ð¡¢¥Õ¥§¡¼¥¹¾ðÊó¤ÏÁÈ¤ß¹ç¤ï¤µ¤ì¤ÆÍÑ¤¤¤é¤ì¤ë¡£
  72
  73     ¤¢¤ë¥Æ¥¥¹¥ÈÂ°À¤¬¤É¤Î¥Õ¥§¡¼¥¹¤Ë¤è¤Ã¤Æ¤â»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¢¥Ç¥Õ¥©¥ë¥È¥Õ¥§¡¼¥¹¤ÎÃÍ¤¬ÍÑ¤¤¤é¤ì¤ë¡£  */
  74
  75 /*=*/
  76
  77 #if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
  78 /*** @addtogroup m17nInternal
  79      @{ */
  80
  81 #include <stdio.h>
  82 #include <stdlib.h>
  83 #include <string.h>
  84 #include <ctype.h>
  85
  86 #include "config.h"
  87 #include "m17n-gui.h"
  88 #include "m17n-misc.h"
  89 #include "internal.h"
  90 #include "charset.h"
  91 #include "symbol.h"
  92 #include "plist.h"
  93 #include "mtext.h"
  94 #include "textprop.h"
  95 #include "internal-gui.h"
  96 #include "face.h"
  97 #include "font.h"
  98 #include "fontset.h"
  99
 100 static M17NObjectArray face_table;
 101
 102 MSymbol Mlatin;
 103
 104 static MSymbol M_face_prop_index;
 105
 106 static MPlist *hline_prop_list;
 107 static MPlist *box_prop_list;
 108
 109 /** Special hook function pointer that does nothing.  */
 110 static MFaceHookFunc noop_hook;
 111
 112 /**  */
 113 static MFaceHLineProp *
 114 get_hline_create (MFaceHLineProp *prop)
 115 {
 116   MPlist *plist;
 117   MFaceHLineProp *hline;
 118
 119   if (prop->width == 0)
 120     return MPLIST_VAL (hline_prop_list);
 121   MPLIST_DO (plist, MPLIST_NEXT (hline_prop_list))
 122     {
 123       hline = MPLIST_VAL (plist);
 124       if (prop->type == hline->type
 125           && prop->width == hline->width
 126           && prop->color == hline->color)
 127         return hline;
 128     }
 129   MSTRUCT_MALLOC (hline, MERROR_FACE);
 130   *hline = *prop;
 131   mplist_push (plist, Mt, hline);
 132   return hline;
 133 }
 134
 135 static MFaceBoxProp *
 136 get_box_create (MFaceBoxProp *prop)
 137 {
 138   MPlist *plist;
 139   MFaceBoxProp *box;
 140
 141   if (prop->width == 0)
 142     return MPLIST_VAL (box_prop_list);
 143   MPLIST_DO (plist, MPLIST_NEXT (box_prop_list))
 144     {
 145       box = MPLIST_VAL (plist);
 146       if (prop->width == box->width
 147           && prop->color_top == box->color_top
 148           && prop->color_bottom == box->color_bottom
 149           && prop->color_left == box->color_left
 150           && prop->color_right == box->color_right
 151           && prop->inner_hmargin == box->inner_hmargin
 152           && prop->inner_vmargin == box->inner_vmargin
 153           && prop->outer_hmargin == box->inner_hmargin
 154           && prop->inner_vmargin == box->inner_vmargin)
 155         return box;
 156     }
 157   MSTRUCT_MALLOC (box, MERROR_FACE);
 158   *box = *prop;
 159   mplist_push (plist, Mt, box);
 160   return box;
 161 }
 162
 163 /** From FRAME->realized_face_list, find a realized face based on
 164     FACE.  */
 165
 166 static MRealizedFace *
 167 find_realized_face (MFrame *frame, MFace *face, MFont *font)
 168 {
 169   MPlist *plist;
 170
 171   MPLIST_DO (plist, frame->realized_face_list)
 172     {
 173       MRealizedFace *rface = MPLIST_VAL (plist);
 174
 175       if (memcmp (rface->face.property, face->property,
 176                   sizeof face->property) == 0
 177           && (rface->font
 178               ? (font && ! memcmp (rface->font, font, sizeof (MFont)))
 179               : ! font))
 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   M17N_OBJECT_ADD_ARRAY (face_table, "Face");
 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
 597 /** Return a face realized from NUM number of base faces pointed by
 598     FACES on the frame FRAME.  If SIZE is nonzero, it specifies the
 599     maximum font size.  */
 600
 601 MRealizedFace *
 602 mface__realize (MFrame *frame, MFace **faces, int num, int size, MFont *font)
 603 {
 604   MRealizedFace *rface;
 605   MRealizedFont *rfont;
 606   MFace merged_face = *(frame->face);
 607   int i, j;
 608   MFaceHookFunc func;
 609   MFont spec;
 610
 611   if (num == 0 && frame->rface && ! font)
 612     return frame->rface;
 613
 614   if (! mplist_find_by_value (frame->face->frame_list, frame))
 615     mplist_push (frame->face->frame_list, Mt, frame);
 616   for (i = 0; i < num; i++)
 617     if (! mplist_find_by_value (faces[i]->frame_list, frame))
 618       mplist_push (faces[i]->frame_list, Mt, frame);
 619
 620   for (i = 0; i < MFACE_PROPERTY_MAX; i++)
 621     for (j = num - 1; j >= 0; j--)
 622       if (faces[j]->property[i])
 623         {
 624           merged_face.property[i] = faces[j]->property[i];
 625           break;
 626         }
 627
 628   if (font)
 629     {
 630       if (font->type != MFONT_TYPE_REALIZED)
 631         font = mfont_copy (font);
 632       for (i = 0; i <= MFACE_ADSTYLE; i++)
 633         if (font->property[i])
 634           merged_face.property[i] = FONT_PROPERTY (font, i);
 635       if (font->size)
 636         {
 637           if (font->size < 0)
 638             font->size = ((double) (- font->size)) * frame->dpi / 72.27 + 0.5;
 639           merged_face.property[MFACE_SIZE] = (void *) font->size;
 640           merged_face.property[MFACE_RATIO] = (void *) 0;
 641         }
 642     }
 643
 644   if (! font || ! font->size)
 645     {
 646       double font_size = (int) merged_face.property[MFACE_SIZE];
 647       int ifont_size;
 648
 649       if (font_size < 0)
 650         font_size = - font_size * frame->dpi / 72.27;
 651       if (merged_face.property[MFACE_RATIO]
 652           && (int) merged_face.property[MFACE_RATIO] != 100)
 653         {
 654           font_size *= (int) merged_face.property[MFACE_RATIO];
 655           font_size /= 100;
 656         }
 657       ifont_size = font_size + 0.5;
 658       merged_face.property[MFACE_SIZE] = (void *) ifont_size;
 659       merged_face.property[MFACE_RATIO] = (void *) 0;
 660     }
 661
 662   merged_face.property[MFACE_FOUNDRY] = Mnil;
 663   rface = find_realized_face (frame, &merged_face, font);
 664   if (rface)
 665     {
 666       if (font && font->type != MFONT_TYPE_REALIZED)
 667         free (font);
 668       return rface;
 669     }
 670
 671   MSTRUCT_CALLOC (rface, MERROR_FACE);
 672   mplist_push (frame->realized_face_list, Mt, rface);
 673   rface->frame = frame;
 674   rface->face = merged_face;
 675   rface->font = font;
 676
 677   if (font)
 678     {
 679       if (font->type == MFONT_TYPE_SPEC)
 680         rfont = (MRealizedFont *) mfont_find (frame, font, NULL, 0);
 681       else if (font->type == MFONT_TYPE_OBJECT)
 682         {
 683           MFONT_INIT (&spec);
 684           spec.size = (int) merged_face.property[MFONT_SIZE];
 685           if (font->property[MFONT_REGISTRY])
 686             spec.property[MFONT_REGISTRY] = font->property[MFONT_REGISTRY];
 687           else
 688             mfont_put_prop (&spec, Mregistry,
 689                             (font->source == MFONT_SOURCE_X
 690                              ? Miso8859_1 : Municode_bmp));
 691           rfont = mfont__open (frame, font, &spec);
 692         }
 693       else
 694         rfont = (MRealizedFont *) font;
 695     }
 696   else
 697     {
 698       MFontset *fontset = (MFontset *) merged_face.property[MFACE_FONTSET];
 699
 700       rface->rfontset = mfont__realize_fontset (frame, fontset, &merged_face,
 701                                                 font);
 702       rfont = NULL;
 703       mfont__set_spec_from_face (&spec, &merged_face);
 704       mfont_put_prop (&spec, Mregistry, Miso8859_1);
 705       spec.source = MFONT_SOURCE_X;
 706       font = mfont__select (frame, &spec, 0);
 707       if (font)
 708         rfont = mfont__open (frame, font, &spec);
 709       if (! rfont)
 710         {
 711           mfont_put_prop (&spec, Mregistry, Municode_bmp);
 712           spec.source = MFONT_SOURCE_FT;
 713           font = mfont__select (frame, &spec, 0);
 714           if (font)
 715             rfont = mfont__open (frame, font, &spec);
 716         }
 717       if (! rfont)
 718         {
 719           num = 0;
 720           rfont = mfont__lookup_fontset (rface->rfontset, NULL, &num,
 721                                          Mlatin, Mnil, Mnil, size, 0);
 722         }
 723     }
 724
 725   if (rfont)
 726     {
 727       rface->rfont = rfont;
 728       rface->layouter = rfont->layouter;
 729       rfont->layouter = Mnil;
 730       work_gstring.glyphs[0].rface = rface;
 731       work_gstring.glyphs[0].code = MCHAR_INVALID_CODE;
 732       mfont__get_metric (&work_gstring, 0, 1);
 733       rface->ascent = work_gstring.glyphs[0].ascent;
 734       rface->descent = work_gstring.glyphs[0].descent;
 735       work_gstring.glyphs[0].code
 736         = mfont__encode_char (frame, (MFont *) rfont, NULL, ' ');
 737       if (work_gstring.glyphs[0].code != MCHAR_INVALID_CODE)
 738         {
 739           mfont__get_metric (&work_gstring, 0, 1);
 740           rface->space_width = work_gstring.glyphs[0].width;
 741         }
 742       else
 743         rface->space_width = rfont->spec.size / 10;
 744       if (rfont->average_width)
 745         rface->average_width = rfont->average_width;
 746       else
 747         {
 748           work_gstring.glyphs[0].code
 749             = mfont__encode_char (frame, (MFont *) rfont, NULL, 'x');
 750           if (work_gstring.glyphs[0].code != MCHAR_INVALID_CODE)
 751             {
 752               mfont__get_metric (&work_gstring, 0, 1);
 753               rface->average_width = work_gstring.glyphs[0].width;
 754             }
 755           else
 756             rface->average_width = rface->space_width;
 757         }
 758     }
 759   else
 760     {
 761       rface->rfont = NULL;
 762       rface->space_width = frame->space_width;
 763     }
 764
 765   rface->hline = (MFaceHLineProp *) merged_face.property[MFACE_HLINE];
 766   if (rface->hline && rface->hline->width == 0)
 767     rface->hline = NULL;
 768   rface->box = (MFaceBoxProp *) merged_face.property[MFACE_BOX];
 769   if (rface->box && rface->box->width == 0)
 770     rface->box = NULL;
 771   rface->ascii_rface = rface;
 772   (*frame->driver->realize_face) (rface);
 773
 774   func = (MFaceHookFunc) rface->face.property[MFACE_HOOK_FUNC];
 775   if (func && func != noop_hook)
 776     (func) (&(rface->face), rface->info, rface->face.property[MFACE_HOOK_ARG]);
 777
 778   rface->non_ascii_list = mplist ();
 779   if (rface->rfont)
 780     {
 781       MRealizedFace *nofont;
 782
 783       MSTRUCT_CALLOC (nofont, MERROR_FACE);
 784       *nofont = *rface;
 785       nofont->non_ascii_list = NULL;
 786       nofont->rfont = NULL;
 787       mplist_add (rface->non_ascii_list, Mt, nofont);
 788     }
 789
 790   return rface;
 791 }
 792
 793
 794 MGlyph *
 795 mface__for_chars (MSymbol script, MSymbol language, MSymbol charset,
 796                   MGlyph *from_g, MGlyph *to_g, int size)
 797 {
 798   MRealizedFont *rfont = from_g->rface->rfont;
 799   MSymbol layouter;
 800   int num = to_g - from_g;
 801   int i;
 802
 803   if (from_g->rface->font)
 804     {
 805       MRealizedFace *rface = from_g->rface, *new;
 806
 807       if (! rfont)
 808         rfont = mfontset__get_font (rface->frame,
 809                                     rface->face.property[MFACE_FONTSET],
 810                                     script, language,
 811                                     rface->font, NULL);
 812       else if (script != Mlatin)
 813         rfont = mfontset__get_font (rface->frame,
 814                                     rface->face.property[MFACE_FONTSET],
 815                                     script, language,
 816                                     (MFont *) rfont, NULL);
 817       if (! rfont)
 818         {
 819           for (; from_g < to_g && from_g->rface->font; from_g++)
 820             from_g->code = MCHAR_INVALID_CODE;
 821         }
 822       else
 823         {
 824           if (rface->rfont == rfont && rfont->layouter == Mnil)
 825             new = rface;
 826           else
 827             {
 828               MSTRUCT_MALLOC (new, MERROR_FACE);
 829               mplist_push (rface->non_ascii_list, Mt, new);
 830               *new = *rface;
 831               new->rfont = rfont;
 832               new->layouter = rfont->layouter;
 833               rfont->layouter = Mnil;
 834               new->non_ascii_list = NULL;
 835               new->ascent = rfont->ascent;
 836               new->descent = rfont->descent;
 837             }
 838           for (; from_g < to_g && from_g->rface->font; from_g++)
 839             {
 840               from_g->rface = new;
 841               if (new->layouter)
 842                 {
 843                   from_g->code = mfont__flt_encode_char (new->layouter,
 844                                                          from_g->c);
 845                   if (from_g->code == MCHAR_INVALID_CODE)
 846                     {
 847                       from_g->rface = rface;
 848                       from_g->code = mfont__encode_char (rfont->frame,
 849                                                          (MFont *) rfont,
 850                                                          NULL, from_g->c);
 851                     }
 852                 }
 853               else
 854                 from_g->code = mfont__encode_char (rfont->frame,
 855                                                    (MFont *) rfont,
 856                                                    NULL, from_g->c);
 857             }
 858         }
 859       return from_g;
 860     }
 861
 862   if (rfont && script == Mlatin)
 863     {
 864       for (i = 0; i < num; i++)
 865         {
 866           unsigned code = mfont__encode_char (rfont->frame, (MFont *) rfont,
 867                                               NULL, from_g[i].c);
 868           if (code == MCHAR_INVALID_CODE)
 869             break;
 870           from_g[i].code = code;
 871         }
 872       if (i == num || from_g[i].rface->font)
 873         return from_g + i;
 874     }
 875
 876   rfont = mfont__lookup_fontset (from_g->rface->rfontset, from_g, &num,
 877                                  script, language, charset, size, 0);
 878   if (rfont)
 879     {
 880       layouter = rfont->layouter;
 881       rfont->layouter = Mnil;
 882     }
 883   else
 884     {
 885       from_g->code = MCHAR_INVALID_CODE;
 886       num = 1;
 887       rfont = NULL;
 888       layouter = Mnil;
 889     }
 890
 891   to_g = from_g + num;
 892   while (from_g < to_g)
 893     {
 894       MGlyph *g = from_g;
 895       MRealizedFace *rface = from_g++->rface;
 896
 897       while (from_g < to_g && rface == from_g->rface) from_g++;
 898       if (rface->rfont != rfont
 899           || rface->layouter != layouter)
 900         {
 901           MPlist *plist = mplist_find_by_value (rface->non_ascii_list, rfont);
 902           MRealizedFace *new = NULL;
 903
 904           while (plist)
 905             {
 906               new = MPLIST_VAL (plist);
 907               if (new->layouter == layouter)
 908                 break;
 909               plist = mplist_find_by_value (MPLIST_NEXT (plist), rfont);
 910             }
 911           if (! plist)
 912             {
 913               MSTRUCT_MALLOC (new, MERROR_FACE);
 914               mplist_push (rface->non_ascii_list, Mt, new);
 915               *new = *rface;
 916               new->rfont = rfont;
 917               new->layouter = layouter;
 918               new->non_ascii_list = NULL;
 919               if (rfont)
 920                 {
 921                   new->ascent = rfont->ascent;
 922                   new->descent = rfont->descent;
 923                 }
 924             }
 925           while (g < from_g)
 926             g++->rface = new;
 927         }
 928     }
 929   return to_g;
 930 }
 931
 932
 933 void
 934 mface__free_realized (MRealizedFace *rface)
 935 {
 936   MPlist *plist;
 937
 938   MPLIST_DO (plist, rface->non_ascii_list)
 939     free (MPLIST_VAL (plist));
 940   M17N_OBJECT_UNREF (rface->non_ascii_list);
 941   if (rface->font && rface->font->type != MFONT_TYPE_REALIZED)
 942     free (rface->font);
 943   free (rface);
 944 }
 945
 946 void
 947 mface__update_frame_face (MFrame *frame)
 948 {
 949   frame->rface = NULL;
 950   frame->rface = mface__realize (frame, NULL, 0, 0, NULL);
 951   frame->space_width = frame->rface->space_width;
 952   frame->average_width = frame->rface->average_width;
 953   frame->ascent = frame->rface->ascent;
 954   frame->descent = frame->rface->descent;
 955 }
 956
 957 /*** @} */
 958 #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
 959
 960 \f
 961 /* External API  */
 962 /*** @addtogroup m17nFace */
 963 /*** @{ */
 964 /*=*/
 965
 966 /***en @name Variables: Keys of face property */
 967 /***ja @name ÊÑ¿ô: ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼  */
 968 /*** @{ */
 969 /*=*/
 970
 971 /***en
 972     @brief Key of a face property specifying foreground color.
 973
 974     The variable #Mforeground is used as a key of face property.  The
 975     property value must be a symbol whose name is a color name, or
 976     #Mnil.
 977
 978     #Mnil means that the face does not specify a foreground color.
 979     Otherwise, the foreground of an M-text is drawn by the specified
 980     color.  */
 981 /***ja
 982     @brief Á°·Ê¿§¤ò»ØÄê¤¹¤ë¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
 983
 984     ÊÑ¿ô #Mforeground ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
 985     ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¿§Ì¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤« #Mnil ¤Ç¤¢¤ë¡£
 986
 987     #Mnil ¤Î¾ì¹ç¡¢Á°·Ê¿§¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð M-text
 988     ¤ÎÁ°·Ê¤Ï»ØÄê¤µ¤ì¤¿¿§¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
 989
 990 MSymbol Mforeground;
 991
 992 /***en
 993     @brief Key of a face property specifying background color.
 994
 995     The variable #Mbackground is used as a key of face property.  The
 996     property value must be a symbol whose name is a color name, or
 997     #Mnil.
 998
 999     #Mnil means that the face does not specify a background color.
1000     Otherwise, the background of an M-text is drawn by the specified
1001     color.  */
1002 /***ja
1003     @brief ÇØ·Ê¿§¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1004
1005     ÊÑ¿ô #Mbackground ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
1006     ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¿§Ì¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤« #Mnil ¤Ç¤¢¤ë¡£
1007
1008     #Mnil ¤Î¾ì¹ç¡¢ÇØ·Ê¿§¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð M-text
1009     ¤ÎÇØ·Ê¤Ï»ØÄê¤µ¤ì¤¿¿§¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
1010
1011 MSymbol Mbackground;
1012
1013 /***en
1014     @brief Key of a face property specifying video mode.
1015
1016     The variable #Mvideomode is used as a key of face property.  The
1017     property value must be #Mnormal, #Mreverse, or #Mnil.
1018
1019     #Mnormal means that an M-text is drawn in normal video mode
1020     (i.e. the foreground is drawn by foreground color, the background
1021     is drawn by background color).
1022
1023     #Mreverse means that an M-text is drawn in reverse video mode
1024     (i.e. the foreground is drawn by background color, the background
1025     is drawn by foreground color).
1026
1027     #Mnil means that the face does not specify a video mode.  */
1028 /***ja
1029     @brief ¥Ó¥Ç¥ª¥â¡¼¥É¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1030
1031     ÊÑ¿ô #Mvideomode ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢
1032     #Mnormal, #Mreverse, #Mnil ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1033
1034     #Mnormal ¤Î¾ì¹ç¤Ï¡¢M-text
1035     ¤òÉ¸½à¤Î¥Ó¥Ç¥ª¥â¡¼¥É¡ÊÁ°·Ê¤òÁ°·Ê¿§¤Ç¡¢ÇØ·Ê¤òÇØ·Ê¿§¤Ç¡Ë¤ÇÉ½¼¨¤¹¤ë¡£
1036
1037     #Mreverse ¤Î¾ì¹ç¤Ï¥ê¥Ð¡¼¥¹¥Ó¥Ç¥ª¥â¡¼¥É¤Ç¡ÊÁ°·Ê¤òÇØ·Ê¿§¤Ç¡¢ÇØ·Ê¤òÁ°·Ê¿§¤Ç¡ËÉ½¼¨¤¹¤ë¡£
1038
1039     #Mnil ¤Î¾ì¹ç¤Ï¥Ó¥Ç¥ª¥â¡¼¥É¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1040     */
1041
1042 MSymbol Mvideomode;
1043
1044 /***en
1045     @brief Key of a face property specifying font size ratio.
1046
1047     The variable #Mratio is used as a key of face property.  The value
1048     RATIO must be an integer.
1049
1050     The value 0 means that the face does not specify a font size
1051     ratio.  Otherwise, an M-text is drawn by a font of size (FONTSIZE
1052     * RATIO / 100) where FONTSIZE is a font size specified by the face
1053     property #Msize.  */
1054 /***ja
1055     @brief ¥Õ¥©¥ó¥È¤Î¥µ¥¤¥º¤ÎÈæÎ¨¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1056
1057     ÊÑ¿ô #Mratio ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ RATIO
1058     ¤ÏÀ°¿ôÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1059
1060     ÃÍ¤¬0¤Ê¤é¤Ð¡¢¥Õ¥©¥ó¥È¥µ¥¤¥º¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢M-text
1061     ¤Ï(FONTSIZE * RATIO / 100) ¤È¤¤¤¦¥µ¥¤¥º¤Î¥Õ¥©¥ó¥È¤ÇÉ½¼¨¤µ¤ì¤ë¡£
1062     FONTSIZE ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼#Msize ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Ç¤¢¤ë¡£ */
1063
1064 MSymbol Mratio;
1065
1066 /***en
1067     @brief Key of a face property specifying horizontal line.
1068
1069     The variable #Mhline is used as a key of face property.  The value
1070     must be a pointer to an object of type #MFaceHLineProp, or @c
1071     NULL.
1072
1073     The value @c NULL means that the face does not specify this
1074     property.  Otherwise, an M-text is drawn with a horizontal line by
1075     a way specified by the object that the value points to.  */
1076 /***ja
1077     @brief ¿åÊ¿Àþ¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1078
1079     ÊÑ¿ô #Mhline ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
1080     #MFaceHLineProp ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1081
1082     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¤³¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1083     ¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¤è¤¦¤Ë¿åÊ¿Àþ¤òÉÕ²Ã¤·¤Æ M-text
1084     ¤òÉ½¼¨¤¹¤ë¡£*/
1085
1086 MSymbol Mhline;
1087
1088 /***en
1089     @brief Key of a face property specifying box.
1090
1091     The variable #Mbox is used as a key of face property.  The value
1092     must be a pointer to an object of type #MFaceBoxProp, or @c NULL.
1093
1094     The value @c NULL means that the face does not specify a box.
1095     Otherwise, an M-text is drawn with a surrounding box by a way
1096     specified by the object that the value points to.  */
1097 /***ja
1098     @brief °Ï¤ßÏÈ¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1099
1100     ÊÑ¿ô #Mbox ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
1101     #MFaceBoxProp ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1102
1103     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¤³¤Î¥Õ¥§¡¼¥¹¤Ï°Ï¤ßÏÈ¤ò»ØÄê¤·¤Æ¤¤¤Ê¤¤¡£
1104     ¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¤è¤¦¤Ë°Ï¤ßÏÈ¤òÉÕ²Ã¤·¤Æ
1105     M-text ¤òÉ½¼¨¤¹¤ë¡£*/
1106
1107 MSymbol Mbox;
1108
1109 /***en
1110     @brief Key of a face property specifying fontset.
1111
1112     The variable #Mfontset is used as a key of face property.  The
1113     value must be a pointer to an object of type #Mfontset, or @c
1114     NULL.
1115
1116     The value @c NULL means that the face does not specify a fontset.
1117     Otherwise, an M-text is drawn with a font selected from what
1118     specified in the fontset.  */
1119 /***ja
1120     @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1121
1122     ÊÑ¿ô #Mfontset ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
1123     #Mfontset ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1124
1125     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ï»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤¤¡£
1126     ¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¥Õ¥©¥ó¥È¥»¥Ã¥È¤«¤éÁª¤ó¤À¥Õ¥©¥ó¥È¤Ç
1127     M-text ¤òÉ½¼¨¤¹¤ë¡£*/
1128
1129 MSymbol Mfontset;
1130
1131 /***en
1132     @brief Key of a face property specifying hook.
1133
1134     The variable #Mhook_func is used as a key of face property.  The
1135     value must be a function of type #MFaceHookFunc, or @c NULL.
1136
1137     The value @c NULL means that the face does not specify a hook.
1138     Otherwise, the specified function is called before the face is
1139     realized.  */
1140 /***ja
1141     @brief ¥Õ¥Ã¥¯¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1142
1143     ÊÑ¿ô #Mhook_func ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï
1144     #MFaceHookFunc ·¿¤Î´Ø¿ô¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1145
1146     ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¥Õ¥Ã¥¯¤Ï»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤¤¡£
1147     ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¥Õ¥§¡¼¥¹¤ò¼Â¸½¤¹¤ëÁ°¤Ë»ØÄê¤µ¤ì¤¿´Ø¿ô¤¬¸Æ¤Ð¤ì¤ë¡£      */
1148 MSymbol Mhook_func;
1149
1150 /***en
1151     @brief Key of a face property specifying argument of hook.
1152
1153     The variable #Mhook_arg is used as a key of face property.  The
1154     value can be anything that is passed a hook function specified by
1155     the face property #Mhook_func.  */
1156 /***ja
1157     @brief ¥Õ¥Ã¥¯¤Î°ú¿ô¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
1158
1159     ÊÑ¿ô #Mhook_arg ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
1160     ÃÍ¤Ï²¿¤Ç¤â¤è¤¯¡¢¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£ #Mhook_func ¤Ç»ØÄê¤µ¤ì¤ë´Ø¿ô¤ËÅÏ¤µ¤ì¤ë¡£ */
1161 MSymbol Mhook_arg;
1162
1163 /*** @} */
1164 /*=*/
1165
1166 /*** @ingroup m17nFace */
1167 /***en @name Variables: Possible values of #Mvideomode property of face */
1168 /***ja @name ÊÑ¿ô¡§  ¥Õ¥§¡¼¥¹¤Î #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤Î²ÄÇ½¤ÊÃÍ */
1169 /*** @{ */
1170 /*=*/
1171
1172 /***en
1173     See the documentation of the variable #Mvideomode.  */
1174 /***ja
1175     ÊÑ¿ô #Mvideomode ¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£  */
1176 MSymbol Mnormal;
1177 MSymbol Mreverse;
1178 /*** @} */
1179 /*=*/
1180
1181 /*** @ingroup m17nFace */
1182 /***en @name Variables: Predefined faces  */
1183 /***ja @name ÊÑ¿ô: ÄêµÁºÑ¤ß¥Õ¥§¡¼¥¹  */
1184 /*** @{ */
1185 /*=*/
1186
1187 /***en
1188     @brief Normal video face.
1189
1190     The variable #mface_normal_video points to a face that has the
1191     #Mvideomode property with value #Mnormal.  The other properties
1192     are not specified.  An M-text drawn with this face appear normal
1193     colors (i.e. the foreground is drawn by foreground color, and
1194     background is drawn by background color).  */
1195 /***ja
1196     @brief É¸½à¥Ó¥Ç¥ª¥Õ¥§¡¼¥¹.
1197
1198     ÊÑ¿ô #mface_normal_video ¤Ï #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ #Mnormal
1199     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1200     ¤³¤Î¥Õ¥§¡¼¥¹¤ÇÉ½¼¨¤µ¤ì¤ëM-text
1201     ¤ÏÉ¸½à¤Î¿§ (¤¹¤Ê¤ï¤ÁÁ°·Ê¤ÏÁ°·Ê¿§¡¢ÇØ·Ê¤ÏÇØ·Ê¿§¡Ë¤ÇÉÁ¤«¤ì¤ë¡£  */
1202
1203 MFace *mface_normal_video;
1204
1205 /***en
1206     @brief Reverse video face.
1207
1208     The variable #mface_reverse_video points to a face that has the
1209     #Mvideomode property with value #Mreverse.  The other properties
1210     are not specified.  An M-text drawn with this face appear in
1211     reversed colors (i.e. the foreground is drawn by background
1212     color, and background is drawn by foreground color).  */
1213 /***ja
1214     @brief ¥ê¥Ð¡¼¥¹¥Ó¥Ç¥ª¥Õ¥§¡¼¥¹.
1215
1216     ÊÑ¿ô #mface_reverse_video ¤Ï #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬
1217     #Mreverse ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1218     ¤³¤Î¥Õ¥§¡¼¥¹¤ÇÉ½¼¨¤µ¤ì¤ëM-text
1219     ¤ÏÁ°·Ê¿§¤ÈÇØ·Ê¿§¤¬Æþ¤ìÂØ¤ï¤Ã¤Æ (¤¹¤Ê¤ï¤ÁÁ°·Ê¤ÏÇØ·Ê¿§¡¢ÇØ·Ê¤ÏÁ°·Ê¿§¡ËÉÁ¤«¤ì¤ë¡£  */
1220
1221 MFace *mface_reverse_video;
1222
1223 /***en
1224     @brief Underline face.
1225
1226     The variable #mface_underline points to a face that has the
1227     #Mhline property with value a pointer to an object of type
1228     #MFaceHLineProp.  The members of the object are as follows:
1229
1230 @verbatim
1231     member  value
1232     -----   -----
1233     type    MFACE_HLINE_UNDER
1234     width   1
1235     color   Mnil
1236 @endverbatim
1237
1238     The other properties are not specified.  An M-text that has this
1239     face is drawn with an underline.  */
1240 /***ja
1241     @brief ²¼Àþ¥Õ¥§¡¼¥¹.
1242
1243     ÊÑ¿ô #mface_underline ¤Ï #Mhline ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ #MFaceHLineProp
1244     ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥ª¥Ö¥¸¥§¥¯¥È¤Î¥á¥ó¥Ð¤Ï°Ê²¼¤ÎÄÌ¤ê¡£
1245
1246 @verbatim
1247     ¥á¥ó¥Ð  ÃÍ
1248     -----   -----
1249     type    MFACE_HLINE_UNDER
1250     width   1
1251     color   Mnil
1252 @endverbatim
1253
1254     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï²¼ÀþÉÕ¤¤ÇÉ½¼¨¤µ¤ì¤ë¡£*/
1255
1256 MFace *mface_underline;
1257
1258 /***en
1259     @brief Medium face.
1260
1261     The variable #mface_medium points to a face that has the #Mweight
1262     property with value a symbol of name "medium".  The other
1263     properties are not specified.  An M-text that has this face is
1264     drawn with a font of medium weight.  */
1265 /***ja
1266     @brief ¥ß¥Ç¥£¥¢¥à¥Õ¥§¡¼¥¹.
1267
1268     ÊÑ¿ô #mface_medium ¤Ï #Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "medium"
1269     ¤È¤¤¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1270     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1271     ¤Ï¡¢¥ß¥Ç¥£¥¢¥à¥¦¥§¥¤¥È¤Î¥Õ¥©¥ó¥È¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
1272 MFace *mface_medium;
1273
1274 /***en
1275     @brief Bold face.
1276
1277     The variable #mface_bold points to a face that has the #Mweight
1278     property with value a symbol of name "bold".  The other properties
1279     are not specified.  An M-text that has this face is drawn with a
1280     font of bold weight.  */
1281 /***ja
1282     @brief ¥Ü¡¼¥ë¥É¥Õ¥§¡¼¥¹.
1283
1284     ÊÑ¿ô #mface_bold ¤Ï #Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "bold"
1285     ¤È¤¤¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1286     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1287     ¤Ï¡¢¥Ü¡¼¥ë¥É¥Õ¥©¥ó¥È¤ÇÉ½¼¨¤µ¤ì¤ë¡£    */
1288
1289 MFace *mface_bold;
1290
1291 /***en
1292     @brief Italic face.
1293
1294     The variable #mface_italic points to a face that has the #Mstyle
1295     property with value a symbol of name "italic".  The other
1296     properties are not specified.  An M-text that has this face is
1297     drawn with a font of italic style.  */
1298 /***ja
1299     @brief ¥¤¥¿¥ê¥Ã¥¯¥Õ¥§¡¼¥¹.
1300
1301     ÊÑ¿ô #mface_italic ¤Ï #Mstyle ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "italic"
1302     ¤È¤¤¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1303     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1304     ¤Ï¡¢¥¤¥¿¥ê¥Ã¥¯ÂÎ¤ÇÉ½¼¨¤µ¤ì¤ë¡£    */
1305
1306 MFace *mface_italic;
1307
1308 /***en
1309     @brief Bold italic face.
1310
1311     The variable #mface_bold_italic points to a face that has the
1312     #Mweight property with value a symbol of name "bold", and #Mstyle
1313     property with value a symbol of name "italic".  The other
1314     properties are not specified.  An M-text that has this face is
1315     drawn with a font of bold weight and italic style.  */
1316 /***ja
1317     @brief ¥Ü¡¼¥ë¥É¥¤¥¿¥ê¥Ã¥¯¥Õ¥§¡¼¥¹.
1318
1319     ÊÑ¿ô #mface_bold_italic ¤Ï¡¢#Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "bold"
1320     ¤È¤¤¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¤«¤Ä #Mstyle ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "italic"
1321     ¤È¤¤¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1322     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1323     ¤Ï¡¢¥Ü¡¼¥ë¥É¥¤¥¿¥ê¥Ã¥¯ÂÎ¤ÇÉ½¼¨¤µ¤ì¤ë¡£    */
1324
1325 MFace *mface_bold_italic;
1326
1327 /***en
1328     @brief Smallest face.
1329
1330     The variable #mface_xx_small points to a face that has the #Mratio
1331     property with value 50.  The other properties are not specified.
1332     An M-text that has this face is drawn with a font whose size is
1333     50% of a normal font.  */
1334 /***ja
1335     @brief ºÇ¾®¤Î¥Õ¥§¡¼¥¹.
1336
1337     ÊÑ¿ô #mface_xx_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 50
1338     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1339     ¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÉ¸½à¥Õ¥©¥ó¥È¤Î 50% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1340      */
1341
1342 MFace *mface_xx_small;
1343
1344 /***en
1345     @brief Smaller face.
1346
1347     The variable #mface_x_small points to a face that has the #Mratio
1348     property with value 66.  The other properties are not specified.
1349     An M-text that has this face is drawn with a font whose size is
1350     66% of a normal font.  */
1351 /***ja
1352     @brief ¤è¤ê¾®¤µ¤¤¥Õ¥§¡¼¥¹.
1353
1354     ÊÑ¿ô #mface_x_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 66
1355     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1356     ¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÉ¸½à¥Õ¥©¥ó¥È¤Î 66% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1357      */
1358
1359 MFace *mface_x_small;
1360
1361 /***en
1362     @brief Small face.
1363
1364     The variable #mface_x_small points to a face that has the #Mratio
1365     property with value 75.  The other properties are not specified.
1366     An M-text that has this face is drawn with a font whose size is
1367     75% of a normal font.  */
1368 /***ja
1369     @brief ¾®¤µ¤¤¥Õ¥§¡¼¥¹.
1370
1371     ÊÑ¿ô #mface_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 75
1372     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1373     ¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÉ¸½à¥Õ¥©¥ó¥È¤Î 75% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1374      */
1375
1376 MFace *mface_small;
1377
1378 /***en
1379     @brief Normalsize face.
1380
1381     The variable #mface_normalsize points to a face that has the
1382     #Mratio property with value 100.  The other properties are not
1383     specified.  An M-text that has this face is drawn with a font
1384     whose size is the same as a normal font.  */
1385 /***ja
1386     @brief É¸½à¤ÎÂç¤¤µ¤Î¥Õ¥§¡¼¥¹.
1387
1388     ÊÑ¿ô #mface_normalsize ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 100
1389     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1390     ¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÉ¸½à¥Õ¥©¥ó¥È¤ÈÆ±¤¸Âç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1391      */
1392
1393 MFace *mface_normalsize;
1394
1395 /***en
1396     @brief Large face.
1397
1398     The variable #mface_large points to a face that has the #Mratio
1399     property with value 120.  The other properties are not specified.
1400     An M-text that has this face is drawn with a font whose size is
1401     120% of a normal font.  */
1402 /***ja
1403     @brief Âç¤¤¤¥Õ¥§¡¼¥¹.
1404
1405     ÊÑ¿ô #mface_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 120
1406     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1407     ¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÉ¸½à¥Õ¥©¥ó¥È¤Î 120% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1408      */
1409
1410 MFace *mface_large;
1411
1412 /***en
1413     @brief Larger face.
1414
1415     The variable #mface_x_large points to a face that has the #Mratio
1416     property with value 150.  The other properties are not specified.
1417     An M-text that has this face is drawn with a font whose size is
1418     150% of a normal font.  */
1419 /***ja
1420     @brief ¤â¤Ã¤ÈÂç¤¤¤¥Õ¥§¡¼¥¹.
1421
1422     ÊÑ¿ô #mface_x_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 150
1423     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1424     ¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÉ¸½à¥Õ¥©¥ó¥È¤Î 150% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1425      */
1426
1427 MFace *mface_x_large;
1428
1429 /***en
1430     @brief Largest face.
1431
1432     The variable #mface_xx_large points to a face that has the #Mratio
1433     property with value 200.  The other properties are not specified.
1434     An M-text that has this face is drawn with a font whose size is
1435     200% of a normal font.  */
1436 /***ja
1437     @brief ºÇÂç¤Î¥Õ¥§¡¼¥¹.
1438
1439     ÊÑ¿ô #mface_xx_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 200
1440     ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
1441     ¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÉ¸½à¥Õ¥©¥ó¥È¤Î 200% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
1442      */
1443
1444 MFace *mface_xx_large;
1445
1446 /***en
1447     @brief Black face.
1448
1449     The variable #mface_black points to a face that has the
1450     #Mforeground property with value a symbol of name "black".  The
1451     other properties are not specified.  An M-text that has this face
1452     is drawn with black foreground.  */
1453 /***ja
1454     @brief ¹õ¥Õ¥§¡¼¥¹.
1455
1456     ÊÑ¿ô #mface_black ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "black"
1457     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1458     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1459     ¤ÏÁ°·Ê¿§¤È¤·¤Æ¹õ¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£     */
1460
1461 MFace *mface_black;
1462
1463 /***en
1464     @brief White face.
1465
1466     The variable #mface_white points to a face that has the
1467     #Mforeground property with value a symbol of name "white".  The
1468     other properties are not specified.  An M-text that has this face
1469     is drawn with white foreground.  */
1470 /***ja
1471     @brief Çò¥Õ¥§¡¼¥¹.
1472
1473     ÊÑ¿ô #mface_white ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "white"
1474     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1475     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1476     ¤ÏÁ°·Ê¿§¤È¤·¤ÆÇò¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£     */
1477
1478 MFace *mface_white;
1479
1480 /***en
1481     @brief Red face.
1482
1483     The variable #mface_red points to a face that has the
1484     #Mforeground property with value a symbol of name "red".  The
1485     other properties are not specified.  An M-text that has this face
1486     is drawn with red foreground.  */
1487 /***ja
1488     @brief ÀÖ¥Õ¥§¡¼¥¹.
1489
1490     ÊÑ¿ô #mface_red ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "red"
1491     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1492     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1493     ¤ÏÁ°·Ê¿§¤È¤·¤ÆÀÖ¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1494
1495 MFace *mface_red;
1496
1497 /***en
1498     @brief Green face.
1499
1500     The variable #mface_green points to a face that has the
1501     #Mforeground property with value a symbol of name "green".  The
1502     other properties are not specified.  An M-text that has this face
1503     is drawn with green foreground.  */
1504 /***ja
1505     @brief ÎÐ¥Õ¥§¡¼¥¹.
1506
1507     ÊÑ¿ô #mface_green ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "green"
1508     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1509     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1510     ¤ÏÁ°·Ê¿§¤È¤·¤ÆÎÐ¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1511
1512 MFace *mface_green;
1513
1514 /***en
1515     @brief Blue face.
1516
1517     The variable #mface_blue points to a face that has the
1518     #Mforeground property with value a symbol of name "blue".  The
1519     other properties are not specified.  An M-text that has this face
1520     is drawn with blue foreground.  */
1521 /***ja
1522     @brief ÀÄ¥Õ¥§¡¼¥¹.
1523
1524     ÊÑ¿ô #mface_blue ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "blue"
1525     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1526     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1527     ¤ÏÁ°·Ê¿§¤È¤·¤ÆÀÄ¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1528
1529 MFace *mface_blue;
1530
1531 /***en
1532     @brief Cyan face.
1533
1534     The variable #mface_cyan points to a face that has the
1535     #Mforeground property with value a symbol of name "cyan".  The
1536     other properties are not specified.  An M-text that has this face
1537     is drawn with cyan foreground.  */
1538 /***ja
1539     @brief ¥·¥¢¥ó¥Õ¥§¡¼¥¹.
1540
1541     ÊÑ¿ô #mface_cyan ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "cyan"
1542     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1543     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1544     ¤ÏÁ°·Ê¿§¤È¤·¤Æ¥·¥¢¥ó¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1545
1546 MFace *mface_cyan;
1547
1548 /***en
1549     @brief yellow face.
1550
1551     The variable #mface_yellow points to a face that has the
1552     #Mforeground property with value a symbol of name "yellow".  The
1553     other properties are not specified.  An M-text that has this face
1554     is drawn with yellow foreground.  */
1555
1556 /***ja
1557     @brief ²«¥Õ¥§¡¼¥¹.
1558
1559     ÊÑ¿ô #mface_yellow ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "yellow"
1560     ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1561     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1562     ¤ÏÁ°·Ê¿§¤È¤·¤Æ²«¿§¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1563
1564 MFace *mface_yellow;
1565
1566 /***en
1567     @brief Magenta face.
1568
1569     The variable #mface_magenta points to a face that has the
1570     #Mforeground property with value a symbol of name "magenta".  The
1571     other properties are not specified.  An M-text that has this face
1572     is drawn with magenta foreground.  */
1573
1574 /***ja
1575     @brief ¥Þ¥¼¥ó¥¿¥Õ¥§¡¼¥¹.
1576
1577     ÊÑ¿ô #mface_magenta ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ
1578     "magenta" ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
1579     Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text
1580     ¤ÏÁ°·Ê¿§¤È¤·¤Æ¥Þ¥¼¥ó¥¿¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
1581
1582 MFace *mface_magenta;
1583
1584 /*** @} */
1585 /*=*/
1586
1587 /***en @name Variables: The other symbols for face handling.  */
1588 /***ja @name ÊÑ¿ô: ¥Õ¥§¡¼¥¹¤ò¼è¤ê°·¤¦¤¿¤á¤Î¤½¤ÎÂ¾¤Î¥·¥ó¥Ü¥ë  */
1589 /*** @{ */
1590 /*=*/
1591
1592 /***en
1593     @brief Key of a text property specifying a face.
1594
1595     The variable #Mface is a symbol of name <tt>"face"</tt>.  A text
1596     property whose key is this symbol must have a pointer to an object
1597     of type #MFace.  This is a managing key.  */
1598
1599 /***ja
1600     @brief ¥Õ¥§¡¼¥¹¤ò»ØÄê¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
1601
1602     ÊÑ¿ô #Mface ¤Ï <tt>"face"</tt>
1603     ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£¤³¤Î¥·¥ó¥Ü¥ë¤ò¥¡¼¤È¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¡¢
1604     #MFace ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò»ý¤¿¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
1605     ¤³¤ì¤Ï´ÉÍý¥¡¼¤Ç¤¢¤ë¡£  */
1606
1607 MSymbol Mface;
1608 /*=*/
1609 /*** @} */
1610 /*=*/
1611
1612 /***en
1613     @brief Create a new face.
1614
1615     The mface () function creates a new face object that specifies no
1616     property.
1617
1618     @return
1619     This function returns a pointer to the created face.  */
1620
1621 /***ja
1622     @brief ¿·¤·¤¤¥Õ¥§¡¼¥¹¤ò¤Ä¤¯¤ë.
1623
1624     ´Ø¿ô mface ()
1625     ¤Ï¥×¥í¥Ñ¥Æ¥£¤ò°ìÀÚ»ý¤¿¤Ê¤¤¿·¤·¤¤¥Õ¥§¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ë¡£
1626
1627     @return
1628     ¤³¤Î´Ø¿ô¤Ïºî¤Ã¤¿¥Õ¥§¡¼¥¹¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
1629
1630 MFace *
1631 mface ()
1632 {
1633   MFace *face;
1634
1635   M17N_OBJECT (face, free_face, MERROR_FACE);
1636   face->frame_list = mplist ();
1637   M17N_OBJECT_REGISTER (face_table, face);
1638   return face;
1639 }
1640
1641 /*=*/
1642
1643 /***en
1644     @brief Make a copy of a face.
1645
1646     The mface_copy () function makes a copy of $FACE and returns a
1647     pointer to the created copy.  */
1648
1649 /***ja
1650     @brief ¥Õ¥§¡¼¥¹¤Î¥³¥Ô¡¼¤òºî¤ë.
1651
1652     ´Ø¿ô mface_copy () ¤Ï¥Õ¥§¡¼¥¹ $FACE
1653     ¤Î¥³¥Ô¡¼¤òºî¤ê¡¢¤½¤Î¥³¥Ô¡¼¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
1654
1655 MFace *
1656 mface_copy (MFace *face)
1657 {
1658   MFace *copy;
1659
1660   MSTRUCT_CALLOC (copy, MERROR_FACE);
1661   *copy = *face;
1662   copy->control.ref_count = 1;
1663   M17N_OBJECT_REGISTER (face_table, copy);
1664   copy->frame_list = mplist ();
1665   if (copy->property[MFACE_FONTSET])
1666     M17N_OBJECT_REF (copy->property[MFACE_FONTSET]);
1667   return copy;
1668 }
1669
1670 /*=*/
1671 /***en
1672     @brief Compare faces.
1673
1674     The mface_equal () function compares faces $FACE1 and $FACE2.
1675
1676     @return If two faces have the same property values, return 1.
1677     Otherwise return 0.  */
1678
1679 int
1680 mface_equal (MFace *face1, MFace *face2)
1681 {
1682   MFaceHLineProp *hline1, *hline2;
1683   MFaceBoxProp *box1, *box2;
1684   int i;
1685
1686   if (face1 == face2)
1687     return 1;
1688   if (memcmp (face1->property, face2->property, sizeof face1->property) == 0)
1689     return 1;
1690   for (i = MFACE_FOUNDRY; i <= MFACE_BACKGROUND; i++)
1691     if (face1->property[i] != face2->property[i])
1692       return 0;
1693   for (i = MFACE_VIDEOMODE; i <= MFACE_RATIO; i++)
1694     if (face1->property[i] != face2->property[i])
1695       return 0;
1696   hline1 = (MFaceHLineProp *) face1->property[MFACE_HLINE];
1697   hline2 = (MFaceHLineProp *) face2->property[MFACE_HLINE];
1698   if (hline1 != hline2)
1699     {
1700       if (! hline1 || ! hline2)
1701         return 0;
1702       if (memcmp (hline1, hline2, sizeof (MFaceHLineProp)) != 0)
1703         return 0;
1704     }
1705   box1 = (MFaceBoxProp *) face1->property[MFACE_BOX];
1706   box2 = (MFaceBoxProp *) face2->property[MFACE_BOX];
1707   if (box1 != box2)
1708     {
1709       if (! box1 || ! box2)
1710         return 0;
1711       if (memcmp (box1, box2, sizeof (MFaceBoxProp)) != 0)
1712         return 0;
1713     }
1714   return 1;
1715 }
1716
1717
1718 /*=*/
1719 /***en
1720     @brief Merge faces.
1721
1722     The mface_merge () functions merges the properties of face $SRC
1723     into $DST.
1724
1725     @return
1726     This function returns $DST.  */
1727
1728 /***ja
1729     @brief ¥Õ¥§¡¼¥¹¤òÅý¹ç¤¹¤ë.
1730
1731     ´Ø¿ô mface_merge () ¤Ï¡¢¥Õ¥§¡¼¥¹ $SRC ¤Î¥×¥í¥Ñ¥Æ¥£¤ò¥Õ¥§¡¼¥¹ $DST
1732     ¤ËÅý¹ç¤¹¤ë¡£
1733
1734     @return
1735     ¤³¤Î´Ø¿ô¤Ï $DST ¤òÊÖ¤¹¡£  */
1736
1737 MFace *
1738 mface_merge (MFace *dst, MFace *src)
1739 {
1740   int i;
1741   MPlist *plist;
1742
1743   for (i = 0; i < MFACE_PROPERTY_MAX; i++)
1744     if (src->property[i])
1745       {
1746         if (i == MFACE_FONTSET)
1747           {
1748             M17N_OBJECT_UNREF (dst->property[i]);
1749             M17N_OBJECT_REF (src->property[i]);
1750           }
1751         dst->property[i] = src->property[i];
1752       }
1753
1754   MPLIST_DO (plist, dst->frame_list)
1755     {
1756       MFrame *frame = MPLIST_VAL (plist);
1757
1758       frame->tick++;
1759       if (dst == frame->face)
1760         mface__update_frame_face (frame);
1761     }
1762
1763   return dst;
1764 }
1765
1766 /*=*/
1767
1768 /***en
1769     @brief Make a face from a font.
1770
1771     The mface_from_font () function return a newly created face while
1772     reflecting the properties of $FONT in its properties.   */
1773
1774 /***ja
1775     @brief ¥Õ¥©¥ó¥È¤«¤é¥Õ¥§¡¼¥¹¤òºî¤ë.
1776
1777     ´Ø¿ô mface_from_font () ¤Ï¥Õ¥©¥ó¥È $FONT
1778     ¤Î¥×¥í¥Ñ¥Æ¥£¤ò¥×¥í¥Ñ¥Æ¥£¤È¤·¤Æ»ý¤Ä¿·¤·¤¤¥Õ¥§¡¼¥¹¤òºî¤ê¡¢¤½¤ì¤òÊÖ¤¹¡£  */
1779
1780 MFace *
1781 mface_from_font (MFont *font)
1782 {
1783   MFace *face = mface ();
1784
1785   face->property[MFACE_FOUNDRY] = mfont_get_prop (font, Mfoundry);
1786   face->property[MFACE_FAMILY] = mfont_get_prop (font, Mfamily);
1787   face->property[MFACE_WEIGHT] = mfont_get_prop (font, Mweight);
1788   face->property[MFACE_STYLE] = mfont_get_prop (font, Mstyle);
1789   face->property[MFACE_STRETCH] = mfont_get_prop (font, Mstretch);
1790   face->property[MFACE_ADSTYLE] = mfont_get_prop (font, Madstyle);
1791   face->property[MFACE_SIZE] = mfont_get_prop (font, Msize);
1792   return face;
1793 }
1794
1795 /*=*/
1796
1797 /***en
1798     @brief Get the value of a face property.
1799
1800     The mface_get_prop () function returns the value of the face
1801     property whose key is $KEY in face $FACE.  $KEY must be one of the
1802     followings:
1803
1804         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1805         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1806         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
1807
1808     @return
1809     The actual type of the returned value depends of $KEY.  See
1810     documentation of the above keys.  If an error is detected, it
1811     returns @c NULL and assigns an error code to the external variable
1812     #merror_code.  */
1813
1814 /***ja
1815     @brief ¥Õ¥§¡¼¥¹¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
1816
1817     ´Ø¿ô mface_get_prop () ¤Ï¡¢¥Õ¥§¡¼¥¹ $FACE
1818     ¤¬»ý¤Ä¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤ÎÆâ¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¤â¤Î¤ÎÃÍ¤òÊÖ¤¹¡£
1819     $KEY ¤Ï²¼µ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
1820
1821         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1822         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1823         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
1824
1825     @return
1826     Ìá¤êÃÍ¤Î·¿¤Ï $KEY ¤Ë°ÍÂ¸¤¹¤ë¡£¾åµ¤Î¥¡¼¤ÎÀâÌÀ¤ò»²¾È¤¹¤ë¤³¤È¡£
1827     ¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code
1828     ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
1829
1830 /***
1831     @seealso
1832     mface_put_prop ()
1833
1834     @errors
1835     @c MERROR_FACE  */
1836
1837 void *
1838 mface_get_prop (MFace *face, MSymbol key)
1839 {
1840   int index = (int) msymbol_get (key, M_face_prop_index) - 1;
1841
1842   if (index < 0)
1843     MERROR (MERROR_FACE, NULL);
1844   return face->property[index];
1845 }
1846
1847 /*=*/
1848
1849 /***en
1850     @brief Set a value of a face property.
1851
1852     The mface_put_prop () function assigns $VAL to the property whose
1853     key is $KEY in face $FACE.  $KEY must be one the followings:
1854
1855         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1856         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1857         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
1858
1859     Among them, font related properties (#Mfoundry through #Msize) are
1860     used as the default values when a font in the fontset of $FACE
1861     does not specify those values.
1862
1863     The actual type of the returned value depends of $KEY.  See
1864     documentation of the above keys.
1865
1866     @return
1867     If the operation was successful, mface_put_prop () returns 0.
1868     Otherwise it returns -1 and assigns an error code to the external
1869     variable #merror_code.  */
1870
1871 /***ja
1872     @brief ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÀßÄê¤¹¤ë.
1873
1874     ´Ø¿ô mface_put_prop () ¤Ï¡¢¥Õ¥§¡¼¥¹ $FACE Æâ¤Ç¥¡¼¤¬ $KEY
1875     ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤ò $VAL ¤ËÀßÄê¤¹¤ë¡£$KEY
1876     ¤Ï°Ê²¼¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
1877
1878         #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
1879         #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
1880         #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg.
1881
1882     ¤³¤ì¤é¤Î¤¦¤Á¤Î¡¢¥Õ¥©¥ó¥È´ØÏ¢¤Î¥×¥í¥Ñ¥Æ¥£ (#Mfamily ¤«¤é #Msize
1883     ¤Þ¤Ç) ¤Ï¡¢¥Õ¥§¡¼¥¹¤Î¥Õ¥©¥ó¥È¥»¥Ã¥ÈÃæ¤Î¥Õ¥©¥ó¥È¤Ë´Ø¤¹¤ë¥Ç¥Õ¥©¥ë¥ÈÃÍ¤È¤Ê¤ê¡¢¸Ä¡¹¤Î¥Õ¥©¥ó¥È¤¬ÃÍ¤ò»ØÄê¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤ËÍÑ¤¤¤é¤ì¤ë¡£
1884
1885     Ìá¤êÃÍ¤Î·¿¤Ï $KEY ¤Ë°ÍÂ¸¤¹¤ë¡£¾åµ¤Î¥¡¼¤ÎÀâÌÀ¤ò»²¾È¤¹¤ë¤³¤È¡£
1886
1887     @return
1888     ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mface_put_prop () ¤Ï 0 ¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï
1889     -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
1890
1891 /***
1892     @seealso
1893     mface_get_prop ()
1894
1895     @errors
1896     @c MERROR_FACE  */
1897
1898 int
1899 mface_put_prop (MFace *face, MSymbol key, void *val)
1900 {
1901   int index = (int) msymbol_get (key, M_face_prop_index) - 1;
1902   MPlist *plist;
1903
1904   if (index < 0)
1905     MERROR (MERROR_FACE, -1);
1906   if (key == Mfontset)
1907     {
1908       if (face->property[index])
1909         M17N_OBJECT_UNREF (face->property[index]);
1910       M17N_OBJECT_REF (val);
1911     }
1912   else if (key == Mhline)
1913     val = get_hline_create (val);
1914   else if (key == Mbox)
1915     val = get_box_create (val);
1916
1917   if (face->property[index] == val)
1918     return 0;
1919   face->property[index] = val;
1920
1921   MPLIST_DO (plist, face->frame_list)
1922     {
1923       MFrame *frame = MPLIST_VAL (plist);
1924
1925       frame->tick++;
1926       if (face == frame->face)
1927         mface__update_frame_face (frame);
1928     }
1929
1930   return 0;
1931 }
1932
1933 /*=*/
1934
1935 /***en
1936     @brief Update a face.
1937
1938     The mface_update () function update face $FACE on frame $FRAME by
1939     calling a hook function of $FACE (if any).  */
1940
1941 /***ja
1942     @brief ¥Õ¥§¡¼¥¹¤ò¹¹¿·¤¹¤ë.
1943
1944     ´Ø¿ô mface_update () ¤Ï¥Õ¥ì¡¼¥à $FRAME ¤Î¥Õ¥§¡¼¥¹ $FACE ¤ò $FACE
1945     ¤Î¥Õ¥Ã¥¯´Ø¿ô¤ò¡Ê¤¢¤ì¤Ð¡Ë¸Æ¤ó¤Ç¹¹¿·¤¹¤ë¡£  */
1946
1947 void
1948 mface_update (MFrame *frame, MFace *face)
1949 {
1950   MFaceHookFunc func = (MFaceHookFunc) face->property[MFACE_HOOK_FUNC];
1951   MPlist *rface_list;
1952   MRealizedFace *rface;
1953
1954   if (func && func != noop_hook)
1955     {
1956       MPLIST_DO (rface_list, frame->realized_face_list)
1957         {
1958           rface = MPLIST_VAL (rface_list);
1959           if ((MFaceHookFunc) rface->face.property[MFACE_HOOK_FUNC] == func)
1960             (func) (&(rface->face), rface->face.property[MFACE_HOOK_ARG],
1961                     rface->info);
1962         }
1963     }
1964 }
1965 /*=*/
1966
1967 /*** @} */
1968 /*=*/
1969
1970 /*** @addtogroup m17nDebug */
1971 /*** @{  */
1972 /*=*/
1973
1974 /***en
1975     @brief Dump a face.
1976
1977     The mdebug_dump_face () function prints face $FACE in a human readable
1978     way to the stderr.  $INDENT specifies how many columns to indent
1979     the lines but the first one.
1980
1981     @return
1982     This function returns $FACE.  */
1983
1984 /***ja
1985     @brief ¥Õ¥§¡¼¥¹¤ò¥À¥ó¥×¤¹¤ë.
1986
1987     ´Ø¿ô mdebug_dump_face () ¤Ï¥Õ¥§¡¼¥¹ $FACE ¤ò stderr
1988     ¤Ë¿Í´Ö¤Ë²ÄÆÉ¤Ê·Á¤Ç°õºþ¤¹¤ë¡£ $INDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£
1989
1990     @return
1991     ¤³¤Î´Ø¿ô¤Ï $FACE ¤òÊÖ¤¹¡£  */
1992
1993 MFace *
1994 mdebug_dump_face (MFace *face, int indent)
1995 {
1996   char *prefix = (char *) alloca (indent + 1);
1997   MFont spec;
1998
1999   memset (prefix, 32, indent);
2000   prefix[indent] = 0;
2001   mfont__set_spec_from_face (&spec, face);
2002   fprintf (stderr, "(face font:\"");
2003   mdebug_dump_font (&spec);
2004   fprintf (stderr, "\"\n %s  fore:%s back:%s", prefix,
2005            msymbol_name ((MSymbol) face->property[MFACE_FOREGROUND]),
2006            msymbol_name ((MSymbol) face->property[MFACE_BACKGROUND]));
2007   if (face->property[MFACE_FONTSET])
2008     fprintf (stderr, " non-default-fontset");
2009   fprintf (stderr, " hline:%s", face->property[MFACE_HLINE] ? "yes" : "no");
2010   fprintf (stderr, " box:%s)", face->property[MFACE_BOX] ? "yes" : "no");
2011   return face;
2012 }
2013
2014 /*** @} */
2015
2016 /*
2017   Local Variables:
2018   coding: euc-japan
2019   End:
2020 */