diff options
| author | ppedrot | 2011-11-18 20:30:27 +0000 |
|---|---|---|
| committer | ppedrot | 2011-11-18 20:30:27 +0000 |
| commit | 9e89bf92ee52004eaf4fc6491c623b9b7db1da2a (patch) | |
| tree | 00b8a22e7b319059b14a5be43c0b580a17624a43 /parsing | |
| parent | 2d3430f3a49d844fdbff5db8d706b372ffec7a17 (diff) | |
Adding the type infrastructure to handle properly API management of options
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14689 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 2 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index c9700cdf01..78e01afd94 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -799,7 +799,7 @@ GEXTEND Gram | IDENT "Ltac"; qid = global -> LocateTactic qid ] ] ; option_value: - [ [ n = integer -> IntValue n + [ [ n = integer -> IntValue (Some n) | s = STRING -> StringValue s ] ] ; option_ref_value: diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 9500130130..6254d345f7 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -164,7 +164,9 @@ let pr_printoption table b = let pr_set_option a b = let pr_opt_value = function - | IntValue n -> spc() ++ int n + | IntValue None -> assert false + (* This should not happen because of the grammar *) + | IntValue (Some n) -> spc() ++ int n | StringValue s -> spc() ++ str s | BoolValue b -> mt() in pr_printoption a None ++ pr_opt_value b |