diff options
| -rw-r--r-- | parsing/g_basevernac.ml4 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/parsing/g_basevernac.ml4 b/parsing/g_basevernac.ml4 index a310bb15c6..b4d380c804 100644 --- a/parsing/g_basevernac.ml4 +++ b/parsing/g_basevernac.ml4 @@ -173,13 +173,23 @@ GEXTEND Gram <:ast< (TEST_IMPLICIT_ARGS) >> (* Set printing of coercions *) + | "Set"; IDENT "Printing"; IDENT "Coercion"; + qidl = ne_qualidarg_list -> + <:ast< (PRINTING_COERCIONS_ON ($LIST qidl)) >> | "Set"; IDENT "Printing"; IDENT "Coercions" -> <:ast< (PRINTING_COERCIONS_ON) >> + | IDENT "Unset"; IDENT "Printing"; IDENT "Coercion"; + qidl = ne_qualidarg_list -> + <:ast< (PRINTING_COERCIONS_OFF ($LIST qidl)) >> | IDENT "Unset"; IDENT "Printing"; IDENT "Coercions" -> <:ast< (PRINTING_COERCIONS_OFF) >> + | IDENT "Test"; IDENT "Printing"; IDENT "Coercion"; + qidl = ne_qualidarg_list -> + <:ast< (TEST_PRINTING_COERCIONS ($LIST qidl)) >> | IDENT "Test"; IDENT "Printing"; IDENT "Coercions" -> <:ast< (TEST_PRINTING_COERCIONS) >> + (* Pour intervenir sur les tables de paramètres *) | "Set"; table = identarg; field = identarg; value = option_value -> |