11

次のようなケースクラスがあると仮定します

case class Test1(a:String,b:Int,c:Char)

case class Test2(a:String,b:Int)

そして、次の変数を使用してクラスをインスタンス化します

val test1 = Test1("first",2,'3')

val test2 = Test2("1st",20)

メソッド (またはそれ以外)を使用して、.copyTest2 内の変数を Test1 に適用する方法はありますか?

val test3 = test1.copy(test2) //Note this isn't valid scala code
// Result should be ("1st",20,'3')

これが純粋な scala では不可能な場合、Shapeless 1/2 ではどのように行われますか (現在のコードは Shapeless 1 にありますが、ある時点で Shapeless 2 にアップグレードする予定です)

4

1 に答える 1

15

shapeless 2.0.0 では、これは次のように実行できます。

scala> import shapeless._
import shapeless._

scala> case class Test1(a: String, b: Int, c: Char)
defined class Test1

scala> case class Test2(a: String, b: Int)
defined class Test2

scala> val test1 = Test1("first", 2, '3')
test1: Test1 = Test1(first,2,3)

scala> val test2 = Test2("1st", 20)
test2: Test2 = Test2(1st,20)

scala> val test1Gen = Generic[Test1]
test1Gen: ... = $1$$1@6aac621f

scala> val test2Gen = Generic[Test2]
test2Gen: ... = $1$$1@5aa4954c

scala> val test3 = test1Gen.from(test2Gen.to(test2) :+ test1.c)
test3: Test1 = Test1(1st,20,3)

これは、フィールド ラベル情報を利用するのではなく、各ケース クラスのフィールドの順序を想定していることに注意してください。これは、同じ型の複数のフィールドがある場合にエラーが発生しやすい可能性があります。型は整列する可能性がありますが、潜在的なセマンティクスが変更される可能性があります。

shapeless を使用して修正できますLabelledGeneric。LabelledGenericケースクラス値を形のない拡張可能なレコードにマップし、フィールド値の型をキャプチャするだけでなく、対応する Scala のシングルトン型を介して型のフィールド名をエンコードしますSymbol。インフラストラクチャを少し追加することで (まもなく shapeless 2.1.0 に追加する予定です)、最小限のボイラープレートでケース クラス間を安全にマッピングできます。

import shapeless._, record._, syntax.singleton._, ops.hlist.Remove

/**
 * This will be in shapeless 2.1.0 ...
 *
 * Permute the elements of the supplied `HList` of type `L` into the same order
 * as the elements of the `HList` of type `M`.
 */
trait Align[L <: HList, M <: HList] extends (L => M) {
  def apply(l: L): M
}

object Align {
  def apply[L <: HList, M <: HList]
    (implicit alm: Align[L, M]): Align[L, M] = alm

  implicit val hnilAlign: Align[HNil, HNil] = new Align[HNil, HNil] {
    def apply(l: HNil): HNil = l
  }

  implicit def hlistAlign[L <: HList, MH, MT <: HList, R <: HList]
    (implicit
      select: Remove.Aux[L, MH, (MH, R)],
      alignTail: Align[R, MT]): Align[L, MH :: MT] = new Align[L, MH :: MT] {
    def apply(l: L): MH :: MT = {
      val (h, t) = l.removeElem[MH]
      h :: alignTail(t)
    }
  }
}

/**
 * This, or something like it, will be in shapeless 2.1.0 ...
 *
 * Utility trait intended for inferring a field type from a sample value and
 * unpacking it into its key and value types.
 */
trait Field {
  type K
  type V
  type F = FieldType[K, V]
}

object Field {
  def apply[K0, V0](sample: FieldType[K0, V0]) =
    new Field { type K = K0; type V = V0 }
}

object OldWineNewBottle {
  case class From(s1: String, s2: String)
  case class To(s2: String, i: Int, s1: String)

  val from = From("foo", "bar")

  val fromGen = LabelledGeneric[From]
  val toGen = LabelledGeneric[To]

  // Define the type of the i field by example
  val iField = Field('i ->> 0)

  val align = Align[iField.F :: fromGen.Repr, toGen.Repr]

  // extend the fields of From with a field for 'i', permute into
  // the correct order for To and create a new instance ...
  val to = toGen.from(align('i ->> 23 :: fromGen.to(from)))

  assert(to == To("bar", 23, "foo"))
}
于 2014-04-21T12:20:34.443 に答える