Allow forcing traces

Author: abgruszecki

compiler/src/dotty/tools/dotc/reporting/trace.scala

@@ -7,34 +7,35 @@ import config.Config
 import config.Printers
 import core.Mode
 
-object trace {
+abstract class TraceSyntax {
+  val isForced: Boolean
 
   @forceInline
   def onDebug[TD](question: => String)(op: => TD)(implicit ctx: Context): TD =
     conditionally(ctx.settings.YdebugTrace.value, question, false)(op)
 
   @forceInline
   def conditionally[TC](cond: Boolean, question: => String, show: Boolean)(op: => TC)(implicit ctx: Context): TC =
-    if (Config.tracingEnabled) {
+    if (isForced || Config.tracingEnabled) {
       def op1 = op
       if (cond) apply[TC](question, Printers.default, show)(op1)
       else op1
     } else op
 
   @forceInline
   def apply[T](question: => String, printer: Printers.Printer, showOp: Any => String)(op: => T)(implicit ctx: Context): T =
-    if (Config.tracingEnabled) {
+    if (isForced || Config.tracingEnabled) {
       def op1 = op
-      if (printer.eq(config.Printers.noPrinter)) op1
+      if (!isForced && printer.eq(config.Printers.noPrinter)) op1
       else doTrace[T](question, printer, showOp)(op1)
     }
     else op
 
   @forceInline
   def apply[T](question: => String, printer: Printers.Printer, show: Boolean)(op: => T)(implicit ctx: Context): T =
-    if (Config.tracingEnabled) {
+    if (isForced || Config.tracingEnabled) {
       def op1 = op
-      if (printer.eq(config.Printers.noPrinter)) op1
+      if (!isForced && printer.eq(config.Printers.noPrinter)) op1
       else doTrace[T](question, printer, if (show) showShowable(_) else alwaysToString)(op1)
     }
     else op
@@ -68,20 +69,27 @@ object trace {
     apply[T](s"==> $q?", (res: Any) => s"<== $q = ${showOp(res)}")(op)
   }
 
-  def apply[T](leading: => String, trailing: Any => String)(op: => T)(implicit ctx: Context): T =
+  def apply[T](leading: => String, trailing: Any => String)(op: => T)(implicit ctx: Context): T = {
+    val log: String => Unit = if (isForced) Console.println else {
+      var logctx = ctx
+      while (logctx.reporter.isInstanceOf[StoreReporter]) logctx = logctx.outer
+      logctx.log(_)
+    }
+    doApply(leading, trailing, log)(op)
+  }
+
+  def doApply[T](leading: => String, trailing: Any => String, log: String => Unit)(op: => T)(implicit ctx: Context): T =
     if (ctx.mode.is(Mode.Printing)) op
     else {
       var finalized = false
-      var logctx = ctx
-      while (logctx.reporter.isInstanceOf[StoreReporter]) logctx = logctx.outer
       def finalize(result: Any, note: String) =
         if (!finalized) {
           ctx.base.indent -= 1
-          logctx.log(s"${ctx.base.indentTab * ctx.base.indent}${trailing(result)}$note")
+          log(s"${ctx.base.indentTab * ctx.base.indent}${trailing(result)}$note")
           finalized = true
         }
     try {
-      logctx.log(s"${ctx.base.indentTab * ctx.base.indent}$leading")
+      log(s"${ctx.base.indentTab * ctx.base.indent}$leading")
       ctx.base.indent += 1
       val res = op
       finalize(res, "")
@@ -92,4 +100,11 @@ object trace {
         throw ex
     }
   }
+}
+
+object trace extends TraceSyntax {
+  final val isForced = false
+  object force extends TraceSyntax {
+    final val isForced = true
+  }
 }