From 4eae8b2e19d8ea1fc527216b9bfbab93803af313 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 23 Nov 2000 18:42:15 +0000
Subject: Affichage des QUALID

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@934 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 syntax/PPConstr.v | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'syntax')

diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v
index 47d92d95dd..1c80267944 100755
--- a/syntax/PPConstr.v
+++ b/syntax/PPConstr.v
@@ -51,6 +51,10 @@ Syntax constr
   | instantiation_one [ << (CONTEXT $a) >> ] -> [ $a ]
   | instantiation_many [ << (CONTEXT $a $b ($LIST $l)) >> ] ->
 	 [ (CONTEXT $b ($LIST $l)) ";" $a ]
+  | qualid [ << (QUALID $id ($LIST $l)) >> ] -> [ $id (FIELDS ($LIST $l)) ]
+  | fieldsnil [ << (FIELDS) >> ] -> [ ]
+  | fieldscons [ << (FIELDS $id ($LIST $l)) >> ] ->
+	 [ "." $id (FIELDS ($LIST $l)) ]
   ;
 
 (* Things parsed in command1 *)
-- 
cgit v1.2.3