add lua-ext-console.c

1 files changed, 128 insertions, 0 deletions

diff --git a/lua/lua-ext-console.c b/lua/lua-ext-console.c
new file mode 100644
index 0000000..6f61f25
--- /dev/null
+++ b/lua/lua-ext-console.c
@@ -0,0 +1,128 @@
+#define _GNU_SOURCE
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <lua.h>
+#include <lualib.h>
+#include <lauxlib.h>
+#include "lua-plugin.h"
+
+void print_help(){
+  printf("Usage: lua_ext_console [SCRIPT_FILE] ...\n");
+  printf("Loads one or more script files then evaluates lua extension modes in an interactive shell.\n");
+}
+
+void print_interactive_help(){
+  printf("i \t\t\t - lists all commands.\n");
+  printf("i [COMMAND] \t\t - evaluates command without argument. \n");
+  printf("i [COMMAND] [ARGUMENT] \t evaluates command with argument. \n");
+  /* printf("g [TRIGGER_STRING] \t\t - tests a trigger string, fire trigger if hit.\n"); */
+  printf("quit \t\t\t - quit the shell.\n");
+  printf("help \t\t\t - show this message.\n");
+}
+
+void list_all_commands(IBusEnginePlugin * plugin){
+  const GArray * commands = ibus_engine_plugin_get_available_commands(plugin);
+  size_t i;
+  for ( i = 0; i < commands->len; ++i ){
+    lua_command_t * command = &g_array_index(commands, lua_command_t, i);
+    printf("%s.%s >\t", command->command_name,
+           command->description);
+  }
+  printf("\n");
+}
+
+int print_lua_call_result(IBusEnginePlugin * plugin, size_t num){
+  if ( 1 == num ) {
+    const char * result = ibus_engine_plugin_get_retval(plugin);
+    printf("result: %s.\n", result);
+  }
+  if ( num > 1) {
+    GArray * results = ibus_engine_plugin_get_retvals(plugin);
+    size_t i;
+    for ( i = 0; i < results->len; ++i) {
+      const char * result = g_array_index(results, const char *, i);
+      printf("%d.%s >\t", i, result);
+    }
+    printf("\n");
+  }
+}
+
+int do_lua_call(IBusEnginePlugin * plugin, const char * command_name, const char * argument){
+  lua_command_t * command;
+  size_t num;
+
+  g_return_if_fail(2 == strlen(command_name));
+  command = ibus_engine_plugin_lookup_command(plugin, command_name);
+  if ( NULL == command) {
+    fprintf(stderr, "command %s doesn't exist.\n", command);
+    return 1;
+  }
+
+  num = ibus_engine_plugin_call(plugin, command->lua_function_name, argument);
+  print_lua_call_result(plugin, num);
+  return 0;
+}
+
+int main(int argc, char * argv[]){
+  char * line = NULL;
+  size_t len = 0;
+  ssize_t read;
+  int i;
+
+  if ( 1 == argc ){
+    print_help();
+    exit(1);
+  }
+
+  g_type_init();
+
+  IBusEnginePlugin * plugin = ibus_engine_plugin_new();
+
+  for ( i = 1; i < argc; ++i){
+    ibus_engine_plugin_load_lua_script(plugin, argv[i]);
+  }
+
+  printf("Lua Plugin Console for ibus-pinyin.\n");
+  printf("Type ? for more information.\n");
+  printf("> ");
+
+  while ((read = getline(&line, &len, stdin)) != -1) {
+    line[read - 1] = '\0';
+    gchar ** strs = g_strsplit_set(line, " \t", 0);
+    size_t len = g_strv_length(strs);
+    switch (len){
+    case 0:
+      print_interactive_help();
+      break;
+    case 1:
+      if ( 0 == strcmp("quit", strs[0]) )
+        exit(EXIT_SUCCESS);
+      if ( 0 == strcmp("help", strs[0]) || 0 == strcmp("?", strs[0]) )
+        print_interactive_help();
+      if ( 0 == strcmp("i", strs[0]) )
+        list_all_commands(plugin);
+        break;
+    case 2:
+      if ( 0 == strcmp("i", strs[0]))
+        do_lua_call(plugin, strs[1], NULL);
+      if ( 0 == strcmp("g", strs[0]))
+        fprintf(stderr, "ime trigger unimplemented.");
+      break;
+    case 3:
+      if ( 0 == strcmp("i", strs[0]))
+        do_lua_call(plugin, strs[1], strs[2]);
+      break;
+    default:
+      fprintf(stderr, "wrong arguments.");
+      break;
+    }
+    g_strfreev(strs);
+    printf("> ");
+  }
+
+  if (line)
+    free(line);
+
+  return EXIT_SUCCESS;
+}