blob: ca6bf357fb1c497bdc44448ecf9d5957838d8739 (
plain) (
blame)
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
|
import scala.tools.nsc._
object Test {
/**
* ...
*/
val testCode = """
class xyz[A] extends annotation.TypeConstraint
def loopWhile[T](cond: =>Boolean)(body: =>(Unit @xyz[T])): Unit @ xyz[T] = {{
if (cond) {{
body
loopWhile[T](cond)(body)
}}
}}
def test() = {{
var x = 7
loopWhile(x != 0) {{
x = x - 1
(): @xyz[Int]
}}
}}
"""
def main(args: Array[String]) {
val settings = new Settings()
settings.classpath.value = System.getProperty("java.class.path")
val tool = new interpreter.IMain(settings)
val global = tool.global
import global._
import definitions._
object checker extends AnnotationChecker {
/** Check annotations to decide whether tpe1 <:< tpe2 */
def annotationsConform(tpe1: Type, tpe2: Type): Boolean = {
tpe1.annotations.forall(a1 => tpe2.annotations.forall(a2 => a1.atp <:< a2.atp))
}
}
global.addAnnotationChecker(checker)
tool.interpret(testCode)
}
}
|
