src/m17n-gui.c

   1 /* m17n-gui.c -- body of the GUI API.
   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 m17nGUI
  25     @brief GUI support for a window system.
  26
  27     This section defines the m17n GUI API concerning M-text drawing
  28     and inputting under a window system.
  29
  30     All the definitions here are independent of window systems.  An
  31     actual library file, however, can depend on a specific window
  32     system.  For instance, the library file m17n-X.so is an example of
  33     implementation of the m17n GUI API for the X Window System.
  34
  35     Actually the GUI API is mainly for toolkit libraries or to
  36     implement XOM, not for direct use from application programs.
  37 */
  38
  39 /***ja
  40     @addtogroup m17nGUI
  41     @brief ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¾å¤Î GUI ¥µ¥Ý¡¼¥È.
  42
  43     ¤³¤Î¥»¥¯¥·¥ç¥ó¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Î¤â¤È¤Ç¤Î M-text ¤ÎÉ½¼¨¤ÈÆþÎÏ¤Ë
  44     ¤«¤«¤ï¤ë m17n GUI API ¤òÄêµÁ¤¹¤ë¡£
  45
  46     ¤³¤³¤Ç¤Î¤¹¤Ù¤Æ¤ÎÄêµÁ¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤È¤ÏÆÈÎ©¤Ç¤¢¤ë¡£¤·¤«¤·¡¢¼Â
  47     ºÝ¤Î¥é¥¤¥Ö¥é¥ê¥Õ¥¡¥¤¥ë¤Ï¸ÄÊÌ¤Î¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¾ì¹ç¤¬¤¢
  48     ¤ë¡£¤¿¤È¤¨¤Ð¥é¥¤¥Ö¥é¥ê¥Õ¥¡¥¤¥ë m17n-X.so ¤Ï¡¢m17n GUI API ¤Î X ¥¦¥£
  49     ¥ó¥É¥¦ÍÑ¤Î¼ÂÁõÎã¤Ç¤¢¤ë¡£
  50
  51     ¸½¼Â¤Ë¤Ï¡¢GUI API ¤Ï¼ç¤Ë¥Ä¡¼¥ë¥¥Ã¥È¥é¥¤¥Ö¥é¥ê¸þ¤±¤Ç¤¢¤ë¤«¡¢¤Þ¤¿¤Ï
  52     XOM ¤ò¼ÂÁõ¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤Æ¤ª¤ê¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é
  53     ¤ÎÄ¾ÀÜ¤ÎÍøÍÑ¤òÇ°Æ¬¤Ë¤ª¤¤¤¿¤â¤Î¤Ç¤Ï¤Ê¤¤¡£
  54 */
  55
  56 /*=*/
  57
  58 #if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
  59 /*** @addtogroup m17nInternal
  60      @{ */
  61
  62 #include "config.h"
  63
  64 #include <stdio.h>
  65 #include <string.h>
  66 #include <stdlib.h>
  67
  68 #include "config.h"
  69 #ifdef HAVE_DLFCN_H
  70 #include <dlfcn.h>
  71 #endif
  72
  73 #include "m17n-gui.h"
  74 #include "m17n-misc.h"
  75 #include "internal.h"
  76 #include "plist.h"
  77 #include "internal-gui.h"
  78 #include "font.h"
  79 #include "fontset.h"
  80 #include "face.h"
  81
  82 static int win_initialized;
  83
  84 #ifndef DLOPEN_SHLIB_EXT
  85 #define DLOPEN_SHLIB_EXT ".so"
  86 #endif
  87
  88 /** Information about a dynamic library supporting a specific graphic
  89     device.  */
  90 typedef struct
  91 {
  92   /** Name of the dynamic library (e.g. "libm17n-X.so").  */
  93   char *library;
  94   /** Handle fo the dynamic library.  */
  95   void *handle;
  96   /** Function to call just after loading the library.  */
  97   int (*init) ();
  98   /** Function to call to open a frame on the graphic device.  */
  99   int (*open) (MFrame *frame, MPlist *param);
 100   /** Function to call just before unloading the library.  */
 101   int (*fini) ();
 102 } MDeviceLibraryInterface;
 103
 104
 105 /** Plist of device symbol vs MDeviceLibraryInterface.  */
 106
 107 static MPlist *device_library_list;
 108
 109 /** Close MFrame and free it.  */
 110
 111 static void
 112 free_frame (void *object)
 113 {
 114   MFrame *frame = (MFrame *) object;
 115
 116   (*frame->driver->close) (frame);
 117   M17N_OBJECT_UNREF (frame->face);
 118   free (frame->font);
 119   M17N_OBJECT_UNREF (frame->font_driver_list);
 120   free (object);
 121 }
 122
 123
 124 /** Register a dynamic library of name LIB by a key NAME.  */
 125
 126 static int
 127 register_device_library (MSymbol name, char *lib)
 128 {
 129   MDeviceLibraryInterface *interface;
 130
 131   MSTRUCT_CALLOC (interface, MERROR_WIN);
 132   interface->library = malloc (strlen (lib)
 133                                + strlen (DLOPEN_SHLIB_EXT) + 1);
 134   sprintf (interface->library, "%s%s", lib, DLOPEN_SHLIB_EXT);
 135   if (! device_library_list)
 136     device_library_list = mplist ();
 137   mplist_add (device_library_list, name, interface);
 138   return 0;
 139 }
 140
 141 \f
 142 #ifdef HAVE_FREETYPE
 143 /** Null device support.  */
 144
 145 static struct {
 146   MPlist *realized_fontset_list;
 147   MPlist *realized_font_list;
 148   MPlist *realized_face_list;
 149 } null_device;
 150
 151 static void
 152 null_device_close (MFrame *frame)
 153 {
 154 }
 155
 156 static void *
 157 null_device_get_prop (MFrame *frame, MSymbol key)
 158 {
 159   return NULL;
 160 }
 161
 162 static void
 163 null_device_realize_face (MRealizedFace *rface)
 164 {
 165   rface->info = NULL;
 166 }
 167
 168 static void
 169 null_device_free_realized_face (MRealizedFace *rface)
 170 {
 171 }
 172
 173 static MDeviceDriver null_driver =
 174   {
 175     null_device_close,
 176     null_device_get_prop,
 177     null_device_realize_face,
 178     null_device_free_realized_face
 179   };
 180
 181 static int
 182 null_device_init ()
 183 {
 184   null_device.realized_fontset_list = mplist ();
 185   null_device.realized_font_list = mplist ();
 186   null_device.realized_face_list = mplist ();
 187   return 0;
 188 }
 189
 190 static int
 191 null_device_fini ()
 192 {
 193   MPlist *plist;
 194
 195   MPLIST_DO (plist, null_device.realized_fontset_list)
 196     mfont__free_realized_fontset ((MRealizedFontset *) MPLIST_VAL (plist));
 197   M17N_OBJECT_UNREF (null_device.realized_fontset_list);
 198
 199   MPLIST_DO (plist, null_device.realized_face_list)
 200     mface__free_realized ((MRealizedFace *) MPLIST_VAL (plist));
 201   M17N_OBJECT_UNREF (null_device.realized_face_list);
 202
 203   MPLIST_DO (plist, null_device.realized_font_list)
 204     mfont__free_realized ((MRealizedFont *) MPLIST_VAL (plist));
 205   M17N_OBJECT_UNREF (null_device.realized_font_list);
 206   return 0;
 207 }
 208
 209 static int
 210 null_device_open (MFrame *frame, MPlist *param)
 211 {
 212   MFace *face;
 213
 214   frame->device = NULL;
 215   frame->device_type = 0;
 216   frame->driver = &null_driver;
 217   frame->font_driver_list = mplist ();
 218   mplist_add (frame->font_driver_list, Mfreetype, &mfont__ft_driver);
 219   frame->realized_font_list = null_device.realized_font_list;
 220   frame->realized_face_list = null_device.realized_face_list;
 221   frame->realized_fontset_list = null_device.realized_fontset_list;
 222   face = mface_copy (mface__default);
 223   mplist_push (param, Mface, face);
 224   M17N_OBJECT_UNREF (face);
 225   return 0;
 226 }
 227
 228 static MDeviceLibraryInterface null_interface =
 229   { NULL, NULL, null_device_init, null_device_open, null_device_fini };
 230
 231 #endif
 232 \f
 233 /* Internal API */
 234
 235 /*** @} */
 236 #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
 237
 238 \f
 239 /* External API */
 240
 241 int
 242 m17n_init_win (void)
 243 {
 244   int mdebug_mask = MDEBUG_INIT;
 245
 246   if (win_initialized++)
 247     return 0;
 248   m17n_init ();
 249   if (merror_code != MERROR_NONE)
 250     return -1;
 251
 252   MDEBUG_PUSH_TIME ();
 253
 254   Mgd = msymbol ("gd");
 255
 256   Mfont = msymbol ("font");
 257   Mfont_width = msymbol ("font-width");
 258   Mfont_ascent = msymbol ("font-ascent");
 259   Mfont_descent = msymbol ("font-descent");
 260   Mdevice = msymbol ("device");
 261
 262   Mdisplay = msymbol ("display");
 263   Mscreen = msymbol ("screen");
 264   Mdrawable = msymbol ("drawable");
 265   Mdepth = msymbol ("depth");
 266   Mwidget = msymbol ("widget");
 267
 268   MDEBUG_PUSH_TIME ();
 269   if (mfont__init () < 0)
 270     goto err;
 271   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize font module."));
 272   if (mfont__fontset_init () < 0)
 273     goto err;
 274   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize fontset module."));
 275   if (mface__init () < 0)
 276     goto err;
 277   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize face module."));
 278   if (mdraw__init () < 0)
 279     goto err;
 280   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize draw module."));
 281   if (minput__win_init () < 0)
 282     goto err;
 283   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize input-win module."));
 284   mframe_default = NULL;
 285
 286   register_device_library (Mx, "libm17n-X");
 287   register_device_library (Mgd, "libm17n-gd");
 288   return 0;
 289
 290  err:
 291   MDEBUG_POP_TIME ();
 292   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize the m17n GUI module."));
 293   MDEBUG_POP_TIME ();
 294   return -1;
 295 }
 296
 297 void
 298 m17n_fini_win (void)
 299 {
 300   int mdebug_mask = MDEBUG_FINI;
 301
 302   if (win_initialized > 1)
 303     win_initialized--;
 304   else
 305     {
 306       MPlist *plist;
 307
 308       win_initialized = 0;
 309       MDEBUG_PUSH_TIME ();
 310       MDEBUG_PUSH_TIME ();
 311       MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize device modules."));
 312       MPLIST_DO (plist, device_library_list)
 313         {
 314           MDeviceLibraryInterface *interface = MPLIST_VAL (plist);
 315
 316           if (interface->handle && interface->fini)
 317             {
 318               (*interface->fini) ();
 319               dlclose (interface->handle);
 320             }
 321           free (interface->library);
 322         }
 323 #ifdef HAVE_FREETYPE
 324       if (null_interface.handle)
 325         (*null_interface.fini) ();
 326 #endif  /* not HAVE_FREETYPE */
 327       M17N_OBJECT_UNREF (device_library_list);
 328       MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize input-gui module."));
 329       minput__win_fini ();
 330       MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize draw module."));
 331       mdraw__fini ();
 332       MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize face module."));
 333       mface__fini ();
 334       MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize fontset module."));
 335       mfont__fontset_fini ();
 336       MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize font module."));
 337       mfont__fini ();
 338       mframe_default = NULL;
 339       MDEBUG_POP_TIME ();
 340       MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize the gui modules."));
 341       MDEBUG_POP_TIME ();
 342     }
 343   m17n_fini ();
 344 }
 345
 346 /*** @addtogroup m17nFrame */
 347 /***en
 348     @brief A @e frame is an object corresponding to the graphic device.
 349
 350     A @e frame is an object of the type #MFrame to hold various
 351     information about each display/input device.  Almost all m17n GUI
 352     functions require a pointer to a frame as an argument.  */
 353
 354 /***ja
 355     @brief @e ¥Õ¥ì¡¼¥à ¤È¤Ï¥°¥é¥Õ¥£¥Ã¥¯¥Ç¥Ð¥¤¥¹¤ËÂÐ±þ¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë.
 356
 357     @e ¥Õ¥ì¡¼¥à ¤È¤Ï #MFrame ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ê¡¢¸Ä¡¹¤ÎÉ½¼¨¡¿ÆþÎÏ¥Ç
 358     ¥Ð¥¤¥¹¤Î¾ðÊó¤ò³ÊÇ¼¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤ë¡£¤Û¤È¤ó¤É¤¹¤Ù¤Æ¤Î m17n GUI
 359     ´Ø¿ô¤Ï¡¢°ú¿ô¤È¤·¤Æ¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÍ×µá¤¹¤ë¡£  */
 360
 361 /*** @{ */
 362 /*=*/
 363
 364 /***en
 365     @name Variables: Keys of frame parameter
 366
 367     These are the symbols to use in a parameter to creat a frame.  See
 368     the function mframe () for details.
 369
 370     #Mdevice, #Mdisplay, #Mscreen, #Mdrawable, #Mdepth, and #Mcolormap
 371     are also keys of a frame property.  */
 372
 373 /***ja
 374     @name ÊÑ¿ô¡§ ¥Õ¥ì¡¼¥à¥Ñ¥é¥á¡¼¥¿ÍÑ¥¡¼
 375
 376     ¥Õ¥ì¡¼¥à¤òÀ¸À®¤¹¤ëºÝ¤Î¥Ñ¥é¥á¡¼¥¿¤ËÍÑ¤¤¤ë¥·¥ó¥Ü¥ë¡£¾Ü¤·¤¯¤Ï´Ø¿ô
 377     mframe () ¤ÎÀâÌÀ»²¾È¡£
 378
 379     #Mdevice¡¢ #Mdisplay¡¢ #Mscreen¡¢ #Mdrawable¡¢ #Mdepth¡¢#Mcolormap
 380     ¤Ï¥Õ¥ì¡¼¥à¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤Ç¤â¤¢¤ë¡£  */
 381
 382 /*=*/
 383
 384 MSymbol Mdevice, Mdisplay, Mscreen, Mdrawable, Mdepth, Mcolormap, Mwidget;
 385
 386 MSymbol Mgd;
 387
 388 /*=*/
 389
 390 /***en
 391     @name Variables: Keys of frame property
 392
 393     These are the symbols to use as an argument to the function
 394     mframe_get_prop ().  */
 395 /***ja
 396     @name ÊÑ¿ô¡§ ¥Õ¥ì¡¼¥à¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼
 397
 398     ´Ø¿ô mframe_get_prop () ¤Î°ú¿ô¤ËÍÑ¤¤¤é¤ì¤ë¥·¥ó¥Ü¥ë¡£  */
 399 /*** @{ */
 400 /*=*/
 401 MSymbol Mfont;
 402 MSymbol Mfont_width;
 403 MSymbol Mfont_ascent;
 404 MSymbol Mfont_descent;
 405
 406 /*=*/
 407
 408 /*** @} */
 409 /*=*/
 410
 411 /***en
 412     @brief Create a new frame.
 413
 414     The mframe () function creates a new frame with parameters listed
 415     in $PLIST which may be @c NULL.
 416
 417     The recognized keys in $PLIST are window system dependent.
 418
 419     The following key is always recognized.
 420
 421     <ul>
 422
 423     <li> #Mdevice, the value must be one of #Mx, #Mgd, and #Mnil.
 424
 425     If the value is #Mx, the frame is for X Window System.  The
 426     argument #MDrawWindow specified together with the frame must be of
 427     type @c Window.  The frame is both readable and writable, thus all
 428     GUI functions can be used.
 429
 430     If the value is #Mgd, the frame is for an image object of GD
 431     library.  The argument #MDrawWindow specified together with the
 432     frame must be of type @c gdImagePtr.  The frame is writable
 433     only, thus functions minput_XXX can't be used for the frame.
 434
 435     If the value is #Mnil, the frame is for a null device.  The frame
 436     is not writable nor readable, thus functions mdraw_XXX that
 437     require the argument #MDrawWindow and functions minput_XXX can't
 438     be used for the frame.
 439
 440     <li> #Mface, the value must be a pointer to #MFace.
 441
 442     The value is used as the default face of the frame.
 443
 444     </ul>
 445
 446     In addition, if the value of the key #Mdevice is #Mx, the
 447     following keys are recognized.  They are to specify the root
 448     window and the depth of drawables that can be used with the frame.
 449
 450     <ul>
 451
 452     <li> #Mdrawable, the value type must be <tt>Drawable</tt>.
 453
 454     A parameter of key #Mdisplay must also be specified.  The
 455     created frame can be used for drawables whose root window and
 456     depth are the same as those of the specified drawable on the
 457     specified display.
 458
 459     When this parameter is specified, the parameter of key #Mscreen
 460     is ignored.
 461
 462     <li> #Mwidget, the value type must be <tt>Widget</tt>.
 463
 464     The created frame can be used for drawables whose root window and
 465     depth are the same as those of the specified widget.
 466
 467     If a parameter of key #Mface is not specified, the default face
 468     is created from the resources of the widget.
 469
 470     When this parameter is specified, the parameters of key #Mdisplay,
 471     #Mscreen, #Mdrawable, #Mdepth are ignored.
 472
 473     <li> #Mdepth, the value type must be <tt>unsigned</tt>.
 474
 475     The created frame can be used for drawables of the specified
 476     depth.
 477
 478     <li> #Mscreen, the value type must be <tt>(Screen *)</tt>.
 479
 480     The created frame can be used for drawables whose root window is
 481     the same as the root window of the specified screen, and depth is
 482     the same at the default depth of the screen.
 483
 484     When this parameter is specified, parameter of key #Mdisplay is
 485     ignored.
 486
 487     <li> #Mdisplay, the value type must be <tt>(Display *)</tt>.
 488
 489     The created frame can be used for drawables whose root window is
 490     the same as the root window for the default screen of the display,
 491     and depth is the same as the default depth of the screen.
 492
 493     <li> #Mcolormap, the value type must be <tt>(Colormap)</tt>.
 494
 495     The created frame uses the specified colormap.
 496
 497     <li> #Mfont, the value must be #Mx, #Mfreetype, or #Mxft.
 498
 499     The created frame uses the specified font backend.  The value #Mx
 500     instructs to use X core fonts, #Mfreetype to use local fonts
 501     supported by FreeType fonts, and #Mxft to use local fonts via Xft
 502     library.  You can specify this parameter more than once with
 503     different values if you want to use multiple font backends.  This
 504     is ignored if the specified font backend is not supported on the
 505     device.
 506
 507     When this parameter is not specified, all font backend supported
 508     on the device are used.
 509
 510     </ul>
 511
 512     @return
 513     If the operation was successful, mframe () returns a pointer to a
 514     newly created frame.  Otherwise, it returns @c NULL.  */
 515
 516 /***ja
 517     @brief ¿·¤·¤¤¥Õ¥ì¡¼¥à¤òºî¤ë.
 518
 519     ´Ø¿ô mframe () ¤Ï $PLIST Ãæ¤Î¥Ñ¥é¥á¡¼¥¿¤ò»ý¤Ä¿·¤·¤¤¥Õ¥ì¡¼¥à¤òºî¤ë¡£
 520     $PLIST ¤Ï @c NULL ¤Ç¤âÎÉ¤¤¡£
 521
 522     $PLIST ¤Ë¸½¤ï¤ì¤ë¥¡¼¤Î¤¦¤Á¤É¤ì¤¬Ç§¼±¤µ¤ì¤ë¤«¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à
 523     ¤Ë°ÍÂ¸¤¹¤ë¡£
 524
 525     °Ê²¼¤Î¥¡¼¤Ï¾ï¤ËÇ§¼±¤µ¤ì¤ë¡£
 526
 527     <ul>
 528
 529     <li> #Mdevice. ÃÍ¤Ï #Mx, #Mgd, #Mnil ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 530
 531     ÃÍ¤¬ #Mx ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï X ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥àÍÑ¤Ç¤¢¤ë¡£¤³
 532     ¤Î¥Õ¥ì¡¼¥à¤È¶¦¤Ë»ØÄê¤µ¤ì¤¿°ú¿ô #MDrawWindow ¤Ï¡¢ @c Window ·¿¤Ç¤Ê
 533     ¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Õ¥ì¡¼¥à¤ÏÆÉ¤ß½ñ¤¤È¤â¤Ë²ÄÇ½¤Ç¤¢¤ê¡¢¤¹¤Ù¤Æ¤ÎGUI ´Ø
 534     ¿ô¤¬»ÈÍÑ¤Ç¤¤ë¡£
 535
 536     ÃÍ¤¬ #Mgd ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï GD ¥é¥¤¥Ö¥é¥ê¤Î¥¤¥á¡¼¥¸¥ª¥Ö¥¸¥§
 537     ¥¯¥ÈÍÑ¤Ç¤¢¤ë¡£¤³¤Î¥Õ¥ì¡¼¥à¤È¶¦¤Ë»ØÄê¤µ¤ì¤¿°ú¿ô #MDrawWindow ¤Ï¡¢
 538     @c gdImagePtr ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Õ¥ì¡¼¥à¤Ï½ñ¤½Ð¤·ÀìÍÑ¤Ç¤¢¤ê¡¢
 539     minput_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤Ï»ÈÍÑ¤Ç¤¤Ê¤¤¡£
 540
 541     ÃÍ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï, null ¥Ç¥Ð¥¤¥¹ÍÑ¤Ç¤¢¤ë¡£¤³¤Î¥Õ
 542     ¥ì¡¼¥à¤ÏÆÉ¤ß½ñ¤¤Ç¤¤Ê¤¤¤Î¤Ç¡¢°ú¿ô #MDrawWindow ¤òÉ¬Í×¤È¤¹¤ëmdraw_
 543     ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤ä¡¢minput_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤Ï»ÈÍÑ¤Ç¤¤Ê¤¤¡£
 544
 545     <li> #Mface. ÃÍ¤Ï #MFace ¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 546
 547     ¤³¤ÎÃÍ¤Ï¥Õ¥ì¡¼¥à¤Î¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
 548
 549     </ul>
 550
 551     ¤³¤ì¤é¤Î¥¡¼¤Ë²Ã¤¨¡¢#Mdevice ¤Î¥¡¼¤¬ #Mx ¤Ç¤¢¤ë¾ì¹ç¤Ë¸Â¤ê°Ê²¼¤Î¥¡¼
 552     ¤âÇ§¼±¤µ¤ì¤ë¡£°Ê²¼¤Î¥¡¼¤Ï¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È¡¢¥Õ¥ì¡¼¥à¤ÇÍøÍÑ¤Ç¤¤ë
 553     drawable ¤Î¿¼¤µ¤ò»ØÄê¤¹¤ë¡£
 554
 555     <ul>
 556
 557     <li> #Mdrawable. ÃÍ¤Ï <tt>Drawable</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 558
 559     ¥¡¼ #Mdisplay ¤ò»ý¤Ä¥Ñ¥é¥á¡¼¥¿¤â»ØÄê¤µ¤ì¤Æ¤¤¤ëÉ¬Í×¤¬¤¢¤ë¡£À¸À®¤µ
 560     ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤µ¤ì¤¿¥Ç¥£¥¹¥×¥ì¥¤¾å¤Î»ØÄê¤µ¤ì¤¿ drawable ¤ÈÆ±
 561     ¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 562
 563     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mscreen ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ
 564     »ë¤µ¤ì¤ë¡£
 565
 566     <li> #Mwidget. ÃÍ¤Ï <tt>Widget</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 567
 568     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥¦¥£¥¸¥§¥Ã¥È¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È
 569     ¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 570
 571     ¥¡¼ #Mface ¤ò»ý¤Ä¥Ñ¥é¥á¡¼¥¿¤¬¤Ê¤±¤ì¤Ð¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹¤Ï¤³¤Î
 572     ¥¦¥£¥¸¥§¥Ã¥È¤Î¥ê¥½¡¼¥¹¤«¤éºî¤é¤ì¤ë¡£
 573
 574     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mdisplay, #Mscreen, #Mdrawable,
 575     #Mdepth ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£
 576
 577     <li> #Mdepth. ÃÍ¤Ï <tt>unsigned</tt>  ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 578
 579     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¿¼¤µ¤Î drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 580
 581     <li> #Mscreen. ÃÍ¤Ï <tt>(Screen *)</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 582
 583     À¸À®¤·¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥¹¥¯¥ê¡¼¥ó¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤ò»ý¤Á¡¢
 584     ¥¹¥¯¥ê¡¼¥ó¤Î¥Ç¥Õ¥©¥ë¥È¤Î¿¼¤µ¤ÈÆ±¤¸¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 585
 586     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mdisplay ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ
 587     »ë¤µ¤ì¤ë¡£
 588
 589     <li> #Mdisplay. ÃÍ¤Ï <tt>(Display *)</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 590
 591     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥Ç¥£¥¹¥×¥ì¥¤¤Î¥Ç¥Õ¥©¥ë¥È¥¹¥¯¥ê¡¼¥ó¤È
 592     Æ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤ÈÆ±¤¸¿¼¤µ¤ò»ý¤Ädrawables ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 593
 594     <li> #Mcolormap. ÃÍ¤Ï <tt>(Colormap)</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 595
 596     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥«¥é¡¼¥Þ¥Ã¥×¤ò»ÈÍÑ¤¹¤ë¡£
 597
 598     <li> #Mfont. ÃÍ¤Ï¡¢#Mx, #Mfreetype, #Mxft ¤Î¤¤¤º¤ì¤«¡£
 599
 600     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï»ØÄê¤·¤¿¥Õ¥©¥ó¥È¥Ð¥Ã¥¯¥¨¥ó¥É¤ò»ÈÍÑ¤¹¤ë¡£ÃÍ¤¬
 601     #Mx ¤Ç¤¢¤ì¤Ð X ¤Î¥³¥¢¥Õ¥©¥ó¥È¡¢#Mfreetype ¤Ç¤¢¤ì¤Ð FreeType ¤Ç¥µ¥Ý¡¼
 602     ¥È¤µ¤ì¤Æ¤¤¤ë¥í¡¼¥«¥ë¥Õ¥©¥ó¥È¡¢#Mxft ¤Ç¤¢¤ì¤Ð Xft ¥é¥¤¥Ö¥é¥ê·ÐÍ³¤Ç
 603     ÍÑ¤¤¤ë¥í¡¼¥«¥ë¥Õ¥©¥ó¥È¤ò»ÈÍÑ¤¹¤ë¡£Ê£¿ô¤Î¥Õ¥©¥ó¥È¥Ð¥Ã¥¯¥¨¥ó¥É¤ò»ÈÍÑ
 604     ¤·¤¿¤¤¾ì¹ç¤Ë¤Ï¡¢¤³¤Î¥Ñ¥é¥á¡¼¥¿¤òÊ£¿ô²ó¡¢°Û¤Ê¤ëÃÍ¤Ç»ØÄê¤¹¤ë¤³¤È¤¬¤Ç
 605     ¤¤ë¡£»ØÄê¤·¤¿¥Ð¥Ã¥¯¥¨¥ó¥É¤¬¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤Ê¤¤¥Ç¥Ð¥¤¥¹¤Ç¤Ï¡¢¤³¤Î
 606     ¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£
 607
 608     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬Ìµ¤¤¾ì¹ç¤Ë¤Ï¡¢¥Ç¥Ð¥¤¥¹¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤ë¤¹¤Ù¤Æ¤Î
 609     ¥Õ¥©¥ó¥È¥Ð¥Ã¥¯¥¨¥ó¥É¤òÍøÍÑ¤¹¤ë¡£
 610
 611     </ul>
 612
 613     @return
 614     À®¸ù¤¹¤ì¤Ð mframe() ¤Ï¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±
 615     ¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£  */
 616
 617 MFrame *
 618 mframe (MPlist *plist)
 619 {
 620   MFrame *frame;
 621   int plist_created = 0;
 622   MPlist *pl;
 623   MSymbol device;
 624   MDeviceLibraryInterface *interface;
 625
 626   if (plist)
 627     {
 628       pl = mplist_find_by_key (plist, Mdevice);
 629       if (pl)
 630         device = MPLIST_VAL (pl);
 631       else
 632         device = Mx;
 633     }
 634   else
 635     {
 636       plist = mplist ();
 637       plist_created = 1;
 638       device = Mx;
 639     }
 640
 641   if (device == Mnil)
 642     {
 643 #ifdef HAVE_FREETYPE
 644       interface = &null_interface;
 645       if (! interface->handle)
 646         {
 647           (*interface->init) ();
 648           interface->handle = (void *) 1;
 649         }
 650 #else  /* not HAVE_FREETYPE */
 651       MERROR (MERROR_WIN, NULL);
 652 #endif  /* not HAVE_FREETYPE */
 653     }
 654   else
 655     {
 656       interface = mplist_get (device_library_list, device);
 657       if (! interface)
 658         MERROR (MERROR_WIN, NULL);
 659       if (! interface->handle)
 660         {
 661           if (! (interface->handle = dlopen (interface->library, RTLD_NOW))
 662               || ! (interface->init = dlsym (interface->handle, "device_init"))
 663               || ! (interface->open = dlsym (interface->handle, "device_open"))
 664               || ! (interface->fini = dlsym (interface->handle, "device_fini"))
 665               || (*interface->init) () < 0)
 666             {
 667               fprintf (stderr, "%s\n", (char *) dlerror ());
 668               if (interface->handle)
 669                 dlclose (interface->handle);
 670               MERROR (MERROR_WIN, NULL);
 671             }
 672         }
 673     }
 674
 675   M17N_OBJECT (frame, free_frame, MERROR_FRAME);
 676   if ((*interface->open) (frame, plist) < 0)
 677     {
 678       free (frame);
 679       MERROR (MERROR_WIN, NULL);
 680     }
 681
 682   if (! mframe_default)
 683     mframe_default = frame;
 684
 685   frame->face = mface ();
 686   MPLIST_DO (pl, plist)
 687     if (MPLIST_KEY (pl) == Mface)
 688       mface_merge (frame->face, (MFace *) MPLIST_VAL (pl));
 689   mface__update_frame_face (frame);
 690
 691   if (plist_created)
 692     M17N_OBJECT_UNREF (plist);
 693   return frame;
 694 }
 695
 696 /*=*/
 697
 698 /***en
 699     @brief Return property value of frame.
 700
 701     The mframe_get_prop () function returns a value of property $KEY
 702     of frame $FRAME.  The valid keys and the corresponding return
 703     values are as follows.
 704
 705 @verbatim
 706
 707         key             type of value   meaning of value
 708         ---             -------------   ----------------
 709         Mface           MFace *         The default face.
 710
 711         Mfont           MFont *         The default font.
 712
 713         Mfont_width     int             Width of the default font.
 714
 715         Mfont_ascent    int             Ascent of the default font.
 716
 717         Mfont_descent   int             Descent of the default font.
 718
 719 @endverbatim
 720
 721     In the m17n-X library, the followings are also accepted.
 722
 723 @verbatim
 724
 725         key             type of value   meaning of value
 726         ---             -------------   ----------------
 727         Mdisplay        Display *       Display associated with the frame.
 728
 729         Mscreen         int             Screen number of a screen associated
 730                                         with the frame.
 731
 732         Mcolormap       Colormap        Colormap of the frame.
 733
 734         Mdepth          unsigned        Depth of the frame.
 735 @endverbatim
 736 */
 737
 738 /***ja
 739     @brief ¥Õ¥ì¡¼¥à¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹.
 740
 741     ´Ø¿ô mframe_get_prop () ¤Ï¥Õ¥ì¡¼¥à $FRAME ¤Î¥¡¼ $KEY ¤ò»ý¤Ä¥×¥í¥Ñ
 742     ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹¡£Í¸ú¤Ê¥¡¼¤È¤½¤ÎÃÍ¤Ï°Ê²¼¤ÎÄÌ¤ê¡£
 743
 744 @verbatim
 745
 746         ¥¡¼            ÃÍ¤Î·¿          ÃÍ¤Î°ÕÌ£
 747         ---             -------------   ----------------
 748         Mface           MFace *         ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹
 749
 750         Mfont           MFont *         ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È
 751
 752         Mfont_width     int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤ÎÉý
 753
 754         Mfont_ascent    int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤Î ascent
 755
 756         Mfont_descent   int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤Î descent
 757
 758 @endverbatim
 759
 760      m17n-X ¥é¥¤¥Ö¥é¥ê¤Ç¤Ï¡¢°Ê²¼¤Î¥¡¼¤â»ÈÍÑ¤Ç¤¤ë¡£
 761
 762 @verbatim
 763
 764         ¥¡¼            ÃÍ¤Î·¿          ÃÍ¤Î°ÕÌ£
 765         ---             -------------   ----------------
 766         Mdisplay        Display *       ¥Õ¥ì¡¼¥à¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥Ç¥£¥¹¥×¥ì¥¤
 767
 768         Mscreen         int             ¥Õ¥ì¡¼¥à¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥¹¥¯¥ê¡¼¥ó
 769                                         ¤Î¥¹¥¯¥ê¡¼¥ó¥Ê¥ó¥Ð
 770
 771         Mcolormap       Colormap        ¥Õ¥ì¡¼¥à¤Î¥«¥é¡¼¥Þ¥Ã¥×
 772
 773         Mdepth          unsigned        ¥Õ¥ì¡¼¥à¤Î¿¼¤µ
 774 @endverbatim
 775
 776 */
 777
 778 void *
 779 mframe_get_prop (MFrame *frame, MSymbol key)
 780 {
 781   if (key == Mface)
 782     return frame->face;
 783   if (key == Mfont)
 784     return &frame->rface->rfont->font;
 785   if (key == Mfont_width)
 786     return (void *) (frame->space_width);
 787   if (key == Mfont_ascent)
 788     return (void *) (frame->ascent);
 789   if (key == Mfont_descent)
 790     return (void *) (frame->descent);
 791   return (*frame->driver->get_prop) (frame, key);
 792 }
 793
 794 /*=*/
 795
 796 /***en
 797     @brief The default frame.
 798
 799     The external variable #mframe_default contains a pointer to the
 800     default frame that is created by the first call of mframe ().  */
 801
 802 /***ja
 803     @brief ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à.
 804
 805     ³°ÉôÊÑ¿ô #mframe_default ¤Ï¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò»ý
 806     ¤Ä¡£¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à¤Ï¡¢ºÇ½é¤Ë mframe () ¤¬¸Æ¤Ó½Ð¤µ¤ì¤¿¤È¤¤Ë
 807     ºî¤é¤ì¤ë¡£  */
 808
 809 MFrame *mframe_default;
 810
 811 /*** @} */
 812
 813 /*
 814   Local Variables:
 815   coding: euc-japan
 816   End:
 817 */