Implement getClass method

Author: alexander-myltsev

src/dotty/tools/dotc/Compiler.scala

@@ -62,6 +62,7 @@ class Compiler {
            new AugmentScala2Traits,
            new ResolveSuper),
       List(new Erasure),
+      List(new GetClass), // getClass transformation should be applied to specialized methods
       List(new ElimErasedValueType,
            new VCElideAllocations,
            new Mixin,

src/dotty/tools/dotc/transform/GetClass.scala

@@ -0,0 +1,46 @@
+package dotty.tools.dotc
+package transform
+
+import ast.tpd
+import core.Constants.Constant
+import core.Contexts.Context
+import core.StdNames.nme
+import core.Symbols.TermSymbol
+import core.TypeErasure
+import TreeTransforms.{MiniPhaseTransform, TransformerInfo}
+
+/**
+ * FILL ME
+ */
+class GetClass extends MiniPhaseTransform {
+  import tpd.{Apply, Tree, Literal, ref, TreeOps}
+
+  override def phaseName: String = "getClass"
+
+  override def transformApply(tree: Apply)(implicit ctx: Context, info: TransformerInfo): Tree = {
+    import ast.Trees.{Apply, Select}
+
+    tree match {
+      case Apply(Select(typ, nm), List()) if nm.toString == "getClass" =>
+        val tp = typ.tpe
+        val defn = ctx.definitions
+        val claz = tp.classSymbol
+
+        def TYPE(module: TermSymbol) = ref(module).select(nme.TYPE_).ensureConforms(tree.tpe)
+        claz match {
+          case defn.BooleanClass => TYPE(defn.BoxedBooleanModule)
+          case defn.ByteClass    => TYPE(defn.BoxedByteModule)
+          case defn.ShortClass   => TYPE(defn.BoxedShortModule)
+          case defn.CharClass    => TYPE(defn.BoxedCharModule)
+          case defn.IntClass     => TYPE(defn.BoxedIntModule)
+          case defn.LongClass    => TYPE(defn.BoxedLongModule)
+          case defn.FloatClass   => TYPE(defn.BoxedFloatModule)
+          case defn.DoubleClass  => TYPE(defn.BoxedDoubleModule)
+          case defn.UnitClass    => TYPE(defn.BoxedVoidModule)
+          case _                 =>
+            Literal(Constant(TypeErasure.erasure(tp)))
+        }
+      case _ => tree
+    }
+  }
+}

tests/run/getclass.check

@@ -0,0 +1,25 @@
+Value types:
+void
+boolean
+byte
+short
+char
+int
+long
+float
+double
+
+Class types:
+class SomeClass
+class ValueClass
+class scala.collection.immutable.List
+class scala.Tuple2
+
+Arrays:
+class [Lscala.runtime.BoxedUnit;
+class [I
+class [D
+class [Lscala.collection.immutable.List;
+Functions:
+class Test$$anonfun$1
+class Test$$anonfun$2

tests/run/getclass.scala

@@ -0,0 +1,39 @@
+class ValueClass(val i: Integer) extends AnyVal
+class SomeClass
+
+object Test {
+  def main(args: Array[String]): Unit = {
+    val cls: Predef.Class[_] = new SomeClass().getClass
+    val valCls: Predef.Class[_] = new ValueClass(1).getClass
+    val iCls: Class[Int] = 1.getClass
+    val f1: Function2[Int, Int, Unit] = (a: Int, b: Int) => println(a + b)
+    val f2: Function1[Int, Boolean] = (a: Int) => a % 2 == 0
+
+    println("Value types:")
+    println(().getClass)
+    println(true.getClass)
+    println(1.asInstanceOf[Byte].getClass)
+    println(1.asInstanceOf[Short].getClass)
+    println('a'.getClass)
+    println(1.getClass)
+    println(1L.getClass)
+    println(1f.getClass)
+    println(1d.getClass)
+
+    println("\nClass types:")
+    println(new SomeClass().getClass)
+    println(new ValueClass(1).getClass)
+    println(List(Array(1f)).getClass)
+    println(("a", Map(1 -> "b")).getClass)
+
+    println("\nArrays:")
+    println(Array(()).getClass)
+    println(Array(1).getClass)
+    println(Array(1d).getClass)
+    println(Array(List("1")).getClass)
+
+    println("\nFunctions:")
+    println(f1.getClass)
+    println(f2.getClass)
+  }
+}