Add Expr.ofMap family methods

Author: anatoliykmetyuk

library/src-bootstrapped/scala/quoted/Expr.scala

@@ -130,6 +130,30 @@ object Expr {
   def  ofList[T](xs: Seq[Expr[T]])(using Type[T], QuoteContext): Expr[List[T]] =
     if (xs.isEmpty) '{ Nil } else '{ List(${Varargs(xs)}: _*) }
 
+  /** Lifts the Map the values of which are expressions into an expression of Map. */
+  def ofMapValues[K: Type, V: Type](m: Map[K, Expr[V]])(
+    using QuoteContext, Liftable[List[K]]): Expr[Map[K, V]] =
+    val keys: Expr[List[K]] = Expr(m.keys.toList)
+    val values: Expr[List[V]] = Expr.ofList(m.values.toList)
+    '{ ${ keys }.zip(${ values }).toMap }
+  end ofMapValues
+
+  /** Lifts the Map the keys of which are expressions into an expression of Map. */
+  def ofMapKeys[K: Type, V: Type](m: Map[Expr[K], V])(
+    using QuoteContext, Liftable[List[V]]): Expr[Map[K, V]] =
+    val keys: Expr[List[K]] = Expr.ofList(m.keys.toList)
+    val values: Expr[List[V]] = Expr(m.values.toList)
+    '{ ${ keys }.zip(${ values }).toMap }
+  end ofMapKeys
+
+  /** Lifts the Map the keys and values of which are expressions into an expression of Map. */
+  def ofMapKeyValues[K: Type, V: Type](m: Map[Expr[K], Expr[V]])(
+    using QuoteContext): Expr[Map[K, V]] =
+    val keys: Expr[List[K]] = Expr.ofList(m.keys.toList)
+    val values: Expr[List[V]] = Expr.ofList(m.values.toList)
+    '{ ${ keys }.zip(${ values }).toMap }
+  end ofMapKeyValues
+
   /** Lifts this sequence of expressions into an expression of a tuple
    *
    *  Transforms a sequence of expression