summaryrefslogtreecommitdiff
path: root/test/files/run/macro-duplicate/Impls_Macros_1.scala
blob: de81923330bffda0e5f4bec99014a0d6bbca1daf (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
import scala.reflect.macros.Context

object Macros {
  def impl(c: Context) = {
    import c.universe._
    val Expr(Block((cdef: ClassDef) :: Nil, _)) = reify { class C { def x = 2 } }
    val cdef1 =
      new Transformer {
        override def transform(tree: Tree): Tree = tree match {
          case Template(_, _, ctor :: defs) =>
            val defs1 = defs collect {
              case ddef @ DefDef(mods, name, tparams, vparamss, tpt, body) =>
                val future = Select(Select(Select(Ident(newTermName("scala")), newTermName("concurrent")), newTermName("package")), newTermName("future"))
                val Future = Select(Select(Ident(newTermName("scala")), newTermName("concurrent")), newTypeName("Future"))
                val tpt1 = if (tpt.isEmpty) tpt else AppliedTypeTree(Future, List(tpt))
                val body1 = Apply(future, List(body))
                val name1 = newTermName("async" + name.toString.capitalize)
                DefDef(mods, name1, tparams, vparamss, tpt1, body1)
            }
            Template(Nil, emptyValDef, ctor +: defs ::: defs1)
          case _ =>
            super.transform(tree)
        }
      } transform cdef
    c.Expr[Unit](Block(cdef1 :: Nil, Literal(Constant(()))))
  }

  def foo = macro impl
}