--- /dev/null
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <m17n.h>
+#include <m17n-misc.h>
+
+MPlist *error_invalid_format;
+MPlist *error_unknown_command;
+MPlist *error_invalid_arg;
+MPlist *error_command_fail;
+MPlist *error_lock_fail;
+
+MSymbol Merror, Mvalue;
+MSymbol Meval_function;
+
+#define ERROR(msg) \
+ do { \
+ m17n_object_ref (msg); \
+ return msg; \
+ } while (0)
+
+MPlist *eval (MPlist *);
+
+#define INTEGERP(plist) (mplist_key (plist) == Minteger)
+#define SYMBOLP(plist) (mplist_key (plist) == Msymbol)
+#define MTEXTP(plist) (mplist_key (plist) == Mtext)
+#define PLISTP(plist) (mplist_key (plist) == Mplist)
+#define TAILP(plist) (mplist_key (plist) == Mnil)
+
+MPlist *eval_help (MPlist *arg);
+
+MPlist *
+eval_set (MPlist *arg)
+{
+ MSymbol var;
+
+ if (! SYMBOLP (arg))
+ ERROR (error_invalid_arg);
+ var = mplist_value (arg);
+ arg = mplist_next (arg);
+ if (TAILP (arg))
+ msymbol_put (var, Mvalue, NULL);
+ else if (PLISTP (arg))
+ msymbol_put (var, Mvalue, eval (mplist_value (arg)));
+ else
+ {
+ m17n_object_ref (arg);
+ msymbol_put (var, Mvalue, arg);
+ }
+ return NULL;
+}
+
+MPlist *
+eval_open (MPlist *arg)
+{
+ MSymbol lang, name;
+ MInputMethod *im;;
+
+ if (! SYMBOLP (arg))
+ ERROR (error_invalid_arg);
+ lang = mplist_value (arg);
+ arg = mplist_next (arg);
+ if (! SYMBOLP (arg))
+ ERROR (error_invalid_arg);
+ name = mplist_value (arg);
+ im = minput_open_im (lang, name, Mnil);
+ arg = mplist ();
+ mplist_add (arg, Mt, im);
+ return arg;
+}
+
+MPlist *
+eval_close (MPlist *arg)
+{
+ MPlist *value;
+
+ if (! SYMBOLP (arg))
+ ERROR (error_invalid_arg);
+ value = msymbol_get (mplist_value (arg), Mvalue);
+ if (! value)
+ ERROR (error_invalid_arg);
+ minput_close_im (mplist_value (value));
+ return NULL;
+}
+
+MPlist *
+parse_arg_common (MPlist *arg, MSymbol *lang, MSymbol *name, MSymbol *target)
+{
+ if (TAILP (arg))
+ *lang = Mt, *name = Mnil, *target = Mnil;
+ else
+ {
+ if (! SYMBOLP (arg))
+ return NULL;
+ *lang = mplist_value (arg);
+ arg = mplist_next (arg);
+ if (! SYMBOLP (arg))
+ return NULL;
+ *name = mplist_value (arg);
+ arg = mplist_next (arg);
+ if (SYMBOLP (arg))
+ {
+ *target = mplist_value (arg);
+ arg = mplist_next (arg);
+ }
+ else if (TAILP (arg))
+ *target = Mnil;
+ else
+ return NULL;
+ }
+ return arg;
+}
+
+MPlist *
+call_get_common (MPlist *(*func) (MSymbol, MSymbol, MSymbol), MPlist *arg)
+{
+ MSymbol lang, name, target;
+
+ arg = parse_arg_common (arg, &lang, &name, &target);
+ if (! arg)
+ ERROR (error_invalid_arg);
+ if (! TAILP (arg))
+ return arg;
+ arg = func (lang, name, target);
+ if (! arg)
+ ERROR (error_command_fail);
+ /* Prevent it be freed. */
+ m17n_object_ref (arg);
+ return arg;
+}
+
+MPlist *
+eval_get_command (MPlist *arg)
+{
+ return call_get_common (minput_get_command, arg);
+}
+
+MPlist *
+eval_get_variable (MPlist *arg)
+{
+ return call_get_common (minput_get_variable, arg);
+}
+
+MPlist *
+call_config_common (int (*func) (MSymbol, MSymbol, MSymbol, MPlist *),
+ MPlist *arg)
+{
+ MSymbol lang, name, target;
+
+ arg = parse_arg_common (arg, &lang, &name, &target);
+ if (! arg)
+ ERROR (error_invalid_arg);
+ if (TAILP (arg))
+ arg = NULL;
+ if (func (lang, name, target, arg) < 0)
+ ERROR (error_command_fail);
+ return NULL;
+}
+
+MPlist *
+eval_config_command (MPlist *arg)
+{
+ return call_config_common (minput_config_command, arg);
+}
+
+MPlist *
+eval_config_variable (MPlist *arg)
+{
+ return call_config_common (minput_config_variable, arg);
+}
+
+MPlist *
+eval_save_config (MPlist *arg)
+{
+ int ret = minput_save_config ();
+
+ if (ret < 0)
+ ERROR (error_command_fail);
+ if (ret == 0)
+ ERROR (error_lock_fail);
+ return NULL;
+}
+
+struct EvalFunc {
+ MPlist *(*eval_func) (MPlist *arg);
+ char *form;
+} eval_functions[] =
+ { {eval_help, "help"},
+ {eval_set, "set SYMBOL FORM"},
+ {eval_open, "open LANG NAME"},
+ {eval_close, "close SYMBOL"},
+ {eval_get_command, "get-command [LANG NAME [COMMAND]]"},
+ {eval_config_command, "config-command LANG NAME [COMMAND [(KEY ...) ...]]"},
+ {eval_get_variable, "get-variable [LANG NAME [VARIABLE]]"},
+ {eval_config_variable, "config-variable LANG NAME [VARIABLE [VALUE]]"},
+ {eval_save_config, "save-config"} };
+
+MPlist *
+eval_help (MPlist *arg)
+{
+ int i;
+
+ printf ("Valid FORMs are:\n");
+ for (i = 0; i < (sizeof eval_functions) / (sizeof eval_functions[0]); i++)
+ printf (" %s\n", eval_functions[i].form);
+ printf (" SYMBOL -- print the value of SYMBOL\n");
+ return NULL;
+}
+
+MPlist *
+eval (MPlist *plist)
+{
+ MSymbol cmd;
+ struct EvalFunc *eval_func;
+
+ if (! SYMBOLP (plist))
+ ERROR (error_invalid_format);
+ cmd = mplist_value (plist);
+ eval_func = msymbol_get (cmd, Meval_function);
+ if (! eval_func)
+ {
+ if (mplist_key (mplist_next (plist)) == Mnil)
+ {
+ MPlist *value = msymbol_get (cmd, Mvalue);
+
+ if (value)
+ return value;
+ }
+ ERROR (error_unknown_command);
+ }
+
+ return eval_func->eval_func (mplist_next (plist));
+}
+
+void
+init (void)
+{
+ M17N_INIT ();
+
+ Merror = msymbol ("error");
+ Mvalue = msymbol ("value");
+
+ Meval_function = msymbol ("eval-function");
+ msymbol_put (msymbol ("help"), Meval_function, eval_functions + 0);
+ msymbol_put (msymbol ("set"), Meval_function, eval_functions + 1);
+ msymbol_put (msymbol ("open"), Meval_function, eval_functions + 2);
+ msymbol_put (msymbol ("close"), Meval_function, eval_functions + 3);
+ msymbol_put (msymbol ("get-command"), Meval_function, eval_functions + 4);
+ msymbol_put (msymbol ("config-command"), Meval_function, eval_functions + 5);
+ msymbol_put (msymbol ("get-variable"), Meval_function, eval_functions + 6);
+ msymbol_put (msymbol ("config-variable"), Meval_function, eval_functions + 7);
+ msymbol_put (msymbol ("save-config"), Meval_function, eval_functions + 8);
+
+ error_invalid_format = mplist ();
+ mplist_add (error_invalid_format, Msymbol, Merror);
+ mplist_add (error_invalid_format, Msymbol, msymbol ("invalid-format"));
+
+ error_unknown_command = mplist ();
+ mplist_add (error_unknown_command, Msymbol, Merror);
+ mplist_add (error_unknown_command, Msymbol, msymbol ("unknwon-command"));
+
+ error_invalid_arg = mplist ();
+ mplist_add (error_invalid_arg, Msymbol, Merror);
+ mplist_add (error_invalid_arg, Msymbol, msymbol ("invalid-argument"));
+
+ error_command_fail = mplist ();
+ mplist_add (error_command_fail, Msymbol, Merror);
+ mplist_add (error_command_fail, Msymbol, msymbol ("command-fail"));
+
+ error_lock_fail = mplist ();
+ mplist_add (error_lock_fail, Msymbol, Merror);
+ mplist_add (error_lock_fail, Msymbol, msymbol ("lock-fail"));
+}
+
+void
+fini (void)
+{
+ m17n_object_unref (error_invalid_format);
+ m17n_object_unref (error_unknown_command);
+ m17n_object_unref (error_invalid_arg);
+ m17n_object_unref (error_command_fail);
+ m17n_object_unref (error_lock_fail);
+
+ M17N_FINI ();
+}
+
+int
+main ()
+{
+ char line[256];
+
+ init ();
+
+ while (printf ("> ") && fgets (line, 256, stdin) != NULL)
+ {
+ MText *mt;
+ MPlist *plist, *val;
+ int len = strlen (line);
+
+ if (line[len - 1] == '\n')
+ line[--len] = '\0';
+ if (len == 0)
+ continue;
+
+ mt = mtext_from_data (line, len, MTEXT_FORMAT_US_ASCII);
+ plist = mplist_deserialize (mt);
+ val = eval (plist);
+
+ if (val)
+ {
+ mdebug_dump_plist (val, 0);
+ putc ('\n', stderr);
+ fflush (stderr);
+ m17n_object_unref (val);
+ }
+ m17n_object_unref (plist);
+ m17n_object_unref (mt);
+ }
+
+ fini ();
+ exit (0);
+}