!7

sO listBot;
concept Translation { S in, out; }
static JList lCommands;
p-subst {
  tt(); centerHigherConsole(); listBot = run(#1009228); db();
  if (isMainProgram()) { lCommands = jlist(); 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);
      ret p.b ? "OK, saved" : "OK, overwritten";
    }
    if "remove translation: *" { deleteConcepts(Translation, in := $1); 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, (L<S>) callOpt(listBot, 'knownCommands);
}