1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
/* NSC -- new Scala compiler
* Copyright 2005-2011 LAMP/EPFL
* @author Paul Phillips
*/
package scala.tools.nsc
package interpreter
import util.Exceptional.unwrap
import util.stackTraceString
trait ReplConfig {
lazy val replProps = new ReplProps
class TapMaker[T](x: T) {
def tapInfo(msg: => String): T = tap(x => replinfo(parens(x)))
def tapDebug(msg: => String): T = tap(x => repldbg(parens(x)))
def tapTrace(msg: => String): T = tap(x => repltrace(parens(x)))
def tap[U](f: T => U): T = {
f(x)
x
}
}
private def parens(x: Any) = "(" + x + ")"
private def echo(msg: => String) =
try Console println msg
catch { case x: AssertionError => Console.println("Assertion error printing debugging output: " + x) }
private[nsc] def repldbg(msg: => String) = if (isReplDebug) echo(msg)
private[nsc] def repltrace(msg: => String) = if (isReplTrace) echo(msg)
private[nsc] def replinfo(msg: => String) = if (isReplInfo) echo(msg)
private[nsc] def logAndDiscard[T](label: String, alt: => T): PartialFunction[Throwable, T] = {
case t =>
repldbg(label + ": " + unwrap(t))
repltrace(stackTraceString(unwrap(t)))
alt
}
private[nsc] def substituteAndLog[T](alt: => T)(body: => T): T =
substituteAndLog("" + alt, alt)(body)
private[nsc] def substituteAndLog[T](label: String, alt: => T)(body: => T): T = {
try body
catch logAndDiscard(label, alt)
}
private[nsc] def squashAndLog(label: String)(body: => Unit): Unit =
substituteAndLog(label, ())(body)
def isReplTrace: Boolean = replProps.trace
def isReplDebug: Boolean = replProps.debug || isReplTrace
def isReplInfo: Boolean = replProps.info || isReplDebug
def isReplPower: Boolean = replProps.power
}
|
