!7

sclass Entry {
  S fullLine, time, text, comments;
}
  
sclass FullSpeechLogAsTable extends DynObjectTable<Entry> {
  start {
    dontPersist();
    itemToMap = func(Entry a) -> Map { humanizeKeys(objectToMapExcept(a, 'fullLine)) };
    setData(map(func(S line) -> Entry { makeEntry(line) },
      scanLog(speechRecognitionLog())));
    onSpeechRecognized_raw(voidfunc(S line) { add(makeEntry(line)) });
  }

  Entry makeEntry(S line) {  
    ret nu(Entry,
      fullLine := line,
      text := speechRecognitionLog_extractUtterance(line),
      time := localDateWithMillisecondsIfReasonable(parseLeadingLong(line)));
  }

  L<Entry> getList() { ret syncCloneList(data); }
  
  L<S> getTexts() {
    // Quick extraction
    L<S> data = this.data;
    L<S> l = emptyList(l(data));
    if (data != null) synchronized(data) {
      for (Entry e : data)
        l.add(e.text);
    }
    ret l;
  }
}