!7

cmodule TrainableBot > DynSockPuppetConvo {

  delegate Post to JChatConvo.

  LS suggestions;

  S functions;

  transient SingleComponentPanel scpSuggestions;

  transient FunctionsLoader loader;

  transient Thread playThread;

  start {

    onPostAdded.add(post -> startPlaying());

  }

  visual jvsplit(super,

    withMargin(jhsplit(

      jCenteredSection("Suggestions", scpSuggestions = singleComponentPanel(renderSuggestions())),

      northAndCenterWithMargin(

        jrightaligned(jbutton("Load", rThreadEnter loadFunctions)),

        dm_textAreaAsSection functions()))));

  JComponent renderSuggestions() {

    ret ele_renderSuggestions(null, suggestions,

      sayAction := (IVF1<S>) s -> addPost(s, true),

      submitAction := (IVF1<S>) s -> addPost(s, false));

  }

  void showSuggestions(Cl<S> suggestions) {

    setField(suggestions := asList(suggestions));

    showSuggestions();

  }

  void showSuggestions {

    scpSuggestions?.setComponent(renderSuggestions());

  }

  void loadFunctions {

    dispose loader;

    loader = new FunctionsLoader(filter isStandardFunction(tlftj(functions)));

    loader.loadFunctionsParams = litparams(header := "set flag NoGenericFunctions.");

    loader.onLoaded(r startPlaying);

    loader.loadInBackground();

  }

  void startPlaying enter {

    if (loader == null) loadFunctions();

    cancelThread(playThread);

    playThread = null;

    playThread = startThread(rEnter play);

  }

  void play {

    //showSuggestions(ll("test " + now()));

    new LinkedHashSet<S> l;

    S input = lastInput();

    for ping (S f : loader.functions) {

      addIfInstanceOf(l, S, callBlobFunction(f));

      ping();

      if (nempty(input))

        addIfInstanceOf(l, S, callBlobFunction(f, input));

    }

    showSuggestions(l);

  }

  O callBlobFunction(S fname, O... args) {

    if (canCallWithVarargs(module(), fname, args))

      ret callWithVarargs(module(), fname ,args);

    else

      ret callOpt(loader.blob, fname, args);

  }

  LPairS userBotPairs() { ret chatConvo_userBotPairs(posts); }

}