test/files/pos/macro-implicit-invalidate-on-error.scala


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

import scala.language.experimental.macros
import scala.reflect.macros.blackbox.Context

trait LegacyLiftable[T] {
  def apply(universe: scala.reflect.api.Universe, value: T): universe.Tree
}

object LegacyLiftable {
  implicit def liftCaseClass[T <: Product]: LegacyLiftable[T] = macro liftCaseClassImpl[T]

  def liftCaseClassImpl[T: c.WeakTypeTag](c: Context): c.Expr[LegacyLiftable[T]] = {
    import c.universe._
    val tpe = weakTypeOf[T]
    if (!tpe.typeSymbol.asClass.isCaseClass) c.abort(c.enclosingPosition, "denied")
    val p = List(q"Literal(Constant(1))")
    c.Expr[LegacyLiftable[T]] { q"""
      new LegacyLiftable[$tpe] {
        def apply(universe: scala.reflect.api.Universe, value: $tpe): universe.Tree = {
          import universe._
          Apply(Select(Ident(TermName("C")), TermName("apply")), List(..$p))
        }
      }
    """ }
  }
}