diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-03-25 17:35:47 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-03-25 17:35:47 +0000 |
commit | 27e9777aaadca805dd331bc5f4f6ce40d41fbd70 (patch) | |
tree | cd546e38133d1c32d97c0da314a5bdbafdc5322e /ide/minilib.mli | |
parent | bac77d6d0e58c74e2ad8ca439c48b86df5587206 (diff) |
Ide: more reorganisation and cleanup
- Avoid using Util which depends on Compat and hence Camlp4
- Instead, a small Minilib module specific to coqide, which
duplicate 5 functions from Util (50 lines)
- some dead code removal
- the coqlib variable is asked to coqtop
- remove obsolete Util.check_for_interrupt
This way, coqide only depends on 3 files outside ide/ :
Coq_config, Flags, Ide_intf. Makefile and ocamlbuild are adapted
accordingly.
TODO: how should we signal coqide error, warnings, etc ?
For the moment, some Printf.eprintf, some failwith.
To uniformize later...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13930 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/minilib.mli')
-rw-r--r-- | ide/minilib.mli | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/ide/minilib.mli b/ide/minilib.mli new file mode 100644 index 000000000..aac3e3d77 --- /dev/null +++ b/ide/minilib.mli @@ -0,0 +1,24 @@ +(***********************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA-Rocquencourt & LRI-CNRS-Orsay *) +(* \VV/ *************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(***********************************************************************) + +(** Some excerpts of Util and similar files to avoid depending on them + and hence on Compat and Camlp4 *) + +module Stringmap : Map.S with type key = string + +val list_fold_left_i : (int -> 'a -> 'b -> 'a) -> int -> 'a -> 'b list -> 'a +val list_map_i : (int -> 'a -> 'b) -> int -> 'a list -> 'b list +val list_filter_i : (int -> 'a -> bool) -> 'a list -> 'a list +val list_chop : int -> 'a list -> 'a list * 'a list +val list_index0 : 'a -> 'a list -> int + +val subst_command_placeholder : string -> string -> string + +val home : string + +val coqlib : string ref |