こんな構文で階層型のログ出力をしたい

gistfile1.scala

def connect = {
  import LogOps._

  log("connect") { implicit ctx => // connect start
    // ... 何かの処理 ...
    println("in connect")

    log("login") { implicit ctx => // connect : login start
      // ... 何かの処理 ...
      println("in login")
    } // connect : login end
    // ... 何かの処理 ...
    println("out login")
  } // connect end
}

// implicit parameterで実現しればいいのかな... でも、名前が２種類になるのはダサいなー、、、logという名前で統一的に実現できればいいけど無理かなー


object LogOps {

  sealed trait LogContext {
    val ctxs:Seq[String]

    def child(childCtx:String) = ActualLogContext(ctxs :+ childCtx)

    override def toString = ctxs.mkString(":")
    def debug(msg:String) = println("%s :%s" format(toString, msg))
  }
  case class ActualLogContext(ctxs:Seq[String]) extends LogContext
  case object EmptyLogContext extends LogContext { val ctxs = Seq.empty[String] }

  implicit val defaultLogContext:LogContext = EmptyLogContext

  def log[T](msg:String)(f: LogContext => T)(implicit ctx:LogContext) = {
    val currentContext = ctx.child(msg)

    currentContext.debug("start")
    val r = f(currentContext)
    currentContext.debug("end")
    r
  }
}

connect