diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-12 23:46:36 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-12 23:46:36 +0000 |
commit | ca7877a577b01e65bee0c94dc2a847ec18eb38e9 (patch) | |
tree | 19aaa4084323c899bbc73a183709576225d4a0b7 /dev | |
parent | a10e43cc04bf8577ee32c06145ced249652a2edb (diff) |
Ajout pp pattern et rawterm
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@241 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
-rw-r--r-- | dev/include | 9 | ||||
-rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 9 insertions, 2 deletions
diff --git a/dev/include b/dev/include index 292abb8f3..2224652db 100644 --- a/dev/include +++ b/dev/include @@ -6,9 +6,16 @@ #install_printer (* ast *) prast;; #install_printer (* pat *) prastpat;; #install_printer (* patlist *) prastpatl;; + +#install_printer (* pattern *) pppattern;; +#install_printer (* rawconstr *) pprawterm;; + #install_printer (* constr *) ppterm0;; +#install_printer (* universe *) print_uni;; +#install_printer (* universes *) pp_universes;; #install_printer (* type_judgement*) pptype;; #install_printer (* judgement*) prj;; + #install_printer (* goal *) prgoal;; #install_printer (* sigma goal *) prsigmagoal;; #install_printer (* ctxt *) prctxt;; @@ -16,6 +23,4 @@ #install_printer (* global_constraints *) prevd;; #install_printer (* readable_constraints *) prevc;; #install_printer (* walking_constraints *) prwc;; -#install_printer (* universe *) print_uni;; -#install_printer (* universes *) pp_universes;; #install_printer (* clenv *) prclenv;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index a63be4447..4b1a115af 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -55,6 +55,8 @@ let prast c = pP(print_ast c) let prastpat c = pP(print_astpat c) let prastpatl c = pP(print_astlpat c) let ppterm0 = (fun x -> pP(term0 (gLOB nil_sign) x)) +let pprawterm = (fun x -> pP(prrawterm x));; +let pppattern = (fun x -> pP(prpattern x));; let pptype = (fun x -> pP(prtype x)) let prid id = pP [< 'sTR"#" ; 'sTR(string_of_id id) >] |