blob: feffbba4f7caf20490b02bdc1a1fb50c041f9015 (
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
|
/* ____ ____ ____ ____ ______ *\
** / __// __ \/ __// __ \/ ____/ SOcos COmpiles Scala **
** __\_ \/ /_/ / /__/ /_/ /\_ \ (c) 2002, LAMP/EPFL **
** /_____/\____/\___/\____/____/ **
** **
** $Id$
\* */
package scalac.transformer.matching;
import scalac.ast.*;
import scalac.util.*;
import scalac.symtab.*;
import java.util.*;
public class TestRegTraverser extends Traverser {
boolean result = false;
Set variables = new HashSet();
public void traverse(Tree tree) {
if (!result)
switch (tree) {
case Alternative(Tree[] ts):
result = true;
break;
case Bind(_, Tree pat):
variables.add(tree.symbol());
traverse(pat);
break;
case Ident(_):
if (variables.contains(tree.symbol()))
result = true;
break;
default:
super.traverse( tree );
}
}
public static boolean apply(Tree t) {
TestRegTraverser trt = new TestRegTraverser();
trt.traverse(t);
//System.err.println("TestRegTraverser says "+t+" -> "+trt.result);
return trt.result;
}
}
|