!7

cmodule SystemQueueMonitorSpike > DynPrintLogAndEnabled {
  transient S lastText;
  
  start {
    doEvery(1.0, r update);
  }
  
  void update enter {
    if (!enabled) ret;
    S text = render();
    if (neq(text, lastText))
      printWithNL(lastText = text);
  }
  
  S render() {
    L<Runnable> l = cast get q(dm_getSystemQ());
    ret empty(l) ? "System queue is empty."
      : firstLetterToUpper(nEntries(l)) + " in system queue. First entries:\n"
      + indentx(lines(syncTakeFirst(3, l)))
      + "\nLast entries:"
      + indentx(lines_rtrim(syncTakeLast(3, l)));
  }
}