QuasiquoteでShapelessを使用する方法?


272

withのShapeless内部からマクロを呼び出そうとしていますが、取得したいものが取得できません。quasiquoteScala

私のマクロはエラーを返しませんが、展開Witness(fieldName)しませんWitness.Lt[String]

val implicits = schema.fields.map { field =>
  val fieldName:String = field.name
  val fieldType = TypeName(field.valueType.fullName)
  val in = TermName("implicitField"+fieldName)
  val tn = TermName(fieldName)
  val cc = TermName("cc")
  q"""implicit val $in = Field.apply[$className,$fieldType](Witness($fieldName), ($cc:   $className) => $cc.$tn)"""
}

これが私のField定義です:

sealed abstract class Field[CC, FieldName] {
  val  fieldName: String
  type fieldType

  // How to extract this field
  def  get(cc : CC) : fieldType
}

object Field {
  // fieldType is existencial in Field but parametric in Fied.Aux
  // used to explict constraints on fieldType
  type Aux[CC, FieldName, fieldType_] = Field[CC, FieldName] {
    type fieldType = fieldType_
  }

  def apply[CC, fieldType_](fieldWitness : Witness.Lt[String], ext : CC => fieldType_) : Field.Aux[CC, fieldWitness.T, fieldType_] =
    new Field[CC, fieldWitness.T] {
      val fieldName  : String = fieldWitness.value
      type fieldType = fieldType_
      def get(cc : CC) : fieldType = ext(cc)
    }
}

この場合、生成する暗黙のコードは次のようになります。

implicit val implicitFieldname : Field[MyCaseClass, fieldWitness.`type`#T]{
  override type fieldType = java.lang.String
}

それが外部で定義されていた場合、quasiquote次のようなものが生成されます。

implicit val implicitFieldname : Field.Aux[MyCaseClass, Witness.Lt[String]#T, String] = ...

できることはありますか?


これをマクロ注釈で使用していますか?$in(を使用する必要があると思うConstantType)の型注釈を指定してみましたか?
Travis Brown、

@TravisBrownはい、私はこれをマクロ注釈(Macro Paradise)を使用して構築しています。私はこのようなタイプを提供しようとしました:q"""implicit val $in : Field.Aux[$className, Witness.Lt[String]#T, String] = Field.apply[$className,$fieldType](Witness($fieldName), ($cc: $className) => $cc.$tn)"""
Roch

ただし、型注釈には特定のフィールド名が必要です(たとえば、以前のShapeless 2.0以前のブログ記事、の使用例についてはこちらを参照してくださいConstantType)。あなたは周りに完全な実用例がありますか?
Travis Brown

回答:


1

これは、古いスタイルのマクロアノテーションを使用した私の実用的なソリューションです。

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

class fieldable extends StaticAnnotation {
  def macroTransform(annottees: Any*): Any = macro fieldableMacro.impl
}

object fieldableMacro {
  def impl(c: Context)(annottees: c.Expr[Any]*): c.Tree = {
    import c.universe._
    annottees.map(_.tree) match {
      case (param @ q"case class $className(..$fields)") :: Nil => {
        val implicits = fields.collect {
          case field @ q"$mods val $tname: $tpt" => q"""
            implicit val $tname = Field.apply[$className,$tpt](
              Witness(${tname.decodedName.toString}), _.$tname
            )"""
        }; q"$param; object ${className.toTermName} {..$implicits}"
      }
    }
  }
}

確かに、より良い準クォートを使用することで改善できますが、私の目標は、できるだけきれいなものを示すことでした。

次のように使用できます。

@fieldable
case class MyCaseClass(foo: String, bar: Int)

これにより、MyCaseClass必要なFields暗黙的要素を持つコンパニオンオブジェクトが生成されます。

implicit val foo = Field.apply[MyCaseClass, String](Witness("foo"), ((x$1) => x$1.foo));
implicit val bar = Field.apply[MyCaseClass, Int](Witness("bar"), ((x$2) => x$2.bar));

すでに指摘したように、完全な動作例がないと、完全な回答を書くことは非常に困難です。

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.