<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_lqenp19hv2io9bb7uv4h4hjqud, 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

sclass TestBot extends DynObjectTable<ExecutedRule> {
  InputChooser inputChooser = new(this);
  S source;
  S inputAs = "Input:"; // "Input:" or "Fact:"
  
  start {
    inputChooser.delay = 1000;
    itemToMap = func(ExecutedRule r) -> Map {
      litorderedmap(
        Output := nullIfEmpty(join("|", r.output)),
        Facts := nullIfEmpty(join("|", r.facts)),
        "New Input" := nullIfEmpty(join("|", r.newInput)),
        Rule := r.rule)
    };
  }
  
  visualize {
    ret withMargin(northAndCenter(vstackWithSpacing(
      westAndCenter(dm_fieldComboBox('inputAs,
        ll("Input:", "Fact:")),
        wrap(inputChooser)),
      withLabel("Rules mech list (empty for default rules&facts):",
        onEnter(dm_fieldTextField('source), rThread { update(inputChooser.input()) }))),
      super.visualize()));
  }
  
  void update { if (inputChooser.update()) update(inputChooser.input()); }
  
  void update(S input) {
    temp enter();
    new NLLogicChecker_v3 c;
    bool inputAsFact = cic(inputAs, 'fact);
    if (!inputAsFact) c.input = input;
    Pair<L<IfThen>, LS> rulesAndFacts;
    if (empty(trim(source)))
      rulesAndFacts = ai_activeRulesAndFacts();
    else
      rulesAndFacts = pair(ai_parseRulesWithMacros(mL_raw(trim(source))), emptyList(S));
    c.facts = reversed(rulesAndFacts.b);
    if (inputAsFact) c.facts = concatLists(ll(input), c.facts);
    c.rules = reversed(rulesAndFacts.a); // latest rules first!
    if (!inputAsFact)
      c.rules = [IfThen r : c.rules | ai_ruleAccessesInput(r)];
    c.rules = nlLogic_safeLHSEvalsOnly_verbose(c.rules);
    print("Have " + n2(rulesAndFacts.a, "rule"));
    c.useIterate = true;
    c.staticVerbose = true;
    new L<RuleWithParams> battleSpace;
    nlLogic_fillBattleSpace(c, battleSpace, false);
    //print("l=" + l(battleSpace));
    setData(map(battleSpace, func(RuleWithParams r) -> ExecutedRule {
      L<Exp> l = nlLogic_unrollAndApplyRuleWithParams(r);
      ret ExecutedRule(r,
        nlLogic_certainOperatorArgs(l, 'output, 'say),
        nlLogic_certainOperatorArgs(l, 'fact),
        nlLogic_certainOperatorArgs(l, 'input));
    }));
  }
}