diff options
| author | Pierre | 2014-01-11 09:22:47 +0100 |
|---|---|---|
| committer | Pierre | 2014-01-11 09:24:33 +0100 |
| commit | 862214db79059e263d296920079c8d7d88c2049a (patch) | |
| tree | b57dfb5f7a812e15ba8c2a7182cdbb6705890287 /dev | |
| parent | eb8cb1ed86a9c31daba644e1104739795814e4a7 (diff) | |
'Pretty' printer for wf_paths
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/base_include | 1 | ||||
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 8 |
3 files changed, 10 insertions, 0 deletions
diff --git a/dev/base_include b/dev/base_include index 26ebad9662..06a62abced 100644 --- a/dev/base_include +++ b/dev/base_include @@ -34,6 +34,7 @@ #install_printer (* kernel_name *) ppkn;; #install_printer (* constant *) ppcon;; #install_printer (* cl_index *) ppclindex;; +#install_printer (* recarg Rtree.t *) ppwf_paths;; #install_printer (* constr *) print_pure_constr;; #install_printer (* patch *) ppripos;; #install_printer (* values *) ppvalues;; @@ -11,6 +11,7 @@ install_printer Top_printers.ppdir install_printer Top_printers.ppmp install_printer Top_printers.ppkn install_printer Top_printers.ppcon +install_printer Top_printers.ppwf_paths install_printer Top_printers.ppmind install_printer Top_printers.ppsp install_printer Top_printers.ppqualid diff --git a/dev/top_printers.ml b/dev/top_printers.ml index c2cbfae160..9f39496dea 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -44,6 +44,14 @@ let ppsp sp = pp(pr_path sp) let ppqualid qid = pp(pr_qualid qid) let ppclindex cl = pp(Classops.pr_cl_index cl) +let pprecarg = function + | Declarations.Norec -> str "Norec" + | Declarations.Mrec (mind,i) -> + str "Mrec[" ++ MutInd.print mind ++ pr_comma () ++ int i ++ str "]" + | Declarations.Imbr (mind,i) -> + str "Imbr[" ++ MutInd.print mind ++ pr_comma () ++ int i ++ str "]" +let ppwf_paths x = pp (Rtree.pp_tree pprecarg x) + (* term printers *) let rawdebug = ref false let ppevar evk = pp (str (Evd.string_of_existential evk)) |