diff options
| author | herbelin | 2008-10-19 16:15:12 +0000 |
|---|---|---|
| committer | herbelin | 2008-10-19 16:15:12 +0000 |
| commit | cddb721edc8c2e61b29a64349cd199c0dfce3d11 (patch) | |
| tree | 37d3e221e4402214c63f2bffa46ff9e0152f41c1 /toplevel | |
| parent | add39fd4566c0e00293c2082077d08fb21178607 (diff) | |
- Export de pattern_ident vers les ARGUMENT EXTEND and co.
- Extension du test de réversibilité acyclique des notations dures aux
notations de type abbréviation (du genre inhabited A := A).
- Ajout options Local/Global à Transparent/Opaque.
- Retour au comportement 8.1 pour "move" (dependant par défaut et mot-clé
dependent retiré).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11472 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 1 | ||||
| -rw-r--r-- | toplevel/metasyntax.ml | 2 | ||||
| -rw-r--r-- | toplevel/metasyntax.mli | 4 |
3 files changed, 6 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index c8acd81135..ca55fb0663 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -167,6 +167,7 @@ let declare_definition ident (local,boxed,dok) bl red_option c typopt hook = let syntax_definition ident (vars,c) local onlyparse = let pat = interp_aconstr [] vars c in + let onlyparse = onlyparse or Metasyntax.is_not_printable (snd pat) in Syntax_def.declare_syntactic_definition local ident onlyparse pat (* 2| Variable/Hypothesis/Parameter/Axiom declarations *) diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index a14d42074d..b43a5eeb9f 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -745,7 +745,7 @@ let check_rule_productivity l = error "A recursive notation must start with at least one symbol." let is_not_printable = function - | AVar _ -> warning "This notation won't be used for printing as it is bound to a \nsingle variable"; true + | AVar _ -> warning "This notation will not be used for printing as it is bound to a \nsingle variable"; true | _ -> false let find_precedence lev etyps symbols = diff --git a/toplevel/metasyntax.mli b/toplevel/metasyntax.mli index 1f6b914726..d4b61eb003 100644 --- a/toplevel/metasyntax.mli +++ b/toplevel/metasyntax.mli @@ -56,3 +56,7 @@ val print_grammar : string -> unit (* Removes quotes in a notation *) val standardize_locatable_notation : string -> string + +(* Evaluate whether a notation is not printable *) + +val is_not_printable : aconstr -> bool |