diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-19 17:35:03 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-19 17:35:03 +0000 |
| commit | 1abd56dea147493178a582569f50c9c6f03c6008 (patch) | |
| tree | 940ad7cdc5bef6de02ea76d7b7bd450920313798 /translate | |
| parent | 4f17ea4dcc68bb4619dbf2b8578333288f145fe5 (diff) | |
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
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4033 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/ppconstrnew.ml | 8 |
1 files changed, 6 insertions, 2 deletions
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 |