author | wenzelm |
Mon, 02 Jan 2017 11:26:26 +0100 | |
changeset 64747 | 54afac94f52b |
parent 64737 | 9fc965612459 |
child 64748 | 155bf8632104 |
permissions | -rw-r--r-- |
64605 | 1 |
/* Title: Tools/VSCode/src/server.scala |
2 |
Author: Makarius |
|
3 |
||
4 |
Server for VS Code Language Server Protocol 2.0, see also |
|
5 |
https://github.com/Microsoft/language-server-protocol |
|
6 |
https://github.com/Microsoft/language-server-protocol/blob/master/protocol.md |
|
7 |
*/ |
|
8 |
||
9 |
package isabelle.vscode |
|
10 |
||
11 |
||
12 |
import isabelle._ |
|
13 |
||
64710 | 14 |
import java.io.{PrintStream, OutputStream, File => JFile} |
64605 | 15 |
|
16 |
import scala.annotation.tailrec |
|
17 |
||
18 |
||
19 |
object Server |
|
20 |
{ |
|
21 |
/* Isabelle tool wrapper */ |
|
22 |
||
64618 | 23 |
private val default_text_length = "UTF-16" |
64605 | 24 |
private lazy val default_logic = Isabelle_System.getenv("ISABELLE_LOGIC") |
25 |
||
26 |
val isabelle_tool = Isabelle_Tool("vscode_server", "VSCode Language Server for PIDE", args => |
|
27 |
{ |
|
64644 | 28 |
try { |
29 |
var log_file: Option[Path] = None |
|
64682 | 30 |
var text_length = Text.Length.encoding(default_text_length) |
64644 | 31 |
var dirs: List[Path] = Nil |
32 |
var logic = default_logic |
|
33 |
var modes: List[String] = Nil |
|
34 |
var options = Options.init() |
|
64733 | 35 |
var system_mode = false |
64605 | 36 |
|
64644 | 37 |
def text_length_choice: String = |
64682 | 38 |
commas(Text.Length.encodings.map( |
64644 | 39 |
{ case (a, _) => if (a == default_text_length) a + " (default)" else a })) |
64618 | 40 |
|
64644 | 41 |
val getopts = Getopts(""" |
64605 | 42 |
Usage: isabelle vscode_server [OPTIONS] |
43 |
||
44 |
Options are: |
|
45 |
-L FILE enable logging on FILE |
|
64618 | 46 |
-T LENGTH text length encoding: """ + text_length_choice + """ |
64605 | 47 |
-d DIR include session directory |
64737 | 48 |
-l NAME logic session name (default ISABELLE_LOGIC=""" + quote(default_logic) + """) |
64605 | 49 |
-m MODE add print mode for output |
50 |
-o OPTION override Isabelle system OPTION (via NAME=VAL or NAME) |
|
64733 | 51 |
-s system build mode for session image |
64605 | 52 |
|
53 |
Run the VSCode Language Server protocol (JSON RPC) over stdin/stdout. |
|
54 |
""", |
|
64644 | 55 |
"L:" -> (arg => log_file = Some(Path.explode(arg))), |
64682 | 56 |
"T:" -> (arg => Text.Length.encoding(arg)), |
64644 | 57 |
"d:" -> (arg => dirs = dirs ::: List(Path.explode(arg))), |
58 |
"l:" -> (arg => logic = arg), |
|
59 |
"m:" -> (arg => modes = arg :: modes), |
|
64733 | 60 |
"o:" -> (arg => options = options + arg), |
61 |
"s" -> (_ => system_mode = true)) |
|
64605 | 62 |
|
64644 | 63 |
val more_args = getopts(args) |
64 |
if (more_args.nonEmpty) getopts.usage() |
|
65 |
||
64717 | 66 |
val log = Logger.make(log_file) |
67 |
val channel = new Channel(System.in, System.out, log) |
|
64733 | 68 |
val server = new Server(channel, options, text_length, logic, dirs, modes, system_mode, log) |
64605 | 69 |
|
64644 | 70 |
// prevent spurious garbage on the main protocol channel |
71 |
val orig_out = System.out |
|
72 |
try { |
|
73 |
System.setOut(new PrintStream(new OutputStream { def write(n: Int) {} })) |
|
74 |
server.start() |
|
75 |
} |
|
76 |
finally { System.setOut(orig_out) } |
|
64605 | 77 |
} |
64644 | 78 |
catch { |
79 |
case exn: Throwable => |
|
64717 | 80 |
val channel = new Channel(System.in, System.out, No_Logger) |
64644 | 81 |
channel.error_message(Exn.message(exn)) |
82 |
throw(exn) |
|
83 |
} |
|
64605 | 84 |
}) |
85 |
} |
|
86 |
||
87 |
class Server( |
|
88 |
channel: Channel, |
|
89 |
options: Options, |
|
64682 | 90 |
text_length: Text.Length = Text.Length.encoding(Server.default_text_length), |
64605 | 91 |
session_name: String = Server.default_logic, |
92 |
session_dirs: List[Path] = Nil, |
|
64717 | 93 |
modes: List[String] = Nil, |
64733 | 94 |
system_mode: Boolean = false, |
64717 | 95 |
log: Logger = No_Logger) |
64605 | 96 |
{ |
64725 | 97 |
/* prover session */ |
64605 | 98 |
|
64703 | 99 |
private val session_ = Synchronized(None: Option[Session]) |
100 |
def session: Session = session_.value getOrElse error("Server inactive") |
|
64623 | 101 |
def resources: VSCode_Resources = session.resources.asInstanceOf[VSCode_Resources] |
64605 | 102 |
|
64651 | 103 |
def rendering_offset(node_pos: Line.Node_Position): Option[(VSCode_Rendering, Text.Offset)] = |
64649 | 104 |
for { |
64703 | 105 |
model <- resources.get_model(node_pos.name) |
64704 | 106 |
rendering = model.rendering() |
64683
c0c09b6dfbe0
clarified signature: maintan Text.Length within Line.Document;
wenzelm
parents:
64682
diff
changeset
|
107 |
offset <- model.doc.offset(node_pos.pos) |
64649 | 108 |
} yield (rendering, offset) |
109 |
||
64605 | 110 |
|
64725 | 111 |
/* input from client or file-system */ |
112 |
||
113 |
private val delay_input = |
|
114 |
Standard_Thread.delay_last(options.seconds("vscode_input_delay")) |
|
115 |
{ resources.flush_input(session) } |
|
116 |
||
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
117 |
private val delay_load = |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
118 |
Standard_Thread.delay_last(options.seconds("vscode_load_delay")) |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
119 |
{ if (resources.resolve_dependencies(session)) delay_input.invoke() } |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
120 |
|
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
121 |
private val watcher = |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
122 |
File_Watcher(sync_documents(_), options.seconds("vscode_load_delay")) |
64725 | 123 |
|
124 |
private def sync_documents(changed: Set[JFile]): Unit = |
|
125 |
if (resources.sync_models(changed)) delay_input.invoke() |
|
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
126 |
|
64703 | 127 |
private def update_document(uri: String, text: String) |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
128 |
{ |
64709 | 129 |
resources.update_model(session, uri, text) |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
130 |
delay_input.invoke() |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
131 |
} |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
132 |
|
64710 | 133 |
private def close_document(uri: String) |
134 |
{ |
|
135 |
resources.close_model(uri) match { |
|
136 |
case Some(model) => |
|
137 |
model.register(watcher) |
|
64725 | 138 |
sync_documents(Set(model.file)) |
64710 | 139 |
case None => |
140 |
} |
|
141 |
} |
|
142 |
||
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
143 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
144 |
/* output to client */ |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
145 |
|
64691
db2b21a52f20
prefer stable state -- reduce repeated diagnostics;
wenzelm
parents:
64690
diff
changeset
|
146 |
private val delay_output: Standard_Thread.Delay = |
64703 | 147 |
Standard_Thread.delay_last(options.seconds("vscode_output_delay")) |
148 |
{ |
|
64691
db2b21a52f20
prefer stable state -- reduce repeated diagnostics;
wenzelm
parents:
64690
diff
changeset
|
149 |
if (session.current_state().stable_tip_version.isEmpty) delay_output.invoke() |
64703 | 150 |
else resources.flush_output(channel) |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
151 |
} |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
152 |
|
64725 | 153 |
private val prover_output = |
154 |
Session.Consumer[Session.Commands_Changed](getClass.getName) { |
|
155 |
case changed if changed.nodes.nonEmpty => |
|
156 |
resources.update_output(changed.nodes.toList.map(_.node)) |
|
157 |
delay_output.invoke() |
|
158 |
case _ => |
|
159 |
} |
|
64710 | 160 |
|
64725 | 161 |
private val syslog = |
64692 | 162 |
Session.Consumer[Prover.Message](getClass.getName) { |
163 |
case output: Prover.Output if output.is_syslog => |
|
164 |
channel.log_writeln(XML.content(output.message)) |
|
165 |
case _ => |
|
166 |
} |
|
167 |
||
168 |
||
64605 | 169 |
/* init and exit */ |
170 |
||
64641 | 171 |
def init(id: Protocol.Id) |
64605 | 172 |
{ |
64641 | 173 |
def reply(err: String) |
174 |
{ |
|
175 |
channel.write(Protocol.Initialize.reply(id, err)) |
|
64642
c231206a84c8
display messages, according to regular Isabelle Output;
wenzelm
parents:
64641
diff
changeset
|
176 |
if (err == "") |
c231206a84c8
display messages, according to regular Isabelle Output;
wenzelm
parents:
64641
diff
changeset
|
177 |
channel.writeln("Welcome to Isabelle/" + session_name + " (" + Distribution.version + ")") |
c231206a84c8
display messages, according to regular Isabelle Output;
wenzelm
parents:
64641
diff
changeset
|
178 |
else channel.error_message(err) |
64641 | 179 |
} |
180 |
||
64643 | 181 |
val try_session = |
182 |
try { |
|
64733 | 183 |
if (!Build.build(options = options, build_heap = true, no_build = true, |
184 |
system_mode = system_mode, dirs = session_dirs, sessions = List(session_name)).ok) |
|
185 |
{ |
|
186 |
val start_msg = "Build started for Isabelle/" + session_name + " ..." |
|
187 |
val fail_msg = "Session build failed -- prover process remains inactive!" |
|
188 |
||
189 |
val progress = channel.make_progress(verbose = true) |
|
190 |
progress.echo(start_msg); channel.writeln(start_msg) |
|
191 |
||
192 |
if (!Build.build(options = options, progress = progress, build_heap = true, |
|
193 |
system_mode = system_mode, dirs = session_dirs, sessions = List(session_name)).ok) |
|
194 |
{ |
|
195 |
progress.echo(fail_msg); error(fail_msg) |
|
196 |
} |
|
197 |
} |
|
198 |
||
64643 | 199 |
val content = Build.session_content(options, false, session_dirs, session_name) |
200 |
val resources = |
|
64720 | 201 |
new VSCode_Resources(options, text_length, content.loaded_theories, |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
202 |
content.known_theories, content.syntax, log) { |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
203 |
override def commit(change: Session.Change): Unit = |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
204 |
if (change.deps_changed) delay_load.invoke() |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64725
diff
changeset
|
205 |
} |
64605 | 206 |
|
64643 | 207 |
Some(new Session(resources) { |
208 |
override def output_delay = options.seconds("editor_output_delay") |
|
209 |
override def prune_delay = options.seconds("editor_prune_delay") |
|
210 |
override def syslog_limit = options.int("editor_syslog_limit") |
|
211 |
override def reparse_limit = options.int("editor_reparse_limit") |
|
212 |
}) |
|
64605 | 213 |
} |
64643 | 214 |
catch { case ERROR(msg) => reply(msg); None } |
64605 | 215 |
|
64643 | 216 |
for (session <- try_session) { |
217 |
var session_phase: Session.Consumer[Session.Phase] = null |
|
218 |
session_phase = |
|
219 |
Session.Consumer(getClass.getName) { |
|
220 |
case Session.Ready => |
|
221 |
session.phase_changed -= session_phase |
|
222 |
session.update_options(options) |
|
223 |
reply("") |
|
224 |
case Session.Failed => |
|
225 |
session.phase_changed -= session_phase |
|
226 |
reply("Prover startup failed") |
|
227 |
case _ => |
|
228 |
} |
|
229 |
session.phase_changed += session_phase |
|
64605 | 230 |
|
64725 | 231 |
session.commands_changed += prover_output |
232 |
session.all_messages += syslog |
|
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64673
diff
changeset
|
233 |
|
64643 | 234 |
session.start(receiver => |
235 |
Isabelle_Process(options = options, logic = session_name, dirs = session_dirs, |
|
236 |
modes = modes, receiver = receiver)) |
|
64605 | 237 |
|
64703 | 238 |
session_.change(_ => Some(session)) |
64643 | 239 |
} |
64605 | 240 |
} |
241 |
||
64641 | 242 |
def shutdown(id: Protocol.Id) |
64605 | 243 |
{ |
64641 | 244 |
def reply(err: String): Unit = channel.write(Protocol.Shutdown.reply(id, err)) |
245 |
||
64703 | 246 |
session_.change({ |
247 |
case Some(session) => |
|
248 |
var session_phase: Session.Consumer[Session.Phase] = null |
|
249 |
session_phase = |
|
250 |
Session.Consumer(getClass.getName) { |
|
251 |
case Session.Inactive => |
|
252 |
session.phase_changed -= session_phase |
|
64725 | 253 |
session.commands_changed -= prover_output |
254 |
session.all_messages -= syslog |
|
64703 | 255 |
reply("") |
256 |
case _ => |
|
257 |
} |
|
258 |
session.phase_changed += session_phase |
|
259 |
session.stop() |
|
260 |
delay_input.revoke() |
|
261 |
delay_output.revoke() |
|
64710 | 262 |
watcher.shutdown() |
64703 | 263 |
None |
264 |
case None => |
|
265 |
reply("Prover inactive") |
|
266 |
None |
|
267 |
}) |
|
64605 | 268 |
} |
269 |
||
64646 | 270 |
def exit() { |
64717 | 271 |
log("\n") |
64703 | 272 |
sys.exit(if (session_.value.isDefined) 1 else 0) |
64646 | 273 |
} |
64605 | 274 |
|
275 |
||
64622
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
64618
diff
changeset
|
276 |
/* hover */ |
64605 | 277 |
|
64651 | 278 |
def hover(id: Protocol.Id, node_pos: Line.Node_Position) |
64641 | 279 |
{ |
280 |
val result = |
|
281 |
for { |
|
64651 | 282 |
(rendering, offset) <- rendering_offset(node_pos) |
64641 | 283 |
info <- rendering.tooltip(Text.Range(offset, offset + 1)) |
284 |
} yield { |
|
64649 | 285 |
val doc = rendering.model.doc |
64683
c0c09b6dfbe0
clarified signature: maintan Text.Length within Line.Document;
wenzelm
parents:
64682
diff
changeset
|
286 |
val range = doc.range(info.range) |
64641 | 287 |
val s = Pretty.string_of(info.info, margin = rendering.tooltip_margin) |
64747 | 288 |
(range, List(s)) |
64641 | 289 |
} |
290 |
channel.write(Protocol.Hover.reply(id, result)) |
|
291 |
} |
|
64605 | 292 |
|
293 |
||
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
294 |
/* goto definition */ |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
295 |
|
64651 | 296 |
def goto_definition(id: Protocol.Id, node_pos: Line.Node_Position) |
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
297 |
{ |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
298 |
val result = |
64651 | 299 |
(for ((rendering, offset) <- rendering_offset(node_pos)) |
64649 | 300 |
yield rendering.hyperlinks(Text.Range(offset, offset + 1))) getOrElse Nil |
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
301 |
channel.write(Protocol.GotoDefinition.reply(id, result)) |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
302 |
} |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
303 |
|
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64646
diff
changeset
|
304 |
|
64605 | 305 |
/* main loop */ |
306 |
||
307 |
def start() |
|
308 |
{ |
|
64717 | 309 |
log("Server started " + Date.now()) |
64605 | 310 |
|
311 |
def handle(json: JSON.T) |
|
312 |
{ |
|
313 |
try { |
|
314 |
json match { |
|
64641 | 315 |
case Protocol.Initialize(id) => init(id) |
316 |
case Protocol.Shutdown(id) => shutdown(id) |
|
64645 | 317 |
case Protocol.Exit(()) => exit() |
64605 | 318 |
case Protocol.DidOpenTextDocument(uri, lang, version, text) => |
319 |
update_document(uri, text) |
|
320 |
case Protocol.DidChangeTextDocument(uri, version, List(Protocol.TextDocumentContent(text))) => |
|
321 |
update_document(uri, text) |
|
64710 | 322 |
case Protocol.DidCloseTextDocument(uri) => |
323 |
close_document(uri) |
|
64651 | 324 |
case Protocol.Hover(id, node_pos) => hover(id, node_pos) |
325 |
case Protocol.GotoDefinition(id, node_pos) => goto_definition(id, node_pos) |
|
64717 | 326 |
case _ => log("### IGNORED") |
64605 | 327 |
} |
328 |
} |
|
64687 | 329 |
catch { case exn: Throwable => channel.log_error_message(Exn.message(exn)) } |
64605 | 330 |
} |
331 |
||
332 |
@tailrec def loop() |
|
333 |
{ |
|
334 |
channel.read() match { |
|
335 |
case Some(json) => |
|
336 |
json match { |
|
337 |
case bulk: List[_] => bulk.foreach(handle(_)) |
|
338 |
case _ => handle(json) |
|
339 |
} |
|
340 |
loop() |
|
64717 | 341 |
case None => log("### TERMINATE") |
64605 | 342 |
} |
343 |
} |
|
344 |
loop() |
|
345 |
} |
|
346 |
} |