From 4de95593380294b3d2c4f10f346aaf9bb5d4d6eb Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Thu, 27 Sep 2018 02:28:30 +0200
Subject: [lib] [flags] Move private IDE functions to `ide`

---
 lib/flags.ml  | 17 -----------------
 lib/flags.mli |  7 -------
 2 files changed, 24 deletions(-)

(limited to 'lib')

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)"
diff --git a/lib/flags.mli b/lib/flags.mli
index 02d8a3adc1..0faad1a541 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -118,13 +118,6 @@ val without_option : bool ref -> ('a -> 'b) -> 'a -> 'b
 (** Temporarily extends the reference to a list *)
 val with_extra_values : 'c list ref -> 'c list -> ('a -> 'b) -> 'a -> 'b
 
-(** Options for external tools *)
-
-(** Returns string format for default browser to use from Coq or CoqIDE *)
-val browser_cmd_fmt : string
-
-val is_standard_doc_url : string -> bool
-
 (** Options for specifying where coq librairies reside *)
 val coqlib_spec : bool ref
 val coqlib : string ref
-- 
cgit v1.2.3