From 1abd56dea147493178a582569f50c9c6f03c6008 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 19 May 2003 17:35:03 +0000
Subject: Renommage CMeta en CPatVar qui sert à saisir les PMeta de Pattern
 Utilisation d'ident plutôt que int pour PMeta/CPatVar Ajout CEvar pour la
 saisie des Evar Pas d'entrée utilisateur pour les Meta noyau
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4033 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 translate/ppconstrnew.ml | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'translate')

diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml
index 1ba590cee..92feaa7de 100644
--- a/translate/ppconstrnew.ml
+++ b/translate/ppconstrnew.ml
@@ -8,6 +8,7 @@
 
 (* $Id$ *)      
 
+(*i*)
 open Ast
 open Util
 open Pp
@@ -19,6 +20,8 @@ open Coqast
 open Ppextend
 open Topconstr
 open Term
+open Pattern
+(*i*)
 
 let sep = fun _ -> brk(1,0)
 let sep_p = fun _ -> str"."
@@ -288,7 +291,7 @@ let rec check_same_type ty1 ty2 =
       check_same_type a1 a2;
       List.iter2 check_same_type bl1 bl2
   | CHole _, CHole _ -> ()
-  | CMeta(_,i1), CMeta(_,i2) when i1=i2 -> ()
+  | CPatVar(_,i1), CPatVar(_,i2) when i1=i2 -> ()
   | CSort(_,s1), CSort(_,s2) when s1=s2 -> ()
   | CCast(_,a1,b1), CCast(_,a2,b2) ->
       check_same_type a1 a2;
@@ -498,7 +501,8 @@ let rec pr inherited a =
         str "end"),
       latom
   | CHole _ -> str "_", latom
-  | CMeta (_,p) -> str "?" ++ int p, latom
+  | CEvar (_,n) -> str "?" ++ int n, latom
+  | CPatVar (_,(_,p)) -> str "?" ++ pr_patvar p, latom
   | CSort (_,s) -> pr_sort s, latom
   | CCast (_,a,b) ->
       hv 0 (pr (lcast,L) a ++ cut () ++ str ":" ++ pr (-lcast,E) b), lcast
-- 
cgit v1.2.3