src/Pure/Tools/print_operation.scala
author wenzelm
Mon, 05 May 2014 15:17:07 +0200
changeset 56864 0446c7ac2e32
child 59366 e94df7f6b608
permissions -rw-r--r--
support print operations as asynchronous query;

/*  Title:      Pure/System/print_operation.scala
    Author:     Makarius

Print operations as asynchronous query.
*/

package isabelle


object Print_Operation
{
  def print_operations(session: Session): List[(String, String)] =
    session.protocol_handler("isabelle.Print_Operation$Handler") match {
      case Some(handler: Handler) => handler.get
      case _ => Nil
    }


  /* protocol handler */

  class Handler extends Session.Protocol_Handler
  {
    private val print_operations = Synchronized(Nil: List[(String, String)])

    def get: List[(String, String)] = print_operations.value

    private def put(prover: Prover, msg: Prover.Protocol_Output): Boolean =
    {
      val ops =
      {
        import XML.Decode._
        list(pair(string, string))(YXML.parse_body(msg.text))
      }
      print_operations.change(_ => ops)
      true
    }

    override def start(prover: Prover): Unit =
      prover.protocol_command(Markup.PRINT_OPERATIONS)

    val functions = Map(Markup.PRINT_OPERATIONS -> put _)
  }
}