!7

concept Entry {
  S condition, code;
  bool enabled = true;
  transient O runnable;
}

set flag DynModule.

compact module JavaInputConditionToCode > DynCRUD<Entry> {
  *() { super(Entry); }

  start {
    db();
    dm_onTopInput(voidfunc(fS s) {
      thread {
        for (Entry e : conceptsWhere(Entry, enabled := true))
 pcall {
          if (e.runnable == null)
            e.runnable = codeToFunctionOnString(e.condition);
          if (isTrue(callF(e.runnable, s))) {
            print("JCTC running " + e.id);
            S code = trim(e.code);
            bool say = startsWith(code, "=");
            if (say) code = substring(code, 1);
            try {
              temp tempSetTL(evalJava_prep_args, "fS s");
              O result = dm_evalJava_withModule(code, s);
              if (say) dm_say(strOrNull(result));
            } catch print _e {
              if (say) dm_say("Internal error, Sir");
            }
          }
        }
      }
    });
  }
}