From 1061eb505a223ac7cbcec0c5ae9354cd24d9b054 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 26 Dec 2005 14:06:51 +0000
Subject: 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
---
 dev/db              | 3 ---
 dev/include         | 4 ----
 dev/top_printers.ml | 8 +-------
 3 files changed, 1 insertion(+), 14 deletions(-)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index 49d6461166..9ee08bc406 100644
--- a/dev/db
+++ b/dev/db
@@ -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)
 
-- 
cgit v1.2.3