author | wenzelm |
Fri, 22 May 2020 13:53:19 +0200 | |
changeset 71863 | e95ea6956df3 |
parent 71861 | 1330fa4a2b85 |
child 71864 | bfc120aa737a |
permissions | -rw-r--r-- |
43282
5d294220ca43
moved sources -- eliminated Netbeans artifact of jedit package directory;
wenzelm
parents:
37175
diff
changeset
|
1 |
/* Title: Tools/jEdit/src/scala_console.scala |
36760 | 2 |
Author: Makarius |
3 |
||
4 |
Scala instance of Console plugin. |
|
5 |
*/ |
|
34841 | 6 |
|
7 |
package isabelle.jedit |
|
8 |
||
9 |
||
36015 | 10 |
import isabelle._ |
11 |
||
34844 | 12 |
import console.{Console, ConsolePane, Shell, Output} |
71863 | 13 |
import org.gjt.sp.jedit.JARClassLoader |
14 |
import java.io.{OutputStream, Writer, PrintWriter} |
|
47992
7700f0e9618c
avoid scala.tools.nsc.Interpreter -- deprecated in scala-2.9.0;
wenzelm
parents:
45580
diff
changeset
|
15 |
import scala.tools.nsc.interpreter.IMain |
34841 | 16 |
|
17 |
||
18 |
class Scala_Console extends Shell("Scala") |
|
19 |
{ |
|
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57609
diff
changeset
|
20 |
/* global state -- owned by GUI thread */ |
34849 | 21 |
|
57609 | 22 |
@volatile private var interpreters = Map.empty[Console, Interpreter] |
34841 | 23 |
|
57609 | 24 |
@volatile private var global_console: Console = null |
25 |
@volatile private var global_out: Output = null |
|
26 |
@volatile private var global_err: Output = null |
|
34841 | 27 |
|
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
28 |
private val console_stream = new OutputStream |
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
29 |
{ |
65876 | 30 |
val buf = new StringBuilder(100) |
31 |
||
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
32 |
override def flush() |
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
33 |
{ |
57609 | 34 |
val s = buf.synchronized { val s = buf.toString; buf.clear; s } |
56833
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
35 |
val str = UTF8.decode_permissive(s) |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57609
diff
changeset
|
36 |
GUI_Thread.later { |
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
37 |
if (global_out == null) System.out.print(str) |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
38 |
else global_out.writeAttrs(null, str) |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
39 |
} |
71684 | 40 |
Time.seconds(0.01).sleep // FIXME adhoc delay to avoid loosing output |
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
41 |
} |
65876 | 42 |
|
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
43 |
override def close() { flush () } |
65876 | 44 |
|
45 |
def write(byte: Int) |
|
46 |
{ |
|
56833
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
47 |
val c = byte.toChar |
57609 | 48 |
buf.synchronized { buf.append(c) } |
56833
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
49 |
if (c == '\n') flush() |
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
50 |
} |
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
51 |
} |
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
52 |
|
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
53 |
private val console_writer = new Writer |
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
54 |
{ |
65877
6eb1a3f7012f
more uniform line-oriented output, notably for scala-2.12.2 REPL which emits "\n" separately;
wenzelm
parents:
65876
diff
changeset
|
55 |
def flush() { console_stream.flush() } |
6eb1a3f7012f
more uniform line-oriented output, notably for scala-2.12.2 REPL which emits "\n" separately;
wenzelm
parents:
65876
diff
changeset
|
56 |
def close() { console_stream.flush() } |
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
57 |
|
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
58 |
def write(cbuf: Array[Char], off: Int, len: Int) |
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
59 |
{ |
65877
6eb1a3f7012f
more uniform line-oriented output, notably for scala-2.12.2 REPL which emits "\n" separately;
wenzelm
parents:
65876
diff
changeset
|
60 |
if (len > 0) { |
6eb1a3f7012f
more uniform line-oriented output, notably for scala-2.12.2 REPL which emits "\n" separately;
wenzelm
parents:
65876
diff
changeset
|
61 |
UTF8.bytes(new String(cbuf.slice(off, off + len))).foreach(console_stream.write(_)) |
6eb1a3f7012f
more uniform line-oriented output, notably for scala-2.12.2 REPL which emits "\n" separately;
wenzelm
parents:
65876
diff
changeset
|
62 |
} |
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
63 |
} |
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
64 |
} |
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
65 |
|
34844 | 66 |
private def with_console[A](console: Console, out: Output, err: Output)(e: => A): A = |
67 |
{ |
|
68 |
global_console = console |
|
69 |
global_out = out |
|
70 |
global_err = if (err == null) out else err |
|
56833
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
71 |
try { |
56832 | 72 |
scala.Console.withErr(console_stream) { |
73 |
scala.Console.withOut(console_stream) { e } |
|
74 |
} |
|
75 |
} |
|
56833
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
76 |
finally { |
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
77 |
console_stream.flush |
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
78 |
global_console = null |
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
79 |
global_out = null |
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
80 |
global_err = null |
d0a57abc71f8
clarified synchronization and exception handling;
wenzelm
parents:
56832
diff
changeset
|
81 |
} |
34844 | 82 |
} |
83 |
||
34841 | 84 |
private def report_error(str: String) |
85 |
{ |
|
67178 | 86 |
if (global_console == null || global_err == null) isabelle.Output.writeln(str) |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57609
diff
changeset
|
87 |
else GUI_Thread.later { global_err.print(global_console.getErrorColor, str) } |
34846
ca76b3978540
pass all jEdit jars to compiler as classpath -- to enable proper referencing of application name space;
wenzelm
parents:
34845
diff
changeset
|
88 |
} |
ca76b3978540
pass all jEdit jars to compiler as classpath -- to enable proper referencing of application name space;
wenzelm
parents:
34845
diff
changeset
|
89 |
|
34841 | 90 |
|
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
91 |
/* interpreter thread */ |
34841 | 92 |
|
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
93 |
private abstract class Request |
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
94 |
private case class Start(console: Console) extends Request |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
95 |
private case class Execute(console: Console, out: Output, err: Output, command: String) |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
96 |
extends Request |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
97 |
|
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
98 |
private class Interpreter |
34841 | 99 |
{ |
61590 | 100 |
private val running = Synchronized[Option[Thread]](None) |
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
101 |
def interrupt { running.change(opt => { opt.foreach(_.interrupt); opt }) } |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
102 |
|
71861 | 103 |
private val settings = |
104 |
Scala.compiler_settings(error = report_error, jar_dirs = JEdit_Lib.directories) |
|
34849 | 105 |
|
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
106 |
private val interp = new IMain(settings, new PrintWriter(console_writer, true)) |
34845 | 107 |
{ |
108 |
override def parentClassLoader = new JARClassLoader |
|
109 |
} |
|
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
110 |
|
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
111 |
val thread: Consumer_Thread[Request] = Consumer_Thread.fork("Scala_Console") |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
112 |
{ |
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
113 |
case Start(console) => |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
114 |
interp.bind("view", "org.gjt.sp.jedit.View", console.getView) |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
115 |
interp.bind("console", "console.Console", console) |
57603 | 116 |
interp.interpret("import isabelle._; import isabelle.jedit._") |
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
117 |
true |
34850
fdd560e80264
redirect scala.Console output during interpretation;
wenzelm
parents:
34849
diff
changeset
|
118 |
|
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
119 |
case Execute(console, out, err, command) => |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
120 |
with_console(console, out, err) { |
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
121 |
try { |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
122 |
running.change(_ => Some(Thread.currentThread())) |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
123 |
interp.interpret(command) |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
124 |
} |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
125 |
finally { |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
126 |
running.change(_ => None) |
71700 | 127 |
Exn.Interrupt.dispose() |
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
128 |
} |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57609
diff
changeset
|
129 |
GUI_Thread.later { |
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
130 |
if (err != null) err.commandDone() |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
131 |
out.commandDone() |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
132 |
} |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
133 |
true |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
134 |
} |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
135 |
} |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
136 |
} |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
137 |
|
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
138 |
|
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
139 |
/* jEdit console methods */ |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
140 |
|
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
141 |
override def openConsole(console: Console) |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
142 |
{ |
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
143 |
val interp = new Interpreter |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
144 |
interp.thread.send(Start(console)) |
34845 | 145 |
interpreters += (console -> interp) |
34841 | 146 |
} |
147 |
||
148 |
override def closeConsole(console: Console) |
|
149 |
{ |
|
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
150 |
interpreters.get(console) match { |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
151 |
case Some(interp) => |
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
152 |
interp.interrupt |
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
153 |
interp.thread.shutdown |
56834
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
154 |
interpreters -= console |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
155 |
case None => |
a752f065f3d3
fork Scala interpreter thread, independently of Swing_Thread;
wenzelm
parents:
56833
diff
changeset
|
156 |
} |
34841 | 157 |
} |
158 |
||
34849 | 159 |
override def printInfoMessage(out: Output) |
160 |
{ |
|
161 |
out.print(null, |
|
162 |
"This shell evaluates Isabelle/Scala expressions.\n\n" + |
|
57848 | 163 |
"The contents of package isabelle and isabelle.jedit are imported.\n" + |
34849 | 164 |
"The following special toplevel bindings are provided:\n" + |
50205 | 165 |
" view -- current jEdit/Swing view (e.g. view.getBuffer, view.getTextArea)\n" + |
166 |
" console -- jEdit Console plugin\n" + |
|
55621
8d69c15b6fb9
added PIDE.snapshot, PIDE.rendering for convenience;
wenzelm
parents:
55618
diff
changeset
|
167 |
" PIDE -- Isabelle/PIDE plugin (e.g. PIDE.session, PIDE.snapshot, PIDE.rendering)\n") |
34849 | 168 |
} |
169 |
||
34841 | 170 |
override def printPrompt(console: Console, out: Output) |
37175 | 171 |
{ |
34844 | 172 |
out.writeAttrs(ConsolePane.colorAttributes(console.getInfoColor), "scala>") |
37175 | 173 |
out.writeAttrs(ConsolePane.colorAttributes(console.getPlainColor), " ") |
174 |
} |
|
34841 | 175 |
|
176 |
override def execute(console: Console, input: String, out: Output, err: Output, command: String) |
|
177 |
{ |
|
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
178 |
interpreters(console).thread.send(Execute(console, out, err, command)) |
34841 | 179 |
} |
34849 | 180 |
|
181 |
override def stop(console: Console) |
|
182 |
{ |
|
56836
69531d86d77e
more sensible interrupt of interpreter, when the user pushes Cancel button;
wenzelm
parents:
56834
diff
changeset
|
183 |
interpreters.get(console).foreach(_.interrupt) |
34849 | 184 |
} |
34841 | 185 |
} |