Add reflect Unapply.apply

Fixes #12850

Author: nicolasstucki

compiler/src/scala/quoted/runtime/impl/QuotesImpl.scala

@@ -1439,6 +1439,8 @@ class QuotesImpl private (using val ctx: Context) extends Quotes, QuoteUnpickler
     end UnapplyTypeTest
 
     object Unapply extends UnapplyModule:
+      def apply(fun: Term, implicits: List[Term], patterns: List[Tree]): Unapply =
+        withDefaultPos(tpd.UnApply(fun, implicits, patterns, dotc.core.Symbols.defn.AnyType))
       def copy(original: Tree)(fun: Term, implicits: List[Term], patterns: List[Tree]): Unapply =
         withDefaultPos(tpd.cpy.UnApply(original)(fun, implicits, patterns))
       def unapply(x: Unapply): (Term, List[Term], List[Tree]) =

library/src/scala/quoted/Quotes.scala

@@ -2087,6 +2087,7 @@ trait Quotes { self: runtime.QuoteUnpickler & runtime.QuoteMatching =>
 
     /** Methods of the module object `val Unapply` */
     trait UnapplyModule { this: Unapply.type =>
+      def apply(fun: Term, implicits: List[Term], patterns: List[Tree]): Unapply
       def copy(original: Tree)(fun: Term, implicits: List[Term], patterns: List[Tree]): Unapply
       def unapply(x: Unapply): (Term, List[Term], List[Tree])
     }

project/MiMaFilters.scala

@@ -4,6 +4,10 @@ import com.typesafe.tools.mima.core.ProblemFilters._
 
 object MiMaFilters {
   val Library: Seq[ProblemFilter] = Seq(
+    // Will be added in 3.1.0
+    exclude[ReversedMissingMethodProblem]("scala.quoted.Quotes#reflectModule#UnapplyModule.apply"),
+    exclude[DirectMissingMethodProblem]("scala.quoted.Quotes#reflectModule#UnapplyModule.apply"),
+
     // Internals added in 3.0.2
     exclude[MissingClassProblem]("scala.annotation.internal.ProvisionalSuperClass"),
 

tests/pos-macros/i12850/Macros_1.scala

@@ -0,0 +1,19 @@
+
+import scala.quoted.*
+
+inline def foo() = ${ expr }
+
+private def expr(using Quotes): Expr[Unit] =
+  import quotes.reflect.*
+
+  // Option(1) match
+  //   case Some(1) => ()
+  //   case None => ()
+  val mtch2 = Match(
+      Apply(TypeApply(Ref(Symbol.requiredMethod("scala.Option.apply")), List(Inferred(TypeRepr.of[Int]))), List(Literal(IntConstant(1)))),
+      List(
+        CaseDef(/** FIXME: needs TypedTree from #12200; remove cast */Typed(Unapply(TypeApply(Ref(Symbol.requiredMethod("scala.Some.unapply")), List(Inferred(TypeRepr.of[Int]))), Nil, List(Literal(IntConstant(1)))).asInstanceOf[Term], Inferred(TypeRepr.of[Some[Int]])), None, Literal(UnitConstant())),
+        CaseDef(Ref(Symbol.requiredModule("scala.None")), None, Literal(UnitConstant())))
+  )
+
+  mtch2.asExprOf[Unit]

tests/pos-macros/i12850/Test_2.scala

@@ -0,0 +1 @@
+def test = foo()