summaryrefslogtreecommitdiff
path: root/src/process_file.ml
diff options
context:
space:
mode:
authorAlasdair Armstrong2019-02-06 19:44:22 +0000
committerAlasdair Armstrong2019-02-06 19:48:55 +0000
commitaadbe7ede88dc9bbbda6a09876baacd6797153fb (patch)
tree308d68ff63b2801f5de9a087e2b8785c1ceee3e1 /src/process_file.ml
parent55f65f92812a6927d5661c2c25a09051630334b3 (diff)
Improve emacs mode
Can now use C-c C-s to start an interactive Sail process, C-c C-l to load a file, and C-c C-q to kill the sail process. Type errors are highlighted in the emacs buffer (like with merlin for OCaml) with a tooltip for the type-error, as well as being displayed in the minibuffer. Need to add a C-c C-x command like merlin to jump to the error, and figure out how to handle multiple files nicely, as well as hooking the save function like tuareg/merlin, but this is already enough to make working with small examples quite a bit more pleasant.
Diffstat (limited to 'src/process_file.ml')
-rw-r--r--src/process_file.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/process_file.ml b/src/process_file.ml
index 00013775..98dc725d 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -92,6 +92,8 @@ module StringSet = Set.Make(String)
let symbols = ref StringSet.empty
+let clear_symbols () = symbols := StringSet.empty
+
let cond_pragma l defs =
let depth = ref 0 in
let in_then = ref true in