diff options
| author | letouzey | 2012-12-10 16:35:28 +0000 |
|---|---|---|
| committer | letouzey | 2012-12-10 16:35:28 +0000 |
| commit | 2de75892efb8c2ab63a3b23767d0cefd0996f8d6 (patch) | |
| tree | 0cc24f4b3e703c7ab57d9455598880b02de109d7 /ide/session.mli | |
| parent | 6416f0d41e46aaa64af50aa20dfb324db242286a (diff) | |
Coqide: some more refactoring to lighten coqide.ml
Main victim is analyzed_view :
- some unnecessary methods have been killed (hep_for_keyword for instance)
- some other migrated elsewhere (recenter_input, find_next_occurrence, ...)
- analyzed_view is now split in two : fileops (filename, save, revert, ...)
and coqops (process_next_phrase, ...)
Four new files created:
- Sentence (for tag_on_insert and alii)
- FileOps (ex-first-half of analyzed_view)
- CoqOps (ex-second-half of analyzed_view)
- Session (ex-record viewable_script and functions about it)
Also lots of renaming, trying to be shorter (but still meaningful) and
more uniform
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16057 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/session.mli')
| -rw-r--r-- | ide/session.mli | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/ide/session.mli b/ide/session.mli new file mode 100644 index 0000000000..75b03d8601 --- /dev/null +++ b/ide/session.mli @@ -0,0 +1,34 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +(** A session is a script buffer + proof + messages, + interacting with a coqtop, and a few other elements around *) + +type session = { + buffer : GText.buffer; + script : Wg_ScriptView.script_view; + proof : Wg_ProofView.proof_view; + messages : Wg_MessageView.message_view; + fileops : FileOps.ops; + coqops : CoqOps.ops; + coqtop : Coq.coqtop; + command : Wg_Command.command_window; + finder : Wg_Find.finder; + tab_label : GMisc.label; +} + +type print_items = + (Coq.PrintOpt.t list * string * string * string * bool) list + +(** [create filename coqtop_args] *) +val create : string option -> string list -> print_items -> session + +val kill : session -> unit + +val build_layout : session -> + GObj.widget option * GObj.widget option * GObj.widget |