src/Pure/System/progress.scala
author wenzelm
Sun, 14 May 2017 17:00:57 +0200
changeset 65826 0b8a6a62114f
parent 64909 8007f10195af
child 65828 02dd430d80c5
permissions -rw-r--r--
clarified interface;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/System/progress.scala
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     3
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     4
Progress context for system processes.
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     5
*/
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     6
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     7
package isabelle
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     8
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
     9
64201
wenzelm
parents: 64117
diff changeset
    10
import java.io.{File => JFile}
wenzelm
parents: 64117
diff changeset
    11
wenzelm
parents: 64117
diff changeset
    12
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    13
class Progress
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    14
{
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    15
  def echo(msg: String) {}
64049
ac3ed62c53c3 misc tuning and clarification;
wenzelm
parents: 61276
diff changeset
    16
  def echo_if(cond: Boolean, msg: String) { if (cond) echo(msg) }
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    17
  def theory(session: String, theory: String) {}
64909
8007f10195af tuned signature;
wenzelm
parents: 64201
diff changeset
    18
65826
0b8a6a62114f clarified interface;
wenzelm
parents: 64909
diff changeset
    19
  def echo_warning(msg: String) { echo(Output.warning_text(msg)) }
0b8a6a62114f clarified interface;
wenzelm
parents: 64909
diff changeset
    20
  def echo_error(msg: String) { echo(Output.error_text(msg)) }
0b8a6a62114f clarified interface;
wenzelm
parents: 64909
diff changeset
    21
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    22
  def stopped: Boolean = false
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    23
  override def toString: String = if (stopped) "Progress(stopped)" else "Progress"
64201
wenzelm
parents: 64117
diff changeset
    24
wenzelm
parents: 64117
diff changeset
    25
  def bash(script: String,
wenzelm
parents: 64117
diff changeset
    26
    cwd: JFile = null,
wenzelm
parents: 64117
diff changeset
    27
    env: Map[String, String] = Isabelle_System.settings(),
wenzelm
parents: 64117
diff changeset
    28
    redirect: Boolean = false,
wenzelm
parents: 64117
diff changeset
    29
    echo: Boolean = false): Process_Result =
wenzelm
parents: 64117
diff changeset
    30
  {
wenzelm
parents: 64117
diff changeset
    31
    Isabelle_System.bash(script, cwd = cwd, env = env, redirect = redirect,
wenzelm
parents: 64117
diff changeset
    32
      progress_stdout = echo_if(echo, _),
wenzelm
parents: 64117
diff changeset
    33
      progress_stderr = echo_if(echo, _))
wenzelm
parents: 64117
diff changeset
    34
  }
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    35
}
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    36
64909
8007f10195af tuned signature;
wenzelm
parents: 64201
diff changeset
    37
object No_Progress extends Progress
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    38
64117
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    39
class Console_Progress(verbose: Boolean = false, stderr: Boolean = false) extends Progress
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    40
{
64117
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    41
  override def echo(msg: String)
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    42
  {
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    43
    if (stderr) Console.err.println(msg) else Console.println(msg)
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    44
  }
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    45
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    46
  override def theory(session: String, theory: String): Unit =
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    47
    if (verbose) echo(session + ": theory " + theory)
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    48
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    49
  @volatile private var is_stopped = false
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    50
  def interrupt_handler[A](e: => A): A = POSIX_Interrupt.handler { is_stopped = true } { e }
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    51
  override def stopped: Boolean =
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    52
  {
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    53
    if (Thread.interrupted) is_stopped = true
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    54
    is_stopped
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    55
  }
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    56
}