diff options
| author | Hugo Herbelin | 2017-11-01 22:54:24 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2017-11-02 11:19:08 +0100 |
| commit | 767816eece27e6bb8cba0bbf122507bd2a3b77a1 (patch) | |
| tree | 6348c7ac8f50e4782a41072e5db26d83b3b1a3a5 /printing | |
| parent | 0df9c751f98d2f9b4423eb1bee17730cd0bf0123 (diff) | |
Using a specific function to register vernac printers.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/genprint.ml | 6 | ||||
| -rw-r--r-- | printing/genprint.mli | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/printing/genprint.ml b/printing/genprint.ml index 543b05024d..b20ea0b620 100644 --- a/printing/genprint.ml +++ b/printing/genprint.ml @@ -39,6 +39,12 @@ let register_print0 wit raw glb top = let printer = { raw; glb; top; } in Print.register0 wit printer +let register_vernac_print0 wit raw = + let glb _ = CErrors.anomaly (Pp.str "vernac argument needs not globwit printer.") in + let top _ = CErrors.anomaly (Pp.str "vernac argument needs not wit printer.") in + let printer = { raw; glb; top; } in + Print.register0 wit printer + let raw_print wit v = (Print.obj wit).raw v let glb_print wit v = (Print.obj wit).glb v let top_print wit v = (Print.obj wit).top v diff --git a/printing/genprint.mli b/printing/genprint.mli index 130a89c929..76d80f3b50 100644 --- a/printing/genprint.mli +++ b/printing/genprint.mli @@ -27,3 +27,5 @@ val generic_top_print : tlevel generic_argument printer val register_print0 : ('raw, 'glb, 'top) genarg_type -> 'raw printer -> 'glb printer -> 'top printer -> unit +val register_vernac_print0 : ('raw, 'glb, 'top) genarg_type -> + 'raw printer -> unit |