!7

!include #1001372 // direct nohupJavax for fast program starting

// useful stuff to avoid transpilation
please include function rpcNoArgs.

concept Suggestion {
  long date;
  S text;
  S author;
  S actionCode;
}

static Suggestion showing;
static ReliableSingleThread rstUpdate = new(f updateImpl);

p-subst {
  defaultFrameTitle("Suggestion");
  autoRestart();
  db();
  botWithInput("Suggestion Master.",
    [=[ me suggests hello with action [[infoBox("hello")]] ]=]);
}

answer {
  if "* suggests * with action *" {
    cnew(Suggestion, date := now(), text := $2, author := $1, actionCode := $3);
    rstUpdate!;
    ret "OK";
  }
}

svoid updateImpl {
  Suggestion latest = highestByField(list(Suggestion), 'date);
  if (latest != showing) {
    showing = latest;
    showSuggestion_master(showing.text, r {
      printIndent(showing.actionCode);
      optimizedJavaEval(showing.actionCode);
    });
  }
}