!7

!include #1013776 // Slack Bot

sbool doSlack = true;

!include #1008066 // SelectBot with guess_match

static Set<S> botNames = asSet(splitAtSpace("time greet greetbot random thanks thanksbot bye byebot byeall"));

static O extensionModule;
static Throwable extensionModuleError;

extend SelectBot {
  S name;
}

concept ExtensionModule {
  S snippetID;
}

p {
  // DB start & migration
  //bootstrapConceptsFrom(#1007829);
  db();
  if (countConcepts(SelectBot) == 1)
    cset(uniq(SelectBot), name := "greet");
    
  reloadExtensionModule();
    
  slackSpeed = 1000;
  if (doSlack) initSlackBot();
  dediSay("Back online!");
  if (doSlack) slackBotLoop();
}

answer {
  s = trim(s);
  if (startsWith(s, "!data:", m)) ret struct(getBot($1));
  if (startsWith(s, "!plus:", m)) ret struct(keysWithValue(getBot($1).examples, true));
  if (startsWith(s, "!minus:", m)) ret struct(keysWithValue(getBot($1).examples, false));
  
  if (eq(s, "!dedicated")) ret yesno(dedicated());
  if (eq(s, "!channel")) {
    Map map = objectToMap(channel!);
    map.remove("token");
    ret structForUser(map);
  }
  
  // Train bots
  
  for (S bot : botNames) {
    if (startsWithWord(s, "!" + bot, m)) { getBot(bot).put($1, true); ret "ok"; }
    if (startsWithWord(s, "!no" + bot, m)) { getBot(bot).put($1, false); ret "ok"; }
  }
  
  // general
  
  if (eq(s, "!reload")) {
    actionsAfterPost.add(f restart);
    ret "krasser reload";
  }
  
  if (eq(s, "!source")) ret progLink();
  if (eq(s, "!help")) ret botAutoHelp();
  
  // for debugging
  if (eq(s, "!username")) ret slackUserName!;
  
  // extension module
  if (eq(s, "!ext")) ret "Yo: " + joinWithSpace(collect(list(ExtensionModule), "snippetID"));
  if (eq(s, "!ext reload")) {
    reloadExtensionModule();
    ret "OK";
  }
  if (eq(s, "!authed")) ret yn(authed());
  
  if (authed()) {
    if (startsWithWord(s, "!ext", m)) {
      cset(uniq(ExtensionModule), snippetID := fsI($1));
      reloadExtensionModule();
      ret "OK";
    }
  }

  // match on bots
  
  if (isMatch("greet", s))
    ret s + " => hi!";
  if (isMatch("time", s))
    ret s + " => It is " + hmsWithColons();
  if (isMatch("random", s))
    ret s + " => " + aGlobalID();
  if (isMatch("thanks", s))
    ret s + " => " + "You're welcome.";
  if (isMatch("bye", s) || isMatch("byeall", s))
    ret s + " => " + "Bye bye!";
    
  try answer callStaticAnswerMethod(extensionModule, s);
}

static bool isMatch(S bot, S s) {
  ret dedicated() && isMatch2(bot, s) || isMatch2(bot + "bot", s);
}

static bool isMatch2(S bot, S s) {
  ret isTrue(getBot(bot).get(s));
}

static SelectBot getBot(S name) {
  ret uniq(SelectBot, +name);
}

static L<S> botAutoHelp_commands() {
  L<S> cmds = _botAutoHelp_commands();
  for (S bot : botNames)
    addAll(cmds, "!" + bot, "!no" + bot);
  ret cmds;
}

static bool dedicated() {
  Channel c = channel!;
  ret c == null ? false : c.dedicated;
}

sbool authed() { ret eq(slackUserName!, "drjava"); }

svoid reloadExtensionModule {
  cleanUp(extensionModule);
  extensionModule = null;
  extensionModuleError = null;
  for (ExtensionModule m) {
    try {
      extensionModule = run(m.snippetID);
    } catch e {
      extensionModuleError = e;
    }
    break;
  }
}

Began life as a copy of #1008059