diff options
| author | Emilio Jesus Gallego Arias | 2018-09-27 02:28:30 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-10-01 05:00:01 +0200 |
| commit | 4de95593380294b3d2c4f10f346aaf9bb5d4d6eb (patch) | |
| tree | e65e843f7bd461348be11369efb7b28d84dc2cb7 /lib/flags.ml | |
| parent | c403fa491bb4ef9710c6251e5d5c47c046c95e39 (diff) | |
[lib] [flags] Move private IDE functions to `ide`
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 7e0065beba..54f25e209d 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -121,23 +121,6 @@ let warn = ref true let make_warn flag = warn := flag; () let if_warn f x = if !warn then f x -(* Flags for external tools *) - -let browser_cmd_fmt = - try - let coq_netscape_remote_var = "COQREMOTEBROWSER" in - Sys.getenv coq_netscape_remote_var - with - Not_found -> Coq_config.browser - -let is_standard_doc_url url = - let wwwcompatprefix = "http://www.lix.polytechnique.fr/coq/" in - let n = String.length Coq_config.wwwcoq in - let n' = String.length Coq_config.wwwrefman in - url = Coq_config.localwwwrefman || - url = Coq_config.wwwrefman || - url = wwwcompatprefix ^ String.sub Coq_config.wwwrefman n (n'-n) - (* Options for changing coqlib *) let coqlib_spec = ref false let coqlib = ref "(not initialized yet)" |