mirror of https://github.com/sbt/sbt.git
70 lines
2.3 KiB
Scala
70 lines
2.3 KiB
Scala
/* sbt -- Simple Build Tool
|
|
* Copyright 2008, 2009 Mark Harrah
|
|
*/
|
|
package sbt
|
|
|
|
import java.io.File
|
|
|
|
trait Mapper
|
|
{
|
|
type PathMap = File => Option[String]
|
|
type FileMap = File => Option[File]
|
|
|
|
val basic: PathMap = f => Some(f.getPath)
|
|
def relativeTo(base: File): PathMap = IO.relativize(base, _)
|
|
def relativeTo(bases: Iterable[File], zero: PathMap = transparent): PathMap = fold(zero, bases)(relativeTo)
|
|
|
|
def rebase(oldBase: File, newBase0: String): PathMap =
|
|
{
|
|
val newBase = normalizeBase(newBase0)
|
|
(file: File) =>
|
|
if(file == oldBase)
|
|
Some( if(newBase.isEmpty) "." else newBase )
|
|
else
|
|
IO.relativize(oldBase, file).map(newBase + _)
|
|
}
|
|
def fail: Any => Nothing = f => error("No mapping for " + f)
|
|
val flat: PathMap = f => Some(f.getName)
|
|
def flatRebase(newBase0: String): PathMap =
|
|
{
|
|
val newBase = normalizeBase(newBase0)
|
|
f => Some(newBase + f.getName)
|
|
}
|
|
def total[A,B](f: A => B): A => Some[B] = x => Some(f(x))
|
|
def transparent: Any => Option[Nothing] = _ => None
|
|
|
|
def normalizeBase(base: String) = if(!base.isEmpty && !base.endsWith("/")) base + "/" else base
|
|
|
|
def abs: FileMap = f => Some(f.getAbsoluteFile)
|
|
def resolve(newDirectory: File): FileMap = file => Some(new File(newDirectory, file.getPath))
|
|
def rebase(oldBases: Iterable[File], newBase: File, zero: FileMap = transparent): FileMap =
|
|
fold(zero, oldBases)(old => rebase(old, newBase))
|
|
def rebase(oldBase: File, newBase: File): FileMap =
|
|
file =>
|
|
if(file == oldBase)
|
|
Some(newBase)
|
|
else
|
|
IO.relativize(oldBase, file) map { r => new File(newBase, r) }
|
|
|
|
def flat(newDirectory: File): FileMap = file => Some(new File(newDirectory, file.getName))
|
|
|
|
import Alternatives._
|
|
private[this] def fold[A,B,T](zero: A => Option[B], in: Iterable[T])(f: T => A => Option[B]): A => Option[B] =
|
|
(zero /: in)( (mapper, base) => f(base) | mapper )
|
|
}
|
|
|
|
trait Alternative[A,B] { def | (g: A => Option[B]): A => Option[B] }
|
|
trait Alternatives
|
|
{
|
|
implicit def alternative[A,B](f:A => Option[B]): Alternative[A,B] =
|
|
new Alternative[A,B] { def | (g: A => Option[B]) =
|
|
(a: A) => f(a) orElse g(a)
|
|
}
|
|
final def alternatives[A,B](alts: Seq[A => Option[B]]): A => Option[B] =
|
|
alts match
|
|
{
|
|
case Seq(f, fs @ _*) => f | alternatives(fs)
|
|
case Seq() => a => None
|
|
}
|
|
}
|
|
object Alternatives extends Alternatives |