!7

cmodule ChatBotFrontend > DynChatBotFrontend {

  Set<S> scriptRefs = syncSet();

  transient L<virtual CruddieScript> scripts;

  start-thread {

    while (dm_booting()) sleepSeconds(0.1);

    loadScripts();

  }

  void loadScripts {

    new L<virtual CruddieScript> scripts;

    for (S ref : scriptRefs) pcall {

      LS l = splitAtSlash(ref);

      if (l(l) != 3) continue with print("Can't load script: " + ref);

      S mod = dm_require(first(l) + "/" + second(l));

      Class c = dm_getClassInModuleRealm(mod, "main$" + last(l));

      if (c == null) continue with print("Couldn't find class: " + ref);

      O o = nu(c);

      forwardSwappableFunctionsToObject(o, module(), 'setBotName, 'getBotName);

      scripts.add(o);

      print("Got script: " + o);

    }

    this.scripts = scripts;

  }

  @Override

  S answer_other(S s) null {

    fOr (virtual CruddieScript script : scripts) pcall {

      try S a = (S) call(script, 'answer, s);

    }

  }

  // API

  void addScript(S moduleLibID, S shortClassName) {

    if (scriptRefs.add(addPrefix("#", moduleLibID) + "/" + assertIdentifier(shortClassName))) {

      change();

      loadScripts();

    }

  }

}