<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_c2gijprs4cbag23s65rc3tt5h2, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

concept EvaluationResult {
  S code;
  S safety;
  S comments;
}

cmodule CodeSafetyAnalysis > DynCRUD<EvaluationResult> {
  ReliableSingleThread rstCalc = dm_rst(me(), r calc);
  S code;
  PairS safety; // tested code + safety result
  
  start {
    dm_useLocalMechListCopies();
    dm_watchFieldAndNow code(rstCalc);
  }
  
  visual jvsplit(
    centerAndSouthWithMargins(dm_textAreaAsSection code(),
      centerAndEast(jCenteredSection("Safety", dm_calculatedLabel(() -> pairB(safety)), jbutton("Save", rThreadEnter saveResult))
    ),
    jCenteredSection("Past Results", super));
    
  void calc {
    S code = this.code;
    setField(safety := pair(code, getCodeFragmentSafety(code)));
  }
    
  void saveResult {
    rst.waitUntilDone();
    PairS p = safety;
    if (p != null)
      cnew EvaluationResult(code := p.a, safety := p.b);
  }
}