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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
package dotty
package tools
import dotc.core._
import dotc.core.Contexts._
import dotc.core.Symbols._
import dotc.core.Flags._
import Types._, Symbols._, Decorators._
import dotc.printing.Texts._
import dotc.reporting.ConsoleReporter
import dotc.core.Decorators._
import dotc.ast.tpd
import dotc.Compiler
import dotc.core.Phases.Phase
trait DottyTest extends ContextEscapeDetection {
dotc.parsing.Scanners // initialize keywords
implicit var ctx: Contexts.Context = {
val base = new ContextBase {}
import base.settings._
val ctx = base.initialCtx.fresh
ctx.setSetting(ctx.settings.encoding, "UTF8")
ctx.setSetting(ctx.settings.classpath, Jars.dottyLib)
// when classpath is changed in ctx, we need to re-initialize to get the
// correct classpath from PathResolver
base.initialize()(ctx)
ctx
}
override def getCtx: Context = ctx
override def clearCtx() = {
ctx = null
}
private def compilerWithChecker(phase: String)(assertion:(tpd.Tree, Context) => Unit) = new Compiler {
override def phases = {
val allPhases = super.phases
val targetPhase = allPhases.flatten.find(p => p.phaseName == phase).get
val groupsBefore = allPhases.takeWhile(x => !x.contains(targetPhase))
val lastGroup = allPhases.find(x => x.contains(targetPhase)).get.takeWhile(x => !(x eq targetPhase))
val checker = new Phase {
def phaseName = "assertionChecker"
override def run(implicit ctx: Context): Unit = assertion(ctx.compilationUnit.tpdTree, ctx)
}
val lastGroupAppended = List(lastGroup ::: targetPhase :: Nil)
groupsBefore ::: lastGroupAppended ::: List(List(checker))
}
}
def checkCompile(checkAfterPhase: String, source: String)(assertion: (tpd.Tree, Context) => Unit): Unit = {
val c = compilerWithChecker(checkAfterPhase)(assertion)
c.rootContext(ctx)
val run = c.newRun
run.compile(source)
}
def checkCompile(checkAfterPhase: String, sources:List[String])(assertion:(tpd.Tree, Context) => Unit): Unit = {
val c = compilerWithChecker(checkAfterPhase)(assertion)
c.rootContext(ctx)
val run = c.newRun
run.compile(sources)
}
def methType(names: String*)(paramTypes: Type*)(resultType: Type = defn.UnitType) =
MethodType(names.toList map (_.toTermName), paramTypes.toList, resultType)
}
|
