diff options
| author | Pierre-Marie Pédrot | 2018-10-02 15:34:04 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-02 15:34:04 +0200 |
| commit | e65d160d5fa4e0b8b5754b0925b0b5a880523bc5 (patch) | |
| tree | 21600f3e1fbb6fb82ccf941d6f4246968eb541d6 /lib/flags.ml | |
| parent | 5424ad236574e22a7ef2dce0d1d9468a9b768a16 (diff) | |
| parent | 8c40e6eb7f5bd2421ed6a22a0b44490f3d1fb9ef (diff) | |
Merge PR #8572: [config] Miscellaneous cleaning of configuration variables.
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 7e0065beba..4d6c36f55d 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -121,27 +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)" - (* Level of inlining during a functor application *) let default_inline_level = 100 |