aboutsummaryrefslogtreecommitdiffhomepage
path: root/library/goptions.ml
diff options
context:
space:
mode:
authorGravatar letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>2011-12-21 23:22:20 +0000
committerGravatar letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>2011-12-21 23:22:20 +0000
commitaaedd6050f1fb78c1354e4a3a1431c9de3727127 (patch)
tree63dcde29a43b276d4aa785c14853aa5c88b65c0a /library/goptions.ml
parenta2c18c0369de7ca302ad398b348ab429fe8f3fbe (diff)
sequel of previous commit
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14842 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/goptions.ml')
-rw-r--r--library/goptions.ml18
1 files changed, 4 insertions, 14 deletions
diff --git a/library/goptions.ml b/library/goptions.ml
index f5100a14a..90c8728c1 100644
--- a/library/goptions.ml
+++ b/library/goptions.ml
@@ -17,28 +17,18 @@ open Term
open Nametab
open Mod_subst
+open Goptionstyp
+
+type option_name = Goptionstyp.option_name
+
(****************************************************************************)
(* 0- Common things *)
-type option_name = string list
-
let nickname table = String.concat " " table
let error_undeclared_key key =
error ((nickname key)^": no table or option of this type")
-type option_value =
- | BoolValue of bool
- | IntValue of int option
- | StringValue of string
-
-type option_state = {
- opt_sync : bool;
- opt_depr : bool;
- opt_name : string;
- opt_value : option_value;
-}
-
(****************************************************************************)
(* 1- Tables *)