!752

// set these in client
static S dbName = "Boolean Flag DB.";
static L<S> interpretations = splitAtSpace("ShowWindow HideWindow IsShowing Praise Hello NotForMe Unclear");

static RemoteDB db;
static L<RC> lines;
static JTable table;

p-substance {
  fullRefresh();
  L<Component> interpretButtons = map(func(final S cname) {
    jbutton(cname, r { interpret(cname) })
  }, interpretations);
  interpretButtons.add(0, jbutton("Delete", "delete"));
  tableDependButtons(table, interpretButtons);
  addToWindow(table, jMinHeight(50, new JScrollPane(jCenteredLine(
    concatLists(
      ll((Component)
        jbutton("Refresh", "fullRefresh")),
      interpretButtons)))));
}

svoid fullRefresh {
  if (db != null) db.close();
  db = new RemoteDB(dbName);
  //db.db.loud = true;
  refresh();
}

svoid refresh {
  lines = db.xlist("Line");
  table = showTable(table, sortedByFieldIgnoreCase("Input", map(func(RC line) {
    RC intp = db.xgetref(line, "interpretation");
    RC guess = db.xgetref(line, "guess");
    RC guessedAs = guess == null ? null : db.xgetref(guess, "guessedAs");
    ret litorderedmap("Input", db.xS(line, "text"),
      "Interpretation", intp == null ? "uninterpreted" : db.xclass(intp),
      "Guess", guessedAs == null ? "" : db.xS(guessedAs, "text"));
  }, lines)));
}

static void interpret(S cname) {
  L line = getSelectedLine(table);
  if (line == null) ret;
  S text = (S) line.get(0);
  print("Interpreting " + quote(text) + " as " + cname);
  RC ref = (RC) rpc(db.db, "xfindLine", text);
  RC intp = db.uniq(cname);
  db.xset(ref, "interpretation", intp);
  print("Done!");
  refresh();
}

svoid delete {
  L line = getSelectedLine(table);
  if (line == null) ret;
  S text = (S) line.get(0);
  print("Deleting line " + quote(text));
  RC ref = (RC) rpc(db.db, "xfindLine", text);
  db.xdelete(ref);
  print("Done!");
  refresh();
}

Began life as a copy of #1004922