将列表转换为案例类

时间:2015-11-21 06:47:26

标签: scala shapeless

作为一项练习,我试图看看我是否可以使用List[Any]并使用“无形”将其“投射”到案例类中。

我想要实现的一个非常基本的例子:

case class Foo(i: Int, j: String)
val foo: Option[Foo] = fromListToCaseClass[Foo]( List(1:Any, "hi":Any) ) 

以下是我如何塑造我的解决方案(这可能非常不合适):<​​/ p>

def fromListToCaseClass[CC <: Product](a: List[Any]): Option[CC] = a.toHList[???].map( x => Generic[CC].from(x) )

这是我的推理:

我知道你可以从案例类转到HList [T](CC - &gt; HList [T]);其中T是HList的类型。我也知道你可以从列表中创建一个HList(list - &gt; Option [HList]),只要你知道HList的类型。最后我知道你可以从HList转到案例类(HList - &gt; CC)。

CC -> HList[T]
list -> Option[HList[T]] -> Option[CC]

我想知道这是否有意义,或者我是否离开这里。我们能做到这一点吗?还有其他建议吗?谢谢!

2 个答案:

答案 0 :(得分:6)

使用无形GenericFromTraversable类型类可以非常简单地完成此操作,

import scala.collection.GenTraversable
import shapeless._, ops.traversable.FromTraversable

class FromListToCaseClass[T] {
  def apply[R <: HList](l: GenTraversable[_])
    (implicit gen: Generic.Aux[T, R], tl: FromTraversable[R]): Option[T] =
      tl(l).map(gen.from)
}
def fromListToCaseClass[T] = new FromListToCaseClass[T]

(由于Scala在混合显式和推断类型参数方面的尴尬,这里有一些偶然的复杂性:我们要明确指定T,但为我们推断R

示例REPL会话......

scala> case class Foo(i: Int, j: String)
defined class Foo

scala> fromListToCaseClass[Foo](List(23, "foo"))
res0: Option[Foo] = Some(Foo(23,foo))

scala> fromListToCaseClass[Foo](List(23, false))
res1: Option[Foo] = None

答案 1 :(得分:2)

你可以通过以下方式无形地完成:

import shapeless._

trait Creator[A] { def apply(list:List[Any]): Option[A] }

object Creator {
  def as[A](list: List[Any])(implicit c: Creator[A]): Option[A] = c(list)

  def instance[A](parse: List[Any] => Option[A]): Creator[A] = new Creator[A] {
    def apply(list:List[Any]): Option[A] = parse(list)
  }

  def arbitraryCreate[A] = instance(list => list.headOption.map(_.asInstanceOf[A]))

  implicit val stringCreate = arbitraryCreate[String]
  implicit val intCreate = arbitraryCreate[Int]
  implicit val hnilCreate = instance(s => if (s.isEmpty) Some(HNil) else None)

  implicit def hconsCreate[H: Creator, T <: HList: Creator]: Creator[H :: T] =
instance {
  case Nil => None
  case list => for {
    h <- as[H](list)
    t <- as[T](list.tail)
  } yield h :: t
}

implicit def caseClassCreate[C, R <: HList](
  implicit gen: Generic.Aux[C, R], 
  rc: Creator[R]): Creator[C] = 
    instance(s => rc(s).map(gen.from))
}

val foo:Option[Foo] = Creator.as[Foo](List(1, "hi"))