diff options
| author | Vincent Laporte | 2019-05-13 08:25:51 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2019-05-13 08:25:51 +0000 |
| commit | fe75c2ab9400a83b18fa73e95d4c24a79f88c97d (patch) | |
| tree | 4dd1a468ee36deb24aa768a4b61e86d218d60713 /vernac/metasyntax.ml | |
| parent | 2ddc02f2705a1e5bff4d877cb19507afa56ab1d2 (diff) | |
| parent | beb5bdec79ff371f48a478df3c24f2cf9d68aa1f (diff) | |
Merge PR #10061: Print custom grammar entries
Reviewed-by: Zimmi48
Ack-by: ejgallego
Ack-by: jashug
Diffstat (limited to 'vernac/metasyntax.ml')
| -rw-r--r-- | vernac/metasyntax.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/vernac/metasyntax.ml b/vernac/metasyntax.ml index 843296d24e..50914959dc 100644 --- a/vernac/metasyntax.ml +++ b/vernac/metasyntax.ml @@ -50,10 +50,10 @@ let pr_entry e = str (Buffer.contents entry_buf) let pr_registered_grammar name = - let gram = try Some (Pcoq.find_grammars_by_name name) with Not_found -> None in + let gram = Pcoq.find_grammars_by_name name in match gram with - | None -> user_err Pp.(str "Unknown or unprintable grammar entry.") - | Some entries -> + | [] -> user_err Pp.(str "Unknown or unprintable grammar entry.") + | entries -> let pr_one (Pcoq.AnyEntry e) = str "Entry " ++ str (Pcoq.Entry.name e) ++ str " is" ++ fnl () ++ pr_entry e @@ -85,6 +85,8 @@ let pr_grammar = function pr_entry Pvernac.Vernac_.gallina_ext | name -> pr_registered_grammar name +let pr_custom_grammar name = pr_registered_grammar ("constr:"^name) + (**********************************************************************) (* Parse a format (every terminal starting with a letter or a single quote (except a single quote alone) must be quoted) *) |