blob: 541a1470c72fbcd7656f0738eaaa64c28548f140 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
(** Some types used in the generic option mechanism (Goption) *)
(** Placing them here in a pure interface avoid some dependency issues
when compiling CoqIDE *)
type option_name = string list
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;
}
|
