diff options
| author | herbelin | 2005-12-26 20:07:21 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-26 20:07:21 +0000 |
| commit | 52f4136ecf452162adb55c8de031b73c97dcdbac (patch) | |
| tree | 8ac0a4c3584025a44067c6a96c6ce9d92ca93e78 /contrib/interface | |
| parent | 099fb1b4c5084bb899e4910e42c971cdfa81e1aa (diff) | |
Renommage des Pp*new en Pp* (et déplacement dans parsing); renommage des G_*new en G_*.ml + autres petites modifications liées à suppression du traducteur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7740 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rwxr-xr-x | contrib/interface/blast.ml | 2 | ||||
| -rw-r--r-- | contrib/interface/centaur.ml4 | 2 | ||||
| -rw-r--r-- | contrib/interface/debug_tac.ml4 | 2 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 7 |
4 files changed, 6 insertions, 7 deletions
diff --git a/contrib/interface/blast.ml b/contrib/interface/blast.ml index 78716435c1..f7f6674e87 100755 --- a/contrib/interface/blast.ml +++ b/contrib/interface/blast.ml @@ -595,7 +595,7 @@ let blast_tac display_function = function let blast_tac_txt = blast_tac - (function x -> msgnl(Pptacticnew.pr_glob_tactic (Global.env()) (Tacinterp.glob_tactic x)));; + (function x -> msgnl(Pptactic.pr_glob_tactic (Global.env()) (Tacinterp.glob_tactic x)));; (* Obsolète ? overwriting_add_tactic "Blast1" blast_tac_txt;; diff --git a/contrib/interface/centaur.ml4 b/contrib/interface/centaur.ml4 index 80dc1a40fd..e79d14249d 100644 --- a/contrib/interface/centaur.ml4 +++ b/contrib/interface/centaur.ml4 @@ -346,7 +346,7 @@ let debug_tac2_pcoq tac = (errorlabstrm "DEBUG TACTIC" (str "no error here " ++ fnl () ++ Printer.pr_goal (sig_it g) ++ fnl () ++ str "the tactic is" ++ fnl () ++ - Pptacticnew.pr_glob_tactic (Global.env()) tac); + Pptactic.pr_glob_tactic (Global.env()) tac); result) with e -> diff --git a/contrib/interface/debug_tac.ml4 b/contrib/interface/debug_tac.ml4 index a7ea5ea624..dbb85895a1 100644 --- a/contrib/interface/debug_tac.ml4 +++ b/contrib/interface/debug_tac.ml4 @@ -10,7 +10,7 @@ open Proof_type;; open Tacexpr;; open Genarg;; -let pr_glob_tactic = Pptacticnew.pr_glob_tactic (Global.env()) +let pr_glob_tactic = Pptactic.pr_glob_tactic (Global.env()) (* Compacting and uncompacting proof commands *) diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 1439d4cd12..f0e9c120bc 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -416,7 +416,7 @@ and (xlate_formula:Topconstr.constr_expr -> Ascent.ct_FORMULA) = function let strip_mutrec (fid, n, bl, arf, ardef) = let (struct_arg,bl,arf,ardef) = if bl = [] then - let (bl,arf,ardef) = Ppconstrnew.split_fix (n+1) arf ardef in + let (bl,arf,ardef) = Ppconstr.split_fix (n+1) arf ardef in (xlate_id_opt(List.nth (names_of_local_assums bl) n),bl,arf,ardef) else (make_fix_struct (n, bl),bl,arf,ardef) in let arf = xlate_formula arf in @@ -1785,8 +1785,7 @@ let rec xlate_vernac = xlate_error "TODO: Print Canonical Structures" | PrintInspect n -> CT_inspect (CT_int n) | PrintUniverses opt_s -> CT_print_universes(ctf_STRING_OPT opt_s) - | PrintLocalContext -> CT_print - | PrintSetoids -> CT_print_setoids + | PrintSetoids -> CT_print_setoids | PrintTables -> CT_print_tables | PrintModuleType a -> CT_print_module_type (loc_qualid_to_ct_ID a) | PrintModule a -> CT_print_module (loc_qualid_to_ct_ID a) @@ -1870,7 +1869,7 @@ let rec xlate_vernac = let strip_mutrec ((fid, n, bl, arf, ardef), ntn) = let (struct_arg,bl,arf,ardef) = if bl = [] then - let (bl,arf,ardef) = Ppconstrnew.split_fix (n+1) arf ardef in + let (bl,arf,ardef) = Ppconstr.split_fix (n+1) arf ardef in (xlate_id_opt(List.nth (names_of_local_assums bl) n),bl,arf,ardef) else (make_fix_struct (n, bl),bl,arf,ardef) in let arf = xlate_formula arf in |