!7

// TODO: This is still super easy to crash
// as it tries to record every internal VM bus message
// for things like threads and locks. We need a different
// approach here - just collect in a list!?

cmodule2 VMBusSnooper > DynPrintLog {
  switchable bool enabled;
  switchable bool logToDisk;
  switchable bool showStackTraces;
  switchable S filter = ""; // regular expression
  
  start {
    q(); // make sure to create queue because creating it
         // while handling a VM bus message is really bad
    /*dm_vmBus_onAnyMessage(voidfunc(fS msg, fO _arg) {
      if (!enabled || empty(filter)) ret;
      Throwable stackTrace = showStackTraces ? new Throwable : null;
      switch to q();
      O arg = _arg;
      if (!regexpFindIC(filter, msg)) ret;
      if (arg instanceof O[]) arg = joinWithComma(allToString((O[]) arg));
      S s = msg + (arg == null ? "" : " | " + arg);
      print(localTimeWithSeconds() + " " + shorten(s, 200));
      if (logToDisk)
        programLog(shorten(s, 1024));
      if (stackTrace != null)
        printStackTrace(stackTrace);
    });*/
  }
  
  visual centerAndSouthWithMargins(super,
    centerAndEastWithMargin(dm_fieldWithLabel filter(),
      jline(
        dm_fieldCheckBox logToDisk(),
        dm_fieldCheckBox showStackTraces(),
        dm_fieldCheckBox enabled())))
;
}