author | wenzelm |
Sat, 07 Jan 2017 17:30:06 +0100 | |
changeset 64821 | 37bf7acf6a4b |
parent 64815 | 899c69bad0a9 |
child 64824 | 330ec9bc4b75 |
permissions | -rw-r--r-- |
64623 | 1 |
/* Title: Tools/VSCode/src/vscode_resources.scala |
64605 | 2 |
Author: Makarius |
3 |
||
64729 | 4 |
Resources for VSCode Language Server: file-system access and global state. |
64605 | 5 |
*/ |
6 |
||
7 |
package isabelle.vscode |
|
8 |
||
9 |
||
10 |
import isabelle._ |
|
11 |
||
12 |
import java.io.{File => JFile} |
|
13 |
||
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
14 |
import scala.util.parsing.input.{Reader, CharSequenceReader} |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
15 |
|
64605 | 16 |
|
64623 | 17 |
object VSCode_Resources |
64605 | 18 |
{ |
64703 | 19 |
/* internal state */ |
20 |
||
21 |
sealed case class State( |
|
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
22 |
models: Map[JFile, Document_Model] = Map.empty, |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
23 |
pending_input: Set[JFile] = Set.empty, |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
24 |
pending_output: Set[JFile] = Set.empty) |
64800 | 25 |
{ |
26 |
lazy val document_blobs: Document.Blobs = |
|
27 |
Document.Blobs( |
|
28 |
(for { |
|
29 |
(_, model) <- models.iterator |
|
30 |
blob <- model.get_blob |
|
31 |
} yield (model.node_name -> blob)).toMap) |
|
32 |
} |
|
64605 | 33 |
} |
34 |
||
64623 | 35 |
class VSCode_Resources( |
64703 | 36 |
val options: Options, |
64706 | 37 |
val text_length: Text.Length, |
64605 | 38 |
loaded_theories: Set[String], |
39 |
known_theories: Map[String, Document.Node.Name], |
|
64718 | 40 |
base_syntax: Outer_Syntax, |
41 |
log: Logger = No_Logger) |
|
42 |
extends Resources(loaded_theories, known_theories, base_syntax, log) |
|
64605 | 43 |
{ |
64703 | 44 |
private val state = Synchronized(VSCode_Resources.State()) |
45 |
||
46 |
||
47 |
/* document node name */ |
|
48 |
||
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
49 |
def node_file(name: Document.Node.Name): JFile = new JFile(name.node) |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
50 |
|
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
51 |
def node_name(file: JFile): Document.Node.Name = |
64605 | 52 |
{ |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
53 |
val node = file.getPath |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
54 |
val theory = Thy_Header.thy_name_bootstrap(node).getOrElse("") |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
55 |
val master_dir = if (theory == "") "" else file.getParent |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
56 |
Document.Node.Name(node, master_dir, theory) |
64605 | 57 |
} |
64703 | 58 |
|
64759 | 59 |
override def append(dir: String, source_path: Path): String = |
64716 | 60 |
{ |
64759 | 61 |
val path = source_path.expand |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
62 |
if (dir == "" || path.is_absolute) File.platform_path(path) |
64759 | 63 |
else if (path.is_current) dir |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
64 |
else if (path.is_basic && !dir.endsWith("/") && !dir.endsWith(JFile.separator)) |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
65 |
dir + JFile.separator + File.platform_path(path) |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
66 |
else if (path.is_basic) dir + File.platform_path(path) |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
67 |
else new JFile(dir + JFile.separator + File.platform_path(path)).getCanonicalPath |
64716 | 68 |
} |
69 |
||
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
70 |
override def with_thy_reader[A](name: Document.Node.Name, f: Reader[Char] => A): A = |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
71 |
{ |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
72 |
val file = node_file(name) |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
73 |
get_model(file) match { |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
74 |
case Some(model) => |
64821 | 75 |
f(new CharSequenceReader(model.doc.text)) |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
76 |
case None if file.isFile => |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
77 |
val reader = Scan.byte_reader(file) |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
78 |
try { f(reader) } finally { reader.close } |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
79 |
case None => |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
80 |
error("No such file: " + quote(file.toString)) |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
81 |
} |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
82 |
} |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
83 |
|
64703 | 84 |
|
85 |
/* document models */ |
|
86 |
||
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
87 |
def get_model(file: JFile): Option[Document_Model] = state.value.models.get(file) |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
88 |
def get_model(name: Document.Node.Name): Option[Document_Model] = get_model(node_file(name)) |
64703 | 89 |
|
64800 | 90 |
def visible_node(name: Document.Node.Name): Boolean = |
91 |
get_model(name) match { |
|
92 |
case Some(model) => model.node_visible |
|
93 |
case None => false |
|
94 |
} |
|
95 |
||
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
96 |
def update_model(session: Session, file: JFile, text: String) |
64703 | 97 |
{ |
98 |
state.change(st => |
|
64709 | 99 |
{ |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
100 |
val model = st.models.getOrElse(file, Document_Model.init(session, node_name(file))) |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
101 |
val model1 = (model.update_text(text) getOrElse model).external(false) |
64709 | 102 |
st.copy( |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
103 |
models = st.models + (file -> model1), |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
104 |
pending_input = st.pending_input + file) |
64709 | 105 |
}) |
64703 | 106 |
} |
107 |
||
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
108 |
def close_model(file: JFile): Option[Document_Model] = |
64710 | 109 |
state.change_result(st => |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
110 |
st.models.get(file) match { |
64710 | 111 |
case None => (None, st) |
112 |
case Some(model) => |
|
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
113 |
(Some(model), st.copy(models = st.models + (file -> model.external(true)))) |
64710 | 114 |
}) |
115 |
||
64722 | 116 |
def sync_models(changed_files: Set[JFile]): Boolean = |
64710 | 117 |
state.change_result(st => |
118 |
{ |
|
64719 | 119 |
val changed_models = |
64710 | 120 |
(for { |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
121 |
(file, model) <- st.models.iterator |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
122 |
if changed_files(file) && model.external_file |
64812 | 123 |
text <- read_file_content(file) |
64779 | 124 |
model1 <- model.update_text(text) |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
125 |
} yield (file, model1)).toList |
64719 | 126 |
if (changed_models.isEmpty) (false, st) |
64721 | 127 |
else (true, |
128 |
st.copy( |
|
129 |
models = (st.models /: changed_models)(_ + _), |
|
130 |
pending_input = (st.pending_input /: changed_models.iterator.map(_._1))(_ + _))) |
|
64710 | 131 |
}) |
132 |
||
64703 | 133 |
|
64779 | 134 |
/* file content */ |
135 |
||
64812 | 136 |
def read_file_content(file: JFile): Option[String] = |
64806 | 137 |
try { Some(Line.normalize(File.read(file))) } |
64779 | 138 |
catch { case ERROR(_) => None } |
139 |
||
140 |
def get_file_content(file: JFile): Option[String] = |
|
141 |
get_model(file) match { |
|
64821 | 142 |
case Some(model) => Some(model.doc.text) |
64812 | 143 |
case None => read_file_content(file) |
64779 | 144 |
} |
145 |
||
146 |
||
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
147 |
/* resolve dependencies */ |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
148 |
|
64731
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
149 |
val thy_info = new Thy_Info(this) |
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
150 |
|
64800 | 151 |
def resolve_dependencies(session: Session, watcher: File_Watcher): (Boolean, Boolean) = |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
152 |
{ |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
153 |
state.change_result(st => |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
154 |
{ |
64800 | 155 |
/* theory files */ |
156 |
||
64731
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
157 |
val thys = |
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
158 |
(for ((_, model) <- st.models.iterator if model.is_theory) |
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
159 |
yield (model.node_name, Position.none)).toList |
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
160 |
|
64800 | 161 |
val thy_files = thy_info.dependencies("", thys).deps.map(_.name) |
162 |
||
163 |
||
164 |
/* auxiliary files */ |
|
165 |
||
166 |
val stable_tip_version = |
|
64815 | 167 |
if (st.models.forall(entry => entry._2.is_stable)) |
64800 | 168 |
session.current_state().stable_tip_version |
169 |
else None |
|
170 |
||
171 |
val aux_files = |
|
172 |
stable_tip_version match { |
|
173 |
case Some(version) => undefined_blobs(version.nodes) |
|
174 |
case None => Nil |
|
175 |
} |
|
176 |
||
177 |
||
178 |
/* loaded models */ |
|
179 |
||
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
180 |
val loaded_models = |
64731
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
181 |
(for { |
64800 | 182 |
node_name <- thy_files.iterator ++ aux_files.iterator |
183 |
file = node_file(node_name) |
|
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
184 |
if !st.models.isDefinedAt(file) |
64812 | 185 |
text <- { watcher.register_parent(file); read_file_content(file) } |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
186 |
} |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
187 |
yield { |
64800 | 188 |
val model = Document_Model.init(session, node_name) |
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
189 |
val model1 = (model.update_text(text) getOrElse model).external(true) |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
190 |
(file, model1) |
64731
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
191 |
}).toList |
84192ecae582
just one synchronized access to global state: works recursively on JVM;
wenzelm
parents:
64729
diff
changeset
|
192 |
|
64800 | 193 |
val invoke_input = loaded_models.nonEmpty |
194 |
val invoke_load = stable_tip_version.isEmpty |
|
195 |
||
196 |
((invoke_input, invoke_load), |
|
197 |
st.copy( |
|
198 |
models = st.models ++ loaded_models, |
|
199 |
pending_input = st.pending_input ++ loaded_models.iterator.map(_._1))) |
|
64727
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
200 |
}) |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
201 |
} |
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
202 |
|
13e37567a0d6
automatically resolve dependencies from document models and file-system;
wenzelm
parents:
64726
diff
changeset
|
203 |
|
64703 | 204 |
/* pending input */ |
205 |
||
206 |
def flush_input(session: Session) |
|
207 |
{ |
|
208 |
state.change(st => |
|
209 |
{ |
|
64719 | 210 |
val changed_models = |
64703 | 211 |
(for { |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
212 |
file <- st.pending_input.iterator |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
213 |
model <- st.models.get(file) |
64800 | 214 |
(edits, model1) <- model.flush_edits(st.document_blobs) |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
215 |
} yield (edits, (file, model1))).toList |
64707 | 216 |
|
64800 | 217 |
session.update(st.document_blobs, changed_models.flatMap(_._1)) |
64703 | 218 |
st.copy( |
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
219 |
models = (st.models /: changed_models.iterator.map(_._2))(_ + _), |
64703 | 220 |
pending_input = Set.empty) |
221 |
}) |
|
222 |
} |
|
223 |
||
224 |
||
225 |
/* pending output */ |
|
226 |
||
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
227 |
def update_output(changed_nodes: List[JFile]): Unit = |
64703 | 228 |
state.change(st => st.copy(pending_output = st.pending_output ++ changed_nodes)) |
229 |
||
230 |
def flush_output(channel: Channel) |
|
231 |
{ |
|
232 |
state.change(st => |
|
233 |
{ |
|
234 |
val changed_iterator = |
|
235 |
for { |
|
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
236 |
file <- st.pending_output.iterator |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
237 |
model <- st.models.get(file) |
64704 | 238 |
rendering = model.rendering() |
64703 | 239 |
(diagnostics, model1) <- model.publish_diagnostics(rendering) |
240 |
} yield { |
|
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
241 |
channel.diagnostics(file, rendering.diagnostics_output(diagnostics)) |
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
242 |
(file, model1) |
64703 | 243 |
} |
244 |
st.copy( |
|
64777
ca09695eb43c
clarified Document.Node.Name (again): canonical platform file;
wenzelm
parents:
64775
diff
changeset
|
245 |
models = (st.models /: changed_iterator)(_ + _), |
64703 | 246 |
pending_output = Set.empty) |
247 |
} |
|
248 |
) |
|
249 |
} |
|
64605 | 250 |
} |