!7

abstract sclass DynListBot extends DynTalkBot2<.ByServer> {

  /* example program:

      The AI should ... = +

      The AI doesn't have to ... = -

      What should the AI do = listWithPattern("The AI should ...")

      The AI shouldn't do anything = clear after confirm

  */

  S program;

  S nothingText = "nothing"; // for listing an empty database

  void init {

    super.init();

    makeByServer = () -> new ByServer;

    useAGIBlueForDropPunctuation = false;

    preprocessAtSelfToMyName = false;

  }

  static noeq record Entry(S text) extends HasGlobalID {}

  transient IF0<Entry> makeEntry = () -> new Entry();

  class ByServer extends DynTalkBot2.ByServer {

    Map<S, Entry> db = ciMap();

    S add(S s) {

      if (!db.containsKey(s)) { db.put(s, setAll(makeEntry!, text := s)); change(); ret "OK, stored"; }

      ret "I know";

    }

    S remove(S s) { ret db.remove(s) != null ? with(r change, "OK, then not") : "I know"; }

    S listWithPattern(S pat) { ret or2(lines(mapValuesToList(db, x -> discord_prependGlobalID(x) + format_ellipsis(pat, x.text))), nothingText); }

    S clearAfterConfirm() { ret "Function not implemented yet :)"; } // TODO

    sync S processSimplifiedLine(S s, O... _) {

      try answer super.processSimplifiedLine(s, _);

      new Matches m;

      for (S lhs, rhs : unpair extractLineEquations(program)) {

        if (matchX2(lhs, s, m)) {

          if (eq(rhs, "+")) ret add($1);

          if (eq(rhs, "-")) ret remove($1);

          if (eq(rhs, "clear after confirm")) ret clearAfterConfirm();

          Pair<S, LS> call = parseFunctionCall(rhs);

          if (call != null && eq(call.a, "listWithPattern"))

            ret listWithPattern(unquote(first(call.b)));

        }

      }

      s = dropMyPrefixOrNull(s);

      if "download" {

        optPar Guild guild;

        optPar MessageChannel channel;

        ret serveGuildBackup(channel, guild,

          structure_nullingInstancesOfClass(_getClass(module()), ByServer.this));

      }

      null;

    }

  }

}