diff options
| author | herbelin | 2005-12-26 14:06:51 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-26 14:06:51 +0000 |
| commit | 1061eb505a223ac7cbcec0c5ae9354cd24d9b054 (patch) | |
| tree | a13186a5cb22e178f8e9915899be06b5ab1fe736 /dev | |
| parent | f6e1acbbe00aeb479fde229c3941e3a6a2d53068 (diff) | |
Suppression des parseurs et printeurs v7; suppression du traducteur (mcanismes de renommage des noms de constantes, de module, de ltac et de certaines variables lies de lemmes et de tactiques, mcanisme d'ajout d'arguments implicites, etc.)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7734 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/db | 3 | ||||
| -rw-r--r-- | dev/include | 4 | ||||
| -rw-r--r-- | dev/top_printers.ml | 8 |
3 files changed, 1 insertions, 14 deletions
@@ -11,9 +11,6 @@ install_printer Top_printers.prkn install_printer Top_printers.prcon install_printer Top_printers.prsp install_printer Top_printers.prqualid -install_printer Top_printers.prast -install_printer Top_printers.prastpat -install_printer Top_printers.prastpatl install_printer Top_printers.ppbigint install_printer Top_printers.pppattern diff --git a/dev/include b/dev/include index eabf79a481..d1b5a717b4 100644 --- a/dev/include +++ b/dev/include @@ -4,10 +4,6 @@ #cd ".";; #use "base_include";; -#install_printer (* ast *) prast;; -#install_printer (* pat *) prastpat;; -#install_printer (* patlist *) prastpatl;; - #install_printer (* pattern *) pppattern;; #install_printer (* rawconstr *) pprawterm;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index e8dffb4376..6a3c19c5fb 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -10,7 +10,6 @@ open System open Pp -open Ast open Names open Libnames open Nameops @@ -54,11 +53,6 @@ let ppbigint n = pp (Bigint.pr_bigint n);; let pP s = pp (hov 0 s) -let prast c = pp(print_ast c) - -let prastpat c = pp(print_astpat c) -let prastpatl c = pp(print_astlpat c) - let safe_prglobal = function | ConstRef kn -> pp (str "CONSTREF(" ++ pr_con kn ++ str ")") | IndRef (kn,i) -> pp (str "INDREF(" ++ pr_kn kn ++ str "," ++ @@ -107,7 +101,7 @@ let ppenv e = pp (str "[" ++ pr_named_context_of e ++ str "]" ++ spc() ++ str "[" ++ pr_rel_context e (rel_context e) ++ str "]") -let pptac = (fun x -> pp(Pptactic.pr_glob_tactic x)) +let pptac = (fun x -> pp(Pptacticnew.pr_glob_tactic (Global.env()) x)) let pr_obj obj = Format.print_string (Libobject.object_tag obj) |