src/Pure/System/tty_loop.scala
author wenzelm
Wed, 15 Jan 2020 19:54:50 +0100
changeset 71383 8313dca6dee9
parent 70301 9f2a6856b912
child 71713 928fd852f3e2
permissions -rw-r--r--
misc tuning, following hint by IntelliJ;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/System/tty_loop.scala
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     3
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     4
Line-oriented TTY loop.
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     5
*/
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     6
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     7
package isabelle
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     8
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
     9
67836
74958337214d tuned signature -- more generic;
wenzelm
parents: 67833
diff changeset
    10
import java.io.{IOException, Writer, Reader, InputStreamReader, BufferedReader}
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    11
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    12
67839
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    13
class TTY_Loop(writer: Writer, reader: Reader,
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    14
  writer_lock: AnyRef = new Object,
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    15
  interrupt: Option[() => Unit] = None)
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    16
{
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    17
  private val console_output = Future.thread[Unit]("console_output") {
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    18
    try {
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    19
      var result = new StringBuilder(100)
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    20
      var finished = false
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    21
      while (!finished) {
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    22
        var c = -1
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    23
        var done = false
71383
8313dca6dee9 misc tuning, following hint by IntelliJ;
wenzelm
parents: 70301
diff changeset
    24
        while (!done && (result.isEmpty || reader.ready)) {
67833
e135d03f656f tuned signature;
wenzelm
parents: 67808
diff changeset
    25
          c = reader.read
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    26
          if (c >= 0) result.append(c.asInstanceOf[Char])
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    27
          else done = true
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    28
        }
71383
8313dca6dee9 misc tuning, following hint by IntelliJ;
wenzelm
parents: 70301
diff changeset
    29
        if (result.nonEmpty) {
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    30
          System.out.print(result.toString)
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    31
          System.out.flush()
70301
9f2a6856b912 tuned -- accommodate scala-2.13.0-RC3;
wenzelm
parents: 67839
diff changeset
    32
          result.clear
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    33
        }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    34
        else {
67833
e135d03f656f tuned signature;
wenzelm
parents: 67808
diff changeset
    35
          reader.close()
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    36
          finished = true
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    37
        }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    38
      }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    39
    }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    40
    catch { case e: IOException => case Exn.Interrupt() => }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    41
  }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    42
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    43
  private val console_input = Future.thread[Unit]("console_input") {
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    44
    val console_reader = new BufferedReader(new InputStreamReader(System.in))
67808
9cb7f5f0bf41 clarified interrupt handling;
wenzelm
parents: 67802
diff changeset
    45
    def body
9cb7f5f0bf41 clarified interrupt handling;
wenzelm
parents: 67802
diff changeset
    46
    {
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    47
      try {
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    48
        var finished = false
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    49
        while (!finished) {
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    50
          console_reader.readLine() match {
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    51
            case null =>
67833
e135d03f656f tuned signature;
wenzelm
parents: 67808
diff changeset
    52
              writer.close()
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    53
              finished = true
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    54
            case line =>
67839
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    55
              writer_lock.synchronized {
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    56
                writer.write(line)
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    57
                writer.write("\n")
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    58
                writer.flush()
0c2ed45ece20 explicit Server.Context with output channels (concurrent write);
wenzelm
parents: 67836
diff changeset
    59
              }
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    60
          }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    61
        }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    62
      }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    63
      catch { case e: IOException => case Exn.Interrupt() => }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    64
    }
67833
e135d03f656f tuned signature;
wenzelm
parents: 67808
diff changeset
    65
    interrupt match {
67808
9cb7f5f0bf41 clarified interrupt handling;
wenzelm
parents: 67802
diff changeset
    66
      case None => body
67833
e135d03f656f tuned signature;
wenzelm
parents: 67808
diff changeset
    67
      case Some(int) => POSIX_Interrupt.handler { int() } { body }
67808
9cb7f5f0bf41 clarified interrupt handling;
wenzelm
parents: 67802
diff changeset
    68
    }
67802
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    69
  }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    70
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    71
  def join { console_output.join; console_input.join }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    72
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    73
  def cancel { console_input.cancel }
32d76f08023f more general TTY loop;
wenzelm
parents:
diff changeset
    74
}