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();
}