/* input.c -- input method module.
- Copyright (C) 2003, 2004
+ Copyright (C) 2003, 2004, 2005, 2006
National Institute of Advanced Industrial Science and Technology (AIST)
Registration Number H15PRO112
An input method is an object to enable inputting various
characters. An input method is identified by a pair of symbols,
- LANGUAGE and NAME. This pair decides a input method driver of the
+ LANGUAGE and NAME. This pair decides an input method driver of the
input method. An input method driver is a set of functions for
handling the input method. There are two kinds of input methods;
internal one and foreign one.
<ul>
<li> Internal Input Method
- An internal input method has non @c Mnil LANGUAGE, and the body is
+ An internal input method has non @c Mnil LANGUAGE, and its body is
defined in the m17n database by the tag <Minput_method, LANGUAGE,
NAME>. For this kind of input methods, the m17n library uses two
predefined input method drivers, one for CUI use and the other for
- GUI use. Those driver utilize the input processing engine
+ GUI use. Those drivers utilize the input processing engine
provided by the m17n library itself. The m17n database may
- provides an input method that is not only for a specific language.
- The database uses @c Mt as LANGUAGE of such an input method.
+ provide input methods that are not limited to a specific language.
+ The database uses @c Mt as LANGUAGE of those input methods.
An internal input method accepts an input key which is a symbol
associated with an input event. As there is no way for the @c
m17n @c library to know how input events are represented in an
- application program, an application programmer have to convert an
+ application program, an application programmer has to convert an
input event to an input key by himself. See the documentation of
the function minput_event_to_key () for the detail.
<li> Foreign Input Method
- A foreign input method has @c Mnil LANGUAGE, and the body is
- defined in an external resources (e.g. XIM of X Window System).
+ A foreign input method has @c Mnil LANGUAGE, and its body is
+ defined in an external resource (e.g. XIM of X Window System).
For this kind of input methods, the symbol NAME must have a
property of key @c Minput_driver, and the value must be a pointer
to an input method driver. Therefore, by preparing a proper
@addtogroup m17nInputMethod
@brief ÆþÎϥ᥽¥Ã¥ÉÍÑAPI.
- ÆþÎϥ᥽¥Ã¥É¤Ï¿ÍͤÊʸ»ú¤òÆþÎϤ¹¤ë¤¿¤á¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë¡£ÆþÎÏ¥á
- ¥½¥Ã¥É¤Ï¥·¥ó¥Ü¥ë LANGUAGE ¤È NAME ¤ÎÁȤˤè¤Ã¤Æ¼±Ê̤µ¤ì¡¢¤³¤ÎÁȤˤè¤Ã
- ¤ÆÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤¬·è¤Þ¤ë¡£ÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤È¤Ï¤¢¤ëÆþÎÏ¥á
- ¥½¥Ã¥É¤ò°·¤¦¤¿¤á¤Î´Ø¿ô¤Î½¸¤Þ¤ê¤Ç¤¢¤ë¡£ ÆþÎϥ᥽¥Ã¥É¤Ë¤ÏÆâÉô¥á¥½¥Ã
- ¥É¤È³°Éô¥á¥½¥Ã¥É¤ÎÆóÄ̤꤬¤¢¤ë¡£
+ ÆþÎϥ᥽¥Ã¥É¤Ï¿ÍͤÊʸ»ú¤òÆþÎϤ¹¤ë¤¿¤á¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë¡£
+ ÆþÎϥ᥽¥Ã¥É¤Ï¥·¥ó¥Ü¥ë LANGUAGE ¤È NAME ¤ÎÁȤˤè¤Ã¤Æ¼±Ê̤µ¤ì¡¢
+ ¤³¤ÎÁȹ礻¤Ë¤è¤Ã¤ÆÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤¬·èÄꤹ¤ë¡£
+ ÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤È¤Ï¡¢¤¢¤ëÆþÎϥ᥽¥Ã¥É¤ò°·¤¦¤¿¤á¤Î´Ø¿ô¤Î½¸¤Þ¤ê¤Ç¤¢¤ë¡£
+ ÆþÎϥ᥽¥Ã¥É¤Ë¤ÏÆâÉô¥á¥½¥Ã¥É¤È³°Éô¥á¥½¥Ã¥É¤ÎÆó¼ïÎब¤¢¤ë¡£
<ul>
<li> ÆâÉôÆþÎϥ᥽¥Ã¥É
- ÆâÉôÆþÎϥ᥽¥Ã¥É¤Ï LANGUAGE ¤¬ @c Mnil °Ê³°¤Î¤â¤Î¤Ç¤¢¤ê¡¢ËÜÂΤÏ
- m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë <Minput_method, LANGUAGE, NAME>¤È¤¤¤¦¥¿¥°ÉÕ¤
- ¤ÇÄêµÁ¤µ¤ì¤Æ¤¤¤ë¡£¤³¤Î¼ï¤ÎÆþÎϥ᥽¥Ã¥É¤ËÂФ·¤Æ¡¢m17n ¥é¥¤¥Ö¥é¥ê¤Ë
- ¤ÏCUIÍѤÈGUIÍѤ½¤ì¤¾¤ì¤ÎÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤¬¤¢¤é¤«¤¸¤á½àÈ÷¤µ¤ì¤Æ
- ¤¤¤ë¡£¤³¤ì¤é¤Î¥É¥é¥¤¥Ð¤Ïm17n¥é¥¤¥Ö¥é¥ê¼«¿È¤ÎÆþÎϽèÍý¥¨¥ó¥¸¥ó¤òÍøÍÑ
- ¤¹¤ë¡£m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¤Ï¡¢ÆÃÄê¤Î¸À¸ìÀìÍѤǤʤ¤ÆþÎϥ᥽¥Ã¥É¤âÄê
- µÁ¤¹¤ë¤³¤È¤¬¤Ç¤¡¢¤½¤Î¤è¤¦¤ÊÆþÎϥ᥽¥Ã¥É¤Î LANGUAGE ¤Ï @c Mt ¤Ç¤¢
- ¤ë¡£
+ ÆâÉôÆþÎϥ᥽¥Ã¥É¤È¤Ï LANGUAGE ¤¬ @c Mnil °Ê³°¤Î¤â¤Î¤Ç¤¢¤ê¡¢¤½¤ÎËÜÂÎ
+ ¤Ïm17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë<Minput_method, LANGUAGE, NAME> ¤È¤¤¤¦¥¿¥°¤òÉÕ
+ ¤±¤ÆÄêµÁ¤µ¤ì¤Æ¤¤¤ë¡£¤³¤Î¼ï¤ÎÆþÎϥ᥽¥Ã¥É¤ËÂФ·¤Æ¡¢m17n ¥é¥¤¥Ö¥é¥ê¤Ç
+ ¤ÏCUI ÍÑ¤È GUI ÍѤ½¤ì¤¾¤ì¤ÎÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤ò¤¢¤é¤«¤¸¤áÄêµÁ¤·¤Æ
+ ¤¤¤ë¡£¤³¤ì¤é¤Î¥É¥é¥¤¥Ð¤Ï m17n ¥é¥¤¥Ö¥é¥ê¼«ÂΤÎÆþÎϽèÍý¥¨¥ó¥¸¥ó¤òÍø
+ ÍѤ¹¤ë¡£m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¤Ï¡¢ÆÃÄê¤Î¸À¸ìÀìÍѤǤʤ¤ÆþÎϥ᥽¥Ã¥É¤òÄê
+ µÁ¤¹¤ë¤³¤È¤â¤Ç¤¡¢¤½¤Î¤è¤¦¤ÊÆþÎϥ᥽¥Ã¥É¤Î LANGUAGE ¤Ï @c Mt ¤Ç¤¢¤ë¡£
ÆâÉôÆþÎϥ᥽¥Ã¥É¤Ï¡¢¥æ¡¼¥¶¤ÎÆþÎÏ¥¤¥Ù¥ó¥È¤ËÂбþ¤·¤¿¥·¥ó¥Ü¥ë¤Ç¤¢¤ëÆþ
ÎÏ¥¡¼¤ò¼õ¤±¼è¤ë¡£@c m17n @c ¥é¥¤¥Ö¥é¥ê ¤ÏÆþÎÏ¥¤¥Ù¥ó¥È¤¬¥¢¥×¥ê¥±¡¼
- ¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ç¤É¤¦É½¸½¤µ¤ì¤Æ¤¤¤ë¤«¤òÃΤë½Ñ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç¡¢ÆþÎÏ
- ¥¤¥Ù¥ó¥È¤«¤éÆþÎÏ¥¡¼¤Ø¤ÎÊÑ´¹¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥Þ¤ÎÀÕǤ¤Ç¹Ô
- ¤ï¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï´Ø¿ô minput_event_to_key () ¤ÎÀâ
- ÌÀ¤ò»²¾È¡£
+ ¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ç¤É¤¦É½¸½¤µ¤ì¤Æ¤¤¤ë¤«¤òÃΤ뤳¤È¤¬¤Ç¤¤Ê¤¤¤Î¤Ç¡¢Æþ
+ ÎÏ¥¤¥Ù¥ó¥È¤«¤éÆþÎÏ¥¡¼¤Ø¤ÎÊÑ´¹¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥Þ¤ÎÀÕǤ¤Ç
+ ¹Ô¤ï¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï´Ø¿ô minput_event_to_key () ¤Î
+ ÀâÌÀ¤ò»²¾È¡£
<li> ³°ÉôÆþÎϥ᥽¥Ã¥É
- ³°ÉôÆþÎϥ᥽¥Ã¥É¤Ï LANGUAGE ¤¬ @c Mnil ¤Î¤â¤Î¤Ç¤¢¤ê¡¢ËÜÂΤϳ°Éô¤Î
- ¥ê¥½¡¼¥¹¤È¤·¤ÆÄêµÁ¤µ¤ì¤ë¡£¡Ê¤¿¤È¤¨¤ÐX Window System ¤ÎXIM ¤Ê¤É¡£)
- ¤³¤Î¼ï¤ÎÆþÎϥ᥽¥Ã¥É¤Ç¤Ï¡¢¥·¥ó¥Ü¥ë NAME ¤Ï@c Minput_driver ¤ò¥¡¼
- ¤È¤¹¤ë¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Á¡¢¤½¤ÎÃͤÏÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç
- ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤·¤¿¤¬¤Ã¤Æ¡¢Å¬Àڤʥɥ饤¥Ð¤ò½àÈ÷¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢
- ¤¤¤«¤Ê¤ë¼ïÎà¤ÎÆþÎϥ᥽¥Ã¥É¤â @c m17n @c ¥é¥¤¥Ö¥é¥ê ¤ÎÏÈÁȤÎÃæ¤Ç°·
- ¤¦»ö¤¬¤Ç¤¤ë¡£
+ ³°ÉôÆþÎϥ᥽¥Ã¥É¤È¤Ï LANGUAGE ¤¬ @c Mnil ¤Î¤â¤Î¤Ç¤¢¤ê¡¢¤½¤ÎËÜÂΤϳ°
+ Éô¤Î¥ê¥½¡¼¥¹¤È¤·¤ÆÄêµÁ¤µ¤ì¤ë¡£¡Ê¤¿¤È¤¨¤ÐX Window System ¤ÎXIM ¤Ê
+ ¤É¡£) ¤³¤Î¼ï¤ÎÆþÎϥ᥽¥Ã¥É¤Ç¤Ï¡¢¥·¥ó¥Ü¥ë NAME ¤Ï@c Minput_driver ¤ò
+ ¥¡¼¤È¤¹¤ë¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Á¡¢¤½¤ÎÃͤÏÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó
+ ¥¿¤Ç¤¢¤ë¡£¤³¤Î¤³¤È¤Ë¤è¤ê¡¢Å¬Àڤʥɥ饤¥Ð¤ò½àÈ÷¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢¤¤
+ ¤«¤Ê¤ë¼ïÎà¤ÎÆþÎϥ᥽¥Ã¥É¤â@c m17n @c ¥é¥¤¥Ö¥é¥ê ¤ÎÏÈÁȤÎÃæ¤Ç°·¤¦»ö
+ ¤¬¤Ç¤¤ë¡£
- ÍøÊØÀ¤Î¤¿¤á¡¢m17n X ¥é¥¤¥Ö¥é¥ê¤Ï XIM ¤Î OverTheSpot ¤ÎÆþÎÏ¥¹¥¿¥¤¥ë
- ¤ò¼Â¸½¤¹¤ëÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤òÄ󶡤·¡¢¤Þ¤¿¥·¥ó¥Ü¥ë @c Mxim ¤Î @c
- Minput_driver ¥×¥í¥Ñ¥Æ¥£¤ÎÃͤȤ·¤Æ¤½¤Î¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÝ»ý¤·
- ¤Æ¤¤¤ë¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï m17n GUI API ¤Î¥É¥¥å¥á¥ó¥È¤ò»²¾È¤Î¤³¤È¡£
+ ÍøÊØÀ¤Î´ÑÅÀ¤«¤é¡¢m17n X ¥é¥¤¥Ö¥é¥ê¤Ï XIM ¤Î OverTheSpot ¤ÎÆþÎÏ¥¹¥¿
+ ¥¤¥ë¤ò¼Â¸½¤¹¤ëÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤òÄ󶡤·¡¢¤Þ¤¿¥·¥ó¥Ü¥ë @c Mxim ¤Î
+ @c Minput_driver ¥×¥í¥Ñ¥Æ¥£¤ÎÃͤȤ·¤Æ¤½¤Î¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÝ»ý
+ ¤·¤Æ¤¤¤ë¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï m17n GUI API ¤Î¥É¥¥å¥á¥ó¥È¤ò»²¾È¤Î¤³¤È¡£
</ul>
@{ */
#include <stdio.h>
+#include <stdlib.h>
#include <string.h>
-#include <dlfcn.h>
+#include <sys/types.h>
+#include <dirent.h>
+#include <sys/stat.h>
+#include <unistd.h>
+#include <time.h>
#include "config.h"
+
+#ifdef HAVE_DLFCN_H
+#include <dlfcn.h>
+#endif
+
#include "m17n-gui.h"
#include "m17n-misc.h"
#include "internal.h"
#include "input.h"
#include "symbol.h"
#include "plist.h"
+#include "database.h"
+#include "charset.h"
+
+static int mdebug_mask = MDEBUG_INPUT;
+
+static int fully_initialized;
static MSymbol Minput_method;
/** Symbols to load an input method data. */
-static MSymbol Mtitle, Mmacro, Mmodule, Mstate;
+static MSymbol Mtitle, Mmacro, Mmodule, Mstate, Minclude;
/** Symbols for actions. */
static MSymbol Minsert, Mdelete, Mmark, Mmove, Mpushback, Mundo, Mcall, Mshift;
-static MSymbol Mselect, Mshow, Mhide;
+static MSymbol Mselect, Mshow, Mhide, Mcommit, Munhandle;
static MSymbol Mset, Madd, Msub, Mmul, Mdiv, Mequal, Mless, Mgreater;
+static MSymbol Mless_equal, Mgreater_equal;
+static MSymbol Mcond;
+static MSymbol Mplus, Mminus, Mstar, Mslash, Mand, Mor, Mnot;
+
+/** Special action symbol. */
+static MSymbol Mat_reload;
+
+static MSymbol M_candidates;
static MSymbol Mcandidate_list, Mcandidate_index;
static MSymbol Minit, Mfini;
+/** Symbols for variables. */
+static MSymbol Mcandidates_group_size, Mcandidates_charset;
+
/** Symbols for key events. */
static MSymbol one_char_symbol[256];
static MSymbol M_key_alias;
+static MSymbol Mdescription, Mcommand, Mvariable, Mglobal, Mconfig;
+
/** Structure to hold a map. */
struct MIMMap
{
/** List of actions to take when we reach the map. In a root map,
- the actions are executed only when there's no more key. */
+ the actions are executed only when there is no more key. */
MPlist *map_actions;
/** List of deeper maps. If NULL, this is a terminal map. */
struct MIMState
{
+ M17NObject control;
+
/** Name of the state. */
MSymbol name;
MIMMap *map;
};
+#define CUSTOM_FILE "config.mic"
+
+static MPlist *load_im_info_keys;
+
+/* List of input method information. The format is:
+ (LANGUAGE NAME t:IM_INFO ... ... ...) */
+static MPlist *im_info_list;
+
+/* Database for user's customization file. */
+static MDatabase *im_custom_mdb;
+
+/* List of input method information loaded from im_custom_mdb. The
+ format is the same as im_info_list. */
+static MPlist *im_custom_list;
+
+/* List of input method information configured by
+ minput_config_command and minput_config_variable. The format is
+ the same as im_info_list. */
+static MPlist *im_config_list;
+
+/* Global input method information. It points into the element of
+ im_info_list corresponding to LANGUAGE == `nil' and NAME ==
+ `global'. */
+static MInputMethodInfo *global_info;
+
+static int update_global_info (void);
+static int update_custom_info (void);
+static MInputMethodInfo *get_im_info (MSymbol, MSymbol, MSymbol, MSymbol);
+
+\f
+void
+fully_initialize ()
+{
+ char *key_names[32]
+ = { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
+ "BackSpace", "Tab", "Linefeed", "Clear", NULL, "Return", NULL, NULL,
+ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
+ NULL, NULL, NULL, "Escape", NULL, NULL, NULL, NULL };
+ char buf[6], buf2[32];
+ int i, j;
+ /* Maximum case: C-M-a, C-M-A, M-Return, C-A-a, C-A-A, A-Return. */
+ MSymbol alias[7];
+
+ M_key_alias = msymbol (" key-alias");
+
+ buf[0] = 'C';
+ buf[1] = '-';
+ buf[3] = '\0';
+ for (i = 0, buf[2] = '@'; i < ' '; i++, buf[2]++)
+ {
+ one_char_symbol[i] = msymbol (buf);
+ if (key_names[i] || (buf[2] >= 'A' && buf[2] <= 'Z'))
+ {
+ j = 0;
+ alias[j++] = one_char_symbol[i];
+ if (key_names[i])
+ {
+ /* Ex: `Escape' == `C-[' */
+ alias[j++] = msymbol (key_names[i]);
+ }
+ if (buf[2] >= 'A' && buf[2] <= 'Z')
+ {
+ /* Ex: `C-a' == `C-A' */
+ buf[2] += 32;
+ alias[j++] = msymbol (buf);
+ buf[2] -= 32;
+ }
+ /* Establish cyclic alias chain. */
+ alias[j] = alias[0];
+ while (--j >= 0)
+ msymbol_put (alias[j], M_key_alias, alias[j + 1]);
+ }
+ }
+ buf[0] = 'S';
+ for (i = buf[2] = ' '; i < 127; i++, buf[2]++)
+ {
+ one_char_symbol[i] = msymbol (buf + 2);
+ if (i >= 'A' && i <= 'Z')
+ {
+ /* Ex: `A' == `S-A' == `S-a'. */
+ alias[0] = alias[3] = one_char_symbol[i];
+ alias[1] = msymbol (buf);
+ buf[2] += 32;
+ alias[2] = msymbol (buf);
+ buf[2] -= 32;
+ for (j = 0; j < 3; j++)
+ msymbol_put (alias[j], M_key_alias, alias[j + 1]);
+ }
+ }
+ buf[0] = 'C';
+
+ alias[0] = alias[2] = one_char_symbol[127] = msymbol ("Delete");
+ alias[1] = msymbol ("C-?");
+ for (j = 0; j < 2; j++)
+ msymbol_put (alias[j], M_key_alias, alias[j + 1]);
+
+ buf[3] = '-';
+ buf[5] = '\0';
+ buf2[1] = '-';
+ for (i = 128, buf[4] = '@'; i < 160; i++, buf[4]++)
+ {
+ j = 0;
+ /* `C-M-a' == `C-A-a' */
+ buf[2] = 'M';
+ alias[j++] = one_char_symbol[i] = msymbol (buf);
+ buf[2] = 'A';
+ alias[j++] = msymbol (buf);
+ if (key_names[i - 128])
+ {
+ /* Ex: `M-Escape' == `A-Escape' == `C-M-['. */
+ buf2[0] = 'M';
+ strcpy (buf2 + 2, key_names[i - 128]);
+ alias[j++] = msymbol (buf2);
+ buf2[0] = 'A';
+ alias[j++] = msymbol (buf2);
+ }
+ if (buf[4] >= 'A' && buf[4] <= 'Z')
+ {
+ /* Ex: `C-M-a' == `C-M-A'. */
+ buf[4] += 32;
+ buf[2] = 'M';
+ alias[j++] = msymbol (buf);
+ buf[2] = 'A';
+ alias[j++] = msymbol (buf);
+ buf[4] -= 32;
+ }
+ /* Establish cyclic alias chain. */
+ alias[j] = alias[0];
+ while (--j >= 0)
+ msymbol_put (alias[j], M_key_alias, alias[j + 1]);
+ }
+ for (i = 160, buf[4] = ' '; i < 256; i++, buf[4]++)
+ {
+ buf[2] = 'M';
+ alias[0] = alias[2] = one_char_symbol[i] = msymbol (buf + 2);
+ buf[2] = 'A';
+ alias[1] = msymbol (buf + 2);
+ for (j = 0; j < 2; j++)
+ msymbol_put (alias[j], M_key_alias, alias[j + 1]);
+ }
+
+ alias[0] = alias[4] = one_char_symbol[255] = msymbol ("M-Delete");
+ alias[1] = msymbol ("A-Delete");
+ alias[2] = msymbol ("C-M-?");
+ alias[3] = msymbol ("C-A-?");
+ for (j = 0; j < 4; j++)
+ msymbol_put (alias[j], M_key_alias, alias[j + 1]);
+
+ Minput_method = msymbol ("input-method");
+ Mtitle = msymbol ("title");
+ Mmacro = msymbol ("macro");
+ Mmodule = msymbol ("module");
+ Mmap = msymbol ("map");
+ Mstate = msymbol ("state");
+ Minclude = msymbol ("include");
+ Minsert = msymbol ("insert");
+ M_candidates = msymbol (" candidates");
+ Mdelete = msymbol ("delete");
+ Mmove = msymbol ("move");
+ Mmark = msymbol ("mark");
+ Mpushback = msymbol ("pushback");
+ Mundo = msymbol ("undo");
+ Mcall = msymbol ("call");
+ Mshift = msymbol ("shift");
+ Mselect = msymbol ("select");
+ Mshow = msymbol ("show");
+ Mhide = msymbol ("hide");
+ Mcommit = msymbol ("commit");
+ Munhandle = msymbol ("unhandle");
+ Mset = msymbol ("set");
+ Madd = msymbol ("add");
+ Msub = msymbol ("sub");
+ Mmul = msymbol ("mul");
+ Mdiv = msymbol ("div");
+ Mequal = msymbol ("=");
+ Mless = msymbol ("<");
+ Mgreater = msymbol (">");
+ Mless_equal = msymbol ("<=");
+ Mgreater_equal = msymbol (">=");
+ Mcond = msymbol ("cond");
+ Mplus = msymbol ("+");
+ Mminus = msymbol ("-");
+ Mstar = msymbol ("*");
+ Mslash = msymbol ("/");
+ Mand = msymbol ("&");
+ Mor = msymbol ("|");
+ Mnot = msymbol ("!");
+
+ Mat_reload = msymbol ("@reload");
+
+ Mcandidates_group_size = msymbol ("candidates-group-size");
+ Mcandidates_charset = msymbol ("candidates-charset");
+
+ Mcandidate_list = msymbol_as_managing_key (" candidate-list");
+ Mcandidate_index = msymbol (" candidate-index");
+
+ Minit = msymbol ("init");
+ Mfini = msymbol ("fini");
+
+ Mdescription = msymbol ("description");
+ Mcommand = msymbol ("command");
+ Mvariable = msymbol ("variable");
+ Mglobal = msymbol ("global");
+ Mconfig = msymbol ("config");
+
+ load_im_info_keys = mplist ();
+ mplist_add (load_im_info_keys, Mstate, Mnil);
+ mplist_push (load_im_info_keys, Mmap, Mnil);
+
+ im_info_list = mplist ();
+ im_config_list = im_custom_list = NULL;
+ im_custom_mdb = NULL;
+ update_custom_info ();
+ global_info = NULL;
+ update_global_info ();
+
+ fully_initialized = 1;
+}
+
+#define MINPUT__INIT() \
+ do { \
+ if (! fully_initialized) \
+ fully_initialize (); \
+ } while (0)
+\f
static int
marker_code (MSymbol sym)
{
&& ((name[1] >= '0' && name[1] <= '9')
|| name[1] == '<' || name[1] == '>'
|| name[1] == '=' || name[1] == '+' || name[1] == '-'
- || name[1] == '[' || name[1] == ']')
+ || name[1] == '[' || name[1] == ']'
+ || name[1] == '@')
&& name[2] == '\0')
? name[1] : -1);
}
-int
-integer_value (MInputContext *ic, MPlist *arg)
+
+static MPlist *
+resolve_variable (MInputContextInfo *ic_info, MSymbol var)
+{
+ MPlist *plist = mplist__assq (ic_info->vars, var);
+
+ if (plist)
+ {
+ plist = MPLIST_PLIST (plist);
+ return MPLIST_NEXT (plist);
+ }
+
+ plist = mplist ();
+ mplist_push (ic_info->vars, Mplist, plist);
+ M17N_OBJECT_UNREF (plist);
+ plist = mplist_add (plist, Msymbol, var);
+ plist = mplist_add (plist, Minteger, (void *) 0);
+ return plist;
+}
+
+static MText *
+get_surrounding_text (MInputContext *ic, int len)
+{
+ MText *mt = NULL;
+
+ mplist_push (ic->plist, Minteger, (void *) len);
+ if (minput__callback (ic, Minput_get_surrounding_text) >= 0
+ && MPLIST_MTEXT_P (ic->plist))
+ mt = MPLIST_MTEXT (ic->plist);
+ mplist_pop (ic->plist);
+ return mt;
+}
+
+static void
+delete_surrounding_text (MInputContext *ic, int pos)
+{
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+
+ mplist_push (ic->plist minput__callback (ic, Minput_delete_surrounding_text);
+ mplist_pop (ic->plist);
+ if (pos < 0)
+ M17N_OBJECT_UNREF (ic_info->preceding_text);
+ else if (pos > 0)
+ M17N_OBJECT_UNREF (ic_info->following_text);
+}
+
+static int
+get_preceding_char (MInputContext *ic, int pos)
+{
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+ MText *mt;
+ int len;
+
+ if (ic_info->preceding_text)
+ {
+ len = mtext_nchars (ic_info->preceding_text);
+ if (pos <= len)
+ return mtext_ref_char (ic_info->preceding_text, len - pos);
+ }
+ mt = get_surrounding_text (ic, - pos);
+ if (! mt)
+ return -2;
+ len = mtext_nchars (mt);
+ if (ic_info->preceding_text)
+ {
+ if (mtext_nchars (ic_info->preceding_text) < len)
+ {
+ M17N_OBJECT_UNREF (ic_info->preceding_text);
+ ic_info->preceding_text = mt;
+ }
+ }
+ else
+ ic_info->preceding_text = mt;
+ if (pos > len)
+ return -1;
+ return mtext_ref_char (ic_info->preceding_text, len - pos);
+}
+
+static int
+get_following_char (MInputContext *ic, int pos)
+{
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+ MText *mt;
+ int len;
+
+ if (ic_info->following_text)
+ {
+ len = mtext_nchars (ic_info->following_text);
+ if (pos <= len)
+ return mtext_ref_char (ic_info->following_text, pos - 1);
+ }
+ mt = get_surrounding_text (ic, pos);
+ if (! mt)
+ return -2;
+ len = mtext_nchars (mt);
+ if (ic_info->following_text)
+ {
+ if (mtext_nchars (ic_info->following_text) < len)
+ {
+ M17N_OBJECT_UNREF (ic_info->following_text);
+ ic_info->following_text = mt;
+ }
+ }
+ else
+ ic_info->following_text = mt;
+ if (pos > len)
+ return -1;
+ return mtext_ref_char (ic_info->following_text, pos - 1);
+}
+
+static int
+surrounding_pos (MSymbol sym)
+{
+ char *name;
+
+ if (sym == Mnil)
+ return 0;
+ name = MSYMBOL_NAME (sym);
+ if ((name[1] == '-' || name[1] == '+')
+ && name[2] >= '1' && name[2] <= '9')
+ return (name[1] == '-' ? - atoi (name + 2) : atoi (name + 2));
+ return 0;
+}
+
+static int
+integer_value (MInputContext *ic, MPlist *arg, MPlist **value, int surrounding)
{
MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
int code;
MText *preedit = ic->preedit;
- int len = mtext_nbytes (preedit);
+ int len = mtext_nchars (preedit);
+ if (value)
+ *value = NULL;
if (MPLIST_INTEGER_P (arg))
return MPLIST_INTEGER (arg);
+ if (surrounding
+ && (surrounding = surrounding_pos (MPLIST_SYMBOL (arg))) != 0)
+ return (surrounding < 0
+ ? get_preceding_char (ic, - surrounding)
+ : get_following_char (ic, surrounding));
code = marker_code (MPLIST_SYMBOL (arg));
if (code < 0)
- return (int) mplist_get (ic_info->vars, MPLIST_SYMBOL (arg));
+ {
+ MPlist *val = resolve_variable (ic_info, MPLIST_SYMBOL (arg));
+
+ if (value)
+ *value = val;
+ return (MPLIST_INTEGER_P (val) ? MPLIST_INTEGER (val) : 0);
+ }
+ if (code == '@')
+ return ic_info->key_head;
if (code >= '0' && code <= '9')
code -= '0';
else if (code == '=')
code = ic->cursor_pos + 1;
else if (code == '<')
code = 0;
- else if (code == '<')
+ else if (code == '>')
code = len;
return (code >= 0 && code < len ? mtext_ref_char (preedit, code) : -1);
}
+static int
+parse_expression (MPlist *plist)
+{
+ MSymbol op;
+
+ if (MPLIST_INTEGER_P (plist) || MPLIST_SYMBOL_P (plist))
+ return 0;
+ if (! MPLIST_PLIST_P (plist))
+ return -1;
+ plist = MPLIST_PLIST (plist);
+ op = MPLIST_SYMBOL (plist);
+ if (op != Mplus && op != Mminus && op != Mstar && op != Mslash
+ && op != Mand && op != Mor && op != Mnot
+ && op != Mless && op != Mgreater && op != Mequal
+ && op != Mless_equal && op != Mgreater_equal)
+ MERROR (MERROR_IM, -1);
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ if (parse_expression (plist) < 0)
+ return -1;
+ return 0;
+}
+
+static int
+resolve_expression (MInputContext *ic, MPlist *plist)
+{
+ int val;
+ MSymbol op;
+
+ if (MPLIST_INTEGER_P (plist))
+ return MPLIST_INTEGER (plist);
+ if (MPLIST_SYMBOL_P (plist))
+ return integer_value (ic, plist, NULL, 1);
+ if (! MPLIST_PLIST_P (plist))
+ return 0;
+ plist = MPLIST_PLIST (plist);
+ if (! MPLIST_SYMBOL_P (plist))
+ return 0;
+ op = MPLIST_SYMBOL (plist);
+ plist = MPLIST_NEXT (plist);
+ val = resolve_expression (ic, plist);
+ if (op == Mplus)
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ val += resolve_expression (ic, plist);
+ else if (op == Mminus)
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ val -= resolve_expression (ic, plist);
+ else if (op == Mstar)
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ val *= resolve_expression (ic, plist);
+ else if (op == Mslash)
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ val /= resolve_expression (ic, plist);
+ else if (op == Mand)
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ val &= resolve_expression (ic, plist);
+ else if (op == Mor)
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ val |= resolve_expression (ic, plist);
+ else if (op == Mnot)
+ val = ! val;
+ else if (op == Mless)
+ val = val < resolve_expression (ic, MPLIST_NEXT (plist));
+ else if (op == Mequal)
+ val = val == resolve_expression (ic, MPLIST_NEXT (plist));
+ else if (op == Mgreater)
+ val = val > resolve_expression (ic, MPLIST_NEXT (plist));
+ else if (op == Mless_equal)
+ val = val <= resolve_expression (ic, MPLIST_NEXT (plist));
+ else if (op == Mgreater_equal)
+ val = val >= resolve_expression (ic, MPLIST_NEXT (plist));
+ return val;
+}
-/* Parse PLIST as an action list while modifying the list to regularize
- actions. PLIST should have this form:
+/* Parse PLIST as an action list. PLIST should have this form:
PLIST ::= ( (ACTION-NAME ACTION-ARG *) *).
Return 0 if successfully parsed, otherwise return -1. */
|| action_name == Mdelete
|| action_name == Mmove)
{
- if (! MPLIST_SYMBOL_P (pl)
- && ! MPLIST_INTEGER_P (pl))
- MERROR (MERROR_IM, -1);
+ if (parse_expression (pl) < 0)
+ return -1;
}
else if (action_name == Mmark
|| action_name == Mcall
if (! MPLIST_SYMBOL_P (pl))
MERROR (MERROR_IM, -1);
}
- else if (action_name == Mshow || action_name == Mhide
- || action_name == Mundo)
+ else if (action_name == Mundo)
{
if (! MPLIST_TAIL_P (pl))
- MERROR (MERROR_IM, -1);
+ {
+ if (! MPLIST_SYMBOL_P (pl)
+ && (! MPLIST_INTEGER_P (pl)
+ || MPLIST_INTEGER (pl) == 0))
+ MERROR (MERROR_IM, -1);
+ }
}
else if (action_name == Mpushback)
{
- if (! MPLIST_INTEGER_P (pl))
+ if (MPLIST_MTEXT_P (pl))
+ {
+ MText *mt = MPLIST_MTEXT (pl);
+
+ if (mtext_nchars (mt) != mtext_nbytes (mt))
+ MERROR (MERROR_IM, -1);
+ }
+ else if (MPLIST_PLIST_P (pl))
+ {
+ MPlist *p;
+
+ MPLIST_DO (p, MPLIST_PLIST (pl))
+ if (! MPLIST_SYMBOL_P (p))
+ MERROR (MERROR_IM, -1);
+ }
+ else if (! MPLIST_INTEGER_P (pl))
MERROR (MERROR_IM, -1);
}
else if (action_name == Mset || action_name == Madd
|| action_name == Msub || action_name == Mmul
|| action_name == Mdiv)
{
- if (! (MPLIST_SYMBOL_P (pl)
- && (MPLIST_INTEGER_P (MPLIST_NEXT (pl))
- || MPLIST_SYMBOL_P (MPLIST_NEXT (pl)))))
+ if (! MPLIST_SYMBOL_P (pl))
MERROR (MERROR_IM, -1);
+ if (parse_expression (MPLIST_NEXT (pl)) < 0)
+ return -1;
}
else if (action_name == Mequal || action_name == Mless
- || action_name == Mgreater)
+ || action_name == Mgreater || action_name == Mless_equal
+ || action_name == Mgreater_equal)
{
- if (! ((MPLIST_INTEGER_P (pl) || MPLIST_SYMBOL_P (pl))
- && (MPLIST_INTEGER_P (MPLIST_NEXT (pl))
- || MPLIST_SYMBOL_P (MPLIST_NEXT (pl)))))
- MERROR (MERROR_IM, -1);
+ if (parse_expression (pl) < 0
+ || parse_expression (MPLIST_NEXT (pl)) < 0)
+ return -1;
pl = MPLIST_NEXT (MPLIST_NEXT (pl));
if (! MPLIST_PLIST_P (pl))
MERROR (MERROR_IM, -1);
&& parse_action_list (MPLIST_PLIST (pl), macros) < 0)
MERROR (MERROR_IM, -1);
}
+ else if (action_name == Mshow || action_name == Mhide
+ || action_name == Mcommit || action_name == Munhandle)
+ ;
+ else if (action_name == Mcond)
+ {
+ MPLIST_DO (pl, pl)
+ if (! MPLIST_PLIST_P (pl))
+ MERROR (MERROR_IM, -1);
+ }
else if (! macros || ! mplist_get (macros, action_name))
MERROR (MERROR_IM, -1);
}
- else
+ else if (! MPLIST_SYMBOL_P (plist))
MERROR (MERROR_IM, -1);
}
return 0;
}
+static MPlist *
+resolve_command (MPlist *cmds, MSymbol command)
+{
+ MPlist *plist;
+
+ if (! cmds || ! (plist = mplist__assq (cmds, command)))
+ return NULL;
+ plist = MPLIST_PLIST (plist); /* (NAME DESC STATUS [KEYSEQ ...]) */
+ plist = MPLIST_NEXT (plist);
+ plist = MPLIST_NEXT (plist);
+ plist = MPLIST_NEXT (plist);
+ return plist;
+}
/* Load a translation into MAP from PLIST.
PLIST has this form:
PLIST ::= ( KEYSEQ MAP-ACTION * ) */
static int
-load_translation (MIMMap *map, MPlist *plist, MPlist *branch_actions,
- MPlist *macros)
+load_translation (MIMMap *map, MPlist *keylist, MPlist *map_actions,
+ MPlist *branch_actions, MPlist *macros)
{
MSymbol *keyseq;
int len, i;
- if (MPLIST_MTEXT_P (plist))
+ if (MPLIST_MTEXT_P (keylist))
{
- MText *mt = MPLIST_MTEXT (plist);
+ MText *mt = MPLIST_MTEXT (keylist);
len = mtext_nchars (mt);
- if (len == 0 || len != mtext_nbytes (mt))
- MERROR (MERROR_IM, -1);
+ if (MFAILP (len > 0 && len == mtext_nbytes (mt)))
+ return -1;
keyseq = (MSymbol *) alloca (sizeof (MSymbol) * len);
for (i = 0; i < len; i++)
keyseq[i] = one_char_symbol[MTEXT_DATA (mt)[i]];
}
- else if (MPLIST_PLIST_P (plist))
+ else
{
- MPlist *elt = MPLIST_PLIST (plist);
+ MPlist *elt;
+ if (MFAILP (MPLIST_PLIST_P (keylist)))
+ return -1;
+ elt = MPLIST_PLIST (keylist);
len = MPLIST_LENGTH (elt);
- if (len == 0)
- MERROR (MERROR_IM, -1);
+ if (MFAILP (len > 0))
+ return -1;
keyseq = (MSymbol *) alloca (sizeof (int) * len);
for (i = 0; i < len; i++, elt = MPLIST_NEXT (elt))
{
{
int c = MPLIST_INTEGER (elt);
- if (c < 0 || c >= 0x100)
- MERROR (MERROR_IM, -1);
+ if (MFAILP (c >= 0 && c < 0x100))
+ return -1;
keyseq[i] = one_char_symbol[c];
}
- else if (MPLIST_SYMBOL_P (elt))
- keyseq[i] = MPLIST_SYMBOL (elt);
else
- MERROR (MERROR_IM, -1);
+ {
+ if (MFAILP (MPLIST_SYMBOL_P (elt)))
+ return -1;
+ keyseq[i] = MPLIST_SYMBOL (elt);
+ }
}
}
- else
- MERROR (MERROR_IM, -1);
for (i = 0; i < len; i++)
{
/* This map is already defined. We avoid overriding it. */
return 0;
- plist = MPLIST_NEXT (plist);
- if (! MPLIST_TAIL_P (plist))
+ if (! MPLIST_TAIL_P (map_actions))
{
- if (parse_action_list (plist, macros) < 0)
+ if (parse_action_list (map_actions, macros) < 0)
MERROR (MERROR_IM, -1);
- map->map_actions = plist;
- M17N_OBJECT_REF (plist);
+ map->map_actions = map_actions;
}
if (branch_actions)
{
}
/* Load a branch from PLIST into MAP. PLIST has this form:
- PLIST ::= ( MAP-NAME BRANCH-ACTION * )
- MAPS is a plist of raw maps.
- STATE is the current state. */
+ PLIST ::= ( MAP-NAME BRANCH-ACTION * ) */
static int
-load_branch (MPlist *plist, MPlist *maps, MIMMap *map, MPlist *macros)
+load_branch (MInputMethodInfo *im_info, MPlist *plist, MIMMap *map)
{
MSymbol map_name;
MPlist *branch_actions;
- if (! MPLIST_SYMBOL_P (plist))
- MERROR (MERROR_IM, -1);
+ if (MFAILP (MPLIST_SYMBOL_P (plist)))
+ return -1;
map_name = MPLIST_SYMBOL (plist);
plist = MPLIST_NEXT (plist);
if (MPLIST_TAIL_P (plist))
branch_actions = NULL;
- else if (parse_action_list (plist, macros) < 0)
- MERROR (MERROR_IM, -1);
+ else if (MFAILP (parse_action_list (plist, im_info->macros) >= 0))
+ return -1;
else
branch_actions = plist;
if (map_name == Mnil)
if (branch_actions)
M17N_OBJECT_REF (branch_actions);
}
- else
+ else if (im_info->maps
+ && (plist = (MPlist *) mplist_get (im_info->maps, map_name)))
{
- plist = (MPlist *) mplist_get (maps, map_name);
- if (! plist || ! MPLIST_PLIST_P (plist))
- MERROR (MERROR_IM, -1);
MPLIST_DO (plist, plist)
- if (! MPLIST_PLIST_P (plist)
- || (load_translation (map, MPLIST_PLIST (plist), branch_actions,
- macros)
- < 0))
- MERROR (MERROR_IM, -1);
+ {
+ MPlist *keylist, *map_actions;
+
+ if (! MPLIST_PLIST_P (plist))
+ MERROR (MERROR_IM, -1);
+ keylist = MPLIST_PLIST (plist);
+ map_actions = MPLIST_NEXT (keylist);
+ if (MPLIST_SYMBOL_P (keylist))
+ {
+ MSymbol command = MPLIST_SYMBOL (keylist);
+ MPlist *pl;
+
+ if (MFAILP (command != Mat_reload))
+ continue;
+ pl = resolve_command (im_info->configured_cmds, command);
+ if (MFAILP (pl))
+ continue;
+ MPLIST_DO (pl, pl)
+ load_translation (map, pl, map_actions, branch_actions,
+ im_info->macros);
+ }
+ else
+ load_translation (map, keylist, map_actions, branch_actions,
+ im_info->macros);
+ }
}
return 0;
}
-/* Load a macro from PLIST into MACROS.
+/* Load a macro from PLIST into IM_INFO->macros.
PLIST has this from:
PLIST ::= ( MACRO-NAME ACTION * )
- MACROS is a plist of macro names vs action list. */
+ IM_INFO->macros is a plist of macro names vs action list. */
+
static int
-load_macros (MPlist *plist, MPlist *macros)
+load_macros (MInputMethodInfo *im_info, MPlist *plist)
{
MSymbol name;
+ MPlist *pl;
if (! MPLIST_SYMBOL_P (plist))
MERROR (MERROR_IM, -1);
name = MPLIST_SYMBOL (plist);
plist = MPLIST_NEXT (plist);
if (MPLIST_TAIL_P (plist)
- || parse_action_list (plist, macros) < 0)
+ || parse_action_list (plist, im_info->macros) < 0)
MERROR (MERROR_IM, -1);
- mplist_put (macros, name, plist);
+ pl = mplist_get (im_info->macros, name);
+ M17N_OBJECT_UNREF (pl);
+ mplist_put (im_info->macros, name, plist);
M17N_OBJECT_REF (plist);
return 0;
}
-/* Load an external module from PLIST into EXTERNALS.
+/* Load an external module from PLIST into IM_INFO->externals.
PLIST has this form:
PLIST ::= ( MODULE-NAME FUNCTION * )
- EXTERNALS is a plist of MODULE-NAME vs (MIMExternalModule *). */
-
-#ifndef DLOPEN_SHLIB_EXT
-#define DLOPEN_SHLIB_EXT ".so"
-#endif
+ IM_INFO->externals is a plist of MODULE-NAME vs (MIMExternalModule *). */
static int
-load_external_module (MPlist *plist, MPlist *externals)
+load_external_module (MInputMethodInfo *im_info, MPlist *plist)
{
void *handle;
MSymbol module;
sprintf (module_file, "%s%s", MSYMBOL_NAME (module), DLOPEN_SHLIB_EXT);
handle = dlopen (module_file, RTLD_NOW);
- if (! handle)
+ if (MFAILP (handle))
{
fprintf (stderr, "%s\n", dlerror ());
- MERROR (MERROR_IM, -1);
+ return -1;
}
func_list = mplist ();
MPLIST_DO (plist, MPLIST_NEXT (plist))
if (! MPLIST_SYMBOL_P (plist))
MERROR_GOTO (MERROR_IM, err_label);
func = dlsym (handle, MSYMBOL_NAME (MPLIST_SYMBOL (plist)));
- if (! func)
- MERROR_GOTO (MERROR_IM, err_label);
+ if (MFAILP (func))
+ goto err_label;
mplist_add (func_list, MPLIST_SYMBOL (plist), func);
}
MSTRUCT_MALLOC (external, MERROR_IM);
external->handle = handle;
external->func_list = func_list;
- mplist_add (externals, module, external);
+ mplist_add (im_info->externals, module, external);
return 0;
err_label:
return -1;
}
+static void
+free_map (MIMMap *map, int top)
+{
+ MPlist *plist;
+
+ if (top)
+ M17N_OBJECT_UNREF (map->map_actions);
+ if (map->submaps)
+ {
+ MPLIST_DO (plist, map->submaps)
+ free_map ((MIMMap *) MPLIST_VAL (plist), 0);
+ M17N_OBJECT_UNREF (map->submaps);
+ }
+ M17N_OBJECT_UNREF (map->branch_actions);
+ free (map);
+}
+
+static void
+free_state (void *object)
+{
+ MIMState *state = object;
+
+ M17N_OBJECT_UNREF (state->title);
+ if (state->map)
+ free_map (state->map, 1);
+ free (state);
+}
/** Load a state from PLIST into a newly allocated state object.
PLIST has this form:
PLIST ::= ( STATE-NAME STATE-TITLE ? BRANCH * )
BRANCH ::= ( MAP-NAME BRANCH-ACTION * )
- MAPS is a plist of defined maps.
Return the state object. */
static MIMState *
-load_state (MPlist *plist, MPlist *maps, MSymbol language, MPlist *macros)
+load_state (MInputMethodInfo *im_info, MPlist *plist)
{
MIMState *state;
- MSTRUCT_CALLOC (state, MERROR_IM);
- if (! MPLIST_SYMBOL_P (plist))
- MERROR (MERROR_IM, NULL);
+ if (MFAILP (MPLIST_SYMBOL_P (plist)))
+ return NULL;
+ M17N_OBJECT (state, free_state, MERROR_IM);
state->name = MPLIST_SYMBOL (plist);
plist = MPLIST_NEXT (plist);
if (MPLIST_MTEXT_P (plist))
{
state->title = MPLIST_MTEXT (plist);
mtext_put_prop (state->title, 0, mtext_nchars (state->title),
- Mlanguage, language);
+ Mlanguage, im_info->language);
M17N_OBJECT_REF (state->title);
plist = MPLIST_NEXT (plist);
}
MSTRUCT_CALLOC (state->map, MERROR_IM);
MPLIST_DO (plist, plist)
- if (! MPLIST_PLIST_P (plist)
- || load_branch (MPLIST_PLIST (plist), maps, state->map, macros) < 0)
- MERROR (MERROR_IM, NULL);
+ {
+ if (MFAILP (MPLIST_PLIST_P (plist)))
+ continue;
+ load_branch (im_info, MPLIST_PLIST (plist), state->map);
+ }
return state;
}
+/* Return a newly created IM_INFO for an input method specified by
+ LANUAGE, NAME, and EXTRA. IM_INFO is stored in PLIST. */
-static void
-free_map (MIMMap *map)
+static MInputMethodInfo *
+new_im_info (MDatabase *mdb, MSymbol language, MSymbol name, MSymbol extra,
+ MPlist *plist)
{
- MPlist *plist;
+ MInputMethodInfo *im_info;
+ MPlist *elt;
- M17N_OBJECT_UNREF (map->map_actions);
- if (map->submaps)
- {
- MPLIST_DO (plist, map->submaps)
- free_map ((MIMMap *) MPLIST_VAL (plist));
- M17N_OBJECT_UNREF (map->submaps);
- }
- M17N_OBJECT_UNREF (map->branch_actions);
- free (map);
+ if (name == Mnil && extra == Mnil)
+ language = Mt, extra = Mglobal;
+ MSTRUCT_CALLOC (im_info, MERROR_IM);
+ im_info->mdb = mdb;
+ im_info->language = language;
+ im_info->name = name;
+ im_info->extra = extra;
+
+ elt = mplist ();
+ mplist_add (plist, Mplist, elt);
+ M17N_OBJECT_UNREF (elt);
+ elt = mplist_add (elt, Msymbol, language);
+ elt = mplist_add (elt, Msymbol, name);
+ elt = mplist_add (elt, Msymbol, extra);
+ mplist_add (elt, Mt, im_info);
+
+ return im_info;
}
-/* Load an input method from PLIST into IM_INTO, and return it. */
-
-static int
-load_input_method (MSymbol language, MSymbol name, MPlist *plist,
- MInputMethodInfo *im_info)
-{
- MText *title = NULL;
- MPlist *maps = NULL;
- MPlist *states = NULL;
- MPlist *externals = NULL;
- MPlist *macros = NULL;
- MPlist *elt;
+static void
+fini_im_info (MInputMethodInfo *im_info)
+{
+ MPlist *plist;
- if (! MPLIST_PLIST_P (plist))
- MERROR (MERROR_IM, -1);
- for (; MPLIST_PLIST_P (plist); plist = MPLIST_NEXT (plist))
+ M17N_OBJECT_UNREF (im_info->cmds);
+ M17N_OBJECT_UNREF (im_info->configured_cmds);
+ M17N_OBJECT_UNREF (im_info->bc_cmds);
+ M17N_OBJECT_UNREF (im_info->vars);
+ M17N_OBJECT_UNREF (im_info->configured_vars);
+ M17N_OBJECT_UNREF (im_info->bc_vars);
+ M17N_OBJECT_UNREF (im_info->description);
+ M17N_OBJECT_UNREF (im_info->title);
+ if (im_info->states)
{
- elt = MPLIST_PLIST (plist);
- if (! MPLIST_SYMBOL_P (elt))
- MERROR_GOTO (MERROR_IM, err);
- if (MPLIST_SYMBOL (elt) == Mtitle)
- {
- elt = MPLIST_NEXT (elt);
- if (MPLIST_MTEXT_P (elt))
- {
- title = MPLIST_MTEXT (elt);
- M17N_OBJECT_REF (title);
- }
- else
- MERROR_GOTO (MERROR_IM, err);
- }
- else if (MPLIST_SYMBOL (elt) == Mmap)
- {
- maps = mplist__from_alist (MPLIST_NEXT (elt));
- if (! maps)
- MERROR_GOTO (MERROR_IM, err);
- }
- else if (MPLIST_SYMBOL (elt) == Mmacro)
- {
- macros = mplist ();
- MPLIST_DO (elt, MPLIST_NEXT (elt))
- {
- if (! MPLIST_PLIST_P (elt)
- || load_macros (MPLIST_PLIST (elt), macros) < 0)
- MERROR_GOTO (MERROR_IM, err);
- }
- }
- else if (MPLIST_SYMBOL (elt) == Mmodule)
- {
- externals = mplist ();
- MPLIST_DO (elt, MPLIST_NEXT (elt))
- {
- if (! MPLIST_PLIST_P (elt)
- || load_external_module (MPLIST_PLIST (elt), externals) < 0)
- MERROR_GOTO (MERROR_IM, err);
- }
- }
- else if (MPLIST_SYMBOL (elt) == Mstate)
+ MPLIST_DO (plist, im_info->states)
{
- states = mplist ();
- MPLIST_DO (elt, MPLIST_NEXT (elt))
- {
- MIMState *state;
-
- if (! MPLIST_PLIST_P (elt))
- MERROR_GOTO (MERROR_IM, err);
- state = load_state (MPLIST_PLIST (elt), maps, language, macros);
- if (! state)
- MERROR_GOTO (MERROR_IM, err);
- mplist_put (states, state->name, state);
- }
+ MIMState *state = (MIMState *) MPLIST_VAL (plist);
+
+ M17N_OBJECT_UNREF (state);
}
+ M17N_OBJECT_UNREF (im_info->states);
}
- MPLIST_DO (elt, maps)
- M17N_OBJECT_UNREF (MPLIST_VAL (elt));
- M17N_OBJECT_UNREF (maps);
- if (! title)
- title = mtext_from_data (MSYMBOL_NAME (name), MSYMBOL_NAMELEN (name),
- MTEXT_FORMAT_US_ASCII);
- im_info->title = title;
- im_info->externals = externals;
- im_info->macros = macros;
- im_info->states = states;
- return 0;
-
- err:
- if (maps)
+ if (im_info->macros)
{
- MPLIST_DO (elt, maps)
- M17N_OBJECT_UNREF (MPLIST_VAL (elt));
- M17N_OBJECT_UNREF (maps);
+ MPLIST_DO (plist, im_info->macros)
+ M17N_OBJECT_UNREF (MPLIST_VAL (plist));
+ M17N_OBJECT_UNREF (im_info->macros);
}
- if (title)
- M17N_OBJECT_UNREF (title);
- if (states)
+
+ if (im_info->externals)
{
- MPLIST_DO (plist, states)
- {
- MIMState *state = (MIMState *) MPLIST_VAL (plist);
+ MPLIST_DO (plist, im_info->externals)
+ {
+ MIMExternalModule *external = MPLIST_VAL (plist);
- if (state->title)
- M17N_OBJECT_UNREF (state->title);
- if (state->map)
- free_map (state->map);
- free (state);
- }
- M17N_OBJECT_UNREF (states);
+ dlclose (external->handle);
+ M17N_OBJECT_UNREF (external->func_list);
+ free (external);
+ MPLIST_KEY (plist) = Mt;
+ }
+ M17N_OBJECT_UNREF (im_info->externals);
}
- if (externals)
+ if (im_info->maps)
{
- MPLIST_DO (plist, externals)
- {
- MIMExternalModule *external = MPLIST_VAL (plist);
+ MPLIST_DO (plist, im_info->maps)
+ {
+ MPlist *p = MPLIST_PLIST (plist);
- dlclose (external->handle);
- M17N_OBJECT_UNREF (external->func_list);
- free (external);
- MPLIST_KEY (plist) = Mt;
- }
- M17N_OBJECT_UNREF (externals);
+ M17N_OBJECT_UNREF (p);
+ }
+ M17N_OBJECT_UNREF (im_info->maps);
}
- return -1;
-}
-
-\f
-static int take_action_list (MInputContext *ic, MPlist *action_list);
+ im_info->tick = 0;
+}
static void
-shift_state (MInputContext *ic, MSymbol state_name)
+free_im_info (MInputMethodInfo *im_info)
{
- MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
- MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
- MIMState *state = ic_info->state;
+ fini_im_info (im_info);
+ free (im_info);
+}
- /* Find a state to shift to. If not found, shift to the initial
- state. */
- state = (MIMState *) mplist_get (im_info->states, state_name);
- if (! state)
- state = (MIMState *) MPLIST_VAL (im_info->states);
+static void
+free_im_list (MPlist *plist)
+{
+ MPlist *pl, *elt;
- /* Enter the new state. */
- ic_info->state = state;
- ic_info->map = state->map;
- ic_info->state_key_head = ic_info->key_head;
- if (state == (MIMState *) MPLIST_VAL (im_info->states))
+ MPLIST_DO (pl, plist)
{
- /* We have shifted to the initial state. */
- MPlist *p;
+ MInputMethodInfo *im_info;
- mtext_put_prop_values (ic->preedit, 0, mtext_nchars (ic->preedit),
- Mcandidate_list, NULL, 0);
- mtext_put_prop_values (ic->preedit, 0, mtext_nchars (ic->preedit),
- Mcandidate_index, NULL, 0);
- mtext_cat (ic->produced, ic->preedit);
- mtext_reset (ic->preedit);
- ic->candidate_list = NULL;
- ic->candidate_show = 0;
- ic->preedit_changed = ic->candidates_changed = 1;
- MPLIST_DO (p, ic_info->markers)
- MPLIST_VAL (p) = 0;
- MPLIST_DO (p, ic_info->vars)
- MPLIST_VAL (p) = 0;
- ic->cursor_pos = 0;
- memmove (ic_info->keys, ic_info->keys + ic_info->state_key_head,
- sizeof (int) * (ic_info->used - ic_info->state_key_head));
- ic_info->used -= ic_info->state_key_head;
- ic_info->state_key_head = ic_info->key_head = 0;
+ elt = MPLIST_NEXT (MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (pl))));
+ im_info = MPLIST_VAL (elt);
+ free_im_info (im_info);
}
- mtext_cpy (ic_info->preedit_saved, ic->preedit);
- ic_info->state_pos = ic->cursor_pos;
- ic->status = state->title;
- if (! ic->status)
- ic->status = im_info->title;
- ic->status_changed = 1;
- if (ic_info->key_head == ic_info->used
- && ic_info->map == ic_info->state->map
- && ic_info->map->map_actions)
- take_action_list (ic, ic_info->map->map_actions);
+ M17N_OBJECT_UNREF (plist);
}
-
-static MPlist *
-find_candidates_group (MPlist *plist, int index,
- int *start_index, int *end_index, int *group_index)
+static MInputMethodInfo *
+lookup_im_info (MPlist *plist, MSymbol language, MSymbol name, MSymbol extra)
{
- int i = 0, gidx = 0, len;
-
- MPLIST_DO (plist, plist)
+ if (name == Mnil && extra == Mnil)
+ language = Mt, extra = Mglobal;
+ while ((plist = mplist__assq (plist, language)))
{
- if (MPLIST_MTEXT_P (plist))
- len = mtext_nchars (MPLIST_MTEXT (plist));
- else
- len = mplist_length (MPLIST_PLIST (plist));
- if (i + len > index)
- {
- if (start_index)
- *start_index = i;
- if (end_index)
- *end_index = i + len;
- if (group_index)
- *group_index = gidx;
- return plist;
- }
- i += len;
- gidx++;
+ MPlist *elt = MPLIST_PLIST (plist);
+
+ plist = MPLIST_NEXT (plist);
+ elt = MPLIST_NEXT (elt);
+ if (MPLIST_SYMBOL (elt) != name)
+ continue;
+ elt = MPLIST_NEXT (elt);
+ if (MPLIST_SYMBOL (elt) != extra)
+ continue;
+ elt = MPLIST_NEXT (elt);
+ return MPLIST_VAL (elt);
}
return NULL;
}
-static void
-preedit_insert (MInputContext *ic, int pos, MText *mt, int c)
-{
- MInputContextInfo *ic_info = ((MInputContext *) ic)->info;
- MPlist *markers;
- int nchars = mt ? mtext_nchars (mt) : 1;
+static void load_im_info (MPlist *, MInputMethodInfo *);
- if (mt)
- mtext_ins (ic->preedit, pos, mt);
- else
- mtext_ins_char (ic->preedit, pos, c, 1);
- MPLIST_DO (markers, ic_info->markers)
- if (MPLIST_INTEGER (markers) > pos)
- MPLIST_VAL (markers) = (void *) (MPLIST_INTEGER (markers) + nchars);
- if (ic->cursor_pos >= pos)
- ic->cursor_pos += nchars;
- ic->preedit_changed = 1;
-}
+#define get_custom_info(im_info) \
+ (im_custom_list \
+ ? lookup_im_info (im_custom_list, (im_info)->language, \
+ (im_info)->name, (im_info)->extra) \
+ : NULL)
+#define get_config_info(im_info) \
+ (im_config_list \
+ ? lookup_im_info (im_config_list, (im_info)->language, \
+ (im_info)->name, (im_info)->extra) \
+ : NULL)
-static void
-preedit_delete (MInputContext *ic, int from, int to)
+static int
+update_custom_info (void)
{
- MInputContextInfo *ic_info = ((MInputContext *) ic)->info;
- MPlist *markers;
+ MPlist *plist, *pl;
- mtext_del (ic->preedit, from, to);
- MPLIST_DO (markers, ic_info->markers)
+ if (im_custom_mdb)
{
- if (MPLIST_INTEGER (markers) > to)
- MPLIST_VAL (markers)
- = (void *) (MPLIST_INTEGER (markers) - (to - from));
- else if (MPLIST_INTEGER (markers) > from);
- MPLIST_VAL (markers) = (void *) from;
+ if (mdatabase__check (im_custom_mdb) > 0)
+ return 1;
}
- if (ic->cursor_pos >= to)
- ic->cursor_pos -= to - from;
- else if (ic->cursor_pos > from)
- ic->cursor_pos = from;
- ic->preedit_changed = 1;
-}
-
+ else
+ {
+ MDatabaseInfo *custom_dir_info;
+ char custom_path[PATH_MAX + 1];
-static int
-new_index (MInputContext *ic, int current, int limit, MSymbol sym, MText *mt)
-{
- int code = marker_code (sym);
+ custom_dir_info = MPLIST_VAL (mdatabase__dir_list);
+ if (! custom_dir_info->filename
+ || custom_dir_info->len + strlen (CUSTOM_FILE) > PATH_MAX)
+ return -1;
+ strcpy (custom_path, custom_dir_info->filename);
+ strcat (custom_path, CUSTOM_FILE);
+ im_custom_mdb = mdatabase_define (Minput_method, Mt, Mnil, Mconfig,
+ NULL, custom_path);
+ }
- if (mt && (code == '[' || code == ']'))
+ if (im_custom_list)
{
- int pos = current;
+ free_im_list (im_custom_list);
+ im_custom_list = NULL;
+ }
+ plist = mdatabase_load (im_custom_mdb);
+ if (! plist)
+ return -1;
+ im_custom_list = mplist ();
- if (code == '[' && current > 0)
- {
- if (mtext_prop_range (mt, Mcandidate_list, pos - 1, &pos, NULL, 1)
- && pos > 0)
- current = pos;
- }
- else if (code == ']' && current < mtext_nchars (mt))
- {
- if (mtext_prop_range (mt, Mcandidate_list, pos, NULL, &pos, 1))
- current = pos;
- }
- return current;
+ MPLIST_DO (pl, plist)
+ {
+ MSymbol language, name, extra;
+ MInputMethodInfo *im_info;
+ MPlist *im_data, *p;
+
+ if (! MPLIST_PLIST_P (pl))
+ continue;
+ p = MPLIST_PLIST (pl);
+ im_data = MPLIST_NEXT (p);
+ if (! MPLIST_PLIST_P (p))
+ continue;
+ p = MPLIST_PLIST (p);
+ if (! MPLIST_SYMBOL_P (p)
+ || MPLIST_SYMBOL (p) != Minput_method)
+ continue;
+ p = MPLIST_NEXT (p);
+ if (! MPLIST_SYMBOL_P (p))
+ continue;
+ language = MPLIST_SYMBOL (p);
+ p = MPLIST_NEXT (p);
+ if (! MPLIST_SYMBOL_P (p))
+ continue;
+ name = MPLIST_SYMBOL (p);
+ if (language == Mnil || name == Mnil)
+ continue;
+ p = MPLIST_NEXT (p);
+ if (MPLIST_TAIL_P (p))
+ extra = Mnil;
+ else if (MPLIST_SYMBOL_P (p))
+ extra = MPLIST_SYMBOL (p);
+ else
+ continue;
+ im_info = new_im_info (NULL, language, name, extra, im_custom_list);
+ load_im_info (im_data, im_info);
}
- if (code >= 0)
- return (code == '<' ? 0
- : code == '>' ? limit
- : code == '-' ? current - 1
- : code == '+' ? current + 1
- : code == '=' ? current
- : code - '0' > limit ? limit
- : code - '0');
- if (! ic)
- return 0;
- return (int) mplist_get (((MInputContextInfo *) ic->info)->markers, sym);
+ M17N_OBJECT_UNREF (plist);
+ return 0;
}
-static void
-udpate_candidate (MInputContext *ic, MTextProperty *prop, int idx)
+static int
+update_global_info (void)
{
- int from = mtext_property_start (prop);
- int to = mtext_property_end (prop);
- int start;
- MPlist *candidate_list = mtext_property_value (prop);
- MPlist *group = find_candidates_group (candidate_list, idx, &start,
- NULL, NULL);
- int ingroup_index = idx - start;
- MText *mt;
+ MPlist *plist;
- preedit_delete (ic, from, to);
- if (MPLIST_MTEXT_P (group))
+ if (global_info)
{
- mt = MPLIST_MTEXT (group);
- preedit_insert (ic, from, NULL, mtext_ref_char (mt, ingroup_index));
- to = from + 1;
+ int ret = mdatabase__check (global_info->mdb);
+
+ if (ret)
+ return ret;
+ fini_im_info (global_info);
}
else
{
- int i;
- MPlist *plist;
+ MDatabase *mdb = mdatabase_find (Minput_method, Mt, Mnil, Mglobal);
- for (i = 0, plist = MPLIST_PLIST (group); i < ingroup_index;
- i++, plist = MPLIST_NEXT (plist));
- mt = MPLIST_MTEXT (plist);
- preedit_insert (ic, from, mt, 0);
- to = from + mtext_nchars (mt);
+ global_info = new_im_info (mdb, Mt, Mnil, Mglobal, im_info_list);
}
- mtext_put_prop (ic->preedit, from, to, Mcandidate_list, candidate_list);
- mtext_put_prop (ic->preedit, from, to, Mcandidate_index, (void *) idx);
- ic->cursor_pos = to;
+ if (! global_info->mdb
+ || ! (plist = mdatabase_load (global_info->mdb)))
+ return -1;
+
+ load_im_info (plist, global_info);
+ M17N_OBJECT_UNREF (plist);
+ return 0;
}
+/* Return an IM_INFO for the an method specified by LANGUAGE, NAME,
+ and EXTRA. KEY, if not Mnil, tells which kind of information about
+ the input method is necessary, and the returned IM_INFO may contain
+ only that information. */
+
+static MInputMethodInfo *
+get_im_info (MSymbol language, MSymbol name, MSymbol extra, MSymbol key)
+{
+ MPlist *plist;
+ MInputMethodInfo *im_info;
+ MDatabase *mdb;
+
+ if (name == Mnil && extra == Mnil)
+ language = Mt, extra = Mglobal;
+ im_info = lookup_im_info (im_info_list, language, name, extra);
+ if (im_info)
+ {
+ if (key == Mnil ? im_info->states != NULL
+ : key == Mcommand ? im_info->cmds != NULL
+ : key == Mvariable ? im_info->vars != NULL
+ : key == Mtitle ? im_info->title != NULL
+ : key == Mdescription ? im_info->description != NULL
+ : 1)
+ /* IM_INFO already contains required information. */
+ return im_info;
+ /* We have not yet loaded required information. */
+ }
+ else
+ {
+ mdb = mdatabase_find (Minput_method, language, name, extra);
+ if (! mdb)
+ return NULL;
+ im_info = new_im_info (mdb, language, name, extra, im_info_list);
+ }
+
+ if (key == Mnil)
+ {
+ plist = mdatabase_load (im_info->mdb);
+ }
+ else
+ {
+ mplist_push (load_im_info_keys, key, Mt);
+ plist = mdatabase__load_for_keys (im_info->mdb, load_im_info_keys);
+ mplist_pop (load_im_info_keys);
+ }
+ im_info->tick = 0;
+ if (! plist)
+ MERROR (MERROR_IM, im_info);
+ update_global_info ();
+ load_im_info (plist, im_info);
+ M17N_OBJECT_UNREF (plist);
+ if (key == Mnil)
+ {
+ if (! im_info->cmds)
+ im_info->cmds = mplist ();
+ if (! im_info->vars)
+ im_info->vars = mplist ();
+ }
+ if (! im_info->title
+ && (key == Mnil || key == Mtitle))
+ im_info->title = (name == Mnil ? mtext ()
+ : mtext_from_data (MSYMBOL_NAME (name),
+ MSYMBOL_NAMELEN (name),
+ MTEXT_FORMAT_US_ASCII));
+ return im_info;
+}
+
+/* Check if IM_INFO->mdb is updated or not. If not updated, return 0.
+ If updated, but got unloadable, return -1. Otherwise, update
+ contents of IM_INFO from the new database, and return 1. */
+
static int
-take_action_list (MInputContext *ic, MPlist *action_list)
+reload_im_info (MInputMethodInfo *im_info)
{
- MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
- MPlist *candidate_list = ic->candidate_list;
- int candidate_index = ic->candidate_index;
- int candidate_show = ic->candidate_show;
- MTextProperty *prop;
+ int check;
+ MPlist *plist;
- MPLIST_DO (action_list, action_list)
+ check = mdatabase__check (im_info->mdb);
+ if (check > 0)
+ return 0;
+ if (check < 0)
+ return -1;
+ plist = mdatabase_load (im_info->mdb);
+ if (! plist)
+ return -1;
+ fini_im_info (im_info);
+ load_im_info (plist, im_info);
+ M17N_OBJECT_UNREF (plist);
+ return 1;
+}
+
+static MInputMethodInfo *
+get_im_info_by_tags (MPlist *plist)
+{
+ MSymbol tag[3];
+ int i;
+
+ for (i = 0; i < 3 && MPLIST_SYMBOL_P (plist);
+ i++, plist = MPLIST_NEXT (plist))
+ tag[i] = MPLIST_SYMBOL (plist);
+ if (i < 2)
+ return NULL;
+ for (; i < 3; i++)
+ tag[i] = Mnil;
+ return get_im_info (tag[0], tag[1], tag[2], Mnil);
+}
+
+/* Check KEYSEQ, and return 1 if it is valid as a key sequence, return
+ 0 if not. */
+
+static int
+check_command_keyseq (MPlist *keyseq)
+{
+ if (MPLIST_PLIST_P (keyseq))
{
- MPlist *action;
- MSymbol name;
- MPlist *args;
+ MPlist *p = MPLIST_PLIST (keyseq);
+
+ MPLIST_DO (p, p)
+ if (! MPLIST_SYMBOL_P (p) && ! MPLIST_INTEGER_P (p))
+ return 0;
+ return 1;
+ }
+ if (MPLIST_MTEXT_P (keyseq))
+ {
+ MText *mt = MPLIST_MTEXT (keyseq);
+ int i;
+
+ for (i = 0; i < mtext_nchars (mt); i++)
+ if (mtext_ref_char (mt, i) >= 256)
+ return 0;
+ return 1;
+ }
+ return 0;
+}
+
+/* Load command defitions from PLIST into IM_INFO->cmds.
+
+ PLIST is well-formed and has this form;
+ (command (NAME [DESCRIPTION KEYSEQ ...]) ...)
+ NAME is a symbol. DESCRIPTION is an M-text or `nil'. KEYSEQ is an
+ M-text or a plist of symbols.
+
+ The returned list has the same form, but for each element...
+
+ (1) If DESCRIPTION and the rest are omitted, the element is not
+ stored in the returned list.
+
+ (2) If DESCRIPTION is nil, it is complemented by the corresponding
+ description in global_info->cmds (if any). */
+
+static void
+load_commands (MInputMethodInfo *im_info, MPlist *plist)
+{
+ MPlist *tail;
- if (MPLIST_MTEXT_P (action_list)
- || MPLIST_INTEGER_P (action_list))
- name = Minsert, args = action_list;
- else if (MPLIST_PLIST_P (action_list)
- && (MPLIST_MTEXT_P (MPLIST_PLIST (action_list))
- || MPLIST_PLIST_P (MPLIST_PLIST (action_list))))
- name = Minsert, args = action_list;
+ im_info->cmds = tail = mplist ();
+
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ {
+ /* PLIST ::= ((NAME DESC KEYSEQ ...) ...) */
+ MPlist *pl, *p;
+
+ if (MFAILP (MPLIST_PLIST_P (plist)))
+ continue;
+ pl = MPLIST_PLIST (plist); /* PL ::= (NAME DESC KEYSEQ ...) */
+ if (MFAILP (MPLIST_SYMBOL_P (pl)))
+ continue;
+ p = MPLIST_NEXT (pl); /* P ::= (DESC KEYSEQ ...) */
+ if (MPLIST_TAIL_P (p)) /* PL ::= (NAME) */
+ {
+ if (MFAILP (im_info != global_info))
+ mplist_add (p, Msymbol, Mnil); /* PL ::= (NAME nil) */
+ }
else
{
- action = MPLIST_PLIST (action_list);
- name = MPLIST_SYMBOL (action);
- args = MPLIST_NEXT (action);
+ if (! MPLIST_MTEXT_P (p)
+ && (! MPLIST_SYMBOL_P (p) || MPLIST_SYMBOL (p) != Mnil))
+ mplist_set (p, Msymbol, Mnil);
+ p = MPLIST_NEXT (p);
+ while (! MPLIST_TAIL_P (p))
+ {
+ if (MFAILP (check_command_keyseq (p)))
+ mplist__pop_unref (p);
+ else
+ p = MPLIST_NEXT (p);
+ }
}
+ tail = mplist_add (tail, Mplist, pl);
+ }
+}
- if (name == Minsert)
+static MPlist *
+config_command (MPlist *plist, MPlist *global_cmds, MPlist *custom_cmds,
+ MPlist *config_cmds)
+{
+ MPlist *global = NULL, *custom = NULL, *config = NULL;
+ MSymbol name;
+ MText *description = NULL;
+ MSymbol status;
+ MPlist *keyseq;
+
+ name = MPLIST_SYMBOL (plist);
+ plist = MPLIST_NEXT (plist);
+ if (MPLIST_MTEXT_P (plist))
+ description = MPLIST_MTEXT (plist);
+ else if (global_cmds && ((global = mplist__assq (global_cmds, name))))
+ {
+ global = MPLIST_NEXT (MPLIST_PLIST (global));
+ description = MPLIST_MTEXT_P (global) ? MPLIST_MTEXT (global) : NULL;
+ }
+ if (MPLIST_TAIL_P (plist))
+ {
+ if (! global
+ && global_cmds && ((global = mplist__assq (global_cmds, name))))
+ global = MPLIST_NEXT (MPLIST_PLIST (global));
+ if (global)
{
- if (MPLIST_MTEXT_P (args))
- preedit_insert (ic, ic->cursor_pos, MPLIST_MTEXT (args), 0);
- else if (MPLIST_INTEGER_P (args))
- preedit_insert (ic, ic->cursor_pos, NULL, MPLIST_INTEGER (args));
- else if (MPLIST_SYMBOL_P (args))
- {
- int c = integer_value (ic, args);
+ keyseq = MPLIST_NEXT (global);
+ status = Minherited;
+ }
+ else
+ {
+ keyseq = plist;
+ status = Mnil;
+ }
+ }
+ else
+ {
+ keyseq = MPLIST_NEXT (plist);
+ status = Mnil;
+ }
+
+ if (config_cmds && (config = mplist__assq (config_cmds, name)))
+ {
+ config = MPLIST_NEXT (MPLIST_PLIST (config));
+ if (! MPLIST_TAIL_P (config))
+ {
+ keyseq = MPLIST_NEXT (config);
+ status = Mconfigured;
+ }
+ }
+ else if (custom_cmds && (custom = mplist__assq (custom_cmds, name)))
+ {
+ custom = MPLIST_NEXT (MPLIST_PLIST (custom));
+ if (! MPLIST_TAIL_P (custom))
+ {
+ keyseq = MPLIST_NEXT (custom);
+ status = Mcustomized;
+ }
+ }
+
+ plist = mplist ();
+ mplist_add (plist, Msymbol, name);
+ if (description)
+ mplist_add (plist, Mtext, description);
+ else
+ mplist_add (plist, Msymbol, Mnil);
+ mplist_add (plist, Msymbol, status);
+ mplist__conc (plist, keyseq);
+ return plist;
+}
+
+static void
+config_all_commands (MInputMethodInfo *im_info)
+{
+ MPlist *global_cmds, *custom_cmds, *config_cmds;
+ MInputMethodInfo *temp;
+ MPlist *tail, *plist;
+
+ M17N_OBJECT_UNREF (im_info->configured_cmds);
+
+ if (MPLIST_TAIL_P (im_info->cmds)
+ || ! im_info->mdb)
+ return;
+
+ global_cmds = im_info != global_info ? global_info->cmds : NULL;
+ custom_cmds = ((temp = get_custom_info (im_info)) ? temp->cmds : NULL);
+ config_cmds = ((temp = get_config_info (im_info)) ? temp->cmds : NULL);
+
+ im_info->configured_cmds = tail = mplist ();
+ MPLIST_DO (plist, im_info->cmds)
+ {
+ MPlist *pl = config_command (MPLIST_PLIST (plist),
+ global_cmds, custom_cmds, config_cmds);
+ if (pl)
+ tail = mplist_add (tail, Mplist, pl);
+ }
+}
+
+/* Check VAL's value against VALID_VALUES, and return 1 if it is
+ valid, return 0 if not. */
+
+static int
+check_variable_value (MPlist *val, MPlist *global)
+{
+ MSymbol type = MPLIST_KEY (val);
+ MPlist *valids = MPLIST_NEXT (val);
+
+ if (type != Minteger && type != Mtext && type != Msymbol)
+ return 0;
+ if (global)
+ {
+ if (MPLIST_KEY (global) != Mt
+ && MPLIST_KEY (global) != MPLIST_KEY (val))
+ return 0;
+ if (MPLIST_TAIL_P (valids))
+ valids = MPLIST_NEXT (global);
+ }
+ if (MPLIST_TAIL_P (valids))
+ return 1;
+
+ if (type == Minteger)
+ {
+ int n = MPLIST_INTEGER (val);
- if (c >= 0 && c <= MCHAR_MAX)
- preedit_insert (ic, ic->cursor_pos, NULL, c);
+ MPLIST_DO (valids, valids)
+ {
+ if (MPLIST_INTEGER_P (valids))
+ {
+ if (n == MPLIST_INTEGER (valids))
+ break;
}
- else
+ else if (MPLIST_PLIST_P (valids))
{
- MText *mt;
- int len;
-
- args = MPLIST_PLIST (args);
- if (MPLIST_MTEXT_P (args))
- {
- preedit_insert (ic, ic->cursor_pos, NULL,
- mtext_ref_char (MPLIST_MTEXT (args), 0));
- len = 1;
- }
- else
- {
- mt = MPLIST_MTEXT (MPLIST_PLIST (args));
- preedit_insert (ic, ic->cursor_pos, mt, 0);
- len = mtext_nchars (mt);
- }
- mtext_put_prop (ic->preedit,
- ic->cursor_pos - len, ic->cursor_pos,
- Mcandidate_list, args);
- mtext_put_prop (ic->preedit,
- ic->cursor_pos - len, ic->cursor_pos,
- Mcandidate_index, (void *) 0);
+ MPlist *p = MPLIST_PLIST (valids);
+ int min_bound, max_bound;
+
+ if (! MPLIST_INTEGER_P (p))
+ MERROR (MERROR_IM, 0);
+ min_bound = MPLIST_INTEGER (p);
+ p = MPLIST_NEXT (p);
+ if (! MPLIST_INTEGER_P (p))
+ MERROR (MERROR_IM, 0);
+ max_bound = MPLIST_INTEGER (p);
+ if (n >= min_bound && n <= max_bound)
+ break;
}
}
- else if (name == Mselect)
+ }
+ else if (type == Msymbol)
+ {
+ MSymbol sym = MPLIST_SYMBOL (val);
+
+ MPLIST_DO (valids, valids)
{
- int start, end;
- int code, idx, gindex;
- int pos = ic->cursor_pos;
- MPlist *group;
+ if (! MPLIST_SYMBOL_P (valids))
+ MERROR (MERROR_IM, 0);
+ if (sym == MPLIST_SYMBOL (valids))
+ break;
+ }
+ }
+ else
+ {
+ MText *mt = MPLIST_MTEXT (val);
- if (pos == 0
- || ! (prop = mtext_get_property (ic->preedit, pos - 1,
- Mcandidate_list)))
- continue;
- if (MPLIST_SYMBOL_P (args))
+ MPLIST_DO (valids, valids)
+ {
+ if (! MPLIST_MTEXT_P (valids))
+ MERROR (MERROR_IM, 0);
+ if (mtext_cmp (mt, MPLIST_MTEXT (valids)) == 0)
+ break;
+ }
+ }
+
+ return (MPLIST_TAIL_P (valids));
+}
+
+/* Load variable defitions from PLIST into IM_INFO->vars.
+
+ PLIST is well-formed and has this form;
+ ((NAME [DESCRIPTION DEFAULT-VALUE VALID-VALUE ...])
+ ...)
+ NAME is a symbol. DESCRIPTION is an M-text or `nil'.
+
+ The returned list has the same form, but for each element...
+
+ (1) If DESCRIPTION and the rest are omitted, the element is not
+ stored in the returned list.
+
+ (2) If DESCRIPTION is nil, it is complemented by the corresponding
+ description in global_info->vars (if any). */
+
+static void
+load_variables (MInputMethodInfo *im_info, MPlist *plist)
+{
+ MPlist *global_vars = ((im_info->mdb && im_info != global_info)
+ ? global_info->vars : NULL);
+ MPlist *tail;
+
+ im_info->vars = tail = mplist ();
+ MPLIST_DO (plist, MPLIST_NEXT (plist))
+ {
+ MPlist *pl, *p;
+
+ if (MFAILP (MPLIST_PLIST_P (plist)))
+ continue;
+ pl = MPLIST_PLIST (plist); /* PL ::= (NAME DESC VALUE VALID ...) */
+ if (MFAILP (MPLIST_SYMBOL_P (pl)))
+ continue;
+ if (im_info == global_info)
+ {
+ /* Loading a global variable. */
+ p = MPLIST_NEXT (pl);
+ if (MPLIST_TAIL_P (p))
+ mplist_add (p, Msymbol, Mnil);
+ else
{
- code = marker_code (MPLIST_SYMBOL (args));
- if (code < 0)
- continue;
+ if (MFAILP (MPLIST_MTEXT_P (p)))
+ mplist_set (p, Msymbol, Mnil);
+ p = MPLIST_NEXT (p);
+ if (MFAILP (! MPLIST_TAIL_P (p)
+ && check_variable_value (p, NULL)))
+ mplist_set (p, Mt, NULL);
}
- else
- code = -1;
- idx = (int) mtext_get_prop (ic->preedit, pos - 1, Mcandidate_index);
- group = find_candidates_group (mtext_property_value (prop), idx,
- &start, &end, &gindex);
+ }
+ else if (im_info->mdb)
+ {
+ /* Loading a local variable. */
+ MSymbol name = MPLIST_SYMBOL (pl);
+ MPlist *global = NULL;
- if (code != '[' && code != ']')
+ if (global_vars
+ && (p = mplist__assq (global_vars, name)))
{
- idx = (start
- + (code >= 0
- ? new_index (NULL, ic->candidate_index - start,
- end - start - 1, MPLIST_SYMBOL (args),
- NULL)
- : MPLIST_INTEGER (args)));
- if (idx < 0
- || (idx >= end
- && MPLIST_TAIL_P (MPLIST_NEXT (group))))
- idx = 0;
+ /* P ::= ((NAME DESC ...) ...) */
+ p = MPLIST_PLIST (p); /* P ::= (NAME DESC ...) */
+ global = MPLIST_NEXT (p); /* P ::= (DESC VALUE ...) */
+ global = MPLIST_NEXT (p); /* P ::= (VALUE ...) */
}
- else
- {
- int ingroup_index = idx - start;
- int len;
- group = mtext_property_value (prop);
- len = mplist_length (group);
- if (code == '[')
- {
- gindex--;
- if (gindex < 0)
- gindex = len - 1;;
- }
+ p = MPLIST_NEXT (pl); /* P ::= (DESC VALUE VALID ...) */
+ if (! MPLIST_TAIL_P (p))
+ {
+ if (MFAILP (MPLIST_MTEXT_P (p)
+ || (MPLIST_SYMBOL_P (p)
+ && MPLIST_SYMBOL (p) == Mnil)))
+ mplist_set (p, Msymbol, Mnil);
+ p = MPLIST_NEXT (p); /* P ::= (VALUE VALID ...) */
+ if (MFAILP (! MPLIST_TAIL_P (p)))
+ mplist_set (p, Mt, NULL);
else
{
- gindex++;
- if (gindex >= len)
- gindex = 0;
+ MPlist *valid_values = MPLIST_NEXT (p);
+
+ if (! MPLIST_TAIL_P (valid_values)
+ ? MFAILP (check_variable_value (p, NULL))
+ : global && MFAILP (check_variable_value (p, global)))
+ mplist_set (p, Mt, NULL);
}
- for (idx = 0; gindex > 0; gindex--, group = MPLIST_NEXT (group))
- idx += (MPLIST_MTEXT_P (group)
- ? mtext_nchars (MPLIST_MTEXT (group))
- : mplist_length (MPLIST_PLIST (group)));
- len = (MPLIST_MTEXT_P (group)
- ? mtext_nchars (MPLIST_MTEXT (group))
- : mplist_length (MPLIST_PLIST (group)));
- if (ingroup_index >= len)
- ingroup_index = len - 1;
- idx += ingroup_index;
}
- udpate_candidate (ic, prop, idx);
}
- else if (name == Mshow)
- ic->candidate_show = 1;
- else if (name == Mhide)
- ic->candidate_show = 0;
- else if (name == Mdelete)
+ else
{
- int len = mtext_nchars (ic->preedit);
- int to = (MPLIST_SYMBOL_P (args)
- ? new_index (ic, ic->cursor_pos, len, MPLIST_SYMBOL (args),
- ic->preedit)
- : MPLIST_INTEGER (args));
+ /* Loading a variable customization. */
+ p = MPLIST_NEXT (pl); /* P ::= (nil VALUE) */
+ if (MFAILP (! MPLIST_TAIL_P (p)))
+ continue;
+ p = MPLIST_NEXT (p); /* P ::= (VALUE) */
+ if (MFAILP (MPLIST_INTEGER_P (p) || MPLIST_SYMBOL_P (p)
+ || MPLIST_MTEXT_P (p)))
+ continue;
+ }
+ tail = mplist_add (tail, Mplist, pl);
+ }
+}
+
+static MPlist *
+config_variable (MPlist *plist, MPlist *global_vars, MPlist *custom_vars,
+ MPlist *config_vars)
+{
+ MPlist *global = NULL, *custom = NULL, *config = NULL;
+ MSymbol name = MPLIST_SYMBOL (plist);
+ MText *description = NULL;
+ MSymbol status;
+ MPlist *value, *valids;
+
+ if (global_vars)
+ {
+ global = mplist__assq (global_vars, name);
+ if (global)
+ global = MPLIST_NEXT (MPLIST_PLIST (global)); /* (DESC VALUE ...) */
+ }
+
+ plist = MPLIST_NEXT (plist);
+ if (MPLIST_MTEXT_P (plist))
+ description = MPLIST_MTEXT (plist);
+ else if (global && MPLIST_MTEXT (global))
+ description = MPLIST_MTEXT (global);
+ if (global)
+ global = MPLIST_NEXT (global); /* (VALUE VALIDS ...) */
- if (to < 0)
- to = 0;
- else if (to > len)
- to = len;
- if (to < ic->cursor_pos)
- preedit_delete (ic, to, ic->cursor_pos);
- else if (to > ic->cursor_pos)
- preedit_delete (ic, ic->cursor_pos, to);
+ if (MPLIST_TAIL_P (plist))
+ {
+ /* Inherit from global (if any). */
+ if (global)
+ {
+ value = global;
+ if (MPLIST_KEY (value) == Mt)
+ value = NULL;
+ valids = MPLIST_NEXT (global);
+ status = Minherited;
}
- else if (name == Mmove)
+ else
{
- int len = mtext_nchars (ic->preedit);
- int pos
- = (MPLIST_SYMBOL_P (args)
- ? new_index (ic, ic->cursor_pos, len, MPLIST_SYMBOL (args),
- ic->preedit)
- : MPLIST_INTEGER (args));
-
- if (pos < 0)
- pos = 0;
- else if (pos > len)
- pos = len;
- if (pos != ic->cursor_pos)
- {
- ic->cursor_pos = pos;
- ic->preedit_changed = 1;
- }
+ value = NULL;
+ valids = NULL;
+ status = Mnil;
+ plist = NULL;
}
- else if (name == Mmark)
- {
- int code = marker_code (MPLIST_SYMBOL (args));
+ }
+ else
+ {
+ value = plist = MPLIST_NEXT (plist);
+ valids = MPLIST_NEXT (value);
+ if (MPLIST_KEY (value) == Mt)
+ value = NULL;
+ if (! MPLIST_TAIL_P (valids))
+ global = NULL;
+ else if (global)
+ valids = MPLIST_NEXT (global);
+ status = Mnil;
+ }
- if (code < 0)
- mplist_put (ic_info->markers, MPLIST_SYMBOL (args),
- (void *) ic->cursor_pos);
- }
- else if (name == Mpushback)
+ if (config_vars && (config = mplist__assq (config_vars, name)))
+ {
+ config = MPLIST_NEXT (MPLIST_PLIST (config));
+ if (! MPLIST_TAIL_P (config))
{
- int num = MPLIST_INTEGER (args);
-
- if (num > 0)
- ic_info->key_head -= num;
- else
- ic_info->key_head = num;
- if (ic_info->key_head > ic_info->used)
- ic_info->key_head = ic_info->used;
+ value = MPLIST_NEXT (config);
+ if (MFAILP (check_variable_value (value, global ? global : plist)))
+ value = NULL;
+ status = Mconfigured;
}
- else if (name == Mcall)
+ }
+ else if (custom_vars && (custom = mplist__assq (custom_vars, name)))
+ {
+ custom = MPLIST_NEXT (MPLIST_PLIST (custom));
+ if (! MPLIST_TAIL_P (custom))
{
- MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
- MIMExternalFunc func = NULL;
- MSymbol module, func_name;
- MPlist *func_args, *val;
- int ret = 0;
+ value = MPLIST_NEXT (custom);
+ if (MFAILP (check_variable_value (value, global ? global : plist)))
+ value = NULL;
+ status = Mcustomized;
+ }
+ }
+
+ plist = mplist ();
+ mplist_add (plist, Msymbol, name);
+ if (description)
+ mplist_add (plist, Mtext, description);
+ else
+ mplist_add (plist, Msymbol, Mnil);
+ mplist_add (plist, Msymbol, status);
+ if (value)
+ mplist_add (plist, MPLIST_KEY (value), MPLIST_VAL (value));
+ else
+ mplist_add (plist, Mt, NULL);
+ if (valids && ! MPLIST_TAIL_P (valids))
+ mplist__conc (plist, valids);
+ return plist;
+}
- module = MPLIST_SYMBOL (args);
- args = MPLIST_NEXT (args);
- func_name = MPLIST_SYMBOL (args);
+/* Return a configured variable definition list based on
+ IM_INFO->vars. If a variable in it doesn't contain a value, try to
+ get it from global_info->vars. */
- if (im_info->externals)
- {
- MIMExternalModule *external
- = (MIMExternalModule *) mplist_get (im_info->externals,
- module);
- if (external)
- func = (MIMExternalFunc) mplist_get (external->func_list,
- func_name);
- }
- if (! func)
- continue;
- func_args = mplist ();
- mplist_add (func_args, Mt, ic);
- MPLIST_DO (args, MPLIST_NEXT (args))
- {
- int code;
+static void
+config_all_variables (MInputMethodInfo *im_info)
+{
+ MPlist *global_vars, *custom_vars, *config_vars;
+ MInputMethodInfo *temp;
+ MPlist *tail, *plist;
- if (MPLIST_KEY (args) == Msymbol
- && MPLIST_KEY (args) != Mnil
- && (code = marker_code (MPLIST_SYMBOL (args))) >= 0)
- {
- code = new_index (ic, ic->cursor_pos,
- mtext_nchars (ic->preedit),
- MPLIST_SYMBOL (args), ic->preedit);
- mplist_add (func_args, Minteger, (void *) code);
- }
- else
- mplist_add (func_args, MPLIST_KEY (args), MPLIST_VAL (args));
- }
- val = (func) (func_args);
- M17N_OBJECT_UNREF (func_args);
- if (val && ! MPLIST_TAIL_P (val))
- ret = take_action_list (ic, val);
- M17N_OBJECT_UNREF (val);
- if (ret < 0)
- return ret;
- }
- else if (name == Mshift)
- {
- shift_state (ic, MPLIST_SYMBOL (args));
- }
- else if (name == Mundo)
- {
- MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
- int unhandle = 0;
+ M17N_OBJECT_UNREF (im_info->configured_vars);
- mtext_reset (ic->preedit);
- mtext_reset (ic_info->preedit_saved);
- ic->cursor_pos = ic_info->state_pos = 0;
- ic_info->state_key_head = ic_info->key_head = 0;
- ic_info->used -= 2;
- if (ic_info->used < 0)
- {
- ic_info->used = 0;
- unhandle = 1;
- }
- shift_state (ic, ((MIMState *) MPLIST_VAL (im_info->states))->name);
- if (unhandle)
- return -1;
- break;
- }
- else if (name == Mset || name == Madd || name == Msub
- || name == Mmul || name == Mdiv)
- {
- MSymbol sym = MPLIST_SYMBOL (args);
- int val1 = (int) mplist_get (ic_info->vars, sym), val2;
+ if (MPLIST_TAIL_P (im_info->vars)
+ || ! im_info->mdb)
+ return;
- args = MPLIST_NEXT (args);
- val2 = integer_value (ic, args);
- if (name == Mset)
- val1 = val2;
- else if (name == Madd)
- val1 += val2;
- else if (name == Msub)
- val1 -= val2;
- else if (name == Mmul)
- val1 *= val2;
- else
- val1 /= val2;
- mplist_put (ic_info->vars, sym, (void *) val1);
- }
- else if (name == Mequal || name == Mless || name == Mgreater)
- {
- int val1, val2;
- MPlist *actions1, *actions2;
- int ret;
+ global_vars = im_info != global_info ? global_info->vars : NULL;
+ custom_vars = ((temp = get_custom_info (im_info)) ? temp->vars : NULL);
+ config_vars = ((temp = get_config_info (im_info)) ? temp->vars : NULL);
- val1 = integer_value (ic, args);
- args = MPLIST_NEXT (args);
- val2 = integer_value (ic, args);
- args = MPLIST_NEXT (args);
- actions1 = MPLIST_PLIST (args);
- args = MPLIST_NEXT (args);
- if (MPLIST_TAIL_P (args))
- actions2 = NULL;
- else
- actions2 = MPLIST_PLIST (args);
- if (name == Mequal ? val1 == val2
- : name == Mless ? val1 < val2
- : val1 > val2)
- ret = take_action_list (ic, actions1);
- else if (actions2)
- ret = take_action_list (ic, actions2);
- if (ret < 0)
- return ret;
- }
- else
- {
- MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
- MPlist *actions;
+ im_info->configured_vars = tail = mplist ();
+ MPLIST_DO (plist, im_info->vars)
+ {
+ MPlist *pl = config_variable (MPLIST_PLIST (plist),
+ global_vars, custom_vars, config_vars);
+ if (pl)
+ tail = mplist_add (tail, Mplist, pl);
+ }
+}
- if (im_info->macros
- && (actions = mplist_get (im_info->macros, name)))
- {
- if (take_action_list (ic, actions) < 0)
- return -1;
- };
- }
+/* Load an input method (LANGUAGE NAME) from PLIST into IM_INFO.
+ CONFIG contains configuration information of the input method. */
+
+static void
+load_im_info (MPlist *plist, MInputMethodInfo *im_info)
+{
+ MPlist *pl, *p;
+
+ if (! im_info->cmds && (pl = mplist__assq (plist, Mcommand)))
+ {
+ load_commands (im_info, MPLIST_PLIST (pl));
+ config_all_commands (im_info);
+ pl = mplist_pop (pl);
+ M17N_OBJECT_UNREF (pl);
}
- prop = NULL;
- ic->candidate_list = NULL;
- if (ic->cursor_pos > 0
- && (prop = mtext_get_property (ic->preedit, ic->cursor_pos - 1,
- Mcandidate_list)))
+ if (! im_info->vars && (pl = mplist__assq (plist, Mvariable)))
{
- ic->candidate_list = mtext_property_value (prop);
- ic->candidate_index
- = (int) mtext_get_prop (ic->preedit, ic->cursor_pos - 1,
- Mcandidate_index);
- ic->candidate_from = mtext_property_start (prop);
- ic->candidate_to = mtext_property_end (prop);
+ load_variables (im_info, MPLIST_PLIST (pl));
+ config_all_variables (im_info);
+ pl = mplist_pop (pl);
+ M17N_OBJECT_UNREF (pl);
}
- ic->candidates_changed |= (candidate_list != ic->candidate_list
- || candidate_index != ic->candidate_index
- || candidate_show != ic->candidate_show);
- return 0;
+ MPLIST_DO (plist, plist)
+ if (MPLIST_PLIST_P (plist))
+ {
+ MPlist *elt = MPLIST_PLIST (plist);
+ MSymbol key;
+
+ if (MFAILP (MPLIST_SYMBOL_P (elt)))
+ continue;
+ key = MPLIST_SYMBOL (elt);
+ if (key == Mtitle)
+ {
+ if (im_info->title)
+ continue;
+ elt = MPLIST_NEXT (elt);
+ if (MFAILP (MPLIST_MTEXT_P (elt)))
+ continue;
+ im_info->title = MPLIST_MTEXT (elt);
+ M17N_OBJECT_REF (im_info->title);
+ }
+ else if (key == Mmap)
+ {
+ pl = mplist__from_alist (MPLIST_NEXT (elt));
+ if (MFAILP (pl))
+ continue;
+ if (! im_info->maps)
+ im_info->maps = pl;
+ else
+ {
+ mplist__conc (im_info->maps, pl);
+ M17N_OBJECT_UNREF (pl);
+ }
+ }
+ else if (key == Mmacro)
+ {
+ if (! im_info->macros)
+ im_info->macros = mplist ();
+ MPLIST_DO (elt, MPLIST_NEXT (elt))
+ {
+ if (MFAILP (MPLIST_PLIST_P (elt)))
+ continue;
+ load_macros (im_info, MPLIST_PLIST (elt));
+ }
+ }
+ else if (key == Mmodule)
+ {
+ if (! im_info->externals)
+ im_info->externals = mplist ();
+ MPLIST_DO (elt, MPLIST_NEXT (elt))
+ {
+ if (MFAILP (MPLIST_PLIST_P (elt)))
+ continue;
+ load_external_module (im_info, MPLIST_PLIST (elt));
+ }
+ }
+ else if (key == Mstate)
+ {
+ MPLIST_DO (elt, MPLIST_NEXT (elt))
+ {
+ MIMState *state;
+
+ if (MFAILP (MPLIST_PLIST_P (elt)))
+ continue;
+ pl = MPLIST_PLIST (elt);
+ if (! im_info->states)
+ im_info->states = mplist ();
+ state = load_state (im_info, MPLIST_PLIST (elt));
+ if (MFAILP (state))
+ continue;
+ mplist_put (im_info->states, state->name, state);
+ }
+ }
+ else if (key == Minclude)
+ {
+ /* elt ::= include (tag1 tag2 ...) key item ... */
+ MSymbol key;
+ MInputMethodInfo *temp;
+
+ elt = MPLIST_NEXT (elt);
+ if (MFAILP (MPLIST_PLIST_P (elt)))
+ continue;
+ temp = get_im_info_by_tags (MPLIST_PLIST (elt));
+ if (MFAILP (temp))
+ continue;
+ elt = MPLIST_NEXT (elt);
+ if (MFAILP (MPLIST_SYMBOL_P (elt)))
+ continue;
+ key = MPLIST_SYMBOL (elt);
+ elt = MPLIST_NEXT (elt);
+ if (key == Mmap)
+ {
+ if (! temp->maps || MPLIST_TAIL_P (temp->maps))
+ continue;
+ if (! im_info->maps)
+ im_info->maps = mplist ();
+ MPLIST_DO (pl, temp->maps)
+ {
+ p = MPLIST_VAL (pl);
+ MPLIST_ADD_PLIST (im_info->maps, MPLIST_KEY (pl), p);
+ M17N_OBJECT_REF (p);
+ }
+ }
+ else if (key == Mmacro)
+ {
+ if (! temp->macros || MPLIST_TAIL_P (temp->macros))
+ continue;
+ if (! im_info->macros)
+ im_info->macros = mplist ();
+ MPLIST_DO (pl, temp->macros)
+ {
+ p = MPLIST_VAL (pl);
+ MPLIST_ADD_PLIST (im_info->macros, MPLIST_KEY (pl), p);
+ M17N_OBJECT_REF (p);
+ }
+ }
+ else if (key == Mstate)
+ {
+ if (! temp->states || MPLIST_TAIL_P (temp->states))
+ continue;
+ if (! im_info->states)
+ im_info->states = mplist ();
+ MPLIST_DO (pl, temp->states)
+ {
+ MIMState *state = MPLIST_VAL (pl);
+
+ mplist_add (im_info->states, MPLIST_KEY (pl), state);
+ M17N_OBJECT_REF (state);
+ }
+ }
+ }
+ else if (key == Mdescription)
+ {
+ if (im_info->description)
+ continue;
+ elt = MPLIST_NEXT (elt);
+ if (MFAILP (MPLIST_MTEXT_P (elt)))
+ continue;
+ im_info->description = MPLIST_MTEXT (elt);
+ M17N_OBJECT_REF (im_info->description);
+
+ }
+ }
+ im_info->tick = time (NULL);
}
+\f
-/* Handle the input key KEY in the current state and map specified in
- the input context IC. If KEY is handled correctly, return 0.
- Otherwise, return -1. */
+static int take_action_list (MInputContext *ic, MPlist *action_list);
+static void preedit_commit (MInputContext *ic);
-static int
-handle_key (MInputContext *ic)
+static void
+shift_state (MInputContext *ic, MSymbol state_name)
{
MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
- MIMMap *map = ic_info->map;
- MIMMap *submap = NULL;
- MSymbol key = ic_info->keys[ic_info->key_head];
- int i;
+ MIMState *orig_state = ic_info->state, *state;
- if (map->submaps)
+ /* Find a state to shift to. If not found, shift to the initial
+ state. */
+ if (state_name == Mt)
{
- submap = mplist_get (map->submaps, key);
- if (! submap && (key = msymbol_get (key, M_key_alias)) != Mnil)
- submap = mplist_get (map->submaps, key);
+ if (! ic_info->prev_state)
+ return;
+ state = ic_info->prev_state;
}
-
- if (submap)
+ else if (state_name == Mnil)
{
- mtext_cpy (ic->preedit, ic_info->preedit_saved);
- ic->cursor_pos = ic_info->state_pos;
- ic_info->key_head++;
- ic_info->map = map = submap;
- if (map->map_actions)
- {
- if (take_action_list (ic, map->map_actions) < 0)
- return -1;
- }
- else if (map->submaps)
- {
- for (i = ic_info->state_key_head; i < ic_info->key_head; i++)
- {
- MSymbol key = ic_info->keys[i];
- char *name = msymbol_name (key);
-
- if (! name[0] || ! name[1])
- mtext_ins_char (ic->preedit, ic->cursor_pos++, name[0], 1);
- }
- ic->preedit_changed = 1;
- }
-
- /* If this is the terminal map or we have shifted to another
- state, perform branch actions (if any). */
- if (! map->submaps || map != ic_info->map)
- {
- if (map->branch_actions)
- {
- if (take_action_list (ic, map->branch_actions) < 0)
- return -1;
- }
- /* If MAP is still not the root map, shift to the current
- state. */
- if (ic_info->map != ic_info->state->map)
- shift_state (ic, ic_info->state->name);
- }
+ state = (MIMState *) MPLIST_VAL (im_info->states);
}
else
{
- /* MAP can not handle KEY. */
+ state = (MIMState *) mplist_get (im_info->states, state_name);
+ if (! state)
+ state = (MIMState *) MPLIST_VAL (im_info->states);
+ }
- /* If MAP is the root map of the initial state, it means that
- the current input method can not handle KEY. */
- if (map == ((MIMState *) MPLIST_VAL (im_info->states))->map)
- return -1;
+ MDEBUG_PRINT1 ("\n [IM] (shift %s)", MSYMBOL_NAME (state->name));
- if (map != ic_info->state->map)
- {
- /* If MAP is not the root map... */
- /* If MAP has branch actions, perform them. */
- if (map->branch_actions)
- take_action_list (ic, map->branch_actions);
- /* If MAP is still not the root map, shift to the current
- state. */
- if (ic_info->map != ic_info->state->map)
- {
- shift_state (ic, ic_info->state->name);
- /* If MAP has branch_actions, perform them. */
- if (ic_info->map->branch_actions)
- take_action_list (ic, ic_info->map->branch_actions);
- }
- }
+ /* Enter the new state. */
+ ic_info->state = state;
+ ic_info->map = state->map;
+ ic_info->state_key_head = ic_info->key_head;
+ if (state == (MIMState *) MPLIST_VAL (im_info->states)
+ && orig_state)
+ /* We have shifted to the initial state. */
+ preedit_commit (ic);
+ mtext_cpy (ic_info->preedit_saved, ic->preedit);
+ ic_info->state_pos = ic->cursor_pos;
+ if (state != orig_state)
+ {
+ if (state == (MIMState *) MPLIST_VAL (im_info->states))
+ ic_info->prev_state = NULL;
+ else
+ ic_info->prev_state = orig_state;
+
+ if (state->title)
+ ic->status = state->title;
else
+ ic->status = im_info->title;
+ ic->status_changed = 1;
+ if (ic_info->map == ic_info->state->map
+ && ic_info->map->map_actions)
{
- /* MAP is the root map, perform branch actions (if any) or
- shift to the initial state. */
- if (map->branch_actions)
- take_action_list (ic, map->branch_actions);
- else
- shift_state (ic,
- ((MIMState *) MPLIST_VAL (im_info->states))->name);
+ MDEBUG_PRINT (" init-actions:");
+ take_action_list (ic, ic_info->map->map_actions);
}
}
- return 0;
}
-static void
-reset_ic (MInputContext *ic)
-{
- MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
- MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+/* Find a candidate group that contains a candidate number INDEX from
+ PLIST. Set START_INDEX to the first candidate number of the group,
+ END_INDEX to the last candidate number plus 1, GROUP_INDEX to the
+ candidate group number if they are non-NULL. If INDEX is -1, find
+ the last candidate group. */
+
+static MPlist *
+find_candidates_group (MPlist *plist, int index,
+ int *start_index, int *end_index, int *group_index)
+{
+ int i = 0, gidx = 0, len;
+
+ MPLIST_DO (plist, plist)
+ {
+ if (MPLIST_MTEXT_P (plist))
+ len = mtext_nchars (MPLIST_MTEXT (plist));
+ else
+ len = mplist_length (MPLIST_PLIST (plist));
+ if (index < 0 ? MPLIST_TAIL_P (MPLIST_NEXT (plist))
+ : i + len > index)
+ {
+ if (start_index)
+ *start_index = i;
+ if (end_index)
+ *end_index = i + len;
+ if (group_index)
+ *group_index = gidx;
+ return plist;
+ }
+ i += len;
+ gidx++;
+ }
+ return NULL;
+}
+
+static void
+preedit_insert (MInputContext *ic, int pos, MText *mt, int c)
+{
+ MInputContextInfo *ic_info = ((MInputContext *) ic)->info;
+ MPlist *markers;
+ int nchars = mt ? mtext_nchars (mt) : 1;
+
+ if (mt)
+ mtext_ins (ic->preedit, pos, mt);
+ else
+ mtext_ins_char (ic->preedit, pos, c, 1);
+ MPLIST_DO (markers, ic_info->markers)
+ if (MPLIST_INTEGER (markers) > pos)
+ MPLIST_VAL (markers) = (void *) (MPLIST_INTEGER (markers) + nchars);
+ if (ic->cursor_pos >= pos)
+ ic->cursor_pos += nchars;
+ ic->preedit_changed = 1;
+}
+
+
+static void
+preedit_delete (MInputContext *ic, int from, int to)
+{
+ MInputContextInfo *ic_info = ((MInputContext *) ic)->info;
+ MPlist *markers;
+
+ mtext_del (ic->preedit, from, to);
+ MPLIST_DO (markers, ic_info->markers)
+ {
+ if (MPLIST_INTEGER (markers) > to)
+ MPLIST_VAL (markers)
+ = (void *) (MPLIST_INTEGER (markers) - (to - from));
+ else if (MPLIST_INTEGER (markers) > from);
+ MPLIST_VAL (markers) = (void *) from;
+ }
+ if (ic->cursor_pos >= to)
+ ic->cursor_pos -= to - from;
+ else if (ic->cursor_pos > from)
+ ic->cursor_pos = from;
+ ic->preedit_changed = 1;
+}
+
+static void
+preedit_commit (MInputContext *ic)
+{
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+ int preedit_len = mtext_nchars (ic->preedit);
+
+ if (preedit_len > 0)
+ {
+ MPlist *p;
+
+ mtext_put_prop_values (ic->preedit, 0, mtext_nchars (ic->preedit),
+ Mcandidate_list, NULL, 0);
+ mtext_put_prop_values (ic->preedit, 0, mtext_nchars (ic->preedit),
+ Mcandidate_index, NULL, 0);
+ mtext_cat (ic->produced, ic->preedit);
+ if ((mdebug__flag & mdebug_mask)
+ && mtext_nchars (ic->preedit) > 0)
+ {
+ int i;
+
+ MDEBUG_PRINT (" (produced");
+ for (i = 0; i < mtext_nchars (ic->preedit); i++)
+ MDEBUG_PRINT1 (" U+%04X", mtext_ref_char (ic->preedit, i));
+ MDEBUG_PRINT (")");
+ }
+ mtext_reset (ic->preedit);
+ mtext_reset (ic_info->preedit_saved);
+ MPLIST_DO (p, ic_info->markers)
+ MPLIST_VAL (p) = 0;
+ ic->cursor_pos = ic_info->state_pos = 0;
+ ic->preedit_changed = 1;
+ }
+ if (ic->candidate_list)
+ {
+ M17N_OBJECT_UNREF (ic->candidate_list);
+ ic->candidate_list = NULL;
+ ic->candidates_changed = MINPUT_CANDIDATES_LIST_CHANGED;
+ if (ic->candidate_show)
+ {
+ ic->candidate_show = 0;
+ ic->candidates_changed |= MINPUT_CANDIDATES_SHOW_CHANGED;
+ }
+ }
+ memmove (ic_info->keys, ic_info->keys + ic_info->key_head,
+ sizeof (int) * (ic_info->used - ic_info->key_head));
+ ic_info->used -= ic_info->key_head;
+ ic_info->state_key_head = ic_info->key_head = 0;
+}
+
+static int
+new_index (MInputContext *ic, int current, int limit, MSymbol sym, MText *mt)
+{
+ int code = marker_code (sym);
+
+ if (mt && (code == '[' || code == ']'))
+ {
+ int pos = current;
+
+ if (code == '[' && current > 0)
+ {
+ if (mtext_prop_range (mt, Mcandidate_list, pos - 1, &pos, NULL, 1)
+ && pos > 0)
+ current = pos;
+ }
+ else if (code == ']' && current < mtext_nchars (mt))
+ {
+ if (mtext_prop_range (mt, Mcandidate_list, pos, NULL, &pos, 1))
+ current = pos;
+ }
+ return current;
+ }
+ if (code >= 0)
+ return (code == '<' ? 0
+ : code == '>' ? limit
+ : code == '-' ? current - 1
+ : code == '+' ? current + 1
+ : code == '=' ? current
+ : code - '0' > limit ? limit
+ : code - '0');
+ if (! ic)
+ return 0;
+ return (int) mplist_get (((MInputContextInfo *) ic->info)->markers, sym);
+}
+
+static void
+update_candidate (MInputContext *ic, MTextProperty *prop, int idx)
+{
+ int from = mtext_property_start (prop);
+ int to = mtext_property_end (prop);
+ int start;
+ MPlist *candidate_list = mtext_property_value (prop);
+ MPlist *group = find_candidates_group (candidate_list, idx, &start,
+ NULL, NULL);
+ int ingroup_index = idx - start;
+ MText *mt;
+
+ preedit_delete (ic, from, to);
+ if (MPLIST_MTEXT_P (group))
+ {
+ mt = MPLIST_MTEXT (group);
+ preedit_insert (ic, from, NULL, mtext_ref_char (mt, ingroup_index));
+ to = from + 1;
+ }
+ else
+ {
+ int i;
+ MPlist *plist;
+
+ for (i = 0, plist = MPLIST_PLIST (group); i < ingroup_index;
+ i++, plist = MPLIST_NEXT (plist));
+ mt = MPLIST_MTEXT (plist);
+ preedit_insert (ic, from, mt, 0);
+ to = from + mtext_nchars (mt);
+ }
+ mtext_put_prop (ic->preedit, from, to, Mcandidate_list, candidate_list);
+ mtext_put_prop (ic->preedit, from, to, Mcandidate_index, (void *) idx);
+ ic->cursor_pos = to;
+}
+
+static MCharset *
+get_select_charset (MInputContextInfo * ic_info)
+{
+ MPlist *plist = resolve_variable (ic_info, Mcandidates_charset);
+ MSymbol sym;
+
+ if (! MPLIST_VAL (plist))
+ return NULL;
+ sym = MPLIST_SYMBOL (plist);
+ if (sym == Mnil)
+ return NULL;
+ return MCHARSET (sym);
+}
+
+static MPlist *
+adjust_candidates (MPlist *plist, MCharset *charset)
+{
+ MPlist *pl;
+
+ /* plist ::= MTEXT ... | PLIST ... */
+ plist = mplist_copy (plist);
+ if (MPLIST_MTEXT_P (plist))
+ {
+ pl = plist;
+ while (! MPLIST_TAIL_P (pl))
+ {
+ /* pl ::= MTEXT ... */
+ MText *mt = MPLIST_MTEXT (pl);
+ int mt_copied = 0;
+ int i, c;
+
+ for (i = mtext_nchars (mt) - 1; i >= 0; i--)
+ {
+ c = mtext_ref_char (mt, i);
+ if (ENCODE_CHAR (charset, c) == MCHAR_INVALID_CODE)
+ {
+ if (! mt_copied)
+ {
+ mt = mtext_dup (mt);
+ mplist_set (pl, Mtext, mt);
+ M17N_OBJECT_UNREF (mt);
+ mt_copied = 1;
+ }
+ mtext_del (mt, i, i + 1);
+ }
+ }
+ if (mtext_len (mt) > 0)
+ pl = MPLIST_NEXT (pl);
+ else
+ {
+ mplist_pop (pl);
+ M17N_OBJECT_UNREF (mt);
+ }
+ }
+ }
+ else /* MPLIST_PLIST_P (plist) */
+ {
+ pl = plist;
+ while (! MPLIST_TAIL_P (pl))
+ {
+ /* pl ::= (MTEXT ...) ... */
+ MPlist *p = MPLIST_PLIST (pl);
+ int p_copied = 0;
+ /* p ::= MTEXT ... */
+ MPlist *p0 = p;
+ int n = 0;
+
+ while (! MPLIST_TAIL_P (p0))
+ {
+ MText *mt = MPLIST_MTEXT (p0);
+ int i, c;
+
+ for (i = mtext_nchars (mt) - 1; i >= 0; i--)
+ {
+ c = mtext_ref_char (mt, i);
+ if (ENCODE_CHAR (charset, c) == MCHAR_INVALID_CODE)
+ break;
+ }
+ if (i < 0)
+ {
+ p0 = MPLIST_NEXT (p0);
+ n++;
+ }
+ else
+ {
+ if (! p_copied)
+ {
+ p = mplist_copy (p);
+ mplist_set (pl, Mplist, p);
+ M17N_OBJECT_UNREF (p);
+ p_copied = 1;
+ p0 = p;
+ while (n-- > 0)
+ p0 = MPLIST_NEXT (p0);
+ }
+ mplist_pop (p0);
+ M17N_OBJECT_UNREF (mt);
+ }
+ }
+ if (! MPLIST_TAIL_P (p))
+ pl = MPLIST_NEXT (pl);
+ else
+ {
+ mplist_pop (pl);
+ M17N_OBJECT_UNREF (p);
+ }
+ }
+ }
+ if (MPLIST_TAIL_P (plist))
+ {
+ M17N_OBJECT_UNREF (plist);
+ return NULL;
+ }
+ return plist;
+}
+
+static MPlist *
+get_candidate_list (MInputContextInfo *ic_info, MPlist *args)
+{
+ MCharset *charset = get_select_charset (ic_info);
+ MPlist *plist;
+ int column;
+ int i, len;
+
+ plist = resolve_variable (ic_info, Mcandidates_group_size);
+ column = MPLIST_INTEGER (plist);
+
+ plist = MPLIST_PLIST (args);
+ if (charset)
+ {
+ if (! (plist = adjust_candidates (plist, charset)))
+ return NULL;
+ }
+ else
+ M17N_OBJECT_REF (plist);
+
+ if (column > 0)
+ {
+ if (MPLIST_MTEXT_P (plist))
+ {
+ MText *mt = MPLIST_MTEXT (plist);
+ MPlist *next = MPLIST_NEXT (plist);
+
+ if (MPLIST_TAIL_P (next))
+ M17N_OBJECT_REF (mt);
+ else
+ {
+ mt = mtext_dup (mt);
+ while (! MPLIST_TAIL_P (next))
+ {
+ mt = mtext_cat (mt, MPLIST_MTEXT (next));
+ next = MPLIST_NEXT (next);
+ }
+ }
+ M17N_OBJECT_UNREF (plist);
+ plist = mplist ();
+ len = mtext_nchars (mt);
+ if (len <= column)
+ mplist_add (plist, Mtext, mt);
+ else
+ {
+ for (i = 0; i < len; i += column)
+ {
+ int to = (i + column < len ? i + column : len);
+ MText *sub = mtext_copy (mtext (), 0, mt, i, to);
+
+ mplist_add (plist, Mtext, sub);
+ M17N_OBJECT_UNREF (sub);
+ }
+ }
+ M17N_OBJECT_UNREF (mt);
+ }
+ else /* MPLIST_PLIST_P (plist) */
+ {
+ MPlist *pl = MPLIST_PLIST (plist), *p;
+ MPlist *next = MPLIST_NEXT (plist);
+ int j;
+
+ if (MPLIST_TAIL_P (next))
+ M17N_OBJECT_REF (pl);
+ else
+ {
+ pl = mplist_copy (pl);
+ while (! MPLIST_TAIL_P (next))
+ {
+ p = mplist_copy (MPLIST_PLIST (next));
+ pl = mplist__conc (pl, p);
+ M17N_OBJECT_UNREF (p);
+ next = MPLIST_NEXT (next);
+ }
+ }
+ M17N_OBJECT_UNREF (plist);
+ plist = mplist ();
+ len = mplist_length (pl);
+ if (len <= column)
+ mplist_add (plist, Mplist, pl);
+ else
+ {
+ MPlist *p0 = pl;
+
+ for (i = 0; i < len; i += column)
+ {
+ p = mplist ();
+ mplist_add (plist, Mplist, p);
+ M17N_OBJECT_UNREF (p);
+ for (j = 0; j < column && i + j < len; j++)
+ {
+ p = mplist_add (p, Mtext, MPLIST_VAL (p0));
+ p0 = MPLIST_NEXT (p0);
+ }
+ }
+ }
+ M17N_OBJECT_UNREF (pl);
+ }
+ }
+
+ return plist;
+}
+
+
+static MPlist *
+regularize_action (MPlist *action_list, MInputContextInfo *ic_info)
+{
+ MPlist *action = NULL;
+ MSymbol name;
+ MPlist *args;
+
+ if (MPLIST_SYMBOL_P (action_list))
+ {
+ MSymbol var = MPLIST_SYMBOL (action_list);
+ MPlist *p;
+
+ MPLIST_DO (p, ic_info->vars)
+ if (MPLIST_SYMBOL (MPLIST_PLIST (p)) == var)
+ break;
+ if (MPLIST_TAIL_P (p))
+ return NULL;
+ action = MPLIST_NEXT (MPLIST_PLIST (p));
+ mplist_set (action_list, MPLIST_KEY (action), MPLIST_VAL (action));
+ }
+
+ if (MPLIST_PLIST_P (action_list))
+ {
+ action = MPLIST_PLIST (action_list);
+ if (MPLIST_SYMBOL_P (action))
+ {
+ name = MPLIST_SYMBOL (action);
+ args = MPLIST_NEXT (action);
+ if (name == Minsert
+ && MPLIST_PLIST_P (args))
+ mplist_set (action, Msymbol, M_candidates);
+ }
+ else if (MPLIST_MTEXT_P (action) || MPLIST_PLIST_P (action))
+ {
+ action = mplist ();
+ mplist_push (action, Mplist, MPLIST_VAL (action_list));
+ mplist_push (action, Msymbol, M_candidates);
+ mplist_set (action_list, Mplist, action);
+ M17N_OBJECT_UNREF (action);
+ }
+ }
+ else if (MPLIST_MTEXT_P (action_list) || MPLIST_INTEGER_P (action_list))
+ {
+ action = mplist ();
+ mplist_push (action, MPLIST_KEY (action_list), MPLIST_VAL (action_list));
+ mplist_push (action, Msymbol, Minsert);
+ mplist_set (action_list, Mplist, action);
+ M17N_OBJECT_UNREF (action);
+ }
+ return action;
+}
+
+/* Perform list of actions in ACTION_LIST for the current input
+ context IC. If all actions are performed without error, return 0.
+ Otherwise, return -1. */
+
+static int
+take_action_list (MInputContext *ic, MPlist *action_list)
+{
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+ MPlist *candidate_list = ic->candidate_list;
+ int candidate_index = ic->candidate_index;
+ int candidate_show = ic->candidate_show;
+ MTextProperty *prop;
+
+ MPLIST_DO (action_list, action_list)
+ {
+ MPlist *action = regularize_action (action_list, ic_info);
+ MSymbol name;
+ MPlist *args;
+
+ if (! action)
+ continue;
+ name = MPLIST_SYMBOL (action);
+ args = MPLIST_NEXT (action);
+
+ MDEBUG_PRINT1 (" %s", MSYMBOL_NAME (name));
+ if (name == Minsert)
+ {
+ if (MPLIST_SYMBOL_P (args))
+ {
+ args = resolve_variable (ic_info, MPLIST_SYMBOL (args));
+ if (! MPLIST_MTEXT_P (args) && ! MPLIST_INTEGER_P (args))
+ continue;
+ }
+ if (MPLIST_MTEXT_P (args))
+ preedit_insert (ic, ic->cursor_pos, MPLIST_MTEXT (args), 0);
+ else /* MPLIST_INTEGER_P (args)) */
+ preedit_insert (ic, ic->cursor_pos, NULL, MPLIST_INTEGER (args));
+ }
+ else if (name == M_candidates)
+ {
+ MPlist *plist = get_candidate_list (ic_info, args);
+ int len;
+
+ if (! plist)
+ continue;
+ if (MPLIST_MTEXT_P (plist))
+ {
+ preedit_insert (ic, ic->cursor_pos, NULL,
+ mtext_ref_char (MPLIST_MTEXT (plist), 0));
+ len = 1;
+ }
+ else
+ {
+ MText * mt = MPLIST_MTEXT (MPLIST_PLIST (plist));
+
+ preedit_insert (ic, ic->cursor_pos, mt, 0);
+ len = mtext_nchars (mt);
+ }
+ mtext_put_prop (ic->preedit,
+ ic->cursor_pos - len, ic->cursor_pos,
+ Mcandidate_list, plist);
+ mtext_put_prop (ic->preedit,
+ ic->cursor_pos - len, ic->cursor_pos,
+ Mcandidate_index, (void *) 0);
+ M17N_OBJECT_UNREF (plist);
+ }
+ else if (name == Mselect)
+ {
+ int start, end;
+ int code, idx, gindex;
+ int pos = ic->cursor_pos;
+ MPlist *group;
+
+ if (pos == 0
+ || ! (prop = mtext_get_property (ic->preedit, pos - 1,
+ Mcandidate_list)))
+ continue;
+ if (MPLIST_SYMBOL_P (args))
+ {
+ code = marker_code (MPLIST_SYMBOL (args));
+ if (code < 0)
+ continue;
+ }
+ else
+ code = -1;
+ idx = (int) mtext_get_prop (ic->preedit, pos - 1, Mcandidate_index);
+ group = find_candidates_group (mtext_property_value (prop), idx,
+ &start, &end, &gindex);
+
+ if (code != '[' && code != ']')
+ {
+ idx = (start
+ + (code >= 0
+ ? new_index (NULL, ic->candidate_index - start,
+ end - start - 1, MPLIST_SYMBOL (args),
+ NULL)
+ : MPLIST_INTEGER (args)));
+ if (idx < 0)
+ {
+ find_candidates_group (mtext_property_value (prop), -1,
+ NULL, &end, NULL);
+ idx = end - 1;
+ }
+ else if (idx >= end
+ && MPLIST_TAIL_P (MPLIST_NEXT (group)))
+ idx = 0;
+ }
+ else
+ {
+ int ingroup_index = idx - start;
+ int len;
+
+ group = mtext_property_value (prop);
+ len = mplist_length (group);
+ if (code == '[')
+ {
+ gindex--;
+ if (gindex < 0)
+ gindex = len - 1;;
+ }
+ else
+ {
+ gindex++;
+ if (gindex >= len)
+ gindex = 0;
+ }
+ for (idx = 0; gindex > 0; gindex--, group = MPLIST_NEXT (group))
+ idx += (MPLIST_MTEXT_P (group)
+ ? mtext_nchars (MPLIST_MTEXT (group))
+ : mplist_length (MPLIST_PLIST (group)));
+ len = (MPLIST_MTEXT_P (group)
+ ? mtext_nchars (MPLIST_MTEXT (group))
+ : mplist_length (MPLIST_PLIST (group)));
+ if (ingroup_index >= len)
+ ingroup_index = len - 1;
+ idx += ingroup_index;
+ }
+ update_candidate (ic, prop, idx);
+ }
+ else if (name == Mshow)
+ ic->candidate_show = 1;
+ else if (name == Mhide)
+ ic->candidate_show = 0;
+ else if (name == Mdelete)
+ {
+ int len = mtext_nchars (ic->preedit);
+ int pos;
+ int to;
+
+ if (MPLIST_SYMBOL_P (args)
+ && (pos = surrounding_pos (MPLIST_SYMBOL (args))) != 0)
+ {
+ delete_surrounding_text (ic, pos);
+ }
+ else
+ {
+ to = (MPLIST_SYMBOL_P (args)
+ ? new_index (ic, ic->cursor_pos, len, MPLIST_SYMBOL (args),
+ ic->preedit)
+ : MPLIST_INTEGER (args));
+ if (to < 0)
+ to = 0;
+ else if (to > len)
+ to = len;
+ MDEBUG_PRINT1 ("(%d)", to - ic->cursor_pos);
+ if (to < ic->cursor_pos)
+ preedit_delete (ic, to, ic->cursor_pos);
+ else if (to > ic->cursor_pos)
+ preedit_delete (ic, ic->cursor_pos, to);
+ }
+ }
+ else if (name == Mmove)
+ {
+ int len = mtext_nchars (ic->preedit);
+ int pos
+ = (MPLIST_SYMBOL_P (args)
+ ? new_index (ic, ic->cursor_pos, len, MPLIST_SYMBOL (args),
+ ic->preedit)
+ : MPLIST_INTEGER (args));
+
+ if (pos < 0)
+ pos = 0;
+ else if (pos > len)
+ pos = len;
+ if (pos != ic->cursor_pos)
+ {
+ ic->cursor_pos = pos;
+ ic->preedit_changed = 1;
+ }
+ }
+ else if (name == Mmark)
+ {
+ int code = marker_code (MPLIST_SYMBOL (args));
+
+ if (code < 0)
+ mplist_put (ic_info->markers, MPLIST_SYMBOL (args),
+ (void *) ic->cursor_pos);
+ }
+ else if (name == Mpushback)
+ {
+ if (MPLIST_INTEGER_P (args))
+ {
+ int num = MPLIST_INTEGER (args);
+
+ if (num > 0)
+ ic_info->key_head -= num;
+ else
+ ic_info->key_head = num;
+ if (ic_info->key_head > ic_info->used)
+ ic_info->key_head = ic_info->used;
+ }
+ else if (MPLIST_MTEXT_P (args))
+ {
+ MText *mt = MPLIST_MTEXT (args);
+ int i, len = mtext_nchars (mt);
+ MSymbol key;
+
+ ic_info->key_head--;
+ for (i = 0; i < len; i++)
+ {
+ key = one_char_symbol[MTEXT_DATA (mt)[i]];
+ if (ic_info->key_head + i < ic_info->used)
+ ic_info->keys[ic_info->key_head + i] = key;
+ else
+ MLIST_APPEND1 (ic_info, keys, key, MERROR_IM);
+ }
+ }
+ else
+ {
+ MPlist *plist = MPLIST_PLIST (args), *pl;
+ int i = 0;
+ MSymbol key;
+
+ ic_info->key_head--;
+
+ MPLIST_DO (pl, plist)
+ {
+ key = MPLIST_SYMBOL (pl);
+ if (ic_info->key_head < ic_info->used)
+ ic_info->keys[ic_info->key_head + i] = key;
+ else
+ MLIST_APPEND1 (ic_info, keys, key, MERROR_IM);
+ i++;
+ }
+ }
+ }
+ else if (name == Mcall)
+ {
+ MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
+ MIMExternalFunc func = NULL;
+ MSymbol module, func_name;
+ MPlist *func_args, *val;
+ int ret = 0;
+
+ module = MPLIST_SYMBOL (args);
+ args = MPLIST_NEXT (args);
+ func_name = MPLIST_SYMBOL (args);
+
+ if (im_info->externals)
+ {
+ MIMExternalModule *external
+ = (MIMExternalModule *) mplist_get (im_info->externals,
+ module);
+ if (external)
+ func = (MIMExternalFunc) mplist_get (external->func_list,
+ func_name);
+ }
+ if (! func)
+ continue;
+ func_args = mplist ();
+ mplist_add (func_args, Mt, ic);
+ MPLIST_DO (args, MPLIST_NEXT (args))
+ {
+ int code;
+
+ if (MPLIST_KEY (args) == Msymbol
+ && MPLIST_KEY (args) != Mnil
+ && (code = marker_code (MPLIST_SYMBOL (args))) >= 0)
+ {
+ code = new_index (ic, ic->cursor_pos,
+ mtext_nchars (ic->preedit),
+ MPLIST_SYMBOL (args), ic->preedit);
+ mplist_add (func_args, Minteger, (void *) code);
+ }
+ else
+ mplist_add (func_args, MPLIST_KEY (args), MPLIST_VAL (args));
+ }
+ val = (func) (func_args);
+ M17N_OBJECT_UNREF (func_args);
+ if (val && ! MPLIST_TAIL_P (val))
+ ret = take_action_list (ic, val);
+ M17N_OBJECT_UNREF (val);
+ if (ret < 0)
+ return ret;
+ }
+ else if (name == Mshift)
+ {
+ shift_state (ic, MPLIST_SYMBOL (args));
+ }
+ else if (name == Mundo)
+ {
+ int intarg = (MPLIST_TAIL_P (args)
+ ? ic_info->used - 2
+ : integer_value (ic, args, NULL, 0));
+
+ mtext_reset (ic->preedit);
+ mtext_reset (ic_info->preedit_saved);
+ ic->cursor_pos = ic_info->state_pos = 0;
+ ic_info->state_key_head = ic_info->key_head = 0;
+
+ if (intarg < 0)
+ ic_info->used += intarg;
+ else
+ ic_info->used = intarg;
+ shift_state (ic, Mnil);
+ break;
+ }
+ else if (name == Mset || name == Madd || name == Msub
+ || name == Mmul || name == Mdiv)
+ {
+ MSymbol sym = MPLIST_SYMBOL (args);
+ int val1, val2;
+ MPlist *value;
+ char *op;
+
+ val1 = integer_value (ic, args, &value, 0);
+ args = MPLIST_NEXT (args);
+ val2 = resolve_expression (ic, args);
+ if (name == Mset)
+ val1 = val2, op = "=";
+ else if (name == Madd)
+ val1 += val2, op = "+=";
+ else if (name == Msub)
+ val1 -= val2, op = "-=";
+ else if (name == Mmul)
+ val1 *= val2, op = "*=";
+ else
+ val1 /= val2, op = "/=";
+ MDEBUG_PRINT4 ("(%s %s 0x%X(%d))",
+ MSYMBOL_NAME (sym), op, val1, val1);
+ if (value)
+ mplist_set (value, Minteger, (void *) val1);
+ }
+ else if (name == Mequal || name == Mless || name == Mgreater
+ || name == Mless_equal || name == Mgreater_equal)
+ {
+ int val1, val2;
+ MPlist *actions1, *actions2;
+ int ret = 0;
+
+ val1 = resolve_expression (ic, args);
+ args = MPLIST_NEXT (args);
+ val2 = resolve_expression (ic, args);
+ args = MPLIST_NEXT (args);
+ actions1 = MPLIST_PLIST (args);
+ args = MPLIST_NEXT (args);
+ if (MPLIST_TAIL_P (args))
+ actions2 = NULL;
+ else
+ actions2 = MPLIST_PLIST (args);
+ MDEBUG_PRINT3 ("(%d %s %d)? ", val1, MSYMBOL_NAME (name), val2);
+ if (name == Mequal ? val1 == val2
+ : name == Mless ? val1 < val2
+ : name == Mgreater ? val1 > val2
+ : name == Mless_equal ? val1 <= val2
+ : val1 >= val2)
+ {
+ MDEBUG_PRINT ("ok");
+ ret = take_action_list (ic, actions1);
+ }
+ else
+ {
+ MDEBUG_PRINT ("no");
+ if (actions2)
+ ret = take_action_list (ic, actions2);
+ }
+ if (ret < 0)
+ return ret;
+ }
+ else if (name == Mcond)
+ {
+ int idx = 0;
+
+ MPLIST_DO (args, args)
+ {
+ MPlist *cond;
+
+ idx++;
+ if (! MPLIST_PLIST (args))
+ continue;
+ cond = MPLIST_PLIST (args);
+ if (resolve_expression (ic, cond) != 0)
+ {
+ MDEBUG_PRINT1 ("(%dth)", idx);
+ if (take_action_list (ic, MPLIST_NEXT (cond)) < 0)
+ return -1;;
+ break;
+ }
+ }
+ }
+ else if (name == Mcommit)
+ {
+ preedit_commit (ic);
+ }
+ else if (name == Munhandle)
+ {
+ preedit_commit (ic);
+ return -1;
+ }
+ else
+ {
+ MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
+ MPlist *actions;
+
+ if (im_info->macros
+ && (actions = mplist_get (im_info->macros, name)))
+ {
+ if (take_action_list (ic, actions) < 0)
+ return -1;
+ };
+ }
+ }
+
+ M17N_OBJECT_UNREF (ic->candidate_list);
+ if (ic->cursor_pos > 0
+ && (prop = mtext_get_property (ic->preedit, ic->cursor_pos - 1,
+ Mcandidate_list)))
+ {
+ ic->candidate_list = mtext_property_value (prop);
+ M17N_OBJECT_REF (ic->candidate_list);
+ ic->candidate_index
+ = (int) mtext_get_prop (ic->preedit, ic->cursor_pos - 1,
+ Mcandidate_index);
+ ic->candidate_from = mtext_property_start (prop);
+ ic->candidate_to = mtext_property_end (prop);
+ }
+
+ if (candidate_list != ic->candidate_list)
+ ic->candidates_changed |= MINPUT_CANDIDATES_LIST_CHANGED;
+ if (candidate_index != ic->candidate_index)
+ ic->candidates_changed |= MINPUT_CANDIDATES_INDEX_CHANGED;
+ if (candidate_show != ic->candidate_show)
+ ic->candidates_changed |= MINPUT_CANDIDATES_SHOW_CHANGED;
+ return 0;
+}
+
+
+/* Handle the input key KEY in the current state and map specified in
+ the input context IC. If KEY is handled correctly, return 0.
+ Otherwise, return -1. */
+
+static int
+handle_key (MInputContext *ic)
+{
+ MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+ MIMMap *map = ic_info->map;
+ MIMMap *submap = NULL;
+ MSymbol key = ic_info->keys[ic_info->key_head];
+ MSymbol alias = Mnil;
+ int i;
+
+ MDEBUG_PRINT2 (" [IM] handle `%s' in state %s",
+ msymbol_name (key), MSYMBOL_NAME (ic_info->state->name));
+
+ if (map->submaps)
+ {
+ submap = mplist_get (map->submaps, key);
+ alias = key;
+ while (! submap
+ && (alias = msymbol_get (alias, M_key_alias))
+ && alias != key)
+ submap = mplist_get (map->submaps, alias);
+ }
+
+ if (submap)
+ {
+ if (! alias || alias == key)
+ MDEBUG_PRINT (" submap-found");
+ else
+ MDEBUG_PRINT1 (" submap-found (by alias `%s')", MSYMBOL_NAME (alias));
+ mtext_cpy (ic->preedit, ic_info->preedit_saved);
+ ic->preedit_changed = 1;
+ ic->cursor_pos = ic_info->state_pos;
+ ic_info->key_head++;
+ ic_info->map = map = submap;
+ if (map->map_actions)
+ {
+ MDEBUG_PRINT (" map-actions:");
+ if (take_action_list (ic, map->map_actions) < 0)
+ {
+ MDEBUG_PRINT ("\n");
+ return -1;
+ }
+ }
+ else if (map->submaps)
+ {
+ for (i = ic_info->state_key_head; i < ic_info->key_head; i++)
+ {
+ MSymbol key = ic_info->keys[i];
+ char *name = msymbol_name (key);
+
+ if (! name[0] || ! name[1])
+ mtext_ins_char (ic->preedit, ic->cursor_pos++, name[0], 1);
+ }
+ }
+
+ /* If this is the terminal map or we have shifted to another
+ state, perform branch actions (if any). */
+ if (! map->submaps || map != ic_info->map)
+ {
+ if (map->branch_actions)
+ {
+ MDEBUG_PRINT (" branch-actions:");
+ if (take_action_list (ic, map->branch_actions) < 0)
+ {
+ MDEBUG_PRINT ("\n");
+ return -1;
+ }
+ }
+ /* If MAP is still not the root map, shift to the current
+ state. */
+ if (ic_info->map != ic_info->state->map)
+ shift_state (ic, ic_info->state->name);
+ }
+ }
+ else
+ {
+ /* MAP can not handle KEY. */
+
+ /* If MAP is the root map of the initial state, it means that
+ the current input method can not handle KEY. */
+ if (map == ((MIMState *) MPLIST_VAL (im_info->states))->map)
+ {
+ MDEBUG_PRINT (" unhandled\n");
+ return -1;
+ }
+
+ if (map != ic_info->state->map)
+ {
+ /* If MAP is not the root map... */
+ /* If MAP has branch actions, perform them. */
+ if (map->branch_actions)
+ {
+ MDEBUG_PRINT (" branch-actions:");
+ if (take_action_list (ic, map->branch_actions) < 0)
+ {
+ MDEBUG_PRINT ("\n");
+ return -1;
+ }
+ }
+ /* If MAP is still not the root map, shift to the current
+ state. */
+ if (ic_info->map != ic_info->state->map)
+ shift_state (ic, ic_info->state->name);
+ }
+ else
+ {
+ /* MAP is the root map, perform branch actions (if any) or
+ shift to the initial state. */
+ if (map->branch_actions)
+ {
+ MDEBUG_PRINT (" branch-actions:");
+ if (take_action_list (ic, map->branch_actions) < 0)
+ {
+ MDEBUG_PRINT ("\n");
+ return -1;
+ }
+ }
+ else
+ shift_state (ic, Mnil);
+ }
+ }
+ MDEBUG_PRINT ("\n");
+ return 0;
+}
+
+/* Initialize IC->ic_info. */
+
+static void
+init_ic_info (MInputContext *ic)
+{
+ MInputMethodInfo *im_info = ic->im->info;
+ MInputContextInfo *ic_info = ic->info;
+ MPlist *plist;
+
+ MLIST_INIT1 (ic_info, keys, 8);;
+
+ ic_info->markers = mplist ();
+
+ ic_info->vars = mplist ();
+ if (im_info->configured_vars)
+ MPLIST_DO (plist, im_info->configured_vars)
+ {
+ MPlist *pl = MPLIST_PLIST (plist);
+ MSymbol name = MPLIST_SYMBOL (pl);
+
+ pl = MPLIST_NEXT (MPLIST_NEXT (pl));
+ if (MPLIST_KEY (pl) != Mt)
+ {
+ MPlist *p = mplist ();
+
+ mplist_push (ic_info->vars, Mplist, p);
+ M17N_OBJECT_UNREF (p);
+ mplist_add (p, Msymbol, name);
+ mplist_add (p, MPLIST_KEY (pl), MPLIST_VAL (pl));
+ }
+ }
+
+ if (im_info->externals)
+ {
+ MPlist *func_args = mplist (), *plist;
+
+ mplist_add (func_args, Mt, ic);
+ MPLIST_DO (plist, im_info->externals)
+ {
+ MIMExternalModule *external = MPLIST_VAL (plist);
+ MIMExternalFunc func
+ = (MIMExternalFunc) mplist_get (external->func_list, Minit);
+
+ if (func)
+ (func) (func_args);
+ }
+ M17N_OBJECT_UNREF (func_args);
+ }
+
+ ic_info->preedit_saved = mtext ();
+ ic_info->tick = im_info->tick;
+}
+
+/* Finalize IC->ic_info. */
+
+static void
+fini_ic_info (MInputContext *ic)
+{
+ MInputMethodInfo *im_info = ic->im->info;
+ MInputContextInfo *ic_info = ic->info;
+
+ if (im_info->externals)
+ {
+ MPlist *func_args = mplist (), *plist;
+
+ mplist_add (func_args, Mt, ic);
+ MPLIST_DO (plist, im_info->externals)
+ {
+ MIMExternalModule *external = MPLIST_VAL (plist);
+ MIMExternalFunc func
+ = (MIMExternalFunc) mplist_get (external->func_list, Mfini);
+
+ if (func)
+ (func) (func_args);
+ }
+ M17N_OBJECT_UNREF (func_args);
+ }
+
+ MLIST_FREE1 (ic_info, keys);
+ M17N_OBJECT_UNREF (ic_info->preedit_saved);
+ M17N_OBJECT_UNREF (ic_info->markers);
+ M17N_OBJECT_UNREF (ic_info->vars);
+ M17N_OBJECT_UNREF (ic_info->preceding_text);
+ M17N_OBJECT_UNREF (ic_info->following_text);
+
+ memset (ic_info, 0, sizeof (MInputContextInfo));
+}
+
+static void
+re_init_ic (MInputContext *ic, int reload)
+{
+ MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+ int status_changed, preedit_changed, cursor_pos_changed, candidates_changed;
+
+ status_changed = ic_info->state != (MIMState *) MPLIST_VAL (im_info->states);
+ preedit_changed = mtext_nchars (ic->preedit) > 0;
+ cursor_pos_changed = ic->cursor_pos > 0;
+ candidates_changed = 0;
+ if (ic->candidate_list)
+ {
+ candidates_changed |= MINPUT_CANDIDATES_LIST_CHANGED;
+ M17N_OBJECT_UNREF (ic->candidate_list);
+ }
+ if (ic->candidate_show)
+ {
+ candidates_changed |= MINPUT_CANDIDATES_SHOW_CHANGED;
+ ic->candidate_show = 0;
+ }
+ if (ic->candidate_index > 0)
+ {
+ candidates_changed |= MINPUT_CANDIDATES_INDEX_CHANGED;
+ ic->candidate_index = 0;
+ ic->candidate_from = ic->candidate_to = 0;
+ }
+ if (mtext_nchars (ic->produced) > 0)
+ mtext_reset (ic->produced);
+ if (mtext_nchars (ic->preedit) > 0)
+ mtext_reset (ic->preedit);
+ ic->cursor_pos = 0;
+ M17N_OBJECT_UNREF (ic->plist);
+ ic->plist = mplist ();
+
+ fini_ic_info (ic);
+ if (reload)
+ reload_im_info (im_info);
+ init_ic_info (ic);
+ shift_state (ic, Mnil);
+ ic->status_changed = status_changed;
+ ic->preedit_changed = preedit_changed;
+ ic->cursor_pos_changed = cursor_pos_changed;
+ ic->candidates_changed = candidates_changed;
+}
+
+static void
+reset_ic (MInputContext *ic, MSymbol ignore)
+{
+ MDEBUG_PRINT ("\n [IM] reset\n");
+ re_init_ic (ic, 0);
+}
+
+static int
+open_im (MInputMethod *im)
+{
+ MInputMethodInfo *im_info = get_im_info (im->language, im->name, Mnil, Mnil);
+
+ if (! im_info)
+ MERROR (MERROR_IM, -1);
+ im->info = im_info;
+
+ return 0;
+}
+
+static void
+close_im (MInputMethod *im)
+{
+ im->info = NULL;
+}
+
+static int
+create_ic (MInputContext *ic)
+{
+ MInputContextInfo *ic_info;
+
+ MSTRUCT_CALLOC (ic_info, MERROR_IM);
+ ic->info = ic_info;
+ init_ic_info (ic);
+ shift_state (ic, Mnil);
+ return 0;
+}
+
+static void
+destroy_ic (MInputContext *ic)
+{
+ fini_ic_info (ic);
+ free (ic->info);
+}
+
+static int
+check_reload (MInputContext *ic, MSymbol key)
+{
+ MInputMethodInfo *im_info = ic->im->info;
+ MPlist *plist = resolve_command (im_info->configured_cmds, Mat_reload);
+
+ if (! plist)
+ {
+ plist = resolve_command (global_info->configured_cmds, Mat_reload);
+ if (! plist)
+ return 0;
+ }
+ MPLIST_DO (plist, plist)
+ {
+ MSymbol this_key, alias;
+
+ if (MPLIST_MTEXT_P (plist))
+ {
+ MText *mt = MPLIST_MTEXT (plist);
+ int c = mtext_ref_char (mt, 0);
+
+ if (c >= 256)
+ continue;
+ this_key = one_char_symbol[c];
+ }
+ else
+ {
+ MPlist *pl = MPLIST_PLIST (plist);
+
+ this_key = MPLIST_SYMBOL (pl);
+ }
+ alias = this_key;
+ while (alias != key
+ && (alias = msymbol_get (alias, M_key_alias))
+ && alias != this_key);
+ if (alias == key)
+ break;
+ }
+ if (MPLIST_TAIL_P (plist))
+ return 0;
+
+ MDEBUG_PRINT ("\n [IM] reload");
+ re_init_ic (ic, 1);
+ return 1;
+}
+
+
+/** Handle the input key KEY in the current state and map of IC->info.
+ If KEY is handled but no text is produced, return 0, otherwise
+ return 1.
+
+ Ignore ARG. */
+
+static int
+filter (MInputContext *ic, MSymbol key, void *arg)
+{
+ MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
+ MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+ int i = 0;
+
+ if (check_reload (ic, key))
+ return 0;
+
+ if (! ic_info->state)
+ {
+ ic_info->key_unhandled = 1;
+ return 0;
+ }
+ mtext_reset (ic->produced);
+ ic->status_changed = ic->preedit_changed = ic->candidates_changed = 0;
+ M17N_OBJECT_UNREF (ic_info->preceding_text);
+ M17N_OBJECT_UNREF (ic_info->following_text);
+ MLIST_APPEND1 (ic_info, keys, key, MERROR_IM);
+ ic_info->key_unhandled = 0;
+
+ do {
+ if (handle_key (ic) < 0)
+ {
+ /* KEY was not handled. Delete it from the current key sequence. */
+ if (ic_info->used > 0)
+ {
+ memmove (ic_info->keys, ic_info->keys + 1,
+ sizeof (int) * (ic_info->used - 1));
+ ic_info->used--;
+ }
+ /* This forces returning 1. */
+ ic_info->key_unhandled = 1;
+ break;
+ }
+ if (i++ == 100)
+ {
+ mdebug_hook ();
+ reset_ic (ic, Mnil);
+ ic_info->key_unhandled = 1;
+ break;
+ }
+ /* Break the loop if all keys were handled. */
+ } while (ic_info->key_head < ic_info->used);
+
+ /* If the current map is the root of the initial state, we should
+ produce any preedit text in ic->produced. */
+ if (ic_info->map == ((MIMState *) MPLIST_VAL (im_info->states))->map
+ && mtext_nchars (ic->preedit) > 0)
+ shift_state (ic, ((MIMState *) MPLIST_VAL (im_info->states))->name);
+
+ if (mtext_nchars (ic->produced) > 0)
+ {
+ MSymbol lang = msymbol_get (ic->im->language, Mlanguage);
+
+ if (lang != Mnil)
+ mtext_put_prop (ic->produced, 0, mtext_nchars (ic->produced),
+ Mlanguage, ic->im->language);
+ }
+
+ return (! ic_info->key_unhandled && mtext_nchars (ic->produced) == 0);
+}
+
+
+/** Return 1 if the last event or key was not handled, otherwise
+ return 0.
+
+ There is no need of looking up because ic->produced should already
+ contain the produced text (if any).
+
+ Ignore KEY. */
+
+static int
+lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
+{
+ mtext_cat (mt, ic->produced);
+ mtext_reset (ic->produced);
+ return (((MInputContextInfo *) ic->info)->key_unhandled ? -1 : 0);
+}
+
+\f
+/* Input method command handler. */
+
+/* List of all (global and local) commands.
+ (LANG:(IM-NAME:(COMMAND ...) ...) ...) ...
+ COMMAND is CMD-NAME:(mtext:DESCRIPTION plist:KEYSEQ ...))
+ Global commands are stored as (t (t COMMAND ...)) */
+
+\f
+/* Input method variable handler. */
+
+
+/* Support functions for mdebug_dump_im. */
+
+static void
+dump_im_map (MPlist *map_list, int indent)
+{
+ char *prefix;
+ MSymbol key = MPLIST_KEY (map_list);
+ MIMMap *map = (MIMMap *) MPLIST_VAL (map_list);
+
+ prefix = (char *) alloca (indent + 1);
+ memset (prefix, 32, indent);
+ prefix[indent] = '\0';
+
+ fprintf (stderr, "(\"%s\" ", msymbol_name (key));
+ if (map->map_actions)
+ mdebug_dump_plist (map->map_actions, indent + 2);
+ if (map->submaps)
+ {
+ MPLIST_DO (map_list, map->submaps)
+ {
+ fprintf (stderr, "\n%s ", prefix);
+ dump_im_map (map_list, indent + 2);
+ }
+ }
+ if (map->branch_actions)
+ {
+ fprintf (stderr, "\n%s (branch\n%s ", prefix, prefix);
+ mdebug_dump_plist (map->branch_actions, indent + 4);
+ fprintf (stderr, ")");
+ }
+ fprintf (stderr, ")");
+}
+
+
+static void
+dump_im_state (MIMState *state, int indent)
+{
+ char *prefix;
+ MPlist *map_list;
+
+ prefix = (char *) alloca (indent + 1);
+ memset (prefix, 32, indent);
+ prefix[indent] = '\0';
+
+ fprintf (stderr, "(%s", msymbol_name (state->name));
+ if (state->map->submaps)
+ {
+ MPLIST_DO (map_list, state->map->submaps)
+ {
+ fprintf (stderr, "\n%s ", prefix);
+ dump_im_map (map_list, indent + 2);
+ }
+ }
+ fprintf (stderr, ")");
+}
+
+\f
+
+int
+minput__init ()
+{
+ Minput_driver = msymbol ("input-driver");
+
+ Minput_preedit_start = msymbol ("input-preedit-start");
+ Minput_preedit_done = msymbol ("input-preedit-done");
+ Minput_preedit_draw = msymbol ("input-preedit-draw");
+ Minput_status_start = msymbol ("input-status-start");
+ Minput_status_done = msymbol ("input-status-done");
+ Minput_status_draw = msymbol ("input-status-draw");
+ Minput_candidates_start = msymbol ("input-candidates-start");
+ Minput_candidates_done = msymbol ("input-candidates-done");
+ Minput_candidates_draw = msymbol ("input-candidates-draw");
+ Minput_set_spot = msymbol ("input-set-spot");
+ Minput_focus_move = msymbol ("input-focus-move");
+ Minput_focus_in = msymbol ("input-focus-in");
+ Minput_focus_out = msymbol ("input-focus-out");
+ Minput_toggle = msymbol ("input-toggle");
+ Minput_reset = msymbol ("input-reset");
+ Minput_get_surrounding_text = msymbol ("input-get-surrounding-text");
+ Minput_delete_surrounding_text = msymbol ("input-delete-surrounding-text");
+ Mcustomized = msymbol ("customized");
+ Mconfigured = msymbol ("configured");
+ Minherited = msymbol ("inherited");
+
+ minput_default_driver.open_im = open_im;
+ minput_default_driver.close_im = close_im;
+ minput_default_driver.create_ic = create_ic;
+ minput_default_driver.destroy_ic = destroy_ic;
+ minput_default_driver.filter = filter;
+ minput_default_driver.lookup = lookup;
+ minput_default_driver.callback_list = mplist ();
+ mplist_put (minput_default_driver.callback_list, Minput_reset,
+ (void *) reset_ic);
+ minput_driver = &minput_default_driver;
+
+ fully_initialized = 0;
+ return 0;
+}
+
+void
+minput__fini ()
+{
+ if (fully_initialized)
+ {
+ free_im_list (im_info_list);
+ if (im_custom_list)
+ free_im_list (im_custom_list);
+ if (im_config_list)
+ free_im_list (im_config_list);
+ M17N_OBJECT_UNREF (load_im_info_keys);
+ }
+
+ M17N_OBJECT_UNREF (minput_default_driver.callback_list);
+ M17N_OBJECT_UNREF (minput_driver->callback_list);
+
+}
+
+int
+minput__callback (MInputContext *ic, MSymbol command)
+{
+ MInputCallbackFunc func;
+
+ if (! ic->im->driver.callback_list)
+ return -1;
+ func = (MInputCallbackFunc) mplist_get (ic->im->driver.callback_list,
+ command);
+ if (! func)
+ return -1;
+ (func) (ic, command);
+ return 0;
+}
+
+MSymbol
+minput__char_to_key (int c)
+{
+ if (c < 0 || c >= 0x100)
+ return Mnil;
+
+ return one_char_symbol[c];
+}
+
+/*** @} */
+#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
+
+\f
+/* External API */
+
+/*** @addtogroup m17nInputMethod */
+/*** @{ */
+/*=*/
+
+/***en
+ @name Variables: Predefined symbols for callback commands.
+
+ These are the predefined symbols that are used as the @c COMMAND
+ argument of callback functions of an input method driver (see
+ #MInputDriver::callback_list).
+
+ Most of them do not require extra argument nor return any value;
+ exceptions are these:
+
+ Minput_get_surrounding_text: When a callback function assigned for
+ this command is called, the first element of #MInputContext::plist
+ has key #Minteger and the value specifies which portion of the
+ surrounding text should be retrieved. If the value is positive,
+ it specifies the number of characters following the current cursor
+ position. If the value is negative, the absolute value specifies
+ the number of characters preceding the current cursor position.
+
+ If the surrounding text is currently supported, the callback
+ function must set the key of this element to #Mtext and the value
+ to the retrieved M-text. The length of the M-text may be shorter
+ than the requested number of characters, if the available text is
+ not that long. The length can be zero in the worst case. Or, the
+ length may be longer if an application thinks it's more efficient
+ to return that length).
+
+ If the surrounding text is not currently supported, the callback
+ function should return without changing the first element of
+ #MInputContext::plist.
+
+ Minput_delete_surrounding_text: When a callback function assigned
+ for this command is called, the first element of
+ #MInputContext::plist has key #Minteger and the value specifies
+ which portion of the surrounding text should be deleted in the
+ same way as the case of Minput_get_surrounding_text. The callback
+ function must delete the specified text. It should not alter
+ #MInputContext::plist. */
+
+/***ja
+ @name ÊÑ¿ô¡§ ¥³¡¼¥ë¥Ð¥Ã¥¯¥³¥Þ¥ó¥ÉÍÑÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë.
+
+ ÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤Î¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Ë¤ª¤¤¤Æ @c COMMAND
+ °ú¿ô¤È¤·¤ÆÍѤ¤¤é¤ì¤ëÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë (#MInputDriver::callback_list »²¾È)¡£
+ */
+/*** @{ */
+/*=*/
+
+MSymbol Minput_preedit_start;
+MSymbol Minput_preedit_done;
+MSymbol Minput_preedit_draw;
+MSymbol Minput_status_start;
+MSymbol Minput_status_done;
+MSymbol Minput_status_draw;
+MSymbol Minput_candidates_start;
+MSymbol Minput_candidates_done;
+MSymbol Minput_candidates_draw;
+MSymbol Minput_set_spot;
+MSymbol Minput_toggle;
+MSymbol Minput_reset;
+MSymbol Minput_get_surrounding_text;
+MSymbol Minput_delete_surrounding_text;
+/*** @} */
+
+/*=*/
+
+/***en
+ @name Variables: Predefined symbols for special input events.
+
+ These are the predefined symbols that are used as the @c KEY
+ argument of minput_filter (). */
+
+/*** @{ */
+/*=*/
+
+MSymbol Minput_focus_out;
+MSymbol Minput_focus_in;
+MSymbol Minput_focus_move;
+
+/*** @} */
+
+/*=*/
+/***en
+ @name Variables: Predefined symbols used in input method information.
+
+ These are the predefined symbols describing status of input method
+ command and variable, and are used in a return value of
+ minput_get_command () and minput_get_variable (). */
+/*** @{ */
+/*=*/
+MSymbol Minherited;
+MSymbol Mcustomized;
+MSymbol Mconfigured;
+/*** @} */
+
+/*=*/
+
+/***en
+ @brief The default driver for internal input methods.
+
+ The variable #minput_default_driver is the default driver for
+ internal input methods.
+
+ The member MInputDriver::open_im () searches the m17n database for
+ an input method that matches the tag \< #Minput_method, $LANGUAGE,
+ $NAME\> and loads it.
+
+ The member MInputDriver::callback_list () is @c NULL. Thus, it is
+ programmers responsibility to set it to a plist of proper callback
+ functions. Otherwise, no feedback information (e.g. preedit text)
+ can be shown to users.
+
+ The macro M17N_INIT () sets the variable #minput_driver to the
+ pointer to this driver so that all internal input methods use it.
+
+ Therefore, unless @c minput_driver is set differently, the driver
+ dependent arguments $ARG of the functions whose name begins with
+ "minput_" are all ignored. */
+
+/***ja
+ @brief ÆâÉôÆþÎϥ᥽¥Ã¥ÉÍѥǥե©¥ë¥È¥É¥é¥¤¥Ð.
+
+ ÊÑ¿ô #minput_default_driver ¤ÏÆâÉôÆþÎϥ᥽¥Ã¥ÉÍѤΥǥե©¥ë¥È¤Î¥É¥é¥¤¥Ð¤òɽ¤¹¡£
+
+ ¥á¥ó¥Ð MInputDriver::open_im () ¤Ï m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹Ã椫¤é¥¿¥°
+ \< #Minput_method, $LANGUAGE, $NAME\>
+ ¤Ë¹çÃפ¹¤ëÆþÎϥ᥽¥Ã¥É¤òõ¤·¡¢¤½¤ì¤ò¥í¡¼¥É¤¹¤ë¡£
+
+ ¥á¥ó¥Ð MInputDriver::callback_list () ¤Ï @c NULL ¤Ç¤¢¤ê¡¢
+ ¤·¤¿¤¬¤Ã¤Æ¡¢¥×¥í¥°¥é¥Þ¦¤ÇÀÕǤ¤ò»ý¤Ã¤Æ ŬÀڤʥ³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Î plist
+ ¤ËÀßÄꤷ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤µ¤â¤Ê¤¤¤È¡¢preedit
+ ¥Æ¥¥¹¥È¤Ê¤É¤Î¥Õ¥£¡¼¥É¥Ð¥Ã¥¯¾ðÊ󤬥桼¥¶¤Ëɽ¼¨¤µ¤ì¤Ê¤¤¡£
+
+ ¥Þ¥¯¥í M17N_INIT () ¤ÏÊÑ¿ô #minput_driver
+ ¤ò¤³¤Î¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤ËÀßÄꤷ¡¢Á´¤Æ¤ÎÆâÉôÆþÎϥ᥽¥Ã¥É¤¬¤³¤Î¥É¥é¥¤¥Ð¤ò»È¤¦¤è¤¦¤Ë¤¹¤ë¡£
+
+ ¤·¤¿¤¬¤Ã¤Æ¡¢@c minput_driver ¤¬¥Ç¥Õ¥©¥ë¥ÈÃͤΤޤޤǤ¢¤ì¤Ð¡¢minput_
+ ¤Ç»Ï¤Þ¤ë´Ø¿ô¤Î¥É¥é¥¤¥Ð¤Ë°Í¸¤¹¤ë°ú¿ô $ARG ¤Ï¤¹¤Ù¤Æ̵»ë¤µ¤ì¤ë¡£ */
+
+MInputDriver minput_default_driver;
+/*=*/
+
+/***en
+ @brief The driver for internal input methods.
+
+ The variable #minput_driver is a pointer to the input method
+ driver that is used by internal input methods. The macro
+ M17N_INIT () initializes it to a pointer to #minput_default_driver
+ if <m17n<EM></EM>.h> is included. */
+/***ja
+ @brief ÆâÉôÆþÎϥ᥽¥Ã¥ÉÍѥɥ饤¥Ð.
+
+ ÊÑ¿ô #minput_driver ¤ÏÆâÉôÆþÎϥ᥽¥Ã¥É¤Ë¤è¤Ã¤Æ»ÈÍѤµ¤ì¤Æ¤¤¤ëÆþÎÏ¥á
+ ¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥Þ¥¯¥í M17N_INIT () ¤Ï¤³¤Î¥Ý¥¤¥ó
+ ¥¿¤ò#minput_default_driver (<m17n<EM></EM>.h> ¤¬ include ¤µ¤ì¤Æ¤¤¤ë
+ »þ) ¤Ë½é´ü²½¤¹¤ë¡£ */
+
+MInputDriver *minput_driver;
+
+MSymbol Minput_driver;
+
+/*=*/
+
+/***en
+ @brief Open an input method.
+
+ The minput_open_im () function opens an input method whose
+ language and name match $LANGUAGE and $NAME, and returns a pointer
+ to the input method object newly allocated.
+
+ This function at first decides a driver for the input method as
+ described below.
+
+ If $LANGUAGE is not #Mnil, the driver pointed by the variable
+ #minput_driver is used.
+
+ If $LANGUAGE is #Mnil and $NAME has the property #Minput_driver, the
+ driver pointed to by the property value is used to open the input
+ method. If $NAME has no such a property, @c NULL is returned.
+
+ Then, the member MInputDriver::open_im () of the driver is
+ called.
+
+ $ARG is set in the member @c arg of the structure MInputMethod so
+ that the driver can refer to it. */
+
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤ò¥ª¡¼¥×¥ó¤¹¤ë.
+
+ ´Ø¿ô minput_open_im () ¤Ï¸À¸ì $LANGUAGE ¤È̾Á° $NAME
+ ¤Ë¹çÃפ¹¤ëÆþÎϥ᥽¥Ã¥É¤ò¥ª¡¼¥×¥ó¤·¡¢¿·¤¿¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿ÆþÎϥ᥽¥Ã¥É¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
+
+ ¤³¤Î´Ø¿ô¤Ï¡¢¤Þ¤ºÆþÎϥ᥽¥Ã¥ÉÍѤΥɥ饤¥Ð¤ò°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ·èÄꤹ¤ë¡£
+
+ $LANGUAGE ¤¬ #Mnil ¤Ç¤Ê¤±¤ì¤Ð¡¢ÊÑ¿ô #minput_driver
+ ¤Ç»Ø¤µ¤ì¤Æ¤¤¤ë¥É¥é¥¤¥Ð¤òÍѤ¤¤ë¡£
+
+ $LANGUAGE ¤¬ #Mnil ¤Ç¤¢¤ê¡¢$NAME ¤¬ #Minput_driver
+ ¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä¾ì¹ç¤Ë¤Ï¡¢¤½¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤǻؤµ¤ì¤Æ¤¤¤ëÆþÎϥɥ饤¥Ð¤òÍѤ¤¤ÆÆþÎϥ᥽¥Ã¥É¤ò¥ª¡¼¥×¥ó¤¹¤ë¡£
+ $NAME ¤Ë¤½¤Î¤è¤¦¤Ê¥×¥í¥Ñ¥Æ¥£¤¬Ìµ¤«¤Ã¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£
+
+ ¼¡¤¤¤Ç¡¢¥É¥é¥¤¥Ð¤Î¥á¥ó¥Ð MInputDriver::open_im () ¤¬¸Æ¤Ð¤ì¤ë¡£
+
+ $ARG ¤Ï¹½Â¤ÂÎ MInputMethod ¤Î¥á¥ó¥Ð @c arg ¤ËÀßÄꤵ¤ì¡¢¥É¥é¥¤¥Ð¤«¤é»²¾È¤Ç¤¤ë¡£
+
+ @latexonly \IPAlabel{minput_open} @endlatexonly
+
+*/
+
+MInputMethod *
+minput_open_im (MSymbol language, MSymbol name, void *arg)
+{
+ MInputMethod *im;
+ MInputDriver *driver;
+
+ MINPUT__INIT ();
+
+ MDEBUG_PRINT2 (" [IM] opening (%s %s) ... ",
+ msymbol_name (language), msymbol_name (name));
+ if (language)
+ driver = minput_driver;
+ else
+ {
+ driver = (MInputDriver *) msymbol_get (name, Minput_driver);
+ if (! driver)
+ MERROR (MERROR_IM, NULL);
+ }
+
+ MSTRUCT_CALLOC (im, MERROR_IM);
+ im->language = language;
+ im->name = name;
+ im->arg = arg;
+ im->driver = *driver;
+ if ((*im->driver.open_im) (im) < 0)
+ {
+ MDEBUG_PRINT (" failed\n");
+ free (im);
+ return NULL;
+ }
+ MDEBUG_PRINT (" ok\n");
+ return im;
+}
+
+/*=*/
+
+/***en
+ @brief Close an input method.
+
+ The minput_close_im () function closes the input method $IM, which
+ must have been created by minput_open_im (). */
+
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤ò¥¯¥í¡¼¥º¤¹¤ë.
+
+ ´Ø¿ô minput_close_im () ¤Ï¡¢ÆþÎϥ᥽¥Ã¥É $IM ¤ò¥¯¥í¡¼¥º¤¹¤ë¡£
+ ¤³¤ÎÆþÎϥ᥽¥Ã¥É $IM ¤Ï minput_open_im () ¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¤â¤Î¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ */
+
+void
+minput_close_im (MInputMethod *im)
+{
+ MDEBUG_PRINT2 (" [IM] closing (%s %s) ... ",
+ msymbol_name (im->name), msymbol_name (im->language));
+ (*im->driver.close_im) (im);
+ free (im);
+ MDEBUG_PRINT (" done\n");
+}
+
+/*=*/
+
+/***en
+ @brief Create an input context.
+
+ The minput_create_ic () function creates an input context object
+ associated with input method $IM, and calls callback functions
+ corresponding to #Minput_preedit_start, #Minput_status_start, and
+ #Minput_status_draw in this order.
+
+ @return
+ If an input context is successfully created, minput_create_ic ()
+ returns a pointer to it. Otherwise it returns @c NULL. */
+
+/***ja
+ @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÀ¸À®¤¹¤ë.
+
+ ´Ø¿ô minput_create_ic () ¤ÏÆþÎϥ᥽¥Ã¥É $IM
+ ¤ËÂбþ¤¹¤ëÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¥ª¥Ö¥¸¥§¥¯¥È¤òÀ¸À®¤·¡¢
+ #Minput_preedit_start, #Minput_status_start, #Minput_status_draw
+ ¤ËÂбþ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò¤³¤Î½ç¤Ë¸Æ¤Ö¡£
+
+ @return
+ ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤¬À¸À®¤µ¤ì¤¿¾ì¹ç¡¢minput_create_ic ()
+ ¤Ï¤½¤ÎÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£
+ */
+
+MInputContext *
+minput_create_ic (MInputMethod *im, void *arg)
+{
+ MInputContext *ic;
+
+ MDEBUG_PRINT2 (" [IM] creating context (%s %s) ... ",
+ msymbol_name (im->name), msymbol_name (im->language));
+ MSTRUCT_CALLOC (ic, MERROR_IM);
+ ic->im = im;
+ ic->arg = arg;
+ ic->preedit = mtext ();
+ ic->candidate_list = NULL;
+ ic->produced = mtext ();
+ ic->spot.x = ic->spot.y = 0;
+ ic->active = 1;
+ ic->plist = mplist ();
+ if ((*im->driver.create_ic) (ic) < 0)
+ {
+ MDEBUG_PRINT (" failed\n");
+ M17N_OBJECT_UNREF (ic->preedit);
+ M17N_OBJECT_UNREF (ic->produced);
+ M17N_OBJECT_UNREF (ic->plist);
+ free (ic);
+ return NULL;
+ };
+
+ if (im->driver.callback_list)
+ {
+ minput__callback (ic, Minput_preedit_start);
+ minput__callback (ic, Minput_status_start);
+ minput__callback (ic, Minput_status_draw);
+ }
+
+ MDEBUG_PRINT (" ok\n");
+ return ic;
+}
+
+/*=*/
+
+/***en
+ @brief Destroy an input context.
+
+ The minput_destroy_ic () function destroys the input context $IC,
+ which must have been created by minput_create_ic (). It calls
+ callback functions corresponding to #Minput_preedit_done,
+ #Minput_status_done, and #Minput_candidates_done in this order. */
+
+/***ja
+ @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÇ˲õ¤¹¤ë.
+
+ ´Ø¿ô minput_destroy_ic () ¤Ï¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤òÇ˲õ¤¹¤ë¡£
+ ¤³¤ÎÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Ï minput_create_ic ()
+ ¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¤â¤Î¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¤³¤Î´Ø¿ô¤Ï
+ #Minput_preedit_done, #Minput_status_done, #Minput_candidates_done
+ ¤ËÂбþ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò¤³¤Î½ç¤Ë¸Æ¤Ö¡£
+ */
+
+void
+minput_destroy_ic (MInputContext *ic)
+{
+ MDEBUG_PRINT2 (" [IM] destroying context (%s %s) ... ",
+ msymbol_name (ic->im->name), msymbol_name (ic->im->language));
+ if (ic->im->driver.callback_list)
+ {
+ minput__callback (ic, Minput_preedit_done);
+ minput__callback (ic, Minput_status_done);
+ minput__callback (ic, Minput_candidates_done);
+ }
+ (*ic->im->driver.destroy_ic) (ic);
+ M17N_OBJECT_UNREF (ic->preedit);
+ M17N_OBJECT_UNREF (ic->produced);
+ M17N_OBJECT_UNREF (ic->plist);
+ MDEBUG_PRINT (" done\n");
+ free (ic);
+}
+
+/*=*/
+
+/***en
+ @brief Filter an input key.
+
+ The minput_filter () function filters input key $KEY according to
+ input context $IC, and calls callback functions corresponding to
+ #Minput_preedit_draw, #Minput_status_draw, and
+ #Minput_candidates_draw if the preedit text, the status, and the
+ current candidate are changed respectively.
+
+ To make the input method commit the current preedit text (if any)
+ and shift to the initial state, call this function with #Mnil as
+ $KEY.
+
+ To inform the input method about the focus-out event, call this
+ function with #Minput_focus_out as $KEY.
+
+ To inform the input method about the focus-in event, call this
+ function with #Minput_focus_in as $KEY.
+
+ To inform the input method about the focus-move event (i.e. input
+ spot change within the same input context), call this function
+ with #Minput_focus_move as $KEY.
+
+ @return
+ If $KEY is filtered out, this function returns 1. In that case,
+ the caller should discard the key. Otherwise, it returns 0, and
+ the caller should handle the key, for instance, by calling the
+ function minput_lookup () with the same key. */
+
+/***ja
+ @brief ÆþÎÏ¥¡¼¤ò¥Õ¥£¥ë¥¿¤¹¤ë.
+
+ ´Ø¿ô minput_filter () ¤ÏÆþÎÏ¥¡¼ $KEY ¤òÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC
+ ¤Ë±þ¤¸¤Æ¥Õ¥£¥ë¥¿¤·¡¢preedit ¥Æ¥¥¹¥È¡¢¥¹¥Æ¡¼¥¿¥¹¡¢¸½»þÅÀ¤Ç¤Î¸õÊ䤬ÊѲ½¤·¤¿»þÅÀ¤Ç¡¢¤½¤ì¤¾¤ì
+ #Minput_preedit_draw, #Minput_status_draw,
+ #Minput_candidates_draw ¤ËÂбþ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò¸Æ¤Ö¡£
+
+ @return
+ $KEY ¤¬¥Õ¥£¥ë¥¿¤µ¤ì¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï 1 ¤òÊÖ¤¹¡£
+ ¤³¤Î¾ì¹ç¸Æ¤Ó½Ð¤·Â¦¤Ï¤³¤Î¥¡¼¤ò¼Î¤Æ¤ë¤Ù¤¤Ç¤¢¤ë¡£
+ ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 0 ¤òÊÖ¤·¡¢¸Æ¤Ó½Ð¤·Â¦¤Ï¡¢¤¿¤È¤¨¤ÐƱ¤¸¥¡¼¤Ç´Ø¿ô minput_lookup ()
+ ¤ò¸Æ¤Ö¤Ê¤É¤·¤Æ¡¢¤³¤Î¥¡¼¤ò½èÍý¤¹¤ë¡£
+
+ @latexonly \IPAlabel{minput_filter} @endlatexonly
+*/
+
+int
+minput_filter (MInputContext *ic, MSymbol key, void *arg)
+{
+ int ret;
+
+ if (! ic
+ || ! ic->active)
+ return 0;
+ ret = (*ic->im->driver.filter) (ic, key, arg);
+
+ if (ic->im->driver.callback_list)
+ {
+ if (ic->preedit_changed)
+ minput__callback (ic, Minput_preedit_draw);
+ if (ic->status_changed)
+ minput__callback (ic, Minput_status_draw);
+ if (ic->candidates_changed)
+ minput__callback (ic, Minput_candidates_draw);
+ }
+
+ return ret;
+}
+
+/*=*/
+
+/***en
+ @brief Look up a text produced in the input context.
+
+ The minput_lookup () function looks up a text in the input context
+ $IC. $KEY must be identical to the one that was used in the previous call of
+ minput_filter ().
+
+ If a text was produced by the input method, it is concatenated
+ to M-text $MT.
+
+ This function calls #MInputDriver::lookup .
+
+ @return
+ If $KEY was correctly handled by the input method, this function
+ returns 0. Otherwise, it returns -1, even though some text
+ might be produced in $MT. */
+
+/***ja
+ @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥ÈÃæ¤Î¥Æ¥¥¹¥È¤òõ¤¹.
+
+ ´Ø¿ô minput_lookup () ¤ÏÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC Ãæ¤Î¥Æ¥¥¹¥È¤òõ¤¹¡£
+ $KEY ¤Ï´Ø¿ô minput_filter () ¤Ø¤ÎľÁ°¤Î¸Æ¤Ó½Ð¤·¤ËÍѤ¤¤é¤ì¤¿¤â¤Î¤ÈƱ¤¸¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
+
+ ¥Æ¥¥¹¥È¤¬ÆþÎϥ᥽¥Ã¥É¤Ë¤è¤Ã¤ÆÀ¸À®¤µ¤ì¤Æ¤¤¤ì¤Ð¡¢¥Æ¥¥¹¥È¤Ï M-text
+ $MT ¤ËÏ¢·ë¤µ¤ì¤ë¡£
+
+ ¤³¤Î´Ø¿ô¤Ï¡¢#MInputDriver::lookup ¤ò¸Æ¤Ö¡£
+
+ @return
+ $KEY ¤¬ÆþÎϥ᥽¥Ã¥É¤Ë¤è¤Ã¤ÆŬÀڤ˽èÍý¤Ç¤¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï 0 ¤òÊÖ¤¹¡£
+ ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£
+ ¤³¤Î¾ì¹ç¤Ç¤â $MT ¤Ë²¿¤é¤«¤Î¥Æ¥¥¹¥È¤¬À¸À®¤µ¤ì¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ë¡£
+
+ @latexonly \IPAlabel{minput_lookup} @endlatexonly */
+
+int
+minput_lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
+{
+ return (ic ? (*ic->im->driver.lookup) (ic, key, arg, mt) : -1);
+}
+/*=*/
+
+/***en
+ @brief Set the spot of the input context.
+
+ The minput_set_spot () function sets the spot of input context $IC
+ to coordinate ($X, $Y ) with the height specified by $ASCENT and $DESCENT .
+ The semantics of these values depends on the input method driver.
+
+ For instance, a driver designed to work in a CUI environment may
+ use $X and $Y as the column- and row numbers, and may ignore $ASCENT and
+ $DESCENT . A driver designed to work in a window system may
+ interpret $X and $Y as the pixel offsets relative to the origin of the
+ client window, and may interpret $ASCENT and $DESCENT as the ascent- and
+ descent pixels of the line at ($X . $Y ).
+
+ $FONTSIZE specifies the fontsize of preedit text in 1/10 point.
+
+ $MT and $POS are the M-text and the character position at the spot.
+ $MT may be @c NULL, in which case, the input method cannot get
+ information about the text around the spot. */
+
+/***ja
+ @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Î¥¹¥Ý¥Ã¥È¤òÀßÄꤹ¤ë.
+
+ ´Ø¿ô minput_set_spot () ¤Ï¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤Î¥¹¥Ý¥Ã¥È¤ò¡¢ºÂɸ ($X, $Y )
+ ¤Î°ÌÃÖ¤Ë ¡¢¹â¤µ $ASCENT¡¢ $DESCENT
+ ¤ÇÀßÄꤹ¤ë¡£ ¤³¤ì¤é¤ÎÃͤΰÕÌ£¤ÏÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤Ë°Í¸¤¹¤ë¡£
+
+ ¤¿¤È¤¨¤Ð CUI ´Ä¶¤ÇÆ°ºî¤¹¤ë¥É¥é¥¤¥Ð¤Ï $X ¤È $Y
+ ¤ò¤½¤ì¤¾¤ìÎó¤È¹Ô¤ÎÈÖ¹æ¤È¤·¤ÆÍѤ¤¡¢$ASCENT ¤È $DESCENT
+ ¤ò̵»ë¤¹¤ë¤«¤â¤·¤ì¤Ê¤¤¡£ ¤Þ¤¿¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥àÍѤΥɥ饤¥Ð¤Ï
+ $X ¤È $Y ¤ò¥¯¥é¥¤¥¢¥ó¥È¥¦¥£¥ó¥É¥¦¤Î¸¶ÅÀ¤«¤é¤Î¥ª¥Õ¥»¥Ã¥È¤ò¥Ô¥¯¥»¥ëñ°Ì¤Çɽ¤·¤¿¤â¤Î¤È¤·¤Æ°·¤¤¡¢
+ $ASCENT ¤È $DESCENT ¤ò ($X . $Y )
+ ¤ÎÎó¤Î¥¢¥»¥ó¥È¤È¥Ç¥£¥»¥ó¥È¤ò¥Ô¥¯¥»¥ëñ°Ì¤Çɽ¤·¤¿¤â¤Î¤È¤·¤Æ°·¤¦¤«¤â¤·¤ì¤Ê¤¤¡£
+
+ $FONTSIZE ¤Ë¤Ï preedit ¥Æ¥¥¹¥È¤Î¥Õ¥©¥ó¥È¥µ¥¤¥º¤ò 1/10 ¥Ý¥¤¥ó¥Èñ°Ì¤Ç»ØÄꤹ¤ë¡£
+
+ $MT ¤È $POS ¤Ï¤½¤Î¥¹¥Ý¥Ã¥È¤Î M-text ¤Èʸ»ú°ÌÃ֤Ǥ¢¤ë¡£$MT ¤Ï @c
+ NULL ¤Ç¤â¤è¤¯¡¢¤½¤Î¾ì¹ç¤Ë¤ÏÆþÎϥ᥽¥Ã¥É¤Ï¥¹¥Ý¥Ã¥È¼þÊդΥƥ¥¹¥È¤Ë´Ø¤¹¤ë¾ðÊó¤òÆÀ¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¡£
+ */
+
+void
+minput_set_spot (MInputContext *ic, int x, int y,
+ int ascent, int descent, int fontsize,
+ MText *mt, int pos)
+{
+ ic->spot.x = x;
+ ic->spot.y = y;
+ ic->spot.ascent = ascent;
+ ic->spot.descent = descent;
+ ic->spot.fontsize = fontsize;
+ ic->spot.mt = mt;
+ ic->spot.pos = pos;
+ if (ic->im->driver.callback_list)
+ minput__callback (ic, Minput_set_spot);
+}
+/*=*/
+
+/***en
+ @brief Toggle input method.
+
+ The minput_toggle () function toggles the input method associated
+ with input context $IC. */
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤òÀÚÂؤ¨¤ë.
+
+ ´Ø¿ô minput_toggle () ¤ÏÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC
+ ¤ËÂбþÉÕ¤±¤é¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤ò¥È¥°¥ë¤¹¤ë¡£
+ */
+
+void
+minput_toggle (MInputContext *ic)
+{
+ if (ic->im->driver.callback_list)
+ minput__callback (ic, Minput_toggle);
+ ic->active = ! ic->active;
+}
+
+/*=*/
+
+/***en
+ @brief Reset an input context.
+
+ The minput_reset_ic () function resets input context $IC by
+ calling a callback function corresponding to #Minput_reset. It
+ resets the status of $IC to its initial one. As the
+ current preedit text is deleted without commitment, if necessary,
+ call minput_filter () with the arg @r key #Mnil to force the input
+ method to commit the preedit in advance. */
+
+/***ja
+ @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤ò¥ê¥»¥Ã¥È¤¹¤ë.
+
+ ´Ø¿ô minput_reset_ic () ¤Ï #Minput_reset ¤ËÂбþ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô
+ ¤ò¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤ÆÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤ò¥ê¥»¥Ã¥È¤¹¤ë¡£¥ê¥»¥Ã¥È¤È¤Ï¡¢
+ ¼ÂºÝ¤Ë¤ÏÆþÎϥ᥽¥Ã¥É¤ò½é´ü¾õÂ֤˰ܤ¹¤³¤È¤Ç¤¢¤ë¡£¸½ºßÆþÎÏÃæ¤Î¥Æ¥¥¹
+ ¥È¤Ï¥³¥ß¥Ã¥È¤µ¤ì¤ë¤³¤È¤Ê¤¯ºï½ü¤µ¤ì¤ë¤Î¤Ç¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é
+ ¥à¤Ï¡¢É¬Íפʤé¤Ðͽ¤á minput_filter () ¤ò°ú¿ô @r key #Mnil ¤Ç¸Æ¤ó¤Ç
+ ¶¯À©Åª¤Ë¥×¥ê¥¨¥Ç¥£¥Ã¥È¥Æ¥¥¹¥È¤ò¥³¥ß¥Ã¥È¤µ¤»¤ë¤³¤È¡£ */
+
+void
+minput_reset_ic (MInputContext *ic)
+{
+ if (ic->im->driver.callback_list)
+ minput__callback (ic, Minput_reset);
+}
+
+/*=*/
- MLIST_RESET (ic_info);
- ic_info->state = (MIMState *) MPLIST_VAL (im_info->states);
- ic_info->map = ic_info->state->map;
- ic_info->state_key_head = ic_info->key_head = 0;
- ic->cursor_pos = ic_info->state_pos = 0;
- ic->status = ic_info->state->title;
- if (! ic->status)
- ic->status = im_info->title;
- ic->candidate_list = NULL;
- ic->candidate_show = 0;
- ic->status_changed = ic->preedit_changed = ic->candidates_changed = 1;
- if (ic_info->map->map_actions)
- take_action_list (ic, ic_info->map->map_actions);
-}
+/***en
+ @brief Get title and icon filename of an input method.
-static int
-open_im (MInputMethod *im)
-{
- MDatabase *mdb;
- MInputMethodInfo *im_info;
- MPlist *plist;
- int result;
+ The minput_get_title_icon () function returns a plist containing a
+ title and icon filename (if any) of an input method specified by
+ $LANGUAGE and $NAME.
- mdb = mdatabase_find (Minput_method, im->language, im->name, Mnil);
- if (! mdb)
- return -1;
- plist = mdatabase_load (mdb);
- if (! plist)
- MERROR (MERROR_IM, -1);
- MSTRUCT_CALLOC (im_info, MERROR_IM);
- im->info = im_info;
- result = load_input_method (im->language, im->name, plist, im_info);
- M17N_OBJECT_UNREF (plist);
- if (result < 0)
- MERROR (MERROR_IM, -1);
- return 0;
-}
+ The first element of the plist has key #Mtext and the value is an
+ M-text of the title for identifying the input method. The second
+ element (if any) has key #Mtext and the value is an M-text of the
+ icon image (absolute) filename for the same purpose.
-static void
-close_im (MInputMethod *im)
+ @return
+ If there exists a specified input method and it defines an title,
+ a plist is returned. Otherwise, NULL is returned. The caller
+ must free the plist by m17n_object_unref (). */
+
+MPlist *
+minput_get_title_icon (MSymbol language, MSymbol name)
{
- MInputMethodInfo *im_info = (MInputMethodInfo *) im->info;
+ MInputMethodInfo *im_info;
MPlist *plist;
+ char *file = NULL;
+ MText *mt;
- if (im_info->title)
- M17N_OBJECT_UNREF (im_info->title);
- if (im_info->states)
+ MINPUT__INIT ();
+
+ im_info = get_im_info (language, name, Mnil, Mtitle);
+ if (! im_info || !im_info->title)
+ return NULL;
+ mt = mtext_get_prop (im_info->title, 0, Mtext);
+ if (mt)
+ file = mdatabase__find_file ((char *) MTEXT_DATA (mt));
+ else
{
- MPLIST_DO (plist, im_info->states)
- {
- MIMState *state = (MIMState *) MPLIST_VAL (plist);
+ char *buf = alloca (MSYMBOL_NAMELEN (language) + MSYMBOL_NAMELEN (name)
+ + 12);
- if (state->title)
- M17N_OBJECT_UNREF (state->title);
- if (state->map)
- free_map (state->map);
- free (state);
+ sprintf (buf, "icons/%s-%s.png", (char *) MSYMBOL_NAME (language),
+ (char *) MSYMBOL_NAME (name));
+ file = mdatabase__find_file (buf);
+ if (! file && language == Mt)
+ {
+ sprintf (buf, "icons/%s.png", (char *) MSYMBOL_NAME (name));
+ file = mdatabase__find_file (buf);
}
- M17N_OBJECT_UNREF (im_info->states);
}
- if (im_info->macros)
+ plist = mplist ();
+ mplist_add (plist, Mtext, im_info->title);
+ if (file)
{
- MPLIST_DO (plist, im_info->macros)
- M17N_OBJECT_UNREF (MPLIST_VAL (plist));
- M17N_OBJECT_UNREF (im_info->macros);
+ mt = mtext__from_data (file, strlen (file), MTEXT_FORMAT_UTF_8, 1);
+ free (file);
+ mplist_add (plist, Mtext, mt);
+ M17N_OBJECT_UNREF (mt);
}
+ return plist;
+}
- if (im_info->externals)
- {
- MPLIST_DO (plist, im_info->externals)
- {
- MIMExternalModule *external = MPLIST_VAL (plist);
+/*=*/
- dlclose (external->handle);
- M17N_OBJECT_UNREF (external->func_list);
- free (external);
- MPLIST_KEY (plist) = Mt;
- }
- M17N_OBJECT_UNREF (im_info->externals);
- }
- free (im_info);
- im->info = NULL;
-}
+/***en
+ @brief Get description text of an input method.
+ The minput_get_description () function returns an M-text that
+ describes the input method specified by $LANGUAGE and $NAME.
-static int
-create_ic (MInputContext *ic)
-{
- MInputMethod *im = ic->im;
- MInputMethodInfo *im_info = (MInputMethodInfo *) im->info;
- MInputContextInfo *ic_info;
+ @return
+ If the specified input method has a description text, a pointer to
+ #MText is returned. The caller has to free it by m17n_object_unref ().
+ If the input method does not have a description text, @c NULL is
+ returned. */
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤ÎÀâÌÀ¥Æ¥¥¹¥È¤òÆÀ¤ë.
- if (ic->info)
- ic_info = (MInputContextInfo *) ic->info;
- else
- {
- MSTRUCT_CALLOC (ic_info, MERROR_IM);
- ic->info = ic_info;
- }
- MLIST_INIT1 (ic_info, keys, 8);
- ic_info->markers = mplist ();
- ic_info->vars = mplist ();
- ic_info->preedit_saved = mtext ();
- if (im_info->externals)
- {
- MPlist *func_args = mplist (), *plist;
+ ´Ø¿ô minput_get_description () ¤Ï¡¢$LANGUAGE ¤È $NAME ¤Ë¤è¤Ã¤Æ»ØÄê
+ ¤µ¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤òÀâÌÀ¤¹¤ë M-text ¤òÊÖ¤¹¡£
- mplist_add (func_args, Mt, ic);
- MPLIST_DO (plist, im_info->externals)
- {
- MIMExternalModule *external = MPLIST_VAL (plist);
- MIMExternalFunc func
- = (MIMExternalFunc) mplist_get (external->func_list, Minit);
+ @return »ØÄꤵ¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤¬ÀâÌÀ¤¹¤ë¥Æ¥¥¹¥È¤ò»ý¤Ã¤Æ¤¤¤ì¤Ð¡¢
+ #MText ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¸Æ¤Ó½Ð¤·Â¦¤Ï¡¢¤½¤ì¤ò m17n_object_unref
+ () ¤òÍѤ¤¤Æ²òÊü¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ÆþÎϥ᥽¥Ã¥É¤ËÀâÌÀ¥Æ¥¥¹¥È¤¬Ìµ¤±
+ ¤ì¤Ð@c NULL ¤òÊÖ¤¹¡£ */
- if (func)
- (func) (func_args);
- }
- M17N_OBJECT_UNREF (func_args);
- }
- reset_ic (ic);
- return 0;
+MText *
+minput_get_description (MSymbol language, MSymbol name)
+{
+ MInputMethodInfo *im_info;
+
+ MINPUT__INIT ();
+
+ im_info = get_im_info (language, name, Mnil, Mdescription);
+ if (! im_info || ! im_info->description)
+ return NULL;
+ M17N_OBJECT_REF (im_info->description);
+ return im_info->description;
}
-static void
-destroy_ic (MInputContext *ic)
-{
- MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
- MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
+/*=*/
- if (im_info->externals)
- {
- MPlist *func_args = mplist (), *plist;
+/***en
+ @brief Get information about input method command(s).
+
+ The minput_get_command () function returns information about
+ the command $COMMAND of the input method specified by $LANGUAGE and
+ $NAME. An input method command is a pseudo key event to which one
+ or more actual input key sequences are assigned.
+
+ There are two kinds of commands, global and local. A global
+ command has a global definition, and the description and the key
+ assignment may be inherited by a local command. Each input method
+ defines a local command which has a local key assignment. It may
+ also declare a local command that inherits the definition of a
+ global command of the same name.
+
+ If $LANGUAGE is #Mt and $NAME is #Mnil, this function returns
+ information about a global command. Otherwise information about a
+ local command is returned.
+
+ If $COMMAND is #Mnil, information about all commands is returned.
+
+ The return value is a @e well-formed plist (#m17nPlist) of this
+ format:
+@verbatim
+ ((NAME DESCRIPTION STATUS [KEYSEQ ...]) ...)
+@endverbatim
+ @c NAME is a symbol representing the command name.
+
+ @c DESCRIPTION is an M-text describing the command, or #Mnil if the
+ command has no description.
+
+ @c STATUS is a symbol representing how the key assignment is decided.
+ The value is #Mnil (the default key assignment), #Mcustomized (the
+ key assignment is customized by per-user configuration file), or
+ #Mconfigured (the key assignment is set by the call of
+ minput_config_command ()). For a local command only, it may also
+ be #Minherited (the key assignment is inherited from the
+ corresponding global command).
+
+ @c KEYSEQ is a plist of one or more symbols representing a key
+ sequence assigned to the command. If there's no KEYSEQ, the
+ command is currently disabled (i.e. no key sequence can trigger
+ actions of the command).
+
+ If $COMMAND is not #Mnil, the first element of the returned plist
+ contains the information about $COMMAND.
- mplist_add (func_args, Mt, ic);
- MPLIST_DO (plist, im_info->externals)
- {
- MIMExternalModule *external = MPLIST_VAL (plist);
- MIMExternalFunc func
- = (MIMExternalFunc) mplist_get (external->func_list, Mfini);
+ @return
- if (func)
- (func) (func_args);
- }
- M17N_OBJECT_UNREF (func_args);
- }
- MLIST_FREE1 (ic_info, keys);
- M17N_OBJECT_UNREF (ic_info->preedit_saved);
- M17N_OBJECT_UNREF (ic_info->markers);
- M17N_OBJECT_UNREF (ic_info->vars);
- free (ic->info);
-}
+ If the requested information was found, a pointer to a non-empty
+ plist is returned. As the plist is kept in the library, the
+ caller must not modify nor free it.
+ Otherwise (the specified input method or the specified command
+ does not exist), @c NULL is returned. */
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤Î¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó¤òÆÀ¤ë.
-/** Handle the input key KEY in the current state and map of IC->info.
- If KEY is handled but no text is produced, return 0, otherwise
- return 1.
+ ´Ø¿ô minput_get_command () ¤Ï¡¢$LANGUAGE ¤È $NAME ¤Ç»ØÄꤵ¤ì¤ëÆþÎÏ
+ ¥á¥½¥Ã¥É¤Î¥³¥Þ¥ó¥É $COMMAND ¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£ÆþÎϥ᥽¥Ã¥É¤Î¥³¥Þ
+ ¥ó¥É¤È¤Ï¡¢µ¿»÷¥¡¼¥¤¥Ù¥ó¥È¤Ç¤¢¤ê¡¢£±¤Ä°Ê¾å¤Î¼ÂºÝ¤ÎÆþÎÏ¥¡¼¥·¡¼¥¯¥¨
+ ¥ó¥¹¤¬³ä¤êÅö¤Æ¤é¤ì¤ë¡£
- Ignore ARG. */
+ ¥³¥Þ¥ó¥É¤Ë¤Ï¡¢¥°¥í¡¼¥Ð¥ë¤È¥í¡¼¥«¥ë¤Î£²¼ïÎब¤¢¤ë¡£¥°¥í¡¼¥Ð¥ë¤Ê¥³¥Þ¥ó¥É
+ ¤Ï¥°¥í¡¼¥Ð¥ë¤ËÄêµÁ¤µ¤ì¡¢¥í¡¼¥«¥ë¤Ê¥³¥Þ¥ó¥É¤Ï¤½¤ÎÀâÌÀ¤È¥¡¼³ä¤êÅö¤Æ
+ ¤ò·Ñ¾µ¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£³ÆÆþÎϥ᥽¥Ã¥É¤Ï¥í¡¼¥«¥ë¤Ê¥¡¼³äÅö¤ò»ý¤Ä¥í¡¼
+ ¥«¥ë¤Ê¥³¥Þ¥ó¥É¤òÄêµÁ¤¹¤ë¡£¤Þ¤¿Æ±Ì¾¤Î¥°¥í¡¼¥Ð¥ë¤Ê¥³¥Þ¥ó¥É¤ÎÄêµÁ¤ò·Ñ
+ ¾µ¤¹¤ë¥í¡¼¥«¥ë¤Ê¥³¥Þ¥ó¥É¤òÀë¸À¤¹¤ë¤³¤È¤â¤Ç¤¤ë¡£
-static int
-filter (MInputContext *ic, MSymbol key, void *arg)
-{
- MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
- MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
- int i = 0;
+ $LANGUAGE ¤¬ #Mt ¤Ç $NAME ¤¬ #Mnil ¤Î¾ì¹ç¤Ï¡¢¤³¤Î´Ø¿ô¤Ï¥°¥í¡¼¥Ð¥ë¥³
+ ¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¥í¡¼¥«¥ë¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¤â
+ ¤Î¤òÊÖ¤¹¡£
- mtext_reset (ic->produced);
- ic->status_changed = ic->preedit_changed = ic->candidates_changed = 0;
- MLIST_APPEND1 (ic_info, keys, key, MERROR_IM);
- ic_info->key_unhandled = 0;
- do {
- if (handle_key (ic) < 0)
- {
- /* KEY was not handled. Reset the status and break the
- loop. */
- reset_ic (ic);
- /* This forces returning 1. */
- ic_info->key_unhandled = 1;
- break;
- }
- if (i++ == 100)
- {
- mdebug_hook ();
- reset_ic (ic);
- ic_info->key_unhandled = 1;
- break;
- }
- /* Break the loop if all keys were handled. */
- } while (ic_info->key_head < ic_info->used);
+ $COMMAND ¤¬ #Mnil ¤Î¾ì¹ç¤Ï¡¢¤¹¤Ù¤Æ¤Î¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£
- /* If the current map is the root of the initial state, we should
- produce any preedit text in ic->produced. */
- if (ic_info->map == ((MIMState *) MPLIST_VAL (im_info->states))->map
- && mtext_nchars (ic->preedit) > 0)
- shift_state (ic, ((MIMState *) MPLIST_VAL (im_info->states))->name);
+ Ìá¤êÃͤϰʲ¼¤Î·Á¼°¤Î @e well-formed plist (#m17nPlist) ¤Ç¤¢¤ë¡£
- if (mtext_nchars (ic->produced) > 0)
- {
- MSymbol lang = msymbol_get (ic->im->language, Mlanguage);
+@verbatim
+ ((NAME DESCRIPTION STATUS [KEYSEQ ...]) ...)
+@endverbatim
+ @c NAME ¤Ï¥³¥Þ¥ó¥É̾¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
- if (lang != Mnil)
- mtext_put_prop (ic->produced, 0, mtext_nchars (ic->produced),
- Mlanguage, ic->im->language);
- }
+ @c DESCRIPTION ¤Ï¥³¥Þ¥ó¥É¤òÀâÌÀ¤¹¤ë M-text ¤Ç¤¢¤ë¤«¡¢ÀâÌÀ¤¬Ìµ¤¤¾ì¹ç¤Ë
+ ¤Ï #Mnil ¤Ç¤¢¤ë¡£
- return (! ic_info->key_unhandled && mtext_nchars (ic->produced) == 0);
-}
+ @c STATUS ¤Ï¥¡¼³ä¤êÅö¤Æ¤¬¤É¤Î¤è¤¦¤ËÄê¤á¤é¤ì¤ë¤«¤ò¤¢¤é¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢
+ ¤ê¡¢¤½¤ÎÃÍ¤Ï #Mnil ¡Ê¥Ç¥Õ¥©¥ë¥È¤Î³ä¤êÅö¤Æ¡Ë, #Mcustomized ¡Ê¥æ¡¼¥¶
+ Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤Ë¤è¤Ã¤Æ¥«¥¹¥¿¥Þ¥¤¥º¤µ¤ì¤¿³ä¤êÅö¤Æ¡Ë, #Mconfigured
+ ¡Êminput_config_command ()¤ò¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤ÆÀßÄꤵ¤ì¤ë³ä¤êÅö¤Æ¡Ë¤Î
+ ¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£¥í¡¼¥«¥ë¥³¥Þ¥ó¥É¤Î¾ì¹ç¤Ë¤Ï¡¢#Minherited ¡ÊÂбþ¤¹¤ë
+ ¥°¥í¡¼¥Ð¥ë¥³¥Þ¥ó¥É¤«¤é¤Î·Ñ¾µ¤Ë¤è¤ë³ä¤êÅö¤Æ¡Ë¤Ç¤â¤è¤¤¡£
+ @c KEYSEQ ¤Ï£±¤Ä°Ê¾å¤Î¥·¥ó¥Ü¥ë¤«¤é¤Ê¤ë plist ¤Ç¤¢¤ê¡¢³Æ¥·¥ó¥Ü¥ë¤Ï¥³¥Þ
+ ¥ó¥É¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤òɽ¤¹¡£KEYSEQ ¤¬Ìµ¤¤¾ì¹ç¤Ï¡¢
+ ¤½¤Î¥³¥Þ¥ó¥É¤Ï¸½¾õ¤Ç»ÈÍÑÉÔǽ¤Ç¤¢¤ë¡£¡Ê¤¹¤Ê¤ï¤Á¥³¥Þ¥ó¥É¤ÎÆ°ºî¤òµ¯
+ Æ°¤Ç¤¤ë¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤¬Ìµ¤¤¡£¡Ë
-/** Return 1 if the last event or key was not handled, otherwise
- return 0.
+ $COMMAND ¤¬ #Mnil ¤Ç¤Ê¤±¤ì¤Ð¡¢ÊÖ¤µ¤ì¤ë plist ¤ÎºÇ½é¤ÎÍ×ÁǤϡ¢
+ $COMMAND ¤Ë´Ø¤¹¤ë¾ðÊó¤ò´Þ¤à¡£
- There is no need of looking up because ic->produced should already
- contain the produced text (if any).
+ @return
- Ignore KEY. */
+ µá¤á¤é¤ì¤¿¾ðÊ󤬸«¤Ä¤«¤ì¤Ð¡¢¶õ¤Ç¤Ê¤¤ plist ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¥ê¥¹
+ ¥È¤Ï¥é¥¤¥Ö¥é¥ê¤¬´ÉÍý¤·¤Æ¤¤¤ë¤Î¤Ç¡¢¸Æ½Ð¦¤¬Êѹ¹¤·¤¿¤ê²òÊü¤·¤¿¤ê¤¹¤ë
+ ¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£
-static int
-lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
+ ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¤¹¤Ê¤ï¤Á»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤ä¥³¥Þ¥ó¥É¤¬Â¸ºß¤·¤Ê¤±¤ì¤Ð
+ @c NULL ¤òÊÖ¤¹¡£ */
+
+#if EXAMPLE_CODE
+MText *
+get_im_command_description (MSymbol language, MSymbol name, MSymbol command)
{
- mtext_cat (mt, ic->produced);
- mtext_reset (ic->produced);
- return (((MInputContextInfo *) ic->info)->key_unhandled ? -1 : 0);
-}
+ /* Return a description of the command COMMAND of the input method */
+ /* specified by LANGUAGE and NAME. */
+ MPlist *cmd = minput_get_command (langauge, name, command);
+ MPlist *plist;
-/* Support functions for mdebug_dump_im. */
+ if (! cmds)
+ return NULL;
+ plist = mplist_value (cmds); /* (NAME DESCRIPTION KEY-SEQ ...) */
+ plist = mplist_next (plist); /* (DESCRIPTION KEY-SEQ ...) */
+ return (mplist_key (plist) == Mtext
+ ? (MText *) mplist_value (plist)
+ : NULL);
+}
+#endif
-static void
-dump_im_map (MPlist *map_list, int indent)
+MPlist *
+minput_get_command (MSymbol language, MSymbol name, MSymbol command)
{
- char *prefix;
- MSymbol key = MPLIST_KEY (map_list);
- MIMMap *map = (MIMMap *) MPLIST_VAL (map_list);
+ MInputMethodInfo *im_info;
- prefix = (char *) alloca (indent + 1);
- memset (prefix, 32, indent);
- prefix[indent] = '\0';
+ MINPUT__INIT ();
- fprintf (stderr, "(\"%s\" ", msymbol_name (key));
- if (map->map_actions)
- mdebug_dump_plist (map->map_actions, indent + 2);
- if (map->submaps)
- {
- MPLIST_DO (map_list, map->submaps)
- {
- fprintf (stderr, "\n%s ", prefix);
- dump_im_map (map_list, indent + 2);
- }
- }
- if (map->branch_actions)
- {
- fprintf (stderr, "\n%s (branch\n%s ", prefix, prefix);
- mdebug_dump_plist (map->branch_actions, indent + 4);
- fprintf (stderr, ")");
- }
- fprintf (stderr, ")");
+ im_info = get_im_info (language, name, Mnil, Mcommand);
+ if (! im_info
+ || ! im_info->configured_cmds
+ || MPLIST_TAIL_P (im_info->configured_cmds))
+ return NULL;
+ if (command == Mnil)
+ return im_info->configured_cmds;
+ return mplist__assq (im_info->configured_cmds, command);
}
+/*=*/
-static void
-dump_im_state (MIMState *state, int indent)
-{
- char *prefix;
- MPlist *map_list;
+/***en
+ @brief Configure the key sequence of an input method command.
- prefix = (char *) alloca (indent + 1);
- memset (prefix, 32, indent);
- prefix[indent] = '\0';
+ The minput_config_command () function assigns a list of key
+ sequences $KEYSEQLIST to the command $COMMAND of the input method
+ specified by $LANGUAGE and $NAME.
- fprintf (stderr, "(%s", msymbol_name (state->name));
- if (state->map->submaps)
- {
- MPLIST_DO (map_list, state->map->submaps)
- {
- fprintf (stderr, "\n%s ", prefix);
- dump_im_map (map_list, indent + 2);
- }
- }
- fprintf (stderr, ")");
-}
+ If $KEYSEQLIST is a non-empty plist, it must be a list of key
+ sequences, and each key sequence must be a plist of symbols.
+
+ If $KEYSEQLIST is an empty plist, the command becomes unusable.
+
+ If $KEYSEQLIST is NULL, the configuration of the command for the
+ input method is canceled, and the default key sequences become
+ effective. In such case, if $COMMAND is #Mnil, configurations for
+ all commands of the input method are canceled.
+
+ If $NAME is #Mnil, this function configures the key assignment of a
+ global command, not that of a specific input method.
+
+ The configuration takes effect for input methods opened or
+ re-opened later in the current session. In order to make the
+ configuration take effect for the future session, it must be saved
+ in a per-user configuration file by the function
+ minput_save_config ().
+
+ @return
+
+ If the operation was successful, this function returns 0,
+ otherwise returns -1. The operation fails in these cases:
+ <ul>
+ <li>$KEYSEQLIST is not in a valid form.
+ <li>$COMMAND is not available for the input method.
+ <li>$LANGUAGE and $NAME do not specify an existing input method.
+ </ul>
+
+ @seealso
+ minput_get_commands (), minput_save_config ().
+*/
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤Î¥³¥Þ¥ó¥É¤Î¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤òÀßÄꤹ¤ë.
+
+ ´Ø¿ô minput_config_command () ¤Ï¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Î¥ê¥¹¥È
+ $KEYSEQLIST ¤ò¡¢$LANGUAGE ¤È $NAME ¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤ëÆþÎϥ᥽¥Ã¥É¤Î
+ ¥³¥Þ¥ó¥É $COMMAND ¤Ë³ä¤êÅö¤Æ¤ë¡£
+
+ $KEYSEQLIST ¤¬¶õ¥ê¥¹¥È¤Ç¤Ê¤±¤ì¤Ð¡¢¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Î¥ê¥¹¥È¤Ç¤¢¤ê¡¢
+ ³Æ¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Ï¥·¥ó¥Ü¥ë¤Î plist ¤Ç¤¢¤ë¡£
+
+ $KEYSEQLIST ¤¬¶õ¤Î plist ¤Ê¤é¤Ð¡¢¥³¥Þ¥ó¥É¤Ï»ÈÍѤǤ¤Ê¤¯¤Ê¤ë¡£
+
+ $KEYSEQLIST ¤¬ NULL ¤Ç¤¢¤ì¤Ð¡¢»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤Î¥³¥Þ¥ó¥É¤ÎÀßÄê¤Ï
+ ¥¥ã¥ó¥»¥ë¤µ¤ì¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤¬Í¸ú¤Ë¤Ê¤ë¡£¤³¤Î¾ì¹ç¡¢
+ $COMMAND ¤¬ #Mnil ¤Ê¤é¤Ð»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤ÎÁ´¤Æ¤Î¥³¥Þ¥ó¥É¤ÎÀßÄ꤬
+ ¥¥ã¥ó¥»¥ë¤µ¤ì¤ë¡£
+
+ $NAME ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¸Ä¡¹¤ÎÆþÎϥ᥽¥Ã¥É¤Ç¤Ï¤Ê¤¯¥°¥í¡¼¥Ð
+ ¥ë¤Ê¥³¥Þ¥ó¥É¤Î¥¡¼³ä¤êÅö¤Æ¤òÀßÄꤹ¤ë¡£
+
+ ¤³¤ì¤é¤ÎÀßÄê¤Ï¡¢¸½¹Ô¤Î¥»¥Ã¥·¥ç¥óÃæ¤ÇÆþÎϥ᥽¥Ã¥É¤¬¥ª¡¼¥×¥ó¡Ê¤Þ¤¿¤Ï
+ ºÆ¥ª¡¼¥×¥ó¡Ë¤µ¤ì¤¿»þÅÀ¤Ç͸ú¤Ë¤Ê¤ë¡£¾Íè¤Î¥»¥Ã¥·¥ç¥óÃæ¤Ç¤â͸ú¤Ë¤¹
+ ¤ë¤¿¤á¤Ë¤Ï¡¢´Ø¿ô minput_save_config () ¤òÍѤ¤¤Æ¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤
+ ¥ë¤ËÊݸ¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
+
+ @return
+
+ ¤³¤Î´Ø¿ô¤Ï¡¢½èÍý¤¬À®¸ù¤¹¤ì¤Ð 0 ¤ò¡¢¼ºÇÔ¤¹¤ì¤Ð -1 ¤òÊÖ¤¹¡£¼ºÇԤȤϰʲ¼¤Î¾ì¹ç¤Ç¤¢¤ë¡£
+ <ul>
+ <li>$KEYSEQLIST ¤¬Í¸ú¤Ê·Á¼°¤Ç¤Ê¤¤¡£
+ <li>$COMMAND ¤¬»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤ÇÍøÍѤǤ¤Ê¤¤¡£
+ <li>$LANGUAGE ¤È $NAME ¤Ç»ØÄꤵ¤ì¤ëÆþÎϥ᥽¥Ã¥É¤¬Â¸ºß¤·¤Ê¤¤¡£
+ </ul>
-\f
+ @seealso
+ minput_get_commands (), minput_save_config ().
+*/
-int
-minput__init ()
+#if EXAMPLE_CODE
+/* Add "C-x u" to the "start" command of Unicode input method. */
{
- char *key_names[32]
- = { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
- "BackSpace", "Tab", "Linefeed", "Clear", NULL, "Return", NULL, NULL,
- NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
- NULL, NULL, NULL, "Escape", NULL, NULL, NULL, NULL };
- char buf[6], buf2[256];
- int i;
+ MSymbol start_command = msymbol ("start");
+ MSymbol unicode = msymbol ("unicode");
+ MPlist *cmd, *plist, *key_seq_list, *key_seq;
- Minput_method = msymbol ("input-method");
- Minput_driver = msymbol ("input-driver");
- Mtitle = msymbol ("title");
- Mmacro = msymbol ("macro");
- Mmodule = msymbol ("module");
- Mmap = msymbol ("map");
- Mstate = msymbol ("state");
- Minsert = msymbol ("insert");
- Mdelete = msymbol ("delete");
- Mmove = msymbol ("move");
- Mmark = msymbol ("mark");
- Mpushback = msymbol ("pushback");
- Mundo = msymbol ("undo");
- Mcall = msymbol ("call");
- Mshift = msymbol ("shift");
- Mselect = msymbol ("select");
- Mshow = msymbol ("show");
- Mhide = msymbol ("hide");
- Mset = msymbol ("set");
- Madd = msymbol ("add");
- Msub = msymbol ("sub");
- Mmul = msymbol ("mul");
- Mdiv = msymbol ("div");
- Mequal = msymbol ("=");
- Mless = msymbol ("<");
- Mgreater = msymbol (">");
+ /* At first get the current key-sequence assignment. */
+ cmd = mplist_get_command (Mt, unicode, start_command);
+ if (! cmd)
+ {
+ /* The input method does not have the command "start". Here */
+ /* should come some error handling code. */
+ }
+ /* Now CMD == ((start DESCRIPTION KEY-SEQUENCE ...) ...). Extract */
+ /* the part (KEY-SEQUENCE ...). */
+ plist = mplist_next (mplist_next (mplist_value (cmd)));
+ /* Copy it because we should not modify it directly. */
+ key_seq_list = mplist_copy (plist);
+ m17n_object_unref (cmds);
+
+ key_seq = mplist ();
+ mplist_add (key_seq, Msymbol, msymbol ("C-x"));
+ mplist_add (key_seq, Msymbo, msymbol ("u"));
+ mplist_add (key_seq_list, Mplist, key_seq);
+ m17n_object_unref (key_seq);
+
+ minput_config_command (Mt, unicode, start_command, key_seq_list);
+ m17n_object_unref (key_seq_list);
+}
+#endif
- Minput_preedit_start = msymbol ("input-preedit-start");
- Minput_preedit_done = msymbol ("input-preedit-done");
- Minput_preedit_draw = msymbol ("input-preedit-draw");
- Minput_status_start = msymbol ("input-status-start");
- Minput_status_done = msymbol ("input-status-done");
- Minput_status_draw = msymbol ("input-status-draw");
- Minput_candidates_start = msymbol ("input-candidates-start");
- Minput_candidates_done = msymbol ("input-candidates-done");
- Minput_candidates_draw = msymbol ("input-candidates-draw");
- Minput_set_spot = msymbol ("input-set-spot");
- Minput_toggle = msymbol ("input-toggle");
+int
+minput_config_command (MSymbol language, MSymbol name, MSymbol command,
+ MPlist *keyseqlist)
+{
+ MInputMethodInfo *im_info, *config;
+ MPlist *plist;
- Mcandidate_list = msymbol_as_managing_key (" candidate-list");
- Mcandidate_index = msymbol (" candidate-index");
+ MINPUT__INIT ();
- Minit = msymbol ("init");
- Mfini = msymbol ("fini");
+ if (keyseqlist)
+ {
+ if (command == Mnil)
+ MERROR (MERROR_IM, -1);
+ MPLIST_DO (plist, keyseqlist)
+ if (! MPLIST_PLIST_P (plist)
+ || ! check_command_keyseq (plist))
+ MERROR (MERROR_IM, -1);
+ }
- M_key_alias = msymbol (" key-alias");
+ im_info = get_im_info (language, name, Mnil, Mcommand);
+ if (! im_info)
+ MERROR (MERROR_IM, -1);
+ if (command != Mnil
+ && (! im_info->cmds
+ || ! mplist__assq (im_info->cmds, command)))
+ MERROR (MERROR_IM, -1);
- buf[0] = 'C';
- buf[1] = '-';
- buf[3] = '\0';
- for (i = 0, buf[2] = '@'; i < ' '; i++, buf[2]++)
+ config = get_config_info (im_info);
+ if (! config)
{
- one_char_symbol[i] = msymbol (buf);
- if (key_names[i])
- msymbol_put (one_char_symbol[i], M_key_alias, msymbol (key_names[i]));
+ if (! im_config_list)
+ im_config_list = mplist ();
+ config = new_im_info (NULL, language, name, Mnil, im_config_list);
+ config->cmds = mplist ();
+ config->vars = mplist ();
}
- for (buf[2] = i; i < 127; i++, buf[2]++)
- one_char_symbol[i] = msymbol (buf + 2);
- one_char_symbol[i++] = msymbol ("Delete");
- buf[2] = 'M';
- buf[3] = '-';
- buf[5] = '\0';
- buf2[0] = 'M';
- buf2[1] = '-';
- for (buf[4] = '@'; i < 160; i++, buf[4]++)
+
+ if (command == Mnil)
{
- one_char_symbol[i] = msymbol (buf);
- if (key_names[i - 128])
+ MInputMethodInfo *custom = get_custom_info (im_info);
+
+ mplist_set (config->cmds, Mnil, NULL);
+ if (custom && custom->cmds)
{
- strcpy (buf2 + 2, key_names[i - 128]);
- msymbol_put (one_char_symbol[i], M_key_alias, msymbol (buf2));
+ MPLIST_DO (plist, custom->cmds)
+ {
+ command = MPLIST_SYMBOL (MPLIST_PLIST (plist));
+ plist = mplist ();
+ mplist_add (plist, Msymbol, command);
+ mplist_push (config->cmds, Mplist, plist);
+ M17N_OBJECT_UNREF (plist);
+ }
}
}
- for (buf[4] = i - 128; i < 255; i++, buf[4]++)
- one_char_symbol[i] = msymbol (buf + 2);
- one_char_symbol[i] = msymbol ("M-Delete");
+ else
+ {
+ plist = mplist__assq (config->cmds, command);
+ if (plist)
+ {
+ plist = MPLIST_PLIST (plist); /* (NAME [nil KEY-SEQUENCE ...]) */
+ plist = MPLIST_NEXT (plist); /* ([nil ...]) */
+ if (! MPLIST_TAIL_P (plist))
+ mplist_set (plist, Mnil, NULL); /* () */
+ }
+ else
+ {
+ plist = mplist ();
+ mplist_add (config->cmds, Mplist, plist);
+ M17N_OBJECT_UNREF (plist);
+ plist = mplist_add (plist, Msymbol, command);
+ plist = MPLIST_NEXT (plist);
+ }
+ if (keyseqlist)
+ {
+ MPlist *pl;
- minput_default_driver.open_im = open_im;
- minput_default_driver.close_im = close_im;
- minput_default_driver.create_ic = create_ic;
- minput_default_driver.destroy_ic = destroy_ic;
- minput_default_driver.filter = filter;
- minput_default_driver.lookup = lookup;
- minput_default_driver.callback_list = NULL;
- minput_driver = &minput_default_driver;
+ plist = mplist_add (plist, Msymbol, Mnil);
+ MPLIST_DO (keyseqlist, keyseqlist)
+ {
+ pl = mplist_copy (MPLIST_VAL (keyseqlist));
+ plist = mplist_add (plist, Mplist, pl);
+ M17N_OBJECT_UNREF (pl);
+ }
+ }
+ }
+ config_all_commands (im_info);
+ im_info->tick = time (NULL);
return 0;
}
-void
-minput__fini ()
-{
- if (minput_default_driver.callback_list)
- {
- M17N_OBJECT_UNREF (minput_default_driver.callback_list);
- minput_default_driver.callback_list = NULL;
- }
- if (minput_driver->callback_list)
- {
- M17N_OBJECT_UNREF (minput_driver->callback_list);
- minput_driver->callback_list = NULL;
- }
-}
+/*=*/
-void
-minput__callback (MInputContext *ic, MSymbol command)
-{
- if (ic->im->driver.callback_list)
- {
- MInputCallbackFunc func
- = (MInputCallbackFunc) mplist_get (ic->im->driver.callback_list,
- command);
+/***en
+ @brief Get information about input method variable(s).
+
+ The minput_get_variable () function returns information about
+ the variable $VARIABLE of the input method specified by $LANGUAGE and $NAME.
+ An input method variable controls behavior of an input method.
+
+ There are two kinds of variables, global and local. A global
+ variable has a global definition, and the description and the value
+ may be inherited by a local variable. Each input method defines a
+ local variable which has local value. It may also declare a
+ local variable that inherits definition of a global variable of
+ the same name.
+
+ If $LANGUAGE is #Mt and $NAME is #Mnil, information about a global
+ variable is returned. Otherwise information about a local variable
+ is returned.
+
+ If $VARIABLE is #Mnil, information about all variables is
+ returned.
+
+ The return value is a @e well-formed plist (#m17nPlist) of this
+ format:
+@verbatim
+ ((NAME DESCRIPTION STATUS VALUE [VALID-VALUE ...]) ...)
+@endverbatim
+ @c NAME is a symbol representing the variable name.
+
+ @c DESCRIPTION is an M-text describing the variable, or #Mnil if the
+ variable has no description.
+
+ @c STATUS is a symbol representing how the value is decided. The
+ value is #Mnil (the default value), #Mcustomized (the value is
+ customized by per-user configuration file), or #Mconfigured (the
+ value is set by the call of minput_config_variable ()). For a
+ local variable only, it may also be #Minherited (the value is
+ inherited from the corresponding global variable).
+
+ @c VALUE is the initial value of the variable. If the key of this
+ element is #Mt, the variable has no initial value. Otherwise, the
+ key is #Minteger, #Msymbol, or #Mtext and the value is of the
+ corresponding type.
+
+ @c VALID-VALUEs (if any) specify which values the variable can have.
+ They have the same type (i.e. having the same key) as @c VALUE except
+ for the case that VALUE is an integer. In that case, @c VALID-VALUE
+ may be a plist of two integers specifying the range of possible
+ values.
+
+ If there no @c VALID-VALUE, the variable can have any value as long
+ as the type is the same as @c VALUE.
+
+ If $VARIABLE is not #Mnil, the first element of the returned plist
+ contains the information about $VARIABLE.
- if (func)
- (func) (ic, command);
- }
-}
+ @return
-MSymbol
-minput__char_to_key (int c)
-{
- if (c < 0 || c >= 0x100)
- return Mnil;
+ If the requested information was found, a pointer to a non-empty
+ plist is returned. As the plist is kept in the library, the
+ caller must not modify nor free it.
- return one_char_symbol[c];
-}
+ Otherwise (the specified input method or the specified variable
+ does not exist), @c NULL is returned. */
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤ÎÊÑ¿ô¤Ë´Ø¤¹¤ë¾ðÊó¤òÆÀ¤ë.
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
+ ´Ø¿ô minput_get_variable () ¤Ï¡¢$LANGUAGE ¤È $NAME ¤Ç»ØÄꤵ¤ì¤ëÆþÎÏ
+ ¥á¥½¥Ã¥É¤ÎÊÑ¿ô $VARIABLE ¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£ÆþÎϥ᥽¥Ã¥É¤ÎÊÑ¿ô¤È¤Ï¡¢
+ ÆþÎϥ᥽¥Ã¥É¤Î¿¶Éñ¤òÀ©¸æ¤¹¤ë¤â¤Î¤Ç¤¢¤ë¡£
-\f
-/* External API */
+ ÊÑ¿ô¤Ë¤Ï¡¢¥°¥í¡¼¥Ð¥ë¤È¥í¡¼¥«¥ë¤Î£²¼ïÎब¤¢¤ë¡£¥°¥í¡¼¥Ð¥ë¤ÊÊÑ¿ô¤Ï¥°
+ ¥í¡¼¥Ð¥ë¤ËÄêµÁ¤µ¤ì¡¢¥í¡¼¥«¥ë¤ÊÊÑ¿ô¤Ï¤½¤ÎÀâÌÀ¤ÈÃͤò·Ñ¾µ¤¹¤ë¤³¤È¤¬¤Ç
+ ¤¤ë¡£³ÆÆþÎϥ᥽¥Ã¥É¤Ï¥í¡¼¥«¥ë¤ÊÃͤò»ý¤Ä¥í¡¼¥«¥ë¤ÊÊÑ¿ô¤òÄêµÁ¤¹¤ë¡£
+ ¤Þ¤¿Æ±Ì¾¤Î¥°¥í¡¼¥Ð¥ë¤ÊÊÑ¿ô¤ÎÄêµÁ¤ò·Ñ¾µ¤¹¤ë¥í¡¼¥«¥ë¤ÊÊÑ¿ô¤òÀë¸À¤¹¤ë
+ ¤³¤È¤â¤Ç¤¤ë¡£
-/*** @addtogroup m17nInputMethod */
-/*** @{ */
-/*=*/
+ $LANGUAGE ¤¬ #Mt ¤Ç $NAME ¤¬ #Mnil ¤Î¾ì¹ç¤Ï¡¢¤³¤Î´Ø¿ô¤Ï¥°¥í¡¼¥Ð¥ëÊÑ
+ ¿ô¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¥í¡¼¥«¥ëÊÑ¿ô¤Ë´Ø¤¹¤ë¤â¤Î¤òÊÖ¤¹¡£
-/***en
- @name Variables: Predefined symbols for callback commands.
+ $VARIABLE ¤¬ #Mnil ¤Î¾ì¹ç¤Ï¡¢¤¹¤Ù¤Æ¤Î¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£
- These are the predefined symbols that are used as the @c COMMAND
- argument of callback functions of an input method driver (see
- #MInputDriver::callback_list). */
-/***ja
- @name ÊÑ¿ô¡§ ¥³¡¼¥ë¥Ð¥Ã¥¯¥³¥Þ¥ó¥ÉÍÑÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë.
+ Ìá¤êÃͤϰʲ¼¤Î·Á¼°¤Î @e well-formed plist (#m17nPlist) ¤Ç¤¢¤ë¡£
+@verbatim
+ ((NAME DESCRIPTION STATUS VALUE [VALID-VALUE ...]) ...)
+@endverbatim
- ÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤Î¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Ë¤ª¤¤¤Æ @c COMMAND °ú¿ô¤È¤·
- ¤ÆÍѤ¤¤é¤ì¤ëÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë (#MInputDriver::callback_list »²¾È)¡£
- */
-/*** @{ */
-/*=*/
+ @c NAME ¤ÏÊÑ¿ô¤Î̾Á°¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
+
+ @c DESCRIPTION ¤ÏÊÑ¿ô¤òÀâÌÀ¤¹¤ë M-text ¤Ç¤¢¤ë¤«¡¢ÀâÌÀ¤¬Ìµ¤¤¾ì¹ç¤Ë¤Ï
+ #Mnil ¤Ç¤¢¤ë¡£
+
+ @c STATUS ¤ÏÃͤ¬¤É¤Î¤è¤¦¤ËÄê¤á¤é¤ì¤ë¤«¤ò¤¢¤é¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
+ @c STATUS ¤ÎÃÍ¤Ï #Mnil ¡Ê¥Ç¥Õ¥©¥ë¥È¤ÎÃÍ¡Ë, #Mcustomized ¡Ê¥æ¡¼¥¶Ëè¤ÎÀß
+ Äê¥Õ¥¡¥¤¥ë¤Ë¤è¤Ã¤Æ¥«¥¹¥¿¥Þ¥¤¥º¤µ¤ì¤¿ÃÍ¡Ë, #Mconfigured
+ ¡Êminput_config_variable ()¤ò¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤ÆÀßÄꤵ¤ì¤ëÃ͡ˤΤ¤¤º¤ì
+ ¤«¤Ç¤¢¤ë¡£¥í¡¼¥«¥ëÊÑ¿ô¤Î¾ì¹ç¤Ë¤Ï¡¢#Minherited ¡ÊÂбþ¤¹¤ë¥°¥í¡¼¥Ð¥ë
+ ÊÑ¿ô¤«¤é·Ñ¾µ¤·¤¿Ã͡ˤǤâ¤è¤¤¡£
+
+ @c VALUE ¤ÏÊÑ¿ô¤Î½é´üÃͤǤ¢¤ë¡£¤³¤ÎÍ×ÁǤΥ¡¼¤¬#Mt ¤Ç¤¢¤ì¤Ð½é´üÃͤò»ý
+ ¤¿¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¥¡¼¤Ï #Minteger, #Msymbol, #Mtext ¤Î¤¤¤º¤ì
+ ¤«¤Ç¤¢¤ê¡¢ÃͤϤ½¤ì¤¾¤ìÂбþ¤¹¤ë·¿¤Î¤â¤Î¤Ç¤¢¤ë¡£
+
+ @c VALID-VALUE ¤Ï¤â¤·¤¢¤ì¤Ð¡¢ÊÑ¿ô¤Î¼è¤êÆÀ¤ëÃͤò»ØÄꤹ¤ë¡£¤³¤ì¤Ï @c VALUE
+ ¤ÈƱ¤¸·¿(¤¹¤Ê¤ï¤ÁƱ¤¸¥¡¼¤ò»ý¤Ä) ¤Ç¤¢¤ë¤¬¡¢Îã³°¤È¤·¤Æ @c VALUE ¤¬
+ integer ¤Î¾ì¹ç¤Ï @c VALID-VALUE ¤Ï²Äǽ¤ÊÃͤÎÈϰϤò¼¨¤¹Æó¤Ä¤ÎÀ°¿ô¤«¤é
+ ¤Ê¤ë plist ¤È¤Ê¤ë¤³¤È¤¬¤Ç¤¤ë¡£
+
+ @c VALID-VALUE ¤¬¤Ê¤±¤ì¤Ð¡¢ÊÑ¿ô¤Ï @c VALUE ¤ÈƱ¤¸·¿¤Ç¤¢¤ë¸Â¤ê¤¤¤«¤Ê¤ëÃͤâ
+ ¤È¤ë¤³¤È¤¬¤Ç¤¤ë¡£
+
+ $VARIABLE ¤¬ #Mnil ¤Ç¤Ê¤±¤ì¤Ð¡¢ÊÖ¤µ¤ì¤ë plist ¤ÎºÇ½é¤ÎÍ×ÁǤÏ
+ $VARIABLE ¤Ë´Ø¤¹¤ë¾ðÊó¤ò´Þ¤à¡£
+
+ @return
+
+ µá¤á¤é¤ì¤¿¾ðÊ󤬸«¤Ä¤«¤ì¤Ð¡¢¶õ¤Ç¤Ê¤¤ plist ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¥ê¥¹
+ ¥È¤Ï¥é¥¤¥Ö¥é¥ê¤¬´ÉÍý¤·¤Æ¤¤¤ë¤Î¤Ç¡¢¸Æ½Ð¦¤¬Êѹ¹¤·¤¿¤ê²òÊü¤·¤¿¤ê¤¹¤ë
+ ¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£
+
+ ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¤¹¤Ê¤ï¤Á»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤äÊÑ¿ô¤¬Â¸ºß¤·¤Ê¤±¤ì¤Ð
+ @c NULL ¤òÊÖ¤¹¡£ */
+
+MPlist *
+minput_get_variable (MSymbol language, MSymbol name, MSymbol variable)
+{
+ MInputMethodInfo *im_info;
+
+ MINPUT__INIT ();
+
+ im_info = get_im_info (language, name, Mnil, Mvariable);
+ if (! im_info || ! im_info->configured_vars)
+ return NULL;
+ if (variable == Mnil)
+ return im_info->configured_vars;
+ return mplist__assq (im_info->configured_vars, variable);
+}
-MSymbol Minput_preedit_start;
-MSymbol Minput_preedit_done;
-MSymbol Minput_preedit_draw;
-MSymbol Minput_status_start;
-MSymbol Minput_status_done;
-MSymbol Minput_status_draw;
-MSymbol Minput_candidates_start;
-MSymbol Minput_candidates_done;
-MSymbol Minput_candidates_draw;
-MSymbol Minput_set_spot;
-MSymbol Minput_toggle;
-/*** @} */
/*=*/
/***en
- @brief The default driver for internal input methods.
+ @brief Configure the value of an input method variable.
- The variable #minput_default_driver is the default driver for
- internal input methods.
+ The minput_config_variable () function assigns $VALUE to the
+ variable $VARIABLE of the input method specified by $LANGUAGE and
+ $NAME.
- The member MInputDriver::open_im () searches the m17n database for
- an input method that matches the tag \<#Minput_method, $LANGUAGE,
- $NAME\> and loads it.
+ If $VALUE is not NULL, it must be a plist of one element whose key
+ is #Minteger, #Msymbol, or #Mtext, and the value is of the
+ corresponding type.
- The member MInputDriver::callback_list () is @c NULL. Thus, it is
- programmers responsibility to set it to a plist of proper callback
- functions. Otherwise, no feedback information (e.g. preedit text)
- can be shown to users.
+ If $VALUE is NULL, a configuration for the variable for the input
+ method is canceled, and the variable is initialized to the default
+ value. In that case, if $VARIABLE is #Mnil, configurations for
+ all variables of the input method are canceled.
- The macro M17N_INIT () sets the variable #minput_driver to the
- pointer to this driver so that all internal input methods use it.
+ If $NAME is #Mnil, this function configure the value of global
+ variable, not that of a specific input method.
- Therefore, unless @c minput_driver is set differently, the driver
- dependent arguments $ARG of the functions whose name begin with
- "minput_" are all ignored. */
+ The configuration takes effect for input methods opened or
+ re-opened later in the current session. To make the configuration
+ take effect for the future session, it must be saved in a per-user
+ configuration file by the function minput_save_config ().
+ @return
+
+ If the operation was successful, this function returns 0,
+ otherwise returns -1. The operation fails in these cases:
+ <ul>
+ <li>$VALUE is not in a valid form, the type does not match the
+ definition, or the value is our of range.
+ <li>$VARIABLE is not available for the input method.
+ <li>$LANGUAGE and $NAME do not specify an existing input method.
+ </ul>
+
+ @seealso
+ minput_get_variable (), minput_save_config (). */
/***ja
- @brief ÆâÉôÆþÎϥ᥽¥Ã¥ÉÍѥǥե©¥ë¥È¥É¥é¥¤¥Ð.
+ @brief ÆþÎϥ᥽¥Ã¥É¤ÎÊÑ¿ô¤ÎÃͤòÀßÄꤹ¤ë.
- ÆþÎϥɥ饤¥Ð #minput_default_driver ¤ÏÆâÉôÆþÎϥ᥽¥Ã¥ÉÍѤΥǥե©¥ë
- ¥È¤Î¥É¥é¥¤¥Ð¤Ç¤¢¤ë¡£
+ ´Ø¿ô minput_config_variable () ¤ÏÃÍ $VALUE ¤ò¡¢$LANGUAGE ¤È $NAME
+ ¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤ëÆþÎϥ᥽¥Ã¥É¤ÎÊÑ¿ô $VARIABLE ¤Ë³ä¤êÅö¤Æ¤ë¡£
- ¥á¥ó¥Ð MInputDriver::open_im () ¤Ï m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹Ã椫¤é¥¿¥°
- \<#Minput_method, $LANGUAGE, $NAME\> ¤Ë¹çÃפ¹¤ëÆþÎϥ᥽¥Ã¥É¤òõ¤·¡¢
- ¤½¤ì¤ò¥í¡¼¥É¤¹¤ë¡£
+ $VALUE ¤¬ NULL¤Ç¤Ê¤±¤ì¤Ð¡¢£±Í×ÁǤΠplist ¤Ç¤¢¤ê¡¢¤½¤Î¥¡¼¤Ï
+ #Minteger, #Msymbol, #Mtext ¤Î¤¤¤º¤ì¤«¡¢ÃͤÏÂбþ¤¹¤ë·¿¤Î¤â¤Î¤Ç¤¢¤ë¡£
- ¥á¥ó¥Ð MInputDriver::callback_list () ¤Ï @c NULL ¤Ê¤Î¤Ç¡¢¥×¥í¥°¥é
- ¥Þ¦¤ÇÀÕǤ¤ò»ý¤Ã¤Æ, ŬÀڤʥ³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Î plist ¤ËÀßÄꤷ¤Ê¤¯¤Æ
- ¤Ï¤Ê¤é¤Ê¤¤¡£¤µ¤â¤Ê¤¤¤È¡¢preedit ¥Æ¥¥¹¥È¤Ê¤É¤Î¥Õ¥£¡¼¥É¥Ð¥Ã¥¯¾ðÊó¤¬
- ¥æ¡¼¥¶¤Ëɽ¼¨¤µ¤ì¤Ê¤¤¡£
+ $VALUE ¤¬ NULL ¤Ç¤¢¤ì¤Ð¡¢»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤ÎÊÑ¿ô¤ÎÀßÄê¤Ï¥¥ã¥ó¥»¥ë
+ ¤µ¤ì¡¢ÊÑ¿ô¤Ï¥Ç¥Õ¥©¥ë¥ÈÃͤ˽é´ü²½¤µ¤ì¤ë¡£¤³¤Î¾ì¹ç¡¢$VARIABLE ¤¬
+ #Mnil ¤Ê¤é¤Ð»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤ÎÁ´¤Æ¤ÎÊÑ¿ô¤ÎÀßÄ꤬¥¥ã¥ó¥»¥ë¤µ¤ì¤ë¡£
- ¥Þ¥¯¥í M17N_INIT () ¤ÏÊÑ¿ô #minput_driver ¤ò¤³¤Î¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó
- ¥¿¤ËÀßÄꤷ¡¢Á´¤Æ¤ÎÆâÉôÆþÎϥ᥽¥Ã¥É¤¬¤³¤Î¥É¥é¥¤¥Ð¤ò»È¤¦¤è¤¦¤Ë¤¹¤ë¡£
+ $NAME ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¸Ä¡¹¤ÎÆþÎϥ᥽¥Ã¥É¤Ç¤Ï¤Ê¤¯¥°¥í¡¼¥Ð
+ ¥ë¤ÊÊÑ¿ô¤ÎÃͤòÀßÄꤹ¤ë¡£
- ¤·¤¿¤¬¤Ã¤Æ¡¢@c minput_driver ¤¬¥Ç¥Õ¥©¥ë¥ÈÃͤΤޤޤǤ¢¤ì¤Ð¡¢minput_
- ¤Ç»Ï¤Þ¤ë´Ø¿ô¤Î¥É¥é¥¤¥Ð¤Ë°Í¸¤¹¤ë°ú¿ô $ARG ¤Ï¤¹¤Ù¤Æ̵»ë¤µ¤ì¤ë¡£ */
+ ¤³¤ì¤é¤ÎÀßÄê¤Ï¡¢¸½¹Ô¤Î¥»¥Ã¥·¥ç¥óÃæ¤ÇÆþÎϥ᥽¥Ã¥É¤¬¥ª¡¼¥×¥ó¡Ê¤Þ¤¿¤Ï
+ ºÆ¥ª¡¼¥×¥ó¡Ë¤µ¤ì¤¿»þÅÀ¤Ç͸ú¤Ë¤Ê¤ë¡£¾Íè¤Î¥»¥Ã¥·¥ç¥óÃæ¤Ç¤â͸ú¤Ë¤¹
+ ¤ë¤¿¤á¤Ë¤Ï¡¢´Ø¿ô minput_save_config () ¤òÍѤ¤¤Æ¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤
+ ¥ë¤ËÊݸ¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-MInputDriver minput_default_driver;
-/*=*/
+ @return
-/***en
- @brief The driver for internal input methods.
+ ¤³¤Î´Ø¿ô¤Ï¡¢½èÍý¤¬À®¸ù¤¹¤ì¤Ð 0 ¤ò¡¢¼ºÇÔ¤¹¤ì¤Ð -1 ¤òÊÖ¤¹¡£¼ºÇԤȤϰʲ¼¤Î¾ì¹ç¤Ç¤¢¤ë¡£
+ <ul>
+ <li>$VALUE¤¬Í¸ú¤Ê·Á¼°¤Ç¤Ê¤¤¡£·¿¤¬ÄêµÁ¤Ë¹ç¤ï¤Ê¤¤¡¢¤Þ¤¿¤ÏÃͤ¬Èϰϳ°¤Ç¤¢¤ë¡£
+ <li>$VARIABLE ¤¬»ØÄê¤ÎÆþÎϥ᥽¥Ã¥É¤ÇÍøÍѤǤ¤Ê¤¤¡£
+ <li>$LANGUAGE ¤È $NAME ¤Ç»ØÄꤵ¤ì¤ëÆþÎϥ᥽¥Ã¥É¤¬Â¸ºß¤·¤Ê¤¤¡£
+ </ul>
- The variable #minput_driver is a pointer to the input method
- driver that is used by internal input methods. The macro
- M17N_INIT () initializes it to a pointer to #minput_default_driver
- (if <m17n.h> is included) or to #minput_gui_driver (if
- <m17n-gui.h> is included). */
-/***ja
- @brief ÆâÉôÆþÎϥ᥽¥Ã¥ÉÍѥɥ饤¥Ð.
+ @seealso
+ minput_get_commands (), minput_save_config ().
+*/
+int
+minput_config_variable (MSymbol language, MSymbol name, MSymbol variable,
+ MPlist *value)
+{
+ MInputMethodInfo *im_info, *config;
+ MPlist *plist;
- ÊÑ¿ô #minput_driver ¤ÏÆâÉôÆþÎϥ᥽¥Ã¥É¤Ë¤è¤Ã¤Æ»ÈÍѤµ¤ì¤Æ¤¤¤ëÆþÎÏ¥á
- ¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥Þ¥¯¥íM17N_INIT () ¤Ï¤³¤Î¥Ý¥¤¥ó
- ¥¿¤ò #minput_default_driver (<m17n.h> ¤¬´Þ¤Þ¤ì¤ë»þ) ¤Þ¤¿¤Ï
- #minput_gui_driver ( <m17n-gui.h> ¤¬´Þ¤Þ¤ì¤ë»þ) ¤Ë½é´ü²½¤¹¤ë¡£ */
+ MINPUT__INIT ();
-MInputDriver *minput_driver;
+ im_info = get_im_info (language, name, Mnil, Mvariable);
+ if (! im_info)
+ MERROR (MERROR_IM, -1);
+ if (variable == Mnil)
+ {
+ if (value)
+ MERROR (MERROR_IM, -1);
+ }
+ else if (! im_info->vars
+ || ! (plist = mplist__assq (im_info->configured_vars, variable)))
+ MERROR (MERROR_IM, -1);
-MSymbol Minput_driver;
+ if (variable != Mnil && value)
+ {
+ plist = MPLIST_PLIST (plist);
+ plist = MPLIST_NEXT (plist); /* (DESC STATUS VALUE VALIDS ...) */
+ plist = MPLIST_NEXT (plist); /* (STATUS VALUE VALIDS ...) */
+ plist = MPLIST_NEXT (plist); /* (VALUE VALIDS ...) */
+ if (MPLIST_KEY (plist) != Mt
+ && ! check_variable_value (value, plist))
+ MERROR (MERROR_IM, -1);
+ }
+
+ config = get_config_info (im_info);
+ if (! config)
+ {
+ if (! im_config_list)
+ im_config_list = mplist ();
+ config = new_im_info (NULL, language, name, Mnil, im_config_list);
+ config->cmds = mplist ();
+ config->vars = mplist ();
+ }
+
+ if (variable == Mnil)
+ {
+ MInputMethodInfo *custom = get_custom_info (im_info);
+
+ mplist_set (config->vars, Mnil, NULL);
+ if (custom && custom->cmds)
+ {
+ MPLIST_DO (plist, custom->vars)
+ {
+ variable = MPLIST_SYMBOL (MPLIST_PLIST (plist));
+ plist = mplist ();
+ mplist_add (plist, Msymbol, variable);
+ mplist_push (config->vars, Mplist, plist);
+ M17N_OBJECT_UNREF (plist);
+ }
+ }
+ }
+ else
+ {
+ plist = mplist__assq (config->vars, variable);
+ if (plist)
+ {
+ plist = MPLIST_PLIST (plist); /* (NAME nil VALUE) */
+ plist = MPLIST_NEXT (plist); /* ([nil VALUE]) */
+ if (! MPLIST_TAIL_P (plist))
+ mplist_set (plist, Mnil ,NULL); /* () */
+ }
+ else
+ {
+ plist = mplist ();
+ mplist_add (config->vars, Mplist, plist);
+ M17N_OBJECT_UNREF (plist);
+ plist = mplist_add (plist, Msymbol, variable);
+ plist = MPLIST_NEXT (plist);
+ }
+ if (value)
+ {
+ plist = mplist_add (plist, Msymbol, Mnil);
+ mplist_add (plist, MPLIST_KEY (value), MPLIST_VAL (value));
+ }
+ }
+ config_all_variables (im_info);
+ im_info->tick = time (NULL);
+ return 0;
+}
/*=*/
/***en
- @brief Open an input method.
+ @brief Get the name of per-user configuration file.
+
+ The minput_config_file () function returns the absolute path name
+ of per-user configuration file into which minput_save_config ()
+ save configurations. It is usually @c "config.mic" under the
+ directory @c ".m17n.d" of user's home directory. It is not assured
+ that the file of the returned name exists nor is
+ readable/writable. If minput_save_config () fails and returns -1,
+ an application program might check the file, make it
+ writable (if possible), and try minput_save_config () again.
- The minput_open_im () function opens an input method that matches
- language $LANGUAGE and name $NAME, and returns a pointer to the
- input method object newly allocated.
+ @return
- This function at first decides an driver for the input method as
- below.
+ This function returns a string. As the string is kept in the
+ library, the caller must not modify nor free it.
- If $LANGUAGE is not #Mnil, the driver pointed by the variable
- #minput_driver is used.
+ @seealso
+ minput_save_config ()
+*/
+/***ja
+ @brief ¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤Î̾Á°¤òÆÀ¤ë.
+
+ ´Ø¿ô minput_config_file () ¤Ï¡¢´Ø¿ô minput_save_config () ¤¬ÀßÄê¤ò
+ Êݸ¤¹¤ë¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤Ø¤ÎÀäÂХѥ¹Ì¾¤òÊÖ¤¹¡£Ä̾ï¤Ï¡¢¥æ¡¼¥¶
+ ¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î²¼¤Î¥Ç¥£¥ì¥¯¥È¥ê @c ".m17n.d" ¤Ë¤¢¤ë@c
+ "config.mic" ¤È¤Ê¤ë¡£ÊÖ¤µ¤ì¤¿Ì¾Á°¤Î¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¡¢Æɤ߽ñ¤¤Ç
+ ¤¤ë¤«¤ÏÊݾڤµ¤ì¤Ê¤¤¡£´Ø¿ôminput_save_config () ¤¬¼ºÇÔ¤·¤Æ -1 ¤òÊÖ
+ ¤·¤¿¾ì¹ç¤Ë¤Ï¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¥Õ¥¡¥¤¥ë¤Î¸ºß¤ò³Îǧ¤·¡¢
+ ¡Ê¤Ç¤¤ì¤Ð¡Ë½ñ¤¹þ¤ß²Äǽ¤Ë¤·ºÆÅÙminput_save_config () ¤ò»î¤¹¤³¤È¤¬
+ ¤Ç¤¤ë¡£
+
+ @return
+
+ ¤³¤Î´Ø¿ô¤Ïʸ»úÎó¤òÊÖ¤¹¡£Ê¸»úÎó¤Ï¥é¥¤¥Ö¥é¥ê¤¬´ÉÍý¤·¤Æ¤¤¤ë¤Î¤Ç¡¢¸Æ½Ð
+ ¦¤¬½¤Àµ¤·¤¿¤ê²òÊü¤·¤¿¤ê¤¹¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£
+
+ @seealso
+ minput_save_config ()
+*/
- If $LANGUAGE is #Mnil and $NAME has #Minput_driver property, the
- driver pointed to by the property value is used to open the input
- method. If $NAME has no such property, @c NULL is returned.
+char *
+minput_config_file ()
+{
+ MINPUT__INIT ();
- Then, the member MInputDriver::open_im () of the driver is
- called.
+ return mdatabase__file (im_custom_mdb);
+}
- $ARG is set in the member @c arg of the structure MInputMethod so
- that the driver can refer to it. */
+/*=*/
-/***ja
- @brief ÆþÎϥ᥽¥Ã¥É¤ò¥ª¡¼¥×¥ó¤¹¤ë.
+/***en
+ @brief Save configurations in per-user configuration file.
- ´Ø¿ô minput_open_im () ¤Ï¸À¸ì $LANGUAGE ¤È̾Á° $NAME ¤Ë¹çÃפ¹¤ëÆþ
- Îϥ᥽¥Ã¥É¤ò¥ª¡¼¥×¥ó¤·¡¢¿·¤¿¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿ÆþÎϥ᥽¥Ã¥É¥ª¥Ö¥¸¥§¥¯
- ¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-
- ¤³¤Î´Ø¿ô¤Ï¡¢¤Þ¤ºÆþÎϥ᥽¥Ã¥ÉÍѤΥɥ饤¥Ð¤ò°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ·èÄꤹ¤ë¡£
+ The minput_save_config () functions saves the configurations done
+ so far in the current session into the per-user configuration
+ file.
- $LANGUAGE ¤¬ #Mnil ¤Ç¤Ê¤±¤ì¤Ð¡¢ÊÑ¿ô #minput_driver ¤Ç»Ø¤µ¤ì¤Æ¤¤¤ë
- ¥É¥é¥¤¥Ð¤òÍѤ¤¤ë¡£
+ @return
- $LANGUAGE ¤¬ #Mnil ¤Ç¤¢¤ê¡¢$NAME ¤¬ #Minput_driver ¥×¥í¥Ñ¥Æ¥£¤ò»ý
- ¤Ä¾ì¹ç¤Ë¤Ï¡¢¤½¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃͤǻؤµ¤ì¤Æ¤¤¤ëÆþÎϥɥ饤¥Ð¤òÍѤ¤¤ÆÆþ
- Îϥ᥽¥Ã¥É¤ò¥ª¡¼¥×¥ó¤¹¤ë¡£$NAME ¤Ë¤½¤Î¤è¤¦¤Ê¥×¥í¥Ñ¥Æ¥£¤¬Ìµ¤«¤Ã¤¿¾ì
- ¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£
+ If the operation was successful, 1 is returned. If the per-user
+ configuration file is currently locked, 0 is returned. In that
+ case, the caller may wait for a while and try again. If the
+ configuration file is not writable, -1 is returned. In that case,
+ the caller may check the name of the file by calling
+ minput_config_file (), make it writable if possible, and try
+ again.
- ¼¡¤¤¤Ç¡¢¥É¥é¥¤¥Ð¤Î¥á¥ó¥Ð MInputDriver::open_im () ¤¬¸Æ¤Ð¤ì¤ë¡£
+ @seealso
+ minput_config_file () */
+/***ja
+ @brief ÀßÄê¤ò¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤ËÊݸ¤¹¤ë.
- $ARG ¤Ï¡¢¥É¥é¥¤¥Ð¤¬»²¾È¤Ç¤¤ë¤è¤¦¤Ë¡¢¹½Â¤ÂÎ MInputMethod ¤Î¥á¥ó¥Ð
- @c arg ¤ËÀßÄꤵ¤ì¤ë¡£
+ ´Ø¿ô minput_save_config () ¤Ï¸½¹Ô¤Î¥»¥Ã¥·¥ç¥ó¤Ç¤³¤ì¤Þ¤Ç¤Ë¹Ô¤Ã¤¿ÀßÄê
+ ¤ò¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤ËÊݸ¤¹¤ë¡£
- @latexonly \IPAlabel{minput_open} @endlatexonly
+ @return
-*/
+ À®¸ù¤¹¤ì¤Ð 1 ¤òÊÖ¤¹¡£¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤¬¥í¥Ã¥¯¤µ¤ì¤Æ¤¤¤ì¤Ð 0
+ ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¡¢¸Æ½Ð¦¤Ï¤·¤Ð¤é¤¯ÂԤäƺƻî¹Ô¤Ç¤¤ë¡£ÀßÄê¥Õ¥¡¥¤¥ë
+ ¤¬½ñ¤¹þ¤ßÉԲĤξì¹ç¡¢-1 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¡¢minput_config_file () ¤ò
+ ¸Æ¤ó¤Ç¥Õ¥¡¥¤¥ë̾¤ò¥Á¥§¥Ã¥¯¤·¡¢¤Ç¤¤ì¤Ð½ñ¤¹þ¤ß²Äǽ¤Ë¤·¡¢ºÆ»î¹Ô¤Ç¤
+ ¤ë¡£
-MInputMethod *
-minput_open_im (MSymbol language, MSymbol name, void *arg)
+ @seealso
+ minput_config_file () */
+
+int
+minput_save_config (void)
{
- MInputMethod *im;
- MInputDriver *driver;
+ MPlist *data, *tail, *plist, *p, *elt;
+ int ret;
- if (language)
- driver = minput_driver;
- else
+ MINPUT__INIT ();
+ ret = mdatabase__lock (im_custom_mdb);
+ if (ret <= 0)
+ return ret;
+ if (! im_config_list)
+ return 1;
+ update_custom_info ();
+ if (! im_custom_list)
+ im_custom_list = mplist ();
+ data = tail = mplist ();
+
+ MPLIST_DO (plist, im_config_list)
{
- driver = (MInputDriver *) msymbol_get (name, Minput_driver);
- if (! driver)
- MERROR (MERROR_IM, NULL);
+ MPlist *pl = MPLIST_PLIST (plist);
+ MSymbol language, name, extra, command, variable;
+ MInputMethodInfo *custom, *config;
+
+ language = MPLIST_SYMBOL (pl);
+ pl = MPLIST_NEXT (pl);
+ name = MPLIST_SYMBOL (pl);
+ pl = MPLIST_NEXT (pl);
+ extra = MPLIST_SYMBOL (pl);
+ pl = MPLIST_NEXT (pl);
+ config = MPLIST_VAL (pl);
+ custom = get_custom_info (config);
+ if (! custom)
+ custom = new_im_info (NULL, language, name, extra, im_custom_list);
+ if (config->cmds)
+ MPLIST_DO (pl, config->cmds)
+ {
+ elt = MPLIST_PLIST (pl);
+ command = MPLIST_SYMBOL (elt);
+ if (custom->cmds)
+ p = mplist__assq (custom->cmds, command);
+ else
+ custom->cmds = mplist (), p = NULL;
+ elt = MPLIST_NEXT (elt);
+ if (MPLIST_TAIL_P (elt))
+ {
+ if (p)
+ mplist__pop_unref (p);
+ }
+ else
+ {
+ elt = MPLIST_NEXT (elt);
+ if (p)
+ {
+ p = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (p)));
+ mplist_set (p, Mnil, NULL);
+ mplist__conc (p, elt);
+ }
+ else
+ {
+ p = MPLIST_PLIST (pl);
+ mplist_add (custom->cmds, Mplist, p);
+ }
+ }
+ }
+ if (config->vars)
+ MPLIST_DO (pl, config->vars)
+ {
+ elt = MPLIST_PLIST (pl);
+ variable = MPLIST_SYMBOL (elt);
+ if (custom->vars)
+ p = mplist__assq (custom->vars, variable);
+ else
+ custom->vars = mplist (), p = NULL;
+ elt = MPLIST_NEXT (elt);
+ if (MPLIST_TAIL_P (elt))
+ {
+ if (p)
+ mplist__pop_unref (p);
+ }
+ else
+ {
+ elt = MPLIST_NEXT (elt);
+ if (p)
+ {
+ p = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (p)));
+ mplist_set (p, Mnil, NULL);
+ mplist__conc (p, elt);
+ }
+ else
+ {
+ p = MPLIST_PLIST (pl);
+ mplist_add (custom->vars, Mplist, p);
+ }
+ }
+ }
}
+ M17N_OBJECT_UNREF (im_config_list);
- MSTRUCT_CALLOC (im, MERROR_IM);
- im->language = language;
- im->name = name;
- im->arg = arg;
- im->driver = *driver;
- if ((*im->driver.open_im) (im) < 0)
+ MPLIST_DO (plist, im_custom_list)
{
- free (im);
- return NULL;
+ MPlist *pl = MPLIST_PLIST (plist);
+ MSymbol language, name, extra;
+ MInputMethodInfo *custom, *im_info;
+
+ language = MPLIST_SYMBOL (pl);
+ pl = MPLIST_NEXT (pl);
+ name = MPLIST_SYMBOL (pl);
+ pl = MPLIST_NEXT (pl);
+ extra = MPLIST_SYMBOL (pl);
+ pl = MPLIST_NEXT (pl);
+ custom = MPLIST_VAL (pl);
+ im_info = lookup_im_info (im_info_list, language, name, extra);
+ if (im_info)
+ {
+ if (im_info->cmds)
+ config_all_commands (im_info);
+ if (im_info->vars)
+ config_all_variables (im_info);
+ }
+
+ elt = mplist ();
+ tail = mplist_add (tail, Mplist, elt);
+ M17N_OBJECT_UNREF (elt);
+ pl = mplist ();
+ elt = mplist_add (elt, Mplist, pl);
+ M17N_OBJECT_UNREF (pl);
+ pl = mplist_add (pl, Msymbol, Minput_method);
+ pl = mplist_add (pl, Msymbol, language);
+ pl = mplist_add (pl, Msymbol, name);
+ if (extra != Mnil)
+ pl = mplist_add (pl, Msymbol, extra);
+ if (custom->cmds && ! MPLIST_TAIL_P (custom->cmds))
+ {
+ pl = mplist ();
+ elt = mplist_add (elt, Mplist, pl);
+ M17N_OBJECT_UNREF (pl);
+ pl = mplist_add (pl, Msymbol, Mcommand);
+ MPLIST_DO (p, custom->cmds)
+ pl = mplist_add (pl, Mplist, MPLIST_PLIST (p));
+ }
+ if (custom->vars && ! MPLIST_TAIL_P (custom->vars))
+ {
+ pl = mplist ();
+ elt = mplist_add (elt, Mplist, pl);
+ M17N_OBJECT_UNREF (pl);
+ pl = mplist_add (pl, Msymbol, Mvariable);
+ MPLIST_DO (p, custom->vars)
+ pl = mplist_add (pl, Mplist, MPLIST_PLIST (p));
+ }
}
- return im;
+
+ mplist_push (data, Mstring, ";; -*- mode:lisp; coding:utf-8 -*-");
+ ret = mdatabase__save (im_custom_mdb, data);
+ mdatabase__unlock (im_custom_mdb);
+ M17N_OBJECT_UNREF (data);
+ return (ret < 0 ? -1 : 1);
}
/*=*/
/***en
- @brief Close an input method.
+ @name Obsolete functions
+*/
+/*** @{ */
- The minput_close_im () function closes the input method $IM, which
- must have been created by minput_open_im (). */
+/*=*/
+/***en
+ @brief Get a list of variables of an input method (obsolete).
-/***ja
- @brief ÆþÎϥ᥽¥Ã¥É¤ò¥¯¥í¡¼¥º¤¹¤ë.
+ This function is obsolete. Use minput_get_variable () instead.
- ´Ø¿ô minput_close_im () ¤Ï¡¢ÆþÎϥ᥽¥Ã¥É $IM ¤ò¥¯¥í¡¼¥º¤¹¤ë¡£¤³¤Î
- ÆþÎϥ᥽¥Ã¥É $IM ¤Ï minput_open_im () ¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¤â¤Î¤Ç¤Ê¤±¤ì
- ¤Ð¤Ê¤é¤Ê¤¤¡£ */
+ The minput_get_variables () function returns a plist (#MPlist) of
+ variables used to control the behavior of the input method
+ specified by $LANGUAGE and $NAME. The plist is @e well-formed
+ (#m17nPlist) of the following format:
-void
-minput_close_im (MInputMethod *im)
-{
- (*im->driver.close_im) (im);
- free (im);
-}
+@verbatim
+ (VARNAME (DOC-MTEXT DEFAULT-VALUE [ VALUE ... ] )
+ VARNAME (DOC-MTEXT DEFAULT-VALUE [ VALUE ... ] )
+ ...)
+@endverbatim
-/*=*/
+ @c VARNAME is a symbol representing the variable name.
-/***en
- @brief Create an input context.
+ @c DOC-MTEXT is an M-text describing the variable.
- The minput_create_ic () function creates an input context object
- associated with input method $IM, and calls callback functions
- corresponding to #Minput_preedit_start, #Minput_status_start, and
- #Minput_status_draw in this order.
+ @c DEFAULT-VALUE is the default value of the variable. It is a
+ symbol, integer, or M-text.
- @return
+ @c VALUEs (if any) specifies the possible values of the variable.
+ If @c DEFAULT-VALUE is an integer, @c VALUE may be a plist (@c FROM
+ @c TO), where @c FROM and @c TO specifies a range of possible
+ values.
- If an input context is successfully created, minput_create_ic ()
- returns a pointer to it. Otherwise it returns @c NULL. */
+ For instance, suppose an input method has the variables:
-/***ja
- @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÀ¸À®¤¹¤ë.
+ @li name:intvar, description:"value is an integer",
+ initial value:0, value-range:0..3,10,20
- ´Ø¿ô minput_create_ic () ¤ÏÆþÎϥ᥽¥Ã¥É $IM ¤ËÂбþ¤¹¤ëÆþÎÏ¥³¥ó¥Æ¥¯
- ¥¹¥È¥ª¥Ö¥¸¥§¥¯¥È¤òÀ¸À®¤·¡¢ #Minput_preedit_start,
- #Minput_status_start, #Minput_status_draw ¤ËÂбþ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø
- ¿ô¤ò¤³¤Î½ç¤Ë¸Æ¤Ö¡£
+ @li name:symvar, description:"value is a symbol",
+ initial value:nil, value-range:a, b, c, nil
+
+ @li name:txtvar, description:"value is an M-text",
+ initial value:empty text, no value-range (i.e. any text)
+
+ Then, the returned plist is as follows.
+
+@verbatim
+ (intvar ("value is an integer" 0 (0 3) 10 20)
+ symvar ("value is a symbol" nil a b c nil)
+ txtvar ("value is an M-text" ""))
+@endverbatim
@return
+ If the input method uses any variables, a pointer to #MPlist is
+ returned. As the plist is kept in the library, the caller must not
+ modify nor free it. If the input method does not use any
+ variable, @c NULL is returned. */
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¤ÎÊÑ¿ô¥ê¥¹¥È¤òÆÀ¤ë.
- ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤¬À¸À®¤µ¤ì¤¿¾ì¹ç¡¢minput_create_ic () ¤Ï¤½¤ÎÆþÎÏ¥³
- ¥ó¥Æ¥¯¥¹¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£
- */
+ ´Ø¿ô minput_get_variables () ¤Ï¡¢$LANGUAGE ¤È $NAME ¤Ë¤è¤Ã¤Æ»ØÄꤵ
+ ¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤Î¿¶¤ëÉñ¤¤¤òÀ©¸æ¤¹¤ëÊÑ¿ô¤Î¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È
+ (#MPlist) ¤òÊÖ¤¹¡£¤³¤Î¥ê¥¹¥È¤Ï @e well-formed ¤Ç¤¢¤ê(#m17nPlist) °Ê
+ ²¼¤Î·Á¼°¤Ç¤¢¤ë¡£
-MInputContext *
-minput_create_ic (MInputMethod *im, void *arg)
-{
- MInputContext *ic;
+@verbatim
+ (VARNAME (DOC-MTEXT DEFAULT-VALUE [ VALUE ... ] )
+ VARNAME (DOC-MTEXT DEFAULT-VALUE [ VALUE ... ] )
+ ...)
+@endverbatim
- MSTRUCT_CALLOC (ic, MERROR_IM);
- ic->im = im;
- ic->arg = arg;
- ic->preedit = mtext ();
- ic->candidate_list = NULL;
- ic->produced = mtext ();
- ic->spot.x = ic->spot.y = 0;
- ic->active = 1;
- ic->plist = mplist ();
- if ((*im->driver.create_ic) (ic) < 0)
- {
- M17N_OBJECT_UNREF (ic->preedit);
- M17N_OBJECT_UNREF (ic->produced);
- M17N_OBJECT_UNREF (ic->plist);
- free (ic);
- return NULL;
- };
+ @c VARNAME ¤ÏÊÑ¿ô¤Î̾Á°¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
- if (im->driver.callback_list)
- {
- minput__callback (ic, Minput_preedit_start);
- minput__callback (ic, Minput_status_start);
- minput__callback (ic, Minput_status_draw);
- }
+ @c DOC-MTEXT ¤ÏÊÑ¿ô¤òÀâÌÀ¤¹¤ë M-text ¤Ç¤¢¤ë¡£
- return ic;
-}
+ @c DEFAULT-VALUE ¤ÏÊÑ¿ô¤Î¥Ç¥Õ¥©¥ë¥ÈÃͤǤ¢¤ê¡¢¥·¥ó¥Ü¥ë¡¢À°¿ô¤â¤·¤¯¤Ï
+ M-text ¤Ç¤¢¤ë¡£
-/*=*/
+ @c VALUE ¤Ï¡¢¤â¤·»ØÄꤵ¤ì¤Æ¤¤¤ì¤ÐÊÑ¿ô¤Î¼è¤êÆÀ¤ëÃͤò¼¨¤¹¡£¤â¤·
+ @c DEFAULT-VALUE ¤¬À°¿ô¤Ê¤é¡¢ @c VALUE ¤Ï (@c FROM @c TO) ¤È¤¤¤¦·Á
+ ¤Î¥ê¥¹¥È¤Ç¤âÎɤ¤¡£¤³¤Î¾ì¹ç @c FROM ¤È @c TO ¤Ï²Äǽ¤ÊÃͤÎÈϰϤò¼¨¤¹¡£
-/***en
- @brief Destroy an input context.
+ Îã¤È¤·¤Æ¡¢¤¢¤ëÆþÎϥ᥽¥Ã¥É¤¬¼¡¤Î¤è¤¦¤ÊÊÑ¿ô¤ò»ý¤Ä¾ì¹ç¤ò¹Í¤¨¤è¤¦¡£
- The minput_destroy_ic () function destroys the input context $IC,
- which must have been created by minput_create_ic (). It calls
- callback functions corresponding to #Minput_preedit_done,
- #Minput_status_done, and #Minput_candidate_done in this order. */
+ @li name:intvar, ÀâÌÀ:"value is an integer",
+ ½é´üÃÍ:0, ÃͤÎÈÏ°Ï:0..3,10,20
-/***ja
- @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÇ˲õ¤¹¤ë.
+ @li name:symvar, ÀâÌÀ:"value is a symbol",
+ ½é´üÃÍ:nil, ÃͤÎÈÏ°Ï:a, b, c, nil
- ´Ø¿ô minput_destroy_ic () ¤Ï¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤òÇ˲õ¤¹¤ë¡£¤³
- ¤ÎÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Ï minput_create_ic () ¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¤â¤Î¤Ç¤Ê
- ¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¤³¤Î´Ø¿ô¤Ï#Minput_preedit_done,
- #Minput_status_done, #Minput_candidate_done ¤ËÂбþ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò
- ¤³¤Î½ç¤Ë¸Æ¤Ö¡£
- */
+ @li name:txtvar, ÀâÌÀ:"value is an M-text",
+ ½é´üÃÍ:empty text, ÃͤÎÈϰϤʤ·(¤É¤ó¤Ê M-text ¤Ç¤â²Ä)
-void
-minput_destroy_ic (MInputContext *ic)
+ ¤³¤Î¾ì¹ç¡¢ÊÖ¤µ¤ì¤ë¥ê¥¹¥È¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ë¡£
+
+@verbatim
+ (intvar ("value is an integer" 0 (0 3) 10 20)
+ symvar ("value is a symbol" nil a b c nil)
+ txtvar ("value is an M-text" ""))
+@endverbatim
+
+ @return
+ ÆþÎϥ᥽¥Ã¥É¤¬²¿¤é¤«¤ÎÊÑ¿ô¤ò»ÈÍѤ·¤Æ¤¤¤ì¤Ð #MPlist ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
+ ÊÖ¤µ¤ì¤ë¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤Ï¥é¥¤¥Ö¥é¥ê¤Ë¤è¤Ã¤Æ´ÉÍý¤µ¤ì¤Æ¤ª¤ê¡¢¸Æ¤Ó½Ð¤·Â¦¤ÇÊѹ¹¤·¤¿¤ê²òÊü¤·¤¿¤ê¤·¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
+ ÆþÎϥ᥽¥Ã¥É¤¬ÊÑ¿ô¤ò°ìÀÚ»ÈÍѤ·¤Æ¤Ê¤±¤ì¤Ð¡¢@c NULL ¤òÊÖ¤¹¡£ */
+
+MPlist *
+minput_get_variables (MSymbol language, MSymbol name)
{
- if (ic->im->driver.callback_list)
+ MInputMethodInfo *im_info;
+ MPlist *vars;
+
+ MINPUT__INIT ();
+
+ im_info = get_im_info (language, name, Mnil, Mvariable);
+ if (! im_info || ! im_info->configured_vars)
+ return NULL;
+
+ M17N_OBJECT_UNREF (im_info->bc_vars);
+ im_info->bc_vars = mplist ();
+ MPLIST_DO (vars, im_info->configured_vars)
{
- minput__callback (ic, Minput_preedit_done);
- minput__callback (ic, Minput_status_done);
- minput__callback (ic, Minput_candidates_done);
+ MPlist *plist = MPLIST_PLIST (vars);
+ MPlist *elt = mplist ();
+
+ mplist_push (im_info->bc_vars, Mplist, elt);
+ mplist_add (elt, Msymbol, MPLIST_SYMBOL (plist));
+ elt = MPLIST_NEXT (elt);
+ mplist_set (elt, Mplist, mplist_copy (MPLIST_NEXT (plist)));
+ M17N_OBJECT_UNREF (elt);
}
- (*ic->im->driver.destroy_ic) (ic);
- M17N_OBJECT_UNREF (ic->preedit);
- M17N_OBJECT_UNREF (ic->produced);
- M17N_OBJECT_UNREF (ic->plist);
- free (ic);
+ return im_info->bc_vars;
}
/*=*/
/***en
- @brief Filter an input key.
+ @brief Set the initial value of an input method variable.
- The minput_filter () function filters input key $KEY according to
- input context $IC, and calls callback functions corresponding to
- #Minput_preedit_draw, #Minput_status_draw, and
- #Minput_candidate_draw if the preedit text, the status, and the
- current candidate are changed respectively.
+ The minput_set_variable () function sets the initial value of
+ input method variable $VARIABLE to $VALUE for the input method
+ specified by $LANGUAGE and $NAME.
- @return
- If $KEY is filtered out, this function returns 1. In that case,
- the caller should discard the key. Otherwise, it returns 0, and
- the caller should handle the key, for instance, by calling the
- function minput_lookup () with the same key. */
+ By default, the initial value is 0.
+ This setting gets effective in a newly opened input method.
+
+ @return
+ If the operation was successful, 0 is returned. Otherwise -1 is
+ returned, and #merror_code is set to #MERROR_IM. */
/***ja
- @brief ÆþÎÏ¥¡¼¤ò¥Õ¥£¥ë¥¿¤¹¤ë.
+ @brief ÆþÎϥ᥽¥Ã¥ÉÊÑ¿ô¤Î½é´üÃͤòÀßÄꤹ¤ë.
- ´Ø¿ô minput_filter () ¤ÏÆþÎÏ¥¡¼ $KEY ¤òÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤Ë±þ
- ¤¸¤Æ¥Õ¥£¥ë¥¿¤·¡¢preedit ¥Æ¥¥¹¥È¡¢¥¹¥Æ¡¼¥¿¥¹¡¢¸½»þÅÀ¤Ç¤Î¸õÊ䤬ÊѲ½
- ¤·¤¿ºÝ¤Ë¤Ï¤½¤ì¤¾¤ì#Minput_preedit_draw, #Minput_status_draw,
- #Minput_candidate_draw ¤ËÂбþ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò¸Æ¤Ö¡£
+ ´Ø¿ô minput_set_variable () ¤Ï¡¢$LANGUAGE ¤È $NAME
+ ¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤ÎÆþÎϥ᥽¥Ã¥ÉÊÑ¿ô $VARIABLE
+ ¤Î½é´üÃͤò¡¢ $VALUE ¤ËÀßÄꤹ¤ë¡£
- @return
- $KEY ¤¬¥Õ¥£¥ë¥¿¤µ¤ì¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï 1 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¸Æ¤Ó
- ½Ð¤·Â¦¤Ï¤³¤Î¥¡¼¤ò¼Î¤Æ¤ë¤Ù¤¤Ç¤¢¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 0 ¤òÊÖ¤·¡¢¸Æ¤Ó
- ½Ð¤·Â¦¤Ï¡¢¤¿¤È¤¨¤ÐƱ¤¸¥¡¼¤Ç´Ø¿ô minput_lookup () ¤ò¸Æ¤Ö¤Ê¤É¤·¤Æ¡¢
- ¤³¤Î¥¡¼¤ò½èÍý¤¹¤ë¡£
+ ¥Ç¥Õ¥©¥ë¥È¤Î½é´üÃÍ¤Ï 0 ¤Ç¤¢¤ë¡£
- @latexonly \IPAlabel{minput_filter} @endlatexonly
-*/
+ ¤³¤ÎÀßÄê¤Ï¡¢¿·¤·¤¯¥ª¡¼¥×¥ó¤µ¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤«¤é͸ú¤È¤Ê¤ë¡£
+
+ @return
+ ½èÍý¤¬À®¸ù¤¹¤ì¤Ð 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤·¡¢
+ #merror_code ¤ò #MERROR_IM ¤ËÀßÄꤹ¤ë¡£ */
int
-minput_filter (MInputContext *ic, MSymbol key, void *arg)
+minput_set_variable (MSymbol language, MSymbol name,
+ MSymbol variable, void *value)
{
+ MPlist *plist, *pl;
+ MInputMethodInfo *im_info;
int ret;
- if (! ic
- || ! ic->active)
- return 0;
- ret = (*ic->im->driver.filter) (ic, key, arg);
+ MINPUT__INIT ();
- if (ic->im->driver.callback_list)
+ if (variable == Mnil)
+ MERROR (MERROR_IM, -1);
+ plist = minput_get_variable (language, name, variable);
+ plist = MPLIST_PLIST (plist);
+ plist = MPLIST_NEXT (plist);
+ pl = mplist ();
+ mplist_add (pl, MPLIST_KEY (plist), value);
+ ret = minput_config_variable (language, name, variable, pl);
+ M17N_OBJECT_UNREF (pl);
+ if (ret == 0)
{
- if (ic->preedit_changed)
- minput__callback (ic, Minput_preedit_draw);
- if (ic->status_changed)
- minput__callback (ic, Minput_status_draw);
- if (ic->candidates_changed)
- minput__callback (ic, Minput_candidates_draw);
- ic->preedit_changed = ic->status_changed = ic->candidates_changed = 0;
+ im_info = get_im_info (language, name, Mnil, Mvariable);
+ im_info->tick = 0;
}
-
return ret;
}
/*=*/
/***en
- @brief Lookup a text produced in the input context.
+ @brief Get information about input method commands.
- The minput_lookup () function looks up a text in the input context
- $IC. $KEY must be the same one provided to the previous call of
- minput_filter ().
+ The minput_get_commands () function returns information about
+ input method commands of the input method specified by $LANGUAGE
+ and $NAME. An input method command is a pseudo key event to which
+ one or more actual input key sequences are assigned.
- If a text was produced by the input method, it is concatenated
- to M-text $MT.
+ There are two kinds of commands, global and local. Global
+ commands are used by multiple input methods for the same purpose,
+ and have global key assignments. Local commands are used only by
+ a specific input method, and have only local key assignments.
- This function calls #MInputDriver::lookup.
+ Each input method may locally change key assignments for global
+ commands. The global key assignment for a global command is
+ effective only when the current input method does not have local
+ key assignments for that command.
+
+ If $NAME is #Mnil, information about global commands is returned.
+ In this case $LANGUAGE is ignored.
+
+ If $NAME is not #Mnil, information about those commands that have
+ local key assignments in the input method specified by $LANGUAGE
+ and $NAME is returned.
@return
- If $KEY was correctly handled by the input method, this function
- returns 0. Otherwise, returns -1, even in that case, some text
- may be produced in $MT. */
+ If no input method commands are found, this function returns @c NULL.
+
+ Otherwise, a pointer to a plist is returned. The key of each
+ element in the plist is a symbol representing a command, and the
+ value is a plist of the form COMMAND-INFO described below.
+ The first element of COMMAND-INFO has the key #Mtext, and the
+ value is an M-text describing the command.
+
+ If there are no more elements, that means no key sequences are
+ assigned to the command. Otherwise, each of the remaining
+ elements has the key #Mplist, and the value is a plist whose keys are
+ #Msymbol and values are symbols representing input keys, which are
+ currently assigned to the command.
+
+ As the returned plist is kept in the library, the caller must not
+ modify nor free it. */
/***ja
- @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥ÈÃæ¤Î¥Æ¥¥¹¥È¤Î¸¡º÷.
+ @brief ÆþÎϥ᥽¥Ã¥É¤Î¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó¤òÆÀ¤ë.
- ´Ø¿ô minput_lookup () ¤ÏÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC Ãæ¤Î¥Æ¥¥¹¥È¤ò¸¡º÷¤¹
- ¤ë¡£$KEY ¤Ï´Ø¿ôminput_filter () ¤Ø¤ÎľÁ°¤Î¸Æ¤Ó½Ð¤·¤ËÍѤ¤¤é¤ì¤¿¤â¤Î
- ¤ÈƱ¤¸¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
+ ´Ø¿ô minput_get_commands () ¤Ï¡¢ $LANGUAGE ¤È $NAME ¤Ë¤è¤Ã¤Æ»ØÄꤵ
+ ¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤ÎÆþÎϥ᥽¥Ã¥É¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£ÆþÎϥ᥽¥Ã
+ ¥É¥³¥Þ¥ó¥É¤È¤Ï¡¢µ¿»÷¥¡¼¥¤¥Ù¥ó¥È¤Ç¤¢¤ê¡¢¤½¤ì¤¾¤ì¤Ë£±¤Ä°Ê¾å¤Î¼ÂºÝ¤Î
+ ÆþÎÏ¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤¬³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¤â¤Î¤ò»Ø¤¹¡£
- ¥Æ¥¥¹¥È¤¬ÆþÎϥ᥽¥Ã¥É¤Ë¤è¤Ã¤ÆÀ¸À®¤µ¤ì¤Æ¤¤¤ì¤Ð¡¢¥Æ¥¥¹¥È¤Ï M-text
- $MT ¤ËÏ¢·ë¤µ¤ì¤ë¡£
+ ¥³¥Þ¥ó¥É¤Ë¤Ï¥°¥í¡¼¥Ð¥ë¤È¥í¡¼¥«¥ë¤Î£²¼ïÎब¤¢¤ë¡£¥°¥í¡¼¥Ð¥ë¥³¥Þ¥ó¥É
+ ¤ÏÊ£¿ô¤ÎÆþÎϥ᥽¥Ã¥É¤Ë¤ª¤¤¤Æ¡¢Æ±¤¸ÌÜŪ¤Ç¡¢¥°¥í¡¼¥Ð¥ë¤Ê¥¡¼³ä¤êÅö¤Æ
+ ¤ÇÍѤ¤¤é¤ì¤ë¡£¥í¡¼¥«¥ë¥³¥Þ¥ó¥É¤ÏÆÃÄê¤ÎÆþÎϥ᥽¥Ã¥É¤Ç¤Î¤ß¡¢¥í¡¼¥«¥ë
+ ¤Ê¥¡¼³äÅö¤Ç»ÈÍѤµ¤ì¤ë¡£
- ¤³¤Î´Ø¿ô¤Ï¡¢#MInputDriver::lookup ¤ò¸Æ¤Ö¡£
+ ¸Ä¡¹¤ÎÆþÎϥ᥽¥Ã¥É¤Ï¥°¥í¡¼¥Ð¥ë¥³¥Þ¥ó¥É¤Î¥¡¼³äÅö¤òÊѹ¹¤¹¤ë¤³¤È¤â¤Ç
+ ¤¤ë¡£¥°¥í¡¼¥Ð¥ë¥³¥Þ¥ó¥ÉÍѤΥ°¥í¡¼¥Ð¥ë¥¡¼³ä¤êÅö¤Æ¤Ï¡¢»ÈÍѤ¹¤ëÆþÎÏ
+ ¥á¥½¥Ã¥É¤Ë¤ª¤¤¤Æ¤½¤Î¥³¥Þ¥ó¥ÉÍÑ¤Î¥í¡¼¥«¥ë¤Ê¥¡¼³äÅö¤¬Â¸ºß¤·¤Ê¤¤¾ì¹ç
+ ¤Ë¤Î¤ß͸ú¤Ç¤¢¤ë¡£
- @return
- $KEY ¤¬ÆþÎϥ᥽¥Ã¥É¤Ë¤è¤Ã¤ÆŬÀڤ˽èÍý¤Ç¤¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï 0 ¤òÊÖ¤¹¡£
- ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¤Ç¤â $MT ¤Ë²¿¤é¤«¤Î¥Æ¥¥¹¥È¤¬À¸
- À®¤µ¤ì¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ë¡£
+ $NAME ¤¬ #Mnil ¤Ç¤¢¤ì¤Ð¡¢¥°¥í¡¼¥Ð¥ë¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÖ¤¹¡£¤³¤Î
+ ¾ì¹ç¡¢$LANGUAGE ¤Ï̵»ë¤µ¤ì¤ë¡£
- @latexonly \IPAlabel{minput_lookup} @endlatexonly */
+ $NAME ¤¬ #Mnil ¤Ç¤Ê¤±¤ì¤Ð¡¢$LANGUAGE ¤È $NAME ¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤ëÆþ
+ Îϥ᥽¥Ã¥É¤ËÃÖ¤±¤ë¥í¡¼¥«¥ë¤Ê¥¡¼³ä¤êÅö¤Æ¤ò»ý¤Ä¥³¥Þ¥ó¥É¤Ë´Ø¤¹¤ë¾ðÊó
+ ¤òÊÖ¤¹¡£
-int
-minput_lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
+ @return
+ ÆþÎϥ᥽¥Ã¥É¥³¥Þ¥ó¥É¤¬¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï @c NULL ¤òÊÖ¤¹¡£
+
+ ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¥ê¥¹¥È¤Î³ÆÍ×ÁǤÎ
+ ¥¡¼¤Ï¸Ä¡¹¤Î¥³¥Þ¥ó¥É¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢Ãͤϲ¼µ¤Î COMMAND-INFO
+ ¤Î·Á¼°¤Î¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤Ç¤¢¤ë¡£
+
+ COMMAND-INFO ¤ÎÂè°ìÍ×ÁǤΥ¡¼¤Ï #Mtext ¤Þ¤¿¤Ï #Msymbol ¤Ç¤¢¤ë¡£¥¡¼
+ ¤¬ #Mtext ¤Ê¤é¡¢ÃͤϤ½¤Î¥³¥Þ¥ó¥É¤òÀâÌÀ¤¹¤ë M-text ¤Ç¤¢¤ë¡£¥¡¼¤¬
+ #Msymbol ¤Ê¤éÃÍ¤Ï #Mnil ¤Ç¤¢¤ê¡¢¤³¤Î¥³¥Þ¥ó¥É¤ÏÀâÌÀ¥Æ¥¥¹¥È¤ò»ý¤¿¤Ê
+ ¤¤¤³¤È¤Ë¤Ê¤ë¡£
+
+ ¤½¤ì°Ê³°¤ÎÍ×ÁǤ¬Ìµ¤±¤ì¤Ð¡¢¤³¤Î¥³¥Þ¥ó¥É¤ËÂФ·¤Æ¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤¬³ä
+ ¤êÅö¤Æ¤é¤ì¤Æ¤¤¤Ê¤¤¤³¤È¤ò°ÕÌ£¤¹¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢»Ä¤ê¤Î³ÆÍ×ÁǤϥ
+ ¡¼¤È¤·¤Æ#Mplist ¤ò¡¢ÃͤȤ·¤Æ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤ò»ý¤Ä¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£
+ ¥ê¥¹¥È¤Î¥¡¼¤Ï #Msymbol ¤Ç¤¢¤ê¡¢Ãͤϸ½ºß¤½¤Î¥³¥Þ¥ó¥É¤Ë³ä¤êÅö¤Æ¤é¤ì
+ ¤Æ¤¤¤ëÆþÎÏ¥¡¼¤òɽ¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
+
+ ÊÖ¤µ¤ì¤ë¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤Ï¥é¥¤¥Ö¥é¥ê¤Ë¤è¤Ã¤Æ´ÉÍý¤µ¤ì¤Æ¤ª¤ê¡¢¸Æ¤Ó½Ð
+ ¤·Â¦¤ÇÊѹ¹¤·¤¿¤ê²òÊü¤·¤¿¤ê¤·¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£*/
+
+MPlist *
+minput_get_commands (MSymbol language, MSymbol name)
{
- return (ic ? (*ic->im->driver.lookup) (ic, key, arg, mt) : -1);
+ MInputMethodInfo *im_info;
+ MPlist *cmds;
+
+ MINPUT__INIT ();
+
+ im_info = get_im_info (language, name, Mnil, Mcommand);
+ if (! im_info || ! im_info->configured_vars)
+ return NULL;
+ M17N_OBJECT_UNREF (im_info->bc_cmds);
+ im_info->bc_cmds = mplist ();
+ MPLIST_DO (cmds, im_info->configured_cmds)
+ {
+ MPlist *plist = MPLIST_PLIST (cmds);
+ MPlist *elt = mplist ();
+
+ mplist_push (im_info->bc_cmds, Mplist, elt);
+ mplist_add (elt, MPLIST_SYMBOL (plist),
+ mplist_copy (MPLIST_NEXT (plist)));
+ M17N_OBJECT_UNREF (elt);
+ }
+ return im_info->bc_cmds;
}
+
/*=*/
/***en
- @brief Set the spot of the input context.
+ @brief Assign a key sequence to an input method command (obsolete).
- The minput_set_spot () function set the spot of input context $IC
- to coordinate ($X, $Y) with the height $ASCENT and $DESCENT.
- The semantics of these values depend on the input method driver.
- $FONTSIZE specfies the fontsize of a preedit text in 1/10 point.
+ This function is obsolete. Use minput_config_command () instead.
- For instance, an driver designed to work in CUI environment may
- use $X and $Y as column and row numbers, and ignore $ASCENT and
- $DESCENT. An driver designed to work on a window system may treat
- $X and $Y as pixel offsets relative to the origin of the client
- window, and treat $ASCENT and $DESCENT as ascent and descent
- pixels of a line at ($X . $Y).
+ The minput_assign_command_keys () function assigns input key
+ sequence $KEYSEQ to input method command $COMMAND for the input
+ method specified by $LANGUAGE and $NAME. If $NAME is #Mnil, the
+ key sequence is assigned globally no matter what $LANGUAGE is.
+ Otherwise the key sequence is assigned locally.
- $MT and $POS is an M-text and a character position at the spot.
- $MT may be @c NULL, in which case, the input method cannot get
- information about the text around the spot. */
+ Each element of $KEYSEQ must have the key $Msymbol and the value
+ must be a symbol representing an input key.
-/***ja
- @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Î¥¹¥Ý¥Ã¥È¤òÀßÄꤹ¤ë
+ $KEYSEQ may be @c NULL, in which case, all assignments are deleted
+ globally or locally.
- ´Ø¿ô minput_set_spot () ¤Ï¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤Î¥¹¥Ý¥Ã¥È¤ò¡¢ºÂ
- ɸ ($X, $Y)¤Ë ¡¢¹â¤µ $ASCENT¡¢$DESCENT ¤ÇÀßÄꤹ¤ë¡£ ¤³¤ì¤é¤ÎÃͤΰÕ
- Ì£¤ÏÆþÎϥ᥽¥Ã¥É¥É¥é¥¤¥Ð¤Ë°Í¸¤¹¤ë¡£$FONTSIZE ¤Ïpreedit ¥Æ¥¥¹¥È¤Î
- ¥Õ¥©¥ó¥È¥µ¥¤¥º¤ò 1/10 ¥Ý¥¤¥ó¥Èñ°Ì¤Ç»ØÄꤹ¤ë¡£
+ This assignment gets effective in a newly opened input method.
- ¤¿¤È¤¨¤Ð CUI ´Ä¶¤ÇÆ°ºî¤¹¤ë¥É¥é¥¤¥Ð¤Ï $X, $Y ¤ò¤½¤ì¤¾¤ìÎó¤È¹Ô¤ÎÈÖ
- ¹æ¤È¤·¤ÆÍѤ¤¡¢$ASCENT¡¢$DESCENT ¤ò̵»ë¤¹¤ë¤«¤â¤·¤ì¤Ê¤¤¡£ ¤Þ¤¿¥¦¥£
- ¥ó¥É¥¦¥·¥¹¥Æ¥àÍѤΥɥ饤¥Ð¤Ï $X,$Y ¤ò¥¯¥é¥¤¥¢¥ó¥È¥¦¥£¥ó¥É¥¦¤Î
- ¸¶ÅÀ¤«¤é¤Î¥ª¥Õ¥»¥Ã¥È¤ò¥Ô¥¯¥»¥ëñ°Ì¤Çɽ¤·¤¿¤â¤Î¤È¤·¤Æ°·¤¤¡¢$ASCENT
- ¤È $DESCENT ¤ò ($X . $Y) ¤ÎÎó¤Î¥¢¥»¥ó¥È¤È¥Ç¥£¥»¥ó¥È¤ò¥Ô¥¯¥»¥ëñ°Ì
- ¤Çɽ¤·¤¿¤â¤Î¤È¤·¤Æ°·¤¦¤«¤â¤·¤ì¤Ê¤¤¡£
+ @return
+ If the operation was successful, 0 is returned. Otherwise -1 is
+ returned, and #merror_code is set to #MERROR_IM. */
+/***ja
+ @brief ÆþÎϥ᥽¥Ã¥É¥³¥Þ¥ó¥É¤Ë¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤ò³ä¤êÅö¤Æ¤ë.
- $MT ¤È $POS ¤Ï¤½¤Î¥¹¥Ý¥Ã¥È¤Î M-text ¤Èʸ»ú°ÌÃ֤Ǥ¢¤ë¡£$MT ¤Ï @c
- NULL ¤Ç¤â¤è¤¯¡¢¤½¤Î¾ì¹ç¤Ë¤ÏÆþÎϥ᥽¥Ã¥É¤Ï¥¹¥Ý¥Ã¥È¼þÊդΥƥ¥¹¥È¤Ë
- ´Ø¤¹¤ë¾ðÊó¤òÆÀ¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¡£
- */
+ ´Ø¿ô minput_assign_command_keys () ¤Ï¡¢ $LANGUAGE ¤È $NAME ¤Ë¤è¤Ã¤Æ
+ »ØÄꤵ¤ì¤¿ÆþÎϥ᥽¥Ã¥ÉÍѤÎÆþÎϥ᥽¥Ã¥É¥³¥Þ¥ó¥É $COMMAND ¤ËÂФ·¤Æ¡¢
+ ÆþÎÏ¥¡¼¥·¡¼¥¯¥¨¥ó¥¹ $KEYSEQ ¤ò³ä¤êÅö¤Æ¤ë¡£ $NAME ¤¬ #Mnil ¤Ê¤é¤Ð¡¢
+ $LANGUAGE ¤Ë´Ø·¸¤Ê¤¯¡¢ÆþÎÏ¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Ï¥°¥í¡¼¥Ð¥ë¤Ë³ä¤êÅö¤Æ¤é
+ ¤ì¤ë¡£¤½¤¦¤Ç¤Ê¤ì¤Ð¡¢³ä¤êÅö¤Æ¤Ï¥í¡¼¥«¥ë¤Ç¤¢¤ë¡£
-void
-minput_set_spot (MInputContext *ic, int x, int y,
- int ascent, int descent, int fontsize,
- MText *mt, int pos)
-{
- ic->spot.x = x;
- ic->spot.y = y;
- ic->spot.ascent = ascent;
- ic->spot.descent = descent;
- ic->spot.fontsize = fontsize;
- ic->spot.mt = mt;
- ic->spot.pos = pos;
- if (ic->im->driver.callback_list)
- minput__callback (ic, Minput_set_spot);
-}
-/*=*/
+ $KEYSEQ ¤Î³ÆÍ×ÁǤϥ¡¼¤È¤·¤Æ $Msymbol ¤ò¡¢ÃͤȤ·¤ÆÆþÎÏ¥¡¼¤òɽ¤¹¥·
+ ¥ó¥Ü¥ë¤ò»ý¤¿¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-/***en
- @brief Toggle input method.
+ $KEYSEQ ¤Ï @c NULL ¤Ç¤â¤è¤¤¡£¤³¤Î¾ì¹ç¡¢¥°¥í¡¼¥Ð¥ë¤â¤·¤¯¤Ï¥í¡¼¥«¥ë¤Ê
+ ¤¹¤Ù¤Æ¤Î³ä¤êÅö¤Æ¤¬¾Ãµî¤µ¤ì¤ë¡£
- The minput_toggle () function toggles the input method associated
- with the input context $IC. */
-/***ja
- @brief ÆþÎϥ᥽¥Ã¥É¤òÀÚÂؤ¨¤ë.
+ ¤³¤Î³ä¤êÅö¤Æ¤Ï¡¢³ä¤êÅö¤Æ°Ê¹ß¿·¤·¤¯¥ª¡¼¥×¥ó¤µ¤ì¤¿ÆþÎϥ᥽¥Ã¥É¤«¤éÍ
+ ¸ú¤Ë¤Ê¤ë¡£
- ´Ø¿ô minput_toggle () ¤ÏÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤ËÂбþÉÕ¤±¤é¤ì¤¿ÆþÎÏ
- ¥á¥½¥Ã¥É¤ò¥È¥°¥ë¤¹¤ë¡£
- */
+ @return ½èÍý¤¬À®¸ù¤¹¤ì¤Ð 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤·¡¢
+ #merror_code ¤ò #MERROR_IM ¤ËÀßÄꤹ¤ë¡£ */
-void
-minput_toggle (MInputContext *ic)
+int
+minput_assign_command_keys (MSymbol language, MSymbol name,
+ MSymbol command, MPlist *keyseq)
{
- if (ic->im->driver.callback_list)
- minput__callback (ic, Minput_toggle);
- ic->active = ! ic->active;
-}
+ int ret;
+
+ MINPUT__INIT ();
+
+ if (command == Mnil)
+ MERROR (MERROR_IM, -1);
+ if (keyseq)
+ {
+ MPlist *plist;
+ if (! check_command_keyseq (keyseq))
+ MERROR (MERROR_IM, -1);
+ plist = mplist ();
+ mplist_add (plist, Mplist, keyseq);
+ keyseq = plist;
+ }
+ else
+ keyseq = mplist ();
+ ret = minput_config_command (language, name, command, keyseq);
+ M17N_OBJECT_UNREF (keyseq);
+ return ret;
+}
+/*** @} */
/*** @} */
/*=*/
/*** @addtogroup m17nDebug */
/***ja
@brief ÆþÎϥ᥽¥Ã¥É¤ò¥À¥ó¥×¤¹¤ë.
- ´Ø¿ô mdebug_dump_im () ¤ÏÆþÎϥ᥽¥Ã¥É $IM ¤ò stderr ¤Ë¿Í´Ö¤Ë²ÄÆɤÊ
- ·Á¤Ç°õºþ¤¹¤ë¡£$INDENT ¤Ï£²¹ÔÌܰʹߤΥ¤¥ó¥Ç¥ó¥È¤ò»ØÄꤹ¤ë¡£
+ ´Ø¿ô mdebug_dump_im () ¤ÏÆþÎϥ᥽¥Ã¥É $IM ¤ò stderr
+ ¤Ë¿Í´Ö¤Ë²ÄÆɤʷÁ¤Ç°õºþ¤¹¤ë¡£$INDENT ¤Ï£²¹ÔÌܰʹߤΥ¤¥ó¥Ç¥ó¥È¤ò»ØÄꤹ¤ë¡£
@return
¤³¤Î´Ø¿ô¤Ï $IM ¤òÊÖ¤¹¡£ */