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
|
/* NSC -- new Scala compiler
* Copyright 2005-2006 LAMP/EPFL
* @author Martin Odersky
*/
// $Id$
package scala.tools.nsc.models
import scala.collection.mutable.{HashMap,HashSet}
import scala.tools.nsc.{Global => Compiler}
import scala.tools.nsc.symtab.{Flags,Names}
import scala.tools.nsc.util.{NameTransformer,Position,SourceFile}
class Signatures(val compiler: Compiler) {
import compiler._;
class Signature(val name : String, val children : List[Signature]) {
def asString : String = name + "[" + asString0(children) + "]";
}
def sort(sigs : List[Signature]) =
sigs.sort((l0,l1) => l0.name.compareTo(l1.name) > 0);
def asString0(sigs : List[Signature]) : String = {
var ret = "";
for (val sig <- sort(sigs))
ret = ret + sig.asString;
ret;
}
def signature(unit: CompilationUnit): String =
asString0(signature(unit.body, Nil))
def signature(trees : List[Tree]) : List[Signature] = {
var ret : List[Signature] = Nil;
for (val tree <- trees) ret = signature(tree, ret);
ret;
}
def signature(tree0 : Tree, rest : List[Signature]) : List[Signature] = tree0 match {
case tree : MemberDef => if (!tree.mods.isPrivate) {
val name = "" + tree.name + "::" + tree.mods;
val children : List[Signature] = (tree match {
case impl : ImplDef =>
val supers = new Signature("$$supers", signature(impl.impl.parents));
val body = new Signature("$$body", signature(impl.impl.body));
val ret = supers :: body :: Nil;
(impl match {
case cdef : ClassDef => new Signature("$$tparams", signature(cdef.tparams)) :: ret;
case _ => ret;
});
case vdef : ValOrDefDef =>
val ret = signature(vdef.tpt, Nil);
(vdef match {
case ddef : DefDef =>
val tparams = new Signature("$$tparams", signature(ddef.tparams));
var vparamss : List[Signature] = Nil;
for (val list <- ddef.vparamss) vparamss = signature(list) ::: vparamss;
new Signature("$$ret", ret) :: tparams :: vparamss;
case _ => ret;
});
case pdef : PackageDef => signature(pdef.stats);
case _ => Nil;
});
new Signature(name, children) :: rest;
} else rest;
case tree : TypeTree => new Signature("" + tree.tpe, Nil) :: rest;
case _ => rest;
}
}
|