!7

sO listBot;
concept Translation { S in, out; }
static JList lCommands, lLists;
p {
  graphite(); //magellan();
  tt(); centerConsole(700, 500);
  listBot = run(#1009228); db();
  if (isMainProgram()) {
    swing { addToWindowSplitRight_aggressive(consoleFrame(),
      jvsplit(
        withMargin(withCenteredTitle("Lists", lLists = jlist())),
        withMargin(withCenteredTitle("Commands", lCommands = jlist()))));
    }
    calcOnConceptChangesInOtherModule(listBot, 1000, f updateLists, true);
    updateCommandList(); botSleep();
  }
}

synchronized answer {
  translating: for (int safety = 0; safety < 10; safety++) {
    // TRANSLATIONS MANAGEMENT
    
    if "translations" ret struct(collectOrderedMap(list(Translation), 'in, 'out));
    if "add translation: * *" {
      Pair<Translation, Bool> p = uniq2(Translation, in := $1);
      cset(p.a, out := $2); updateCommandList();
      ret p.b ? "OK, saved" : "OK, overwritten";
    }
    if "remove translation: *" { deleteConcepts(Translation, in := $1); updateCommandList(); ret "OK"; }
    
    // TRY TRANSLATIONS
    
    for (Translation t) if (match(t.in, s, m)) {
      S translated = format(t.out, matchesToFormatArgs(m));
      print("Translated: " + s + " => " + translated);
      s = translated; continue translating;
    }
    break;
  }
  try answer callAnswerMethod(listBot, s); // forward verbatim
}

svoid updateCommandList { fillListWithStrings(lCommands, knownCommands()); }
svoid updateLists { fillListWithStrings(lLists, collectLists()); }

static L<S> knownCommands() {
  ret concatLists((L<S>) callOpt(listBot, 'knownCommands), findSupportedQuestionsInFunctions('answer), collect(list(Translation), 'in));
}

static synchronized L<S> collectLists() {
  ret map((Collection) call(listBot, 'list, 'TheList), func(O x) { _get(x, 'name) + " (" + l(_get(x, 'entries)) + ")" });
}