!7

sclass UniversalSearch extends DynModule {
  S query;
  transient L<SS> result;
  
  transient Q q;
  transient int maxInputLength = 120;
  transient WaitForStableValue<S> waitForStableValue = new(1.0);
  transient volatile bool calculating;
  transient JTable table;
  transient SimpleLiveValue<S> lvQuery = stringLiveValue();
  
  JComponent visualize() {
    ret jLiveValueSection(lvQuery, dataToTable_uneditable(result, table = sexyTable()));
  }
  
  void unvisualize() { table = null; }  
  
  void start {
    lvQuery.set(query);
    q = startQ();
    ownTimer(doEvery(1000, r updateMe));
  }
  
  void update {
    S s = dm_getInterestingString();
    if (nempty(s) && l(s) <= maxInputLength) { // TODO: more quality checks?
      waitForStableValue.set(s);
    }
    
    fS q = waitForStableValue!;
    if (nempty(q) && neq(q, query))
      this.q.add(r { calc(q) });
  }
  
  void calc(S q) {
    if (eq(query, q)) ret;
    result = null;
    lvQuery.set(query = q);
    temp tempSetField(this, calculating := true);
    L<Pair<O, S>> l = dm_universalSearch(q);
    result = map(l, func(Pair<O, S> p) -> SS {
      litorderedmap("Result" := str(first(p)), "From Module" := second(p))
    });
    dataToTable_uneditable_ifHasTable(result, table);
  }
}