6

我想利用 Scala 的类型系统来限制系统中的操作，其中存在对某些值的版本化引用。这一切都发生在一些附加Ctx了版本类型的事务上下文中。V现在有一个Factory创建参考变量。它们是通过附加的创建V1版本（类型参数）创建的，对应于调用工厂的上下文版本。

现在想象一些代码试图在更高版本中访问该引用，即使用不同的Ctx. 我想要实现的是禁止在与创建版本不匹配的Ref任何版本（Ctx的V类型字段）中调用访问权限，但允许您通过一些返回新的替换机制来解析引用Ref可以在当前版本中访问的视图。（如果substitute使用无效的上下文调用它是可以的，例如，一个比Ref's旧的上下文V1——在这种情况下，可能会引发运行时异常）

这是我的尝试：

trait Version

trait Ctx {
  type V <: Version
}

object Ref {
  implicit def access[C <: Ctx, R, T](r: R)(implicit c: C, view: R => Ref[C#V, T]): T =
    view(r).access(c)

  implicit def substitute[C <: Ctx, T](r: Ref[_ <: Version, T])
                                      (implicit c: C): Ref[C#V, T] = r.substitute(c)
}
trait Ref[V1 <: Version, T] {
  def access(implicit c: { type V = V1 }): T // ???
  def substitute[C <: Ctx](implicit c: C): Ref[C#V, T]
}

trait Factory {
  def makeRef[C <: Ctx, T](init: T)(implicit c: C): Ref[C#V, T]
}

问题是以整个编译的方式定义类方法access，即复合对象access应该编译，但同时我不能access用any Ctx调用这个类方法，只能用一个版本与引用版本匹配的方法。

最好没有结构类型或任何强加性能问题的东西。

4

2 回答 2

0

以下似乎有效：

trait Version

trait Ctx[+V1 <: Version] {
  type V = V1
}

type AnyCtx   = Ctx[_ <: Version]
type AnyRf[T] = Ref[_ <: Version, T]

object Ref {
  implicit def access[C <: AnyCtx, R, T](r: R)(
    implicit c: C, view: R => Ref[C#V, T]): T = view(r).access(c)

  implicit def substitute[C <: AnyCtx, T](r: AnyRf[T])(implicit c: C): Ref[C#V, T] =
    r.substitute( c )
}
trait Ref[V1 <: Version, T] {
  def access(implicit c: Ctx[V1]): T
  def substitute[C <: AnyCtx](implicit c: C): Ref[C#V, T]
}

trait Factory {
  def makeVar[C <: AnyCtx, T](init: T)(implicit c: C): Ref[C#V, T]
}

// def shouldCompile1(r: AnyRf[String])(implicit c: AnyCtx): String = r

def shouldCompile2(r: AnyRf[String])(implicit c: AnyCtx): String = {
  val r1 = Ref.substitute(r)
  r1.access(c)
}

// def shouldFail(r: AnyRf[String])(implicit c: AnyCtx): String = r.access(c)

所以后续的问题是

  1. 为什么我需要类型参数的冗余Ctx来实现这一点。我讨厌这些类型参数在我的代码中像兔子一样累积。
  2. 为什么shouldCompile1不编译 - 我可以让隐式按计划工作吗？

编辑：

这也是错误的。方差注释是错误的。因为现在以下编译虽然它不应该：

def versionStep(c: AnyCtx): AnyCtx = c // no importa

def shouldFail3[C <: AnyCtx](f: Factory, c: C): String = {
  val r    = f.makeVar("Hallo")(c)
  val c2   = versionStep(c)
  r.access(c2)
}
于 2011-04-02T17:39:40.033 回答
0

仅供参考，为了结束这个问题，这是我喜欢的另一个想法，因为客户端代码相当整洁：

trait System[A <: Access[_]] {
  def in[T](v: Version)(fun: A => T): T
}

trait Access[Repr] {
  def version: Version
  def meld[R[_]](v: Version)(fun: Repr => Ref[_, R]): R[this.type]
}

trait Version

trait Ref[A, Repr[_]] {
  def sub[B](b: B): Repr[B]
}

object MyRef {
  def apply[A <: MyAccess](implicit a: A): MyRef[A] = new Impl[A](a)

  private class Impl[A](a: A) extends MyRef[A] {
    def sub[B](b: B) = new Impl[B](b)
    def schnuppi(implicit ev: A <:< MyAccess) = a.gagaism
  }
}
trait MyRef[A] extends Ref[A, MyRef] {
  // this is how we get MyAccess specific functionality
  // in here without getting trapped in more type parameters
  // in all the traits
  def schnuppi(implicit ev: A <:< MyAccess): Int
}

trait MyAccess extends Access[MyAccess] {
  var head: MyRef[this.type]
  var tail: MyRef[this.type]
  def gagaism: Int
}

def test(sys: System[MyAccess], v0: Version, v1: Version): Unit = {
  val v2 = sys.in(v0) { a => a.tail = a.meld(v1)(_.head); a.version }
  val a3 = sys.in(v2) { a => a }
  val (v4, a4) = sys.in(v1) { a =>
    a.head = a.head
    println(a.head.schnuppi) // yes!
    (a.version, a)
  }
  // a3.head = a4.head // forbidden
}
于 2011-04-04T22:37:08.843 回答