sbt.internal.util.Param.scala Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of util-collection_2.11 Show documentation

Util module for sbt

The newest version!

/* sbt -- Simple Build Tool
 * Copyright 2010 Mark Harrah
 */
package sbt.internal.util

// Used to emulate ~> literals
trait Param[A[_], B[_]] {
  type T
  def in: A[T]
  def ret(out: B[T]): Unit
  def ret: B[T]
}

object Param {
  implicit def pToT[A[_], B[_]](p: Param[A, B] => Unit): A ~> B = new (A ~> B) {
    def apply[s](a: A[s]): B[s] = {
      val v: Param[A, B] { type T = s } = new Param[A, B] {
        type T = s
        def in = a
        private var r: B[T] = _
        def ret(b: B[T]): Unit = { r = b }
        def ret: B[T] = r
      }
      p(v)
      v.ret
    }
  }
}