!7

concept EvaluationResult {
  S code;
  S safety;
  S comments;
  S date;
}

concept CAction {
  S action, date;
}

cmodule CodeSafetyAnalysis > DynCRUD<EvaluationResult> {
  transient ReliableSingleThread rstCalc = dm_rst(me(), r calc);
  transient SingleComponentPanel scpSuggestions;
  transient CRUD<CAction> crudActions;
  
  S code;
  PairS safety; // tested code + safety result
  Set<S> unknownIdentifiers;
  
  void start {
    addCountToName = false;
    super.start();
    crudActions = new CRUD(CAction);
    dm_useLocalMechListCopies();
    dm_watchFieldAndNow code(rstCalc);
  }
  
  visual withComputing(rstCalc, jvsplit(
    centerAndSouthWithMargins(
      jhsplit(
        dm_textAreaAsSection code(),
        jCenteredSection("Suggestions", scpSuggestions = singleComponentPanel())),
        centerAndEast(jCenteredSection("Safety", dm_calculatedLabel(() -> pairB(safety))), jbutton("Save result", rThreadEnter saveResult))
      ),

    jhsplit(
      jCenteredSection("Past Results", super),
      jCenteredSection("Last Actions", crudActions.visualize())));
    
  void calc {
    S code = this.code;
    setField(safety := pair(code, codeSafetyCheckResult(code)));
    setField(unknownIdentifiers := codeAnalysis_getUnknownIdentifiers(code));
    setComponent(scpSuggestions, () -> scrollableStackWithSpacing(
      map(unknownIdentifiers, id ->
        jLabelWithButtonsAndSideMargin(id,
          "Mark safe", rThreadEnter { recordAction(quote(id) + " marked safe"); markSafe(id); rstCalc.trigger(); },
          "Mark UNsafe", rThreadEnter { recordAction(quote(id) + " marked unsafe"); markUnsafe(id); rstCalc.trigger(); },
          "Mark...", rThreadEnter { inputText("Mark identifier " + quote(id), "unsafe", safety -> enter { assertIdentifier(safety = trim(safety)); recordAction(quote(id) + " marked " + safety); setIdentifierSafetyLevel(id, safety); rstCalc.trigger(); }) },
          ))));
  }
    
  void saveResult {
    rstCalc.waitUntilDone();
    PairS p = safety;
    if (p != null)
      cnew EvaluationResult(code := p.a, safety := p.b, date := formatLocalDateWithSeconds());
  }
  
  void recordAction(S action) {
    cnew(CAction, date := formatLocalDateWithSeconds(), +action);
  }
}