src/Pure/System/progress.scala
author wenzelm
Mon, 03 Sep 2018 20:04:51 +0200
changeset 68899 b15b03c13dbb
parent 68888 4fe165254e20
child 68903 58525b08eed1
permissions -rw-r--r--
more detailed progress;
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
68410
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    13
object Progress
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    14
{
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    15
  def theory_message(session: String, theory: String): String =
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    16
    if (session == "") "theory " + theory else session + ": theory " + theory
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    17
}
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    18
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    19
class Progress
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    20
{
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    21
  def echo(msg: String) {}
64049
ac3ed62c53c3 misc tuning and clarification;
wenzelm
parents: 61276
diff changeset
    22
  def echo_if(cond: Boolean, msg: String) { if (cond) echo(msg) }
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    23
  def theory(session: String, theory: String) {}
68899
b15b03c13dbb more detailed progress;
wenzelm
parents: 68888
diff changeset
    24
  def theory_percentage(session: String, theory: String, percentage: Int) {}
68888
4fe165254e20 clarified signature;
wenzelm
parents: 68770
diff changeset
    25
  def nodes_status(nodes_status: Document_Status.Nodes_Status, names: List[Document.Node.Name]) {}
64909
8007f10195af tuned signature;
wenzelm
parents: 64201
diff changeset
    26
65826
0b8a6a62114f clarified interface;
wenzelm
parents: 64909
diff changeset
    27
  def echo_warning(msg: String) { echo(Output.warning_text(msg)) }
65828
02dd430d80c5 tuned signature;
wenzelm
parents: 65826
diff changeset
    28
  def echo_error_message(msg: String) { echo(Output.error_message_text(msg)) }
65826
0b8a6a62114f clarified interface;
wenzelm
parents: 64909
diff changeset
    29
65921
5b42937d3b2d more operations;
wenzelm
parents: 65910
diff changeset
    30
  def timeit[A](message: String = "", enabled: Boolean = true)(e: => A): A =
5b42937d3b2d more operations;
wenzelm
parents: 65910
diff changeset
    31
    Timing.timeit(message, enabled, echo(_))(e)
5b42937d3b2d more operations;
wenzelm
parents: 65910
diff changeset
    32
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    33
  def stopped: Boolean = false
68305
5321218147d3 clarified signature;
wenzelm
parents: 67880
diff changeset
    34
  def interrupt_handler[A](e: => A): A = e
67880
e59220a075de tuned signature;
wenzelm
parents: 67178
diff changeset
    35
  def expose_interrupt() { if (stopped) throw Exn.Interrupt() }
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    36
  override def toString: String = if (stopped) "Progress(stopped)" else "Progress"
64201
wenzelm
parents: 64117
diff changeset
    37
wenzelm
parents: 64117
diff changeset
    38
  def bash(script: String,
wenzelm
parents: 64117
diff changeset
    39
    cwd: JFile = null,
wenzelm
parents: 64117
diff changeset
    40
    env: Map[String, String] = Isabelle_System.settings(),
wenzelm
parents: 64117
diff changeset
    41
    redirect: Boolean = false,
65930
9a28fc03c3fe tuned signature;
wenzelm
parents: 65921
diff changeset
    42
    echo: Boolean = false,
9a28fc03c3fe tuned signature;
wenzelm
parents: 65921
diff changeset
    43
    strict: Boolean = true): Process_Result =
64201
wenzelm
parents: 64117
diff changeset
    44
  {
wenzelm
parents: 64117
diff changeset
    45
    Isabelle_System.bash(script, cwd = cwd, env = env, redirect = redirect,
wenzelm
parents: 64117
diff changeset
    46
      progress_stdout = echo_if(echo, _),
65930
9a28fc03c3fe tuned signature;
wenzelm
parents: 65921
diff changeset
    47
      progress_stderr = echo_if(echo, _),
9a28fc03c3fe tuned signature;
wenzelm
parents: 65921
diff changeset
    48
      strict = strict)
64201
wenzelm
parents: 64117
diff changeset
    49
  }
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    50
}
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    51
64909
8007f10195af tuned signature;
wenzelm
parents: 64201
diff changeset
    52
object No_Progress extends Progress
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    53
64117
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    54
class Console_Progress(verbose: Boolean = false, stderr: Boolean = false) extends Progress
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    55
{
64117
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    56
  override def echo(msg: String)
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    57
  {
67178
70576478bda9 avoid println with its extra CR on Windows;
wenzelm
parents: 65930
diff changeset
    58
    Output.writeln(msg, stdout = !stderr)
64117
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    59
  }
c2b41b073d8a build_history log files with formal meta info;
wenzelm
parents: 64049
diff changeset
    60
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    61
  override def theory(session: String, theory: String): Unit =
68410
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    62
    if (verbose) echo(Progress.theory_message(session, theory))
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    63
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    64
  @volatile private var is_stopped = false
68305
5321218147d3 clarified signature;
wenzelm
parents: 67880
diff changeset
    65
  override def interrupt_handler[A](e: => A): A =
5321218147d3 clarified signature;
wenzelm
parents: 67880
diff changeset
    66
    POSIX_Interrupt.handler { is_stopped = true } { e }
61276
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    67
  override def stopped: Boolean =
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    68
  {
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    69
    if (Thread.interrupted) is_stopped = true
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    70
    is_stopped
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    71
  }
8a4bd05c1735 clarified modules;
wenzelm
parents:
diff changeset
    72
}
65888
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    73
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    74
class File_Progress(path: Path, verbose: Boolean = false) extends Progress
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    75
{
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    76
  override def echo(msg: String): Unit =
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    77
    File.append(path, msg + "\n")
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    78
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    79
  override def theory(session: String, theory: String): Unit =
68410
4e27f5c361d2 clarified signature: more uniform theory_message (see also d7920eb7de54);
wenzelm
parents: 68330
diff changeset
    80
    if (verbose) echo(Progress.theory_message(session, theory))
65888
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    81
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    82
  override def toString: String = path.toString
29a31cf0b4bc more Progress variations;
wenzelm
parents: 65828
diff changeset
    83
}