!7

set flag DynModule.

sclass TestBot extends DynObjectTable<ExecutedRule> {

  InputChooser inputChooser = new(this);

  S source;

  S inputAs = "Input:"; // "Input:" or "Fact:"

  bool unsafeEvals, showFailed;

  int maxEntries = 100;

  start {

    dm_useLocalMechListCopies();

    set transpileRaw_useDiskCache;

    inputChooser.delay = 1000;

    itemToMap = itemToMap_ExecutedRule();

  }

  visualize {

    ret withMargin(northAndCenter(vstackWithSpacing(

      westAndCenter(dm_fieldComboBox('inputAs,

        ll("Input:", "Fact:")),

        wrap(inputChooser)),

      withLabel("Rules mech lists (empty for default rules&facts):",

        onEnter(dm_fieldTextField('source), rThread doIt)),

      jrightalignedline(

        main.onChange(dm_fieldCheckBox("Allow unsafe evals", 'unsafeEvals), rThread doIt),

        main.onChange(dm_fieldCheckBox("Show failed rules", 'showFailed), rThread doIt),

        jlabel("Show"), jminwidth(50, jLiveValueIntTextField(dm_fieldLiveValueWithNotify('maxEntries, r doIt))), jlabel("entries")

      )),

      super.visualize()));

  }

  void doIt { updateMe(); }

  void update {

    if (inputChooser.update())

      update(inputChooser.input());

  }

  void update(S input) enter {

    final bool inputAsFact = cic(inputAs, 'fact);

    print("Processing " + (inputAsFact ? "fact" : "input") + " " + input);

    NLLogicChecker_v2.staticVerbose = true;

    NLLogic_MultiThreadedEngine engine = new(ai_rulesAndFactsFromMechLists(or2(trim(source), "<default>")));

    engine.unsafeEvals = unsafeEvals;

    engine.showFailed = showFailed;

    engine.seedInput(input);

    engine.fullRun();

    L<ExecutedRule> all = engine.executedRules();

    L<ExecutedRule> l = takeFirst(maxEntries, all);

    print("Showing " + l(l) + " out of " + l(all));

    setData(l);

  }

}