blob: 40e9d3d60008323920b91ab4c71b74f71bddde66 (
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
57
58
59
60
61
62
63
|
/* NSC -- new Scala compiler
* Copyright 2005-2013 LAMP/EPFL
* @author Paul Phillips
*/
package scala.tools.nsc
package interpreter
import java.lang.reflect
import java.util.concurrent.ConcurrentHashMap
import util.ScalaClassLoader
import ScalaClassLoader.appLoader
import scala.reflect.NameTransformer._
object ByteCode {
/** Until I figure out why I can't get scalap onto the classpath such
* that the compiler will bootstrap, we have to use reflection.
*/
private lazy val DECODER: Option[AnyRef] =
for (clazz <- appLoader.tryToLoadClass[AnyRef]("scala.tools.scalap.Decode$")) yield
clazz.getField(MODULE_INSTANCE_NAME).get(null)
private def decoderMethod(name: String, args: JClass*): Option[reflect.Method] = {
for (decoder <- DECODER ; m <- Option(decoder.getClass.getMethod(name, args: _*))) yield m
}
private lazy val aliasMap = {
for (module <- DECODER ; method <- decoderMethod("typeAliases", classOf[String])) yield
method.invoke(module, _: String).asInstanceOf[Option[Map[String, String]]]
}
/** Scala sig bytes.
*/
def scalaSigBytesForPath(path: String) =
for {
module <- DECODER
method <- decoderMethod("scalaSigAnnotationBytes", classOf[String])
names <- method.invoke(module, path).asInstanceOf[Option[Array[Byte]]]
}
yield names
/** Attempts to retrieve case parameter names for given class name.
*/
def caseParamNamesForPath(path: String) =
for {
module <- DECODER
method <- decoderMethod("caseParamNames", classOf[String])
names <- method.invoke(module, path).asInstanceOf[Option[List[String]]]
}
yield names
def aliasesForPackage(pkg: String) = aliasMap flatMap (_(pkg))
/** Attempts to find type aliases in package objects.
*/
def aliasForType(path: String): Option[String] = {
val (pkg, name) = (path lastIndexOf '.') match {
case -1 => return None
case idx => (path take idx, path drop (idx + 1))
}
aliasesForPackage(pkg) flatMap (_ get name)
}
}
|
