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/ideutils.ml | |
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/ideutils.ml')
-rw-r--r-- | ide/ideutils.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index 319cf4e4d..a4126ae33 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -37,8 +37,7 @@ let prerr_string s = if !debug then (prerr_string s;flush stderr) let lib_ide_file f = - let coqlib = Envars.coqlib () in - Filename.concat (Filename.concat coqlib "ide") f + Filename.concat (Filename.concat !Minilib.coqlib "ide") f let get_insert input_buffer = input_buffer#get_iter_at_mark `INSERT @@ -284,7 +283,7 @@ let run_command f c = (Unix.close_process_full (cin,cout,cerr), Buffer.contents result) let browse f url = - let com = Flags.subst_command_placeholder !current.cmd_browse url in + let com = Minilib.subst_command_placeholder !current.cmd_browse url in let s = Sys.command com in if s = 127 then f ("Could not execute\n\""^com^ |