!7

// English:
//   x is contained in a mech list whose name contains "noun" => x is a noun

concept Result {
  int count;
  S output;
  MapSO vars;
  S result; // yes or no
}

cmodule FindingNouns > DynCRUD<Result> {
  S freeText;
  
  transient new LPair<S, MapSO> suggestionsAndVars;
  transient JButton btnYes, btnNo;
  transient Pair<S, MapSO> current; // proposal and variables used
  
  start-thread {
    db();
    LS emits = getEmits_tee(r { javaxSimple(); });
    MapSO lastVars = null;
    for (S s : emits) {
      MapSO vars = parseLineFromEmitVariables(s);
      if (vars != null) lastVars = vars;
      else
        suggestionsAndVars.add(pair(s, lastVars));
    }
    
    runByUser();
  }
  
  visual jtabs("Dialog" := centerAndSouthWithMargins(dm_printLogView(),
    westAndCenterWithMargin(
      jline(
        btnYes = jbutton("Yes", rThread yes),
        btnNo = jbutton("No", rThread no),
        jlabel("or free text:")),
      onEnter(dm_textField freeText(), rThread { storeResult(freeText) }))), "Results" := super);

  void runByUser {
    current = random(suggestionsAndVars);
    if (current == null) ret;
    printWithPrecedingNL(current.a);
    print("Correct?");
    enableButtons(btnYes, btnNo);
  }
  
  void yes { storeResult("yes"); }
  void no { storeResult("no"); }
  
  void storeResult(S result) enter {
    if (current == null) ret;
    print("Storing result: " + result);
    Result r = uniq(Result, output := current.a, vars := current.b, +result);
    cset(r, count := r.count+1);
    disableButtons(btnYes, btnNo);
    //sleepSeconds(1);
    runByUser();
  }
  
  void javaxSimple() {
    for (S listName : mechListNames())
      if (cic(listName, "noun"))
        for (S s : mL(listName)) {
          emitVariables(+listName, +s);
          emit(quote(s) + " is a noun");
        }
  }
}