!7

concept Entry {
  S keyword, code;
  bool enabled = true;
  
  sS _fieldOrder = "keyword code enabled";
}

set flag DynModule.

cmodule KeywordToCode > DynCRUD<Entry> {
  afterVisualize {
    tablePopupMenuItemThreaded(table(), "Run", r { runEntry(selected(), "") });
  }
  
  start {
    db();
    dm_onTopInput(voidfunc(fS s) {
      thread {
        //print("KtC got: " + s);
        for (Entry e : list(Entry))
          if (e.enabled && matchMethod(e.keyword, s))
            runEntry(e, s);
      }
    });
  }
  
  void runEntry(Entry e, S input) enter {
    if (e == null) ret;
    print("KtC running #" + e.id);
    S code = trim(e.code);
    bool say = startsWith(code, "=");
    if (say) code = substring(code, 1);
    try {
      temp tempSetTL(evalJava_prep_args, "fS s");
      O result = dm_evalJava_withModule(code, input);
      if (say) dm_say(strOrNull(result));
    } catch print _e {
      if (say) dm_say("Internal error, Sir");
    }
  }
  
  // API
  
  bool matchMethod(S pat, S s) {
    ret matchX_vbar(pat, s);
  }
  
  bool isVoiceCommand(S s) {
    for (Entry e : list(Entry))
      if (e.enabled && matchMethod(e.keyword, s))
        true;
    false;
  }
}