static MPlist *
parse_m17n_value (MPlist *plist, gchar *text)
{
MPlist *value;
if (mplist_key (plist) == Msymbol) {
value = mplist ();
mplist_add (value, Msymbol, msymbol (text));
return value;
}
if (mplist_key (plist) == Mtext) {
MText *mtext;
mtext = mtext_from_data (text, strlen (text), MTEXT_FORMAT_UTF_8);
value = mplist ();
mplist_add (value, Mtext, mtext);
return value;
}
if (mplist_key (plist) == Minteger) {
long val;
errno = 0;
val = strtol (text, NULL, 10);
if ((errno == ERANGE && (val == LONG_MAX || val == LONG_MIN))
|| (errno != 0 && val == 0))
return NULL;
value = mplist ();
mplist_add (value, Minteger, (void *)val);
return value;
}
return NULL;
}
static MPlist *
open_ibus (TableContext *context, MPlist *args)
{
MText *mt;
int rc;
char *file = NULL;
unsigned char buf[256];
mt = (MText *) mplist_value (args);
rc = mtext_to_utf8 (context, mt, buf, sizeof (buf));
if (rc < 0)
return NULL;
file = strdup ((const char *)buf);
args = mplist_next (args);
if (mplist_key (args) == Minteger)
context->xlen = (long) mplist_value (args);
else
context->xlen = XLEN;
args = mplist_next (args);
if (mplist_key (args) == Minteger)
context->max_candidates = (long) mplist_value (args);
else
context->max_candidates = MAX_CANDIDATES;
if (context->db && context->file && strcmp (context->file, file) != 0)
{
sqlite3_close (context->db);
context->db = NULL;
free (context->file);
}
context->file = file;
if (!context->db)
{
rc = sqlite3_open_v2 (file, &context->db, SQLITE_OPEN_READONLY, NULL);
if (rc)
{
sqlite3_close (context->db);
context->db = NULL;
free (context->file);
context->file = NULL;
}
rc = get_ime_attr_int (context, "max_key_length", &context->mlen);
if (rc < 0)
context->mlen = MLEN;
}
return NULL;
}
static gchar *
format_m17n_value (MPlist *plist)
{
if (mplist_key (plist) == Msymbol)
return g_strdup (msymbol_name ((MSymbol) mplist_value (plist)));
if (mplist_key (plist) == Mtext)
return g_strdup (mtext_data ((MText *) mplist_value (plist),
NULL, NULL, NULL, NULL));
if (mplist_key (plist) == Minteger)
return g_strdup_printf ("%d", (gint) (long) mplist_value (plist));
return NULL;
}
static TableContext *
get_context (MInputContext *ic)
{
MPlist *plist = ic->plist;
TableContext *context;
for (; plist && mplist_key (plist) != Mnil; plist = mplist_next (plist))
{
if (mplist_key (plist) != Mtable)
continue;
context = mplist_value (plist);
if (context->ic == ic)
return context;
}
return NULL;
}
static void
insert_m17n_items (GtkListStore *store, MSymbol language, MSymbol name)
{
MPlist *plist;
plist = minput_get_variable (language, name, Mnil);
for (; plist && mplist_key (plist) == Mplist; plist = mplist_next (plist)) {
GtkTreeIter iter;
MSymbol key;
MPlist *p, *mvalue;
gchar *description, *value;
p = mplist_value (plist);
key = mplist_value (p); /* name */
p = mplist_next (p); /* description */
description = ibus_m17n_mtext_to_utf8 ((MText *) mplist_value (p));
p = mplist_next (p); /* status */
mvalue = mplist_next (p);
value = format_m17n_value (mvalue);
gtk_list_store_append (store, &iter);
gtk_list_store_set (store, &iter,
COLUMN_KEY, msymbol_name (key),
COLUMN_DESCRIPTION, description,
COLUMN_VALUE, value,
-1);
g_free (description);
g_free (value);
}
}
static MPlist *
paginate (MPlist *candidates)
{
MPlist *p = candidates, *pl = mplist (), *plist = mplist ();
int i;
for (i = 0; mplist_key (p) == Mtext; p = mplist_next (p), i++)
{
mplist_add (pl, Mtext, mplist_value (p));
if (i % 10 == 9)
{
mplist_add (plist, Mplist, pl);
m17n_object_unref (pl);
pl = mplist ();
}
}
if (mplist_key (pl) != Mnil)
mplist_add (plist, Mplist, pl);
m17n_object_unref (pl);
return plist;
}
static MPlist *
parse_m17n_value (MPlist *plist, gchar *text)
{
MPlist *value;
if (mplist_key (plist) == Msymbol) {
value = mplist ();
mplist_add (value, Msymbol, msymbol (text));
return value;
}
if (mplist_key (plist) == Mtext) {
MText *mtext;
mtext = mconv_decode_buffer (Mcoding_utf_8,
(const unsigned char *) text,
strlen (text));
value = mplist ();
mplist_add (value, Mtext, mtext);
return value;
}
if (mplist_key (plist) == Minteger) {
long val;
errno = 0;
val = strtol (text, NULL, 10);
if ((errno == ERANGE && (val == LONG_MAX || val == LONG_MIN))
|| (errno != 0 && val == 0))
return NULL;
value = mplist ();
mplist_add (value, Minteger, (void *)val);
return value;
}
return NULL;
}
static uim_lisp
init_m17nlib()
{
MPlist *imlist, *elm;
M17N_INIT();
nr_input_methods = 0;
nr_input_contexts = 0;
im_array = NULL;
ic_array = NULL;
imlist = mdatabase_list(msymbol("input-method"), Mnil, Mnil, Mnil);
if (!imlist) {
/* maybe user forgot to install m17n-db */
return uim_scm_f();
}
for (elm = imlist; mplist_key(elm) != Mnil; elm = mplist_next(elm)) {
MDatabase *mdb;
MSymbol *tag, lang, imname;
uim_bool is_complete_im;
mdb = mplist_value(elm);
tag = mdatabase_tag(mdb);
lang = tag[1];
imname = tag[2];
is_complete_im = (lang != Mnil && imname != Mnil); /* [uim-ja 30] */
if (is_complete_im) {
/* pass NULL as IM to enable lazy instantiation */
pushback_input_method(NULL, msymbol_name(lang), msymbol_name(imname));
}
}
#if 0
register_callbacks();
#endif
m17n_object_unref(imlist);
converter = mconv_buffer_converter(msymbol("utf8"), NULL, 0);
if (!converter)
return uim_scm_f();
m17nlib_ok = 1;
return uim_scm_t();
}
int main()
{
MPlist *imlist, *elm;
MSymbol utf8 = msymbol("utf8");
M17N_INIT();
imlist = mdatabase_list(msymbol("input-method"), Mnil, Mnil, Mnil);
for (elm = imlist; elm && mplist_key(elm) != Mnil; elm =
mplist_next(elm)) {
MDatabase *mdb = (MDatabase *) mplist_value(elm);
MSymbol *tag = mdatabase_tag(mdb);
if (tag[1] != Mnil) {
MInputMethod *im = minput_open_im(tag[1], tag[2], NULL);
if (im) {
std::cout << msymbol_name (im->language);
std::cout << "-";
std::cout << msymbol_name (im->name);
std::cout << "\n";
}
}
}
M17N_FINI();
}
static void
nimf_m17n_update_candidate (NimfEngine *engine,
NimfServiceIC *target)
{
g_debug (G_STRLOC ": %s", G_STRFUNC);
NimfM17n *m17n = NIMF_M17N (engine);
nimf_candidatable_clear (m17n->candidatable, target);
MPlist *page;
m17n->current_page = m17n->ic->candidate_index / 10 + 1;
m17n->n_pages = 0;
for (page = m17n->ic->candidate_list;
page && mplist_key (page) != Mnil;
page = mplist_next (page))
{
MSymbol type = mplist_key (page);
m17n->n_pages++;
if (m17n->current_page != m17n->n_pages)
continue;
if (type == Mplist)
{
MPlist *items;
for (items = mplist_value (page);
items && mplist_key (items) != Mnil;
items = mplist_next (items))
{
gchar *item;
item = nimf_m17n_mtext_to_utf8 (m17n, mplist_value (items));
nimf_candidatable_append (m17n->candidatable, item, NULL);
g_free (item);
}
}
else if (type == Mtext)
{
gchar *items;
gint i, len;
items = nimf_m17n_mtext_to_utf8 (m17n, (MText *) mplist_value (page));
len = g_utf8_strlen (items, -1);
for (i = 0; i < len; i++)
{
gchar item[4];
gchar *p = g_utf8_offset_to_pointer (items, i);
g_utf8_strncpy (item, p, 1);
nimf_candidatable_append (m17n->candidatable, item, NULL);
}
g_free (items);
}
}
nimf_candidatable_select_item_by_index_in_page (m17n->candidatable,
m17n->ic->candidate_index % 10);
nimf_candidatable_set_page_values (m17n->candidatable, target,
m17n->current_page, m17n->n_pages, 10);
}
static MPlist *
open_scim (TableContext *context, MPlist *args)
{
MText *mt;
int rc;
char *file = NULL;
unsigned char buf[BUFSIZE];
mt = (MText *) mplist_value (args);
rc = mtext_to_utf8 (context, mt, buf, sizeof (buf));
if (rc < 0)
return NULL;
file = strdup ((const char *)buf);
args = mplist_next (args);
if (mplist_key (args) == Minteger)
context->xlen = (long) mplist_value (args);
else
context->xlen = XLEN;
args = mplist_next (args);
if (mplist_key (args) == Minteger)
context->max_candidates = (long) mplist_value (args);
else
context->max_candidates = MAX_CANDIDATES;
if (context->mem && context->file && strcmp (context->file, file) != 0)
{
munmap (context->mem, context->memlen);
context->mem = NULL;
free (context->file);
if (context->fp)
{
fclose (context->fp);
context->fp = NULL;
}
}
if (!context->fp)
context->fp = fopen (file, "rb");
if (!context->mem)
{
while (1)
{
if (!fgets ((char *)buf, sizeof buf, context->fp))
break;
if (strncmp ("###", (const char *)buf, 3) == 0)
continue;
if (strncmp ("MAX_KEY_LENGTH", (const char *)buf, 14) == 0)
{
char *p = strrchr ((char *)buf, '\n');
if (!*p)
continue;
*p-- = '\0';
while (*p >= '0' && *p <= '9')
p--;
context->mlen = strtoul (p + 1, NULL, 10);
continue;
}
if (strncmp ("BEGIN_TABLE", (const char *)buf, 11) == 0)
{
long start_pos, end_pos;
if (fread (buf, 4, 1, context->fp) != 1)
break;
context->content_size = scim_bytestouint32 (buf);
start_pos = ftell (context->fp);
if (fseek (context->fp, 0, SEEK_END) < 0)
break;
end_pos = ftell (context->fp);
if (context->content_size >= end_pos - start_pos)
break;
context->mem = mmap (0, end_pos, PROT_READ, MAP_PRIVATE,
fileno (context->fp), 0);
if (context->mem)
{
context->memlen = end_pos;
context->content = (unsigned char *)context->mem + start_pos;
context->file = file;
}
break;
}
}
}
if (!context->mem)
{
free (file);
return NULL;
}
if (!context->offsets)
{
int offset;
if (!context->mlen)
context->mlen = MLEN;
context->offsets = calloc (sizeof (TableOffsetArray), context->mlen);
for (offset = 0; offset < context->content_size;)
{
int klen = context->content[offset] & 0x3F;
int plen = context->content[offset + 1];
TableOffsetArray *array;
assert (klen > 0);
if (klen > context->mlen)
continue;
array = &context->offsets[klen - 1];
if (array->cap < array->len + 1)
{
if (array->cap == 0)
{
array->cap = 1;
array->data = calloc (sizeof (int), array->cap);
if (!array->data)
return NULL;
}
else
{
array->cap *= 2;
array->data = realloc (array->data,
sizeof (int) * array->cap);
if (!array->data)
return NULL;
memset (array->data + array->len, 0, array->cap - array->len);
}
}
*(array->data + array->len++) = offset;
offset += 4 + klen + plen;
}
}
return NULL;
}
static void
ibus_m17n_engine_update_lookup_table (IBusM17NEngine *m17n)
{
ibus_lookup_table_clear (m17n->table);
if (m17n->context->candidate_list && m17n->context->candidate_show) {
IBusText *text;
MPlist *group;
group = m17n->context->candidate_list;
gint i = 0;
gint page = 1;
IBusM17NEngineClass *klass = (IBusM17NEngineClass *) G_OBJECT_GET_CLASS (m17n);
while (1) {
gint len;
if (mplist_key (group) == Mtext)
len = mtext_len ((MText *) mplist_value (group));
else
len = mplist_length ((MPlist *) mplist_value (group));
if (i + len > m17n->context->candidate_index)
break;
i += len;
group = mplist_next (group);
page ++;
}
if (mplist_key (group) == Mtext) {
MText *mt;
gunichar *buf;
glong nchars, i;
mt = (MText *) mplist_value (group);
ibus_lookup_table_set_page_size (m17n->table, mtext_len (mt));
buf = ibus_m17n_mtext_to_ucs4 (mt, &nchars);
for (i = 0; i < nchars; i++) {
ibus_lookup_table_append_candidate (m17n->table, ibus_text_new_from_unichar (buf[i]));
}
g_free (buf);
}
else {
MPlist *p;
p = (MPlist *) mplist_value (group);
ibus_lookup_table_set_page_size (m17n->table, mplist_length (p));
for (; mplist_key (p) != Mnil; p = mplist_next (p)) {
MText *mtext;
gchar *buf;
mtext = (MText *) mplist_value (p);
buf = ibus_m17n_mtext_to_utf8 (mtext);
if (buf) {
ibus_lookup_table_append_candidate (m17n->table, ibus_text_new_from_string (buf));
g_free (buf);
}
}
}
ibus_lookup_table_set_cursor_pos (m17n->table, m17n->context->candidate_index - i);
ibus_lookup_table_set_orientation (m17n->table, klass->lookup_table_orientation);
text = ibus_text_new_from_printf ("( %d / %d )", page, mplist_length (m17n->context->candidate_list));
ibus_engine_update_lookup_table ((IBusEngine *)m17n, m17n->table, TRUE);
ibus_engine_update_auxiliary_text ((IBusEngine *)m17n, text, TRUE);
}
else {
ibus_engine_hide_lookup_table ((IBusEngine *)m17n);
ibus_engine_hide_auxiliary_text ((IBusEngine *)m17n);
}
}